From 561aa6d45ed2c7dc6cd177bab5c31f6d8fccde66 Mon Sep 17 00:00:00 2001
From: pb <pb@9f8f72e9-4bf4-416e-b76e-7d4203597157>
Date: Sun, 28 Mar 2010 10:34:23 +0000
Subject: git-svn-id: https://ssl.buetow.org/repos/hsbot/trunk@44
 9f8f72e9-4bf4-416e-b76e-7d4203597157

---
 Conf.hs | 28 ----------------------------
 1 file changed, 28 deletions(-)
 delete mode 100644 Conf.hs

(limited to 'Conf.hs')

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 }
-
-- 
cgit v1.2.3