When parsing actor, allow missing sshKey, treat it the same as []
This commit is contained in:
parent
bc379a864f
commit
96c6904b46
1 changed files with 1 additions and 1 deletions
|
@ -370,7 +370,7 @@ instance ActivityPub Actor where
|
||||||
<*> withAuthorityMaybeO authority (o .:? "followers")
|
<*> withAuthorityMaybeO authority (o .:? "followers")
|
||||||
<*> withAuthorityMaybeO authority (o .:? "following")
|
<*> withAuthorityMaybeO authority (o .:? "following")
|
||||||
<*> withAuthorityT authority (parsePublicKeySet =<< o .: "publicKey")
|
<*> withAuthorityT authority (parsePublicKeySet =<< o .: "publicKey")
|
||||||
<*> (traverse (withAuthorityO authority . return) =<< o .: "sshKey")
|
<*> (traverse (withAuthorityO authority . return) =<< o .:? "sshKey" .!= [])
|
||||||
toSeries authority
|
toSeries authority
|
||||||
(Actor id_ typ musername mname msummary inbox outbox followers following pkeys skeys)
|
(Actor id_ typ musername mname msummary inbox outbox followers following pkeys skeys)
|
||||||
= "id" .= ObjURI authority id_
|
= "id" .= ObjURI authority id_
|
||||||
|
|
Loading…
Reference in a new issue