Browse files

Merge branch 'master' of ssh://github.com/Detegr/HBot

  • Loading branch information...
2 parents 706163b + d48f167 commit 5ba96397493e0c7840cb22a7da10ee3e469445e1 @Detegr committed Feb 6, 2014
Showing with 2 additions and 2 deletions.
  1. +2 −2 HBot.hs
View
4 HBot.hs
@@ -43,9 +43,9 @@ getHBotConf = withLoadedConfig "HBot.conf" $ runMaybeT $ do
nick <- lift $ getItem "Nick" (Just "Connection")
name <- lift $ getItem "RealName" (Just "Connection")
let arr=[server,port,nick,name]
- mapM_ (guard . isJust) arr
+ guard . isJust . sequence $ arr
mbvalues <- mapM (return . snd . fromJust) arr
- mapM_ (guard . isJust) mbvalues
+ guard . isJust . sequence $ mbvalues
return (getValue server, read . getValue $ port, getValue nick, getValue name)
where getValue = fromJust . snd . fromJust

0 comments on commit 5ba9639

Please sign in to comment.