removed compile errors

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 -> ""