rejoinListener :: InputListener s
rejoinListener IRCMsg {msgCmd = "KICK", msgParams = [channel, nick]} = do
  BotConf{nick = myNick} <- readMVar =<< use botConf
  when (BS.map toLower nick == BS.map toLower (BS.pack myNick)) $ do
    threadDelay 3000000
    sendMsg "JOIN" [channel] ""
rejoinListener :: InputListener s
rejoinListener IRCMsg {msgCmd = "KICK", msgParams = [channel, nick]} = do
  BotConf{nick = myNick} <- readMVar =<< use botConf
  when (BS.map toLower nick == BS.map toLower (BS.pack myNick)) $ do
    threadDelay 3000000
    sendMsg "JOIN" [channel] ""
rejoinListener IRCMsg {msgCmd = "KICK", msgParams = [channel, nick]} = do
  BotConf{nick = myNick} <- readMVar =<< use botConf
  when (BS.map toLower nick == BS.map toLower (BS.pack myNick)) $ do
    threadDelay 3000000
    sendMsg "JOIN" [channel] ""