forge/Vervis
1
0
Fork 0
Code Pull requests Activity

Remove unused accidentally left line

Browse source
This commit is contained in:
fr33domlover 2019-05-16 21:21:51 +00:00
parent ebc3f016b6
commit b12ad49b62
1 changed files with 0 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
src/Web/ActivityPub.hs
View file

@ -414,7 +414,6 @@ instance ActivityPub Note where
typ <- o .: "type" typ <- o .: "type"
unless (typ == ("Note" :: Text)) $ fail "type isn't Note" unless (typ == ("Note" :: Text)) $ fail "type isn't Note"
(h, attrib) <- f2l <$> o .: "attributedTo" (h, attrib) <- f2l <$> o .: "attributedTo"
(h, id_) <- f2l <$> o .: "id"
fmap (h,) $ fmap (h,) $
Note Note
<$> withHostM h (fmap f2l <$> o .:? "id") <$> withHostM h (fmap f2l <$> o .:? "id")