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

1 files changed, 2 insertions, 2 deletions

diff --git a/Main.hs b/Main.hs
index 58a7ca4..7726f70 100644
--- a/Main.hs
+++ b/Main.hs
@@ -15,14 +15,14 @@ main = do
    databaseFile <- get "databaseFile" conf
    let state = stateLoad databaseFile
    state' <- state -- Extract State from the IO Monad 
-   ircConnect (Env state' conf dispatch)
+   ircConnect (DispatchEnv state' conf dispatch)
 
 -- Shortcut
 r :: IO ()
 r = main
 
 dispatch :: Dispatch
-dispatch cmd sendMessage env@(EnvWoDispatch state conf) = 
+dispatch cmd sendMessage env@(Env state conf) = 
    let commands = [      
          Cmd "!h" "Prints help" printHelp,
          Cmd "!i" "Prints infos" printInfos,