forge/Vervis
1
0
Fork 0
Code Pull requests Activity

Make frg:isShared key property optional, it was accidentally required

Browse source
This commit is contained in:
fr33domlover 2019-03-15 16:33:10 +00:00
parent 0e0afa78f9
commit 9e881554ea
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

@ -209,7 +209,7 @@ instance ActivityPub PublicKey where
when (t /= ("Key" :: Text)) $ when (t /= ("Key" :: Text)) $
fail "PublicKey @type isn't Key" fail "PublicKey @type isn't Key"
(host, id_) <- f2l <$> (o .: "@id" <|> o .: "id") (host, id_) <- f2l <$> (o .: "@id" <|> o .: "id")
shared <- o .: (frg <> "isShared") .!= False shared <- o .:? (frg <> "isShared") .!= False
fmap (host,) $ fmap (host,) $
PublicKey id_ PublicKey id_
<$> o .:? "expires" <$> o .:? "expires"