From 10cad5e57687261229cb252bcd0aa9f16d2e2d9a Mon Sep 17 00:00:00 2001 From: Joscha Date: Thu, 9 Jan 2020 15:11:30 +0000 Subject: [PATCH] Actually parse all server events --- src/Haboli/Euphoria/Client.hs | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/src/Haboli/Euphoria/Client.hs b/src/Haboli/Euphoria/Client.hs index 4cc99c1..ab22ec5 100644 --- a/src/Haboli/Euphoria/Client.hs +++ b/src/Haboli/Euphoria/Client.hs @@ -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 ]