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

1 files changed, 1 insertions, 1 deletions

diff --git a/Main.hs b/Main.hs
index d515037..58a7ca4 100644
--- a/Main.hs
+++ b/Main.hs
@@ -22,7 +22,7 @@ r :: IO ()
 r = main
 
 dispatch :: Dispatch
-dispatch cmd sendMessage env@(Env state conf _) = 
+dispatch cmd sendMessage env@(EnvWoDispatch state conf) = 
    let commands = [      
          Cmd "!h" "Prints help" printHelp,
          Cmd "!i" "Prints infos" printInfos,