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
---
 Main.hs | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100644 Main.hs

(limited to 'Main.hs')

diff --git a/Main.hs b/Main.hs
new file mode 100644
index 0000000..f89ac3b
--- /dev/null
+++ b/Main.hs
@@ -0,0 +1,13 @@
+module Main where
+
+import HsBot
+import Conf
+
+main :: IO ()	
+main = do
+   let conf = load
+   conf' <- conf -- Extract Conf from the IO Monad 
+   connect conf' makeConf
+
+r = main
+
-- 
cgit v1.2.3