modularization

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

1 files changed, 13 insertions, 0 deletions

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
+