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
|
||||
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
|
||||
]
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue