From 027b0012a53bf6ee2719d26d60409a936ed863ad Mon Sep 17 00:00:00 2001
From: fr33domlover <fr33domlover@riseup.net>
Date: Sun, 3 Nov 2019 13:43:59 +0000
Subject: [PATCH] AP: When parsing a Follow, let "hide" not be specified, treat
 as false

---
 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 070f468..58cf454 100644
--- a/src/Web/ActivityPub.hs
+++ b/src/Web/ActivityPub.hs
@@ -1088,7 +1088,7 @@ parseFollow o =
     Follow
         <$> o .:  "object"
         <*> o .:? "context"
-        <*> o .:  "hide"
+        <*> o .:? "hide" .!= False
 
 encodeFollow :: UriMode u => Follow u -> Series
 encodeFollow (Follow obj mcontext hide)