-- | A bot middleware that filters channels based on the ChannelId
filterBot :: (ChannelId -> Bool) -> SlackBot a -> SlackBot a
filterBot f _ (Message cid _ _ _ _ _) | not (f cid) = return ()
filterBot :: (ChannelId -> Bool) -> SlackBot a -> SlackBot a
filterBot f _ (Message cid _ _ _ _ _) | not (f cid) = return ()
filterBot f _ (Message cid _ _ _ _ _) | not (f cid) = return ()