pingTimeout :: Bot ()
pingTimeout = do
    tm <- getGlobal' pingTimeoutLen
    putLogInfo $ "Ping timeout: " ++ show tm ++ " seconds."
    getGlobal listenThread >>= liftIO . killThread


-- Nick management
-- | The password to use to identify the nickname with NickServ.
pingTimeout :: Bot ()
pingTimeout = do
    tm <- getGlobal' pingTimeoutLen
    putLogInfo $ "Ping timeout: " ++ show tm ++ " seconds."
    getGlobal listenThread >>= liftIO . killThread


-- Nick management
-- | The password to use to identify the nickname with NickServ.
pingTimeout = do
    tm <- getGlobal' pingTimeoutLen
    putLogInfo $ "Ping timeout: " ++ show tm ++ " seconds."
    getGlobal listenThread >>= liftIO . killThread


-- Nick management
-- | The password to use to identify the nickname with NickServ.