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")