From 66dbee09bf197e411abff1d5ba0b8df3dce79100 Mon Sep 17 00:00:00 2001
From: rexim <reximkut@gmail.com>
Date: Mon, 7 Oct 2019 07:21:57 +0700
Subject: [PATCH] (#799) Increase pipe limit for everyone who has at least one
 role

---
 src/Bot.hs | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/src/Bot.hs b/src/Bot.hs
index 354944a..bf3533f 100644
--- a/src/Bot.hs
+++ b/src/Bot.hs
@@ -681,7 +681,7 @@ dispatchPipe = Reaction dispatchPipe'
     dispatchPipe' message@Message { messageSender = Sender {senderRoles = roles}
                                   , messageContent = cmds
                                   }
-      | not (any (`elem` coolRoles) roles) && length cmds > plebPipeLimit =
+      | null roles && length cmds > plebPipeLimit =
         replyMessage $
         fmap
           (const
@@ -689,7 +689,7 @@ dispatchPipe = Reaction dispatchPipe'
                   Subscribe to increase the limit:
                   https://www.twitch.tv/products/tsoding|])
           message
-      | any (`elem` coolRoles) roles && length cmds > pipeLimit =
+      | length cmds > pipeLimit =
         replyMessage $
         fmap
           (const
@@ -701,7 +701,6 @@ dispatchPipe = Reaction dispatchPipe'
       where
         pipeLimit = 10
         plebPipeLimit = 2
-        coolRoles = [tsodingTwitchedDiscordRole, TwitchSub] ++ authorityRoles
 
 dispatchCommand :: Message (Command T.Text) -> Effect ()
 dispatchCommand message = do