From 3d7e9915c4fab6f91f11b3de66ac8bbcb8b3c0c7 Mon Sep 17 00:00:00 2001
From: pb <pb@9f8f72e9-4bf4-416e-b76e-7d4203597157>
Date: Sun, 28 Mar 2010 11:31:45 +0000
Subject: git-svn-id: https://ssl.buetow.org/repos/hsbot/trunk@51
 9f8f72e9-4bf4-416e-b76e-7d4203597157

---
 HsBot/Base.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'HsBot/Base.hs')

diff --git a/HsBot/Base.hs b/HsBot/Base.hs
index a349fad..f2b1139 100644
--- a/HsBot/Base.hs
+++ b/HsBot/Base.hs
@@ -27,7 +27,7 @@ dispatch msg sendMessage env@(Env state conf) = dispatch' msg
               cmdAction state
               return (env)
            Nothing -> return (env)
-      dispatch' _ = logicsRun msg env
+      dispatch' _ = logicsRun msg sendMessage env
       commands = [      
          Cmd "!h" "Prints help" printHelp,
          Cmd "!i" "Prints infos" printInfos,
-- 
cgit v1.2.3