diff options
Diffstat (limited to 'Conf.hs')
| -rw-r--r-- | Conf.hs | 28 |
1 files changed, 0 insertions, 28 deletions
diff --git a/Conf.hs b/Conf.hs deleted file mode 100644 index 9db9c19..0000000 --- a/Conf.hs +++ /dev/null @@ -1,28 +0,0 @@ -module Conf where - -import qualified Data.Map as M - -type Conf = M.Map String String - -makeConf = M.fromList - [ ("name", "HsBot") - , ("version", "v0.0") - , ("databaseFile", "hsbot.db") - , ("maxMessageSize", "400") - , ("admin", "rantanplan") - , ("ircServer", "irc.german-elite.net") - , ("ircChannel", "#buetow.org") - , ("ircNick", "hotdog") - , ("ircPort", "6667") - , ("ircUser", "hsbot.haskell.eu") - ] - -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 } - |