From de9e80d18816cd11c4b7785e635a3fb0dfe0433a Mon Sep 17 00:00:00 2001
From: pb <pb@9f8f72e9-4bf4-416e-b76e-7d4203597157>
Date: Sun, 14 Mar 2010 11:52:41 +0000
Subject: modularization

git-svn-id: https://ssl.buetow.org/repos/hsbot/trunk@22 9f8f72e9-4bf4-416e-b76e-7d4203597157
---
 Conf.hs | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)
 create mode 100644 Conf.hs

(limited to 'Conf.hs')

diff --git a/Conf.hs b/Conf.hs
new file mode 100644
index 0000000..b4b2477
--- /dev/null
+++ b/Conf.hs
@@ -0,0 +1,20 @@
+module Conf where
+
+import qualified Data.Map as M
+
+type Conf = M.Map String String
+
+makeConf = M.fromList 
+         [ ("name", "HsBot")
+         , ("version", "v0.0")
+         , ("database", "hsbot.db")
+         , ("maxMessageSize", "400")
+         , ("admin", "rantanplan")
+         , ("ircServer", "irc.german-elite.net")
+         , ("ircChannel", "#buetow.org")
+         , ("ircNick", "hotdog")
+         , ("ircPort", "6667")
+         ]
+
+get :: (Monad m) => String -> Conf -> m String
+get = M.lookup 
-- 
cgit v1.2.3