From b12ad49b620883886b4dd361ddb2a4c4dcecab4a Mon Sep 17 00:00:00 2001 From: fr33domlover Date: Thu, 16 May 2019 21:21:51 +0000 Subject: [PATCH] Remove unused accidentally left line --- src/Web/ActivityPub.hs | 1 - 1 file changed, 1 deletion(-) diff --git a/src/Web/ActivityPub.hs b/src/Web/ActivityPub.hs index c66771c..4191871 100644 --- a/src/Web/ActivityPub.hs +++ b/src/Web/ActivityPub.hs @@ -414,7 +414,6 @@ instance ActivityPub Note where typ <- o .: "type" unless (typ == ("Note" :: Text)) $ fail "type isn't Note" (h, attrib) <- f2l <$> o .: "attributedTo" - (h, id_) <- f2l <$> o .: "id" fmap (h,) $ Note <$> withHostM h (fmap f2l <$> o .:? "id")