From e439488acb7e8a71703f8cb3d4e70340652359d3 Mon Sep 17 00:00:00 2001
From: pb <pb@9f8f72e9-4bf4-416e-b76e-7d4203597157>
Date: Tue, 16 Mar 2010 20:54:13 +0000
Subject: git-svn-id: https://ssl.buetow.org/repos/hsbot/trunk@33
 9f8f72e9-4bf4-416e-b76e-7d4203597157

---
 Main.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Main.hs')

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,
-- 
cgit v1.2.3