sup39/vervis
1
0
Fork 0
mirror of https://code.sup39.dev/repos/Wqawg synced 2024-12-29 00:04:52 +09:00
Code Issues Activity

If an actor doesn't have SSH keys, don't list an "sshKey":[] property

Browse source
This commit is contained in:
fr33domlover 2019-10-19 04:16:09 +00:00
parent 1c56f63e86
commit 0be7f05d31
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Web/ActivityPub.hs
View file

@ -380,7 +380,7 @@ instance ActivityPub Actor where
<> "outbox" .=? (ObjURI authority <$> outbox) <> "outbox" .=? (ObjURI authority <$> outbox)
<> "followers" .=? (ObjURI authority <$> followers) <> "followers" .=? (ObjURI authority <$> followers)
<> "publicKey" `pair` encodePublicKeySet authority pkeys <> "publicKey" `pair` encodePublicKeySet authority pkeys
<> "sshKey" .= map (ObjURI authority) skeys <> "sshKey" .=% map (ObjURI authority) skeys
data Repo u = Repo data Repo u = Repo
{ repoActor :: Actor u { repoActor :: Actor u