added environment

git-svn-id: https://ssl.buetow.org/repos/hsbot/trunk@26 9f8f72e9-4bf4-416e-b76e-7d4203597157

1 files changed, 8 insertions, 1 deletions

diff --git a/Conf.hs b/Conf.hs
index 33be1dd..9db9c19 100644
--- a/Conf.hs
+++ b/Conf.hs
@@ -7,7 +7,7 @@ type Conf = M.Map String String
 makeConf = M.fromList 
          [ ("name", "HsBot")
          , ("version", "v0.0")
-         , ("database", "hsbot.db")
+         , ("databaseFile", "hsbot.db")
          , ("maxMessageSize", "400")
          , ("admin", "rantanplan")
          , ("ircServer", "irc.german-elite.net")
@@ -19,3 +19,10 @@ makeConf = M.fromList
 
 get :: (Monad m) => String -> Conf -> m String
 get = M.lookup 
+
+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 }
+