added environment

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

1 files changed, 3 insertions, 2 deletions

diff --git a/Main.hs b/Main.hs
index 8be35cf..50e9f44 100644
--- a/Main.hs
+++ b/Main.hs
@@ -3,14 +3,15 @@ module Main where
 import Conf
 import IRC
 import State
+import Env
 
 main :: IO ()	
 main = do
    let conf = makeConf
    databaseFile <- get "databaseFile" conf
-   let state = load databaseFile
+   let state = stateLoad databaseFile
    state' <- state -- Extract State from the IO Monad 
-   ircConnect state' conf
+   ircConnect (Env state' conf)
 
 -- Shortcut
 r :: IO ()