jeena/cnb
1
0
Fork 0
Code Issues Pull requests Projects Packages Wiki Activity Actions

smal fixes

Browse source
This commit is contained in:
Jeena 2014-06-09 22:13:44 +02:00
parent 362046fff3
commit 735d84cb33
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
cnb.hs
View file

@ -120,7 +120,7 @@ evalPrivmsg (Just m@(Message n _ te)) = do
let pat = nick ++ ":(.*)" let pat = nick ++ ":(.*)"
let r = te =~ pat :: [[String]] let r = te =~ pat :: [[String]]
case r of case r of
[] -> do m <- match te [] -> do m <- Main.match te
case m of case m of
Just v -> privmsg v Just v -> privmsg v
Nothing -> return () Nothing -> return ()
@ -144,7 +144,7 @@ action "list" (Message n _ _) = do
mapM (\(k,v) -> msg (k ++ "~" ++ v) n) st mapM (\(k,v) -> msg (k ++ "~" ++ v) n) st
return () return ()
action "leave" (Message n _ _) = do action "leave" (Message n _ _) = do
leave ("Fuck you " ++ n ++ ", I'm quitting!") leave ("Ok " ++ n ++ ", I'm quitting!")
action "implode" (Message n _ _) = do action "implode" (Message n _ _) = do
leave ("whoooooooshhhhh ...") leave ("whoooooooshhhhh ...")
action "explode" (Message n _ _) = do action "explode" (Message n _ _) = do