disconnected :: SEvent -> Bot ()
disconnected Disconnected = do
    putLogInfo "Disconnected from server."
    setGlobal currChanList []
    signalEvent UnReady

-- | Keep track of ready\/unready status.
disconnected :: SEvent -> Bot ()
disconnected Disconnected = do
    putLogInfo "Disconnected from server."
    setGlobal currChanList []
    signalEvent UnReady

-- | Keep track of ready\/unready status.
disconnected Disconnected = do
    putLogInfo "Disconnected from server."
    setGlobal currChanList []
    signalEvent UnReady

-- | Keep track of ready\/unready status.