-- Count how many messages the bot recieves
counterBot :: SlackBot CounterState
counterBot (Message cid _ _ _ _ _) = do
  num <- userState . messageCount <%= (+1)
  sendMessage cid (T.pack . show $ num)
counterBot :: SlackBot CounterState
counterBot (Message cid _ _ _ _ _) = do
  num <- userState . messageCount <%= (+1)
  sendMessage cid (T.pack . show $ num)
counterBot (Message cid _ _ _ _ _) = do
  num <- userState . messageCount <%= (+1)
  sendMessage cid (T.pack . show $ num)