-- | Request op in all channels from ChanServ.
requestOp = do
    cs <- getGlobal' chanservAddr
    case cs of ss@SUser{} -> sendMessage (fromS ss :: User) "OP"
               _ -> return ()


-- Channel management

-- | If it's the bot that's joined, update the current channels list. If
-- we just joined the last remaining channel on the autojoin list, signal 'Ready'.
requestOp = do
    cs <- getGlobal' chanservAddr
    case cs of ss@SUser{} -> sendMessage (fromS ss :: User) "OP"
               _ -> return ()


-- Channel management

-- | If it's the bot that's joined, update the current channels list. If
-- we just joined the last remaining channel on the autojoin list, signal 'Ready'.
requestOp = do
    cs <- getGlobal' chanservAddr
    case cs of ss@SUser{} -> sendMessage (fromS ss :: User) "OP"
               _ -> return ()


-- Channel management

-- | If it's the bot that's joined, update the current channels list. If
-- we just joined the last remaining channel on the autojoin list, signal 'Ready'.