From 734863be5c2cd7f7bdf5e60d957fb104c525abe6 Mon Sep 17 00:00:00 2001
From: lassulus <lassulus@lassul.us>
Date: Mon, 3 May 2021 11:56:12 +0200
Subject: Reaktor.API: allow NOTICE messages

---
 src/Reaktor/API.hs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'src/Reaktor/API.hs')

diff --git a/src/Reaktor/API.hs b/src/Reaktor/API.hs
index 4cc4fe9..83fe27a 100644
--- a/src/Reaktor/API.hs
+++ b/src/Reaktor/API.hs
@@ -79,10 +79,14 @@ main Actions{..} = \case
 
     serveTest :: Message -> Handler NoContent
     serveTest = \case
-        -- Allowing just private messages to (registered) channels for now.
+        -- Allowing private messages to (registered) channels.
         msg@(Message Nothing PRIVMSG [msgtarget,_]) | isChannelName msgtarget -> do
             liftIO $ aSend msg
             return NoContent
+        -- Allowing notice messages to (registered) channels.
+        msg@(Message Nothing NOTICE [msgtarget,_]) | isChannelName msgtarget -> do
+            liftIO $ aSend msg
+            return NoContent
         _ ->
             throwError err403
       where
-- 
cgit v1.2.3