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

fixed problem on os x

Browse source
This commit is contained in:
Jeena 2014-11-23 18:52:34 +01:00
parent b9368ee154
commit 8bc204e638
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
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)
match :: String -> MyStateM (Maybe Value) matches :: String -> MyStateM (Maybe Value)
match s = do matches 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 <- match te [] -> do m <- matches te
case m of case m of
Just v -> privmsg v Just v -> privmsg v
Nothing -> return () Nothing -> return ()