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

merge and removed hehe

Browse source
This commit is contained in:
Jeena 2014-11-23 21:26:44 +01:00
commit 77f105b0c6
1 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

12
cnb.hs
View file

@ -81,8 +81,8 @@ deleteKeyValue key = do
let sn = [(k,v) | (k,v) <- s, k /= key] let sn = [(k,v) | (k,v) <- s, k /= key]
putStore (sn) putStore (sn)
matches :: String -> MyStateM (Maybe Value) match :: String -> MyStateM (Maybe Value)
matches s = do match s = do
st <- getStore st <- getStore
case (find (\(key, value) -> s =~ key) st) of case (find (\(key, value) -> s =~ key) st) of
Nothing -> return Nothing Nothing -> return Nothing
@ -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 <- matches 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
@ -246,8 +246,8 @@ startStore = [
("(E|e)rlang", "Oh yeah!"), ("(E|e)rlang", "Oh yeah!"),
("(H|h)askell", "Ich bin in Haskell geschrieben."), ("(H|h)askell", "Ich bin in Haskell geschrieben."),
("danke", "np"), ("danke", "np"),
("^np$", "schmück dich nicht mit fremden Federn."), -- ("^hehe$", "was gibt es da zu lachen?"),
("^hehe$", "was gibt es da zu lachen?") ("^np$", "schmück dich nicht mit fremden Federn.")
] ]
-- ü -- ü