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

1 files changed, 9 insertions, 4 deletions

diff --git a/Main.hs b/Main.hs
index 637719f..8be35cf 100644
--- a/Main.hs
+++ b/Main.hs
@@ -1,13 +1,18 @@
 module Main where
 
-import HsBot
 import Conf
+import IRC
+import State
 
 main :: IO ()	
 main = do
-   let conf = load
-   conf' <- conf -- Extract Conf from the IO Monad 
-   ircConnect conf' makeConf
+   let conf = makeConf
+   databaseFile <- get "databaseFile" conf
+   let state = load databaseFile
+   state' <- state -- Extract State from the IO Monad 
+   ircConnect state' conf
 
+-- Shortcut
+r :: IO ()
 r = main