aboutsummaryrefslogtreecommitdiffstats
path: root/src/Reaktor
diff options
context:
space:
mode:
Diffstat (limited to 'src/Reaktor')
-rw-r--r--src/Reaktor/API.hs3
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