From 96c6904b4689b7f64d44fa6b3c2fab050edd60d2 Mon Sep 17 00:00:00 2001 From: fr33domlover Date: Sat, 19 Oct 2019 09:38:05 +0000 Subject: [PATCH] When parsing actor, allow missing sshKey, treat it the same as [] --- 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 357bcb1..61e899e 100644 --- a/src/Web/ActivityPub.hs +++ b/src/Web/ActivityPub.hs @@ -370,7 +370,7 @@ instance ActivityPub Actor where <*> withAuthorityMaybeO authority (o .:? "followers") <*> withAuthorityMaybeO authority (o .:? "following") <*> withAuthorityT authority (parsePublicKeySet =<< o .: "publicKey") - <*> (traverse (withAuthorityO authority . return) =<< o .: "sshKey") + <*> (traverse (withAuthorityO authority . return) =<< o .:? "sshKey" .!= []) toSeries authority (Actor id_ typ musername mname msummary inbox outbox followers following pkeys skeys) = "id" .= ObjURI authority id_