Merge pull request #802 from tsoding/799

(#799) Increase pipe limit for everyone who has at least one role

Author: rexim

src/Bot.hs

@@ -681,15 +681,15 @@ 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
              [qms|The length of the pipe is limited to {plebPipeLimit}.
                   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