forge/Vervis
1
0
Fork 0
Code Pull requests Activity

Allow actors not to list any public keys at all

Browse source
This commit is contained in:
fr33domlover 2019-03-20 09:31:08 +00:00
parent 716487f2b8
commit 6f3df6d569
2 changed files with 15 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/Vervis/Handler/Person.hs
View file

@ -145,6 +145,7 @@ getPerson shr person = do
, actorUsername = shr2text shr
, actorInbox = route2local InboxR
, actorPublicKeys =
Left (route2local ActorKey1R) :|
[ Left $ route2local ActorKey2R ]
[ Left $ route2local ActorKey1R
, Left $ route2local ActorKey2R
]
}

24
src/Web/ActivityPub.hs
View file

@ -238,17 +238,17 @@ instance ActivityPub PublicKey where
mkOwner h OwnerInstance = FedURI h "" ""
mkOwner h (OwnerActor lu) = l2f h lu
parsePublicKeySet :: Value -> Parser (Text, NonEmpty (Either LocalURI PublicKey))
parsePublicKeySet :: Value -> Parser (Text, [Either LocalURI PublicKey])
parsePublicKeySet v =
case v of
Array a ->
case nonEmpty $ V.toList a of
Nothing -> fail "No public keys"
Just (k :| ks) -> do
case V.toList a of
[] -> fail "No public keys"
k : ks -> do
(h, e) <- parseKey k
es <- traverse (withHost h . parseKey) ks
return (h, e :| es)
_ -> second (:| []) <$> parseKey v
return (h, e : es)
_ -> second (: []) <$> parseKey v
where
parseKey (String t) = second Left . f2l <$> either fail return (parseFedURI t)
parseKey (Object o) = second Right <$> parseObject o
@ -259,11 +259,11 @@ parsePublicKeySet v =
then return v
else fail "URI host mismatch"
encodePublicKeySet :: Text -> NonEmpty (Either LocalURI PublicKey) -> Encoding
encodePublicKeySet host (e :| es) =
if null es
then renderKey e
else listEncoding renderKey $ e : es
encodePublicKeySet :: Text -> [Either LocalURI PublicKey] -> Encoding
encodePublicKeySet host es =
case es of
[e] -> renderKey e
_ -> listEncoding renderKey es
where
renderKey (Left lu) = toEncoding $ l2f host lu
renderKey (Right pk) = pairs $ toSeries host pk
@ -273,7 +273,7 @@ data Actor = Actor
, actorType :: ActorType
, actorUsername :: Text
, actorInbox :: LocalURI
, actorPublicKeys :: NonEmpty (Either LocalURI PublicKey)
, actorPublicKeys :: [Either LocalURI PublicKey]
}
instance ActivityPub Actor where