naskya/vervis
1
0
Fork 0
mirror of https://code.naskya.net/repos/ndqEd synced 2025-01-25 16:27:50 +09:00
Code 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)) $
fail "PublicKey @type isn't Key"
(host, id_) <- f2l <$> (o .: "@id" <|> o .: "id")
shared <- o .: (frg <> "isShared") .!= False
shared <- o .:? (frg <> "isShared") .!= False
fmap (host,) $
PublicKey id_
<$> o .:? "expires"