diff options
| author | lassulus <lassulus@lassul.us> | 2021-10-25 10:21:30 +0200 |
|---|---|---|
| committer | lassulus <lassulus@lassul.us> | 2021-10-25 10:21:30 +0200 |
| commit | 82afc7fafb0be0c6a899d343643db449d5b5f2bb (patch) | |
| tree | 492d4aa1b34024963585e5d2ec4d5541ca7da130 | |
| parent | 33b534acd07c8b6f32e9cf5539ca7d1812c7e0a7 (diff) | |
Reaktor.API: allow NOTICE message
| -rw-r--r-- | src/Reaktor/API.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/Reaktor/API.hs b/src/Reaktor/API.hs index 5836b12..f846cf2 100644 --- a/src/Reaktor/API.hs +++ b/src/Reaktor/API.hs @@ -79,6 +79,9 @@ main Actions{..} = \case serveTest :: Message -> Handler NoContent serveTest = \case + msg@(Message Nothing NOTICE [msgtarget,_]) | isChannelName msgtarget -> do + liftIO $ aSend msg + return NoContent msg@(Message Nothing PRIVMSG [msgtarget,_]) | isChannelName msgtarget -> do liftIO $ aSend msg return NoContent |