Garmelon/euph-api
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix WhoReply aeson parsing

Browse source
This commit is contained in:
Joscha 2018-02-25 21:52:41 +00:00
parent ca3abbd93d
commit 01454fe6d1
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/EuphApi/Connection.hs
View file

@ -730,4 +730,6 @@ newtype WhoReply = WhoReply
} deriving (Show)
instance FromJSON WhoReply where
parseJSON v = WhoReply <$> parseJSON v
parseJSON = withObject "WhoReply" $ \o -> do
listing <- o .: "listing"
return (WhoReply listing)