Actually parse all server events

This commit is contained in:
Joscha 2020-01-09 15:11:30 +00:00
parent 29a2b62b91
commit 10cad5e576

View file

@ -271,9 +271,18 @@ data Event
--TODO: Add all the events
instance FromJSON Event where
parseJSON v = foldr (<|>) mempty
[ EventJoin <$> parseJSON v
[ EventBounce <$> parseJSON v
, EventDisconnect <$> parseJSON v
, EventHello <$> parseJSON v
, EventJoin <$> parseJSON v
, EventLogin <$> parseJSON v
, EventLogout <$> parseJSON v
, EventNetwork <$> parseJSON v
, EventNick <$> parseJSON v
, EventEditMessage <$> parseJSON v
, EventPart <$> parseJSON v
, EventPing <$> parseJSON v
, EventPmInitiate <$> parseJSON v
, EventSend <$> parseJSON v
, EventSnapshot <$> parseJSON v
]