diff options
Diffstat (limited to 'HsBot/Base/Conf.hs')
| -rw-r--r-- | HsBot/Base/Conf.hs | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/HsBot/Base/Conf.hs b/HsBot/Base/Conf.hs index 3eada1d..774f473 100644 --- a/HsBot/Base/Conf.hs +++ b/HsBot/Base/Conf.hs @@ -22,11 +22,15 @@ makeConf = M.fromList ] get :: (Monad m) => String -> Conf -> m String -get = M.lookup - +get key conf = case M.lookup key conf of + Just val -> return (val) + Nothing -> return ("") + getUnwrappedInt :: String -> Conf -> Int getUnwrappedInt key conf = read (getUnwrapped key conf) :: Int getUnwrapped :: String -> Conf -> String -getUnwrapped key conf = do { val <- get key conf; val } - +getUnwrapped key conf = + case M.lookup key conf of + Just val -> val + Nothing -> "" |