From 9e881554eac4baa2fb43b2f76bf3fe0e1506716c Mon Sep 17 00:00:00 2001 From: fr33domlover Date: Fri, 15 Mar 2019 16:33:10 +0000 Subject: [PATCH] Make frg:isShared key property optional, it was accidentally required --- 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 d69ef3d..e544726 100644 --- a/src/Web/ActivityPub.hs +++ b/src/Web/ActivityPub.hs @@ -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"