naskya/vervis
1
0
Fork 0
mirror of https://code.naskya.net/repos/ndqEd synced 2025-01-10 21:16:46 +09:00
Code Activity

Fix infinite loop in ActivityPub audience parsing

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

2
src/Web/ActivityPub.hs
View file

@ -350,7 +350,7 @@ newtype AdaptAudience = AdaptAudience
} }
instance FromJSON AdaptAudience where instance FromJSON AdaptAudience where
parseJSON = parseJSON . adapt parseJSON = fmap AdaptAudience . parseJSON . adapt
where where
adapt v = adapt v =
case v of case v of