pingTimer :: Bot ()
pingTimer = do
    nick <- getGlobal' botNick
    writeMsg $ CMsg PING [nick]
    tm <- getGlobal' pingTimeoutLen
    runInS (div tm 3) pingTimer >>= setGlobal pingTimerHandle

-- | Receive a ping reply from the server and reset the timeout timer.
pingTimer :: Bot ()
pingTimer = do
    nick <- getGlobal' botNick
    writeMsg $ CMsg PING [nick]
    tm <- getGlobal' pingTimeoutLen
    runInS (div tm 3) pingTimer >>= setGlobal pingTimerHandle

-- | Receive a ping reply from the server and reset the timeout timer.
pingTimer = do
    nick <- getGlobal' botNick
    writeMsg $ CMsg PING [nick]
    tm <- getGlobal' pingTimeoutLen
    runInS (div tm 3) pingTimer >>= setGlobal pingTimerHandle

-- | Receive a ping reply from the server and reset the timeout timer.