smal fixes
This commit is contained in:
parent
362046fff3
commit
735d84cb33
1 changed files with 2 additions and 2 deletions
4
cnb.hs
4
cnb.hs
|
@ -120,7 +120,7 @@ evalPrivmsg (Just m@(Message n _ te)) = do
|
|||
let pat = nick ++ ":(.*)"
|
||||
let r = te =~ pat :: [[String]]
|
||||
case r of
|
||||
[] -> do m <- match te
|
||||
[] -> do m <- Main.match te
|
||||
case m of
|
||||
Just v -> privmsg v
|
||||
Nothing -> return ()
|
||||
|
@ -144,7 +144,7 @@ action "list" (Message n _ _) = do
|
|||
mapM (\(k,v) -> msg (k ++ "~" ++ v) n) st
|
||||
return ()
|
||||
action "leave" (Message n _ _) = do
|
||||
leave ("Fuck you " ++ n ++ ", I'm quitting!")
|
||||
leave ("Ok " ++ n ++ ", I'm quitting!")
|
||||
action "implode" (Message n _ _) = do
|
||||
leave ("whoooooooshhhhh ...")
|
||||
action "explode" (Message n _ _) = do
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue