doTOPIC :: Callback
doTOPIC msg
    = do let loc = Nick (server msg) ((head (body msg)))
         s <- get
         put (s { ircChannels = M.insert (mkCN loc) (tail $ head $ tail $ body msg) (ircChannels s)})
doTOPIC :: Callback
doTOPIC msg
    = do let loc = Nick (server msg) ((head (body msg)))
         s <- get
         put (s { ircChannels = M.insert (mkCN loc) (tail $ head $ tail $ body msg) (ircChannels s)})
doTOPIC msg
    = do let loc = Nick (server msg) ((head (body msg)))
         s <- get
         put (s { ircChannels = M.insert (mkCN loc) (tail $ head $ tail $ body msg) (ircChannels s)})