-- |proof of concept
annoyingNickChanger :: Bot () ()
annoyingNickChanger = forever $ do
  threadDelay 2760000000 -- wait 46 minutes
  changeNick "erisbot"
  threadDelay 2760000000 -- wait 46 minutes
  changeNick "strifebot"
  where
    changeNick n = do
      use botConf >>= (`modifyMVar_` (\c -> return c {nick = n}))
      sendMsg "NICK" [BS.pack n] ""
annoyingNickChanger :: Bot () ()
annoyingNickChanger = forever $ do
  threadDelay 2760000000 -- wait 46 minutes
  changeNick "erisbot"
  threadDelay 2760000000 -- wait 46 minutes
  changeNick "strifebot"
  where
    changeNick n = do
      use botConf >>= (`modifyMVar_` (\c -> return c {nick = n}))
      sendMsg "NICK" [BS.pack n] ""
annoyingNickChanger = forever $ do
  threadDelay 2760000000 -- wait 46 minutes
  changeNick "erisbot"
  threadDelay 2760000000 -- wait 46 minutes
  changeNick "strifebot"
  where
    changeNick n = do
      use botConf >>= (`modifyMVar_` (\c -> return c {nick = n}))
      sendMsg "NICK" [BS.pack n] ""