doPART :: Callback
doPART msg
  = when (lambdabotName msg == nick msg) $ do
        let loc = Nick (server msg) (head (body msg))
        s <- get
        put (s { ircChannels = M.delete (mkCN loc) (ircChannels s) })
doPART :: Callback
doPART msg
  = when (lambdabotName msg == nick msg) $ do
        let loc = Nick (server msg) (head (body msg))
        s <- get
        put (s { ircChannels = M.delete (mkCN loc) (ircChannels s) })
doPART msg
  = when (lambdabotName msg == nick msg) $ do
        let loc = Nick (server msg) (head (body msg))
        s <- get
        put (s { ircChannels = M.delete (mkCN loc) (ircChannels s) })