From 0be7f05d31040760e17486f9e9819f2f18ee9802 Mon Sep 17 00:00:00 2001
From: fr33domlover <fr33domlover@riseup.net>
Date: Sat, 19 Oct 2019 04:16:09 +0000
Subject: [PATCH] If an actor doesn't have SSH keys, don't list an "sshKey":[]
 property

---
 src/Web/ActivityPub.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Web/ActivityPub.hs b/src/Web/ActivityPub.hs
index da37728..c531d77 100644
--- a/src/Web/ActivityPub.hs
+++ b/src/Web/ActivityPub.hs
@@ -380,7 +380,7 @@ instance ActivityPub Actor where
             <> "outbox"            .=?    (ObjURI authority <$> outbox)
             <> "followers"         .=?    (ObjURI authority <$> followers)
             <> "publicKey"         `pair` encodePublicKeySet authority pkeys
-            <> "sshKey"            .=     map (ObjURI authority) skeys
+            <> "sshKey"            .=%    map (ObjURI authority) skeys
 
 data Repo u = Repo
     { repoActor :: Actor u