Actually parse all server events
This commit is contained in:
parent
29a2b62b91
commit
10cad5e576
1 changed files with 10 additions and 1 deletions
|
|
@ -271,9 +271,18 @@ data Event
|
||||||
--TODO: Add all the events
|
--TODO: Add all the events
|
||||||
instance FromJSON Event where
|
instance FromJSON Event where
|
||||||
parseJSON v = foldr (<|>) mempty
|
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
|
, EventPart <$> parseJSON v
|
||||||
, EventPing <$> parseJSON v
|
, EventPing <$> parseJSON v
|
||||||
|
, EventPmInitiate <$> parseJSON v
|
||||||
, EventSend <$> parseJSON v
|
, EventSend <$> parseJSON v
|
||||||
, EventSnapshot <$> parseJSON v
|
, EventSnapshot <$> parseJSON v
|
||||||
]
|
]
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue