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