From 115d223922eb50a371743ea2f384323278888f9c Mon Sep 17 00:00:00 2001
From: Laura <the-ceo-of-antifa@protonmail.com>
Date: Wed, 25 Jan 2023 22:56:20 +0100
Subject: Don't allow commands from PM to spam channel

---
 miaowe.hs | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/miaowe.hs b/miaowe.hs
index f03d4f2..f046198 100644
--- a/miaowe.hs
+++ b/miaowe.hs
@@ -257,10 +257,15 @@ processCommand channel command | length (words command) < 5 = sendToChannel chan
 a command."
                                | otherwise = doCommand channel command
 
+commandChannel :: String -> String
+commandChannel command = (words command)!!2
+
 mainLoop :: IrcChannel -> IO ()
 mainLoop channel = waitForCommand
                    >>= \line ->
-                         processCommand channel line
+                         (if commandChannel line == channel
+                         then processCommand channel line
+                         else return ())
                          >> mainLoop channel
                         
 
-- 
cgit v1.2.3