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,