From d3dc3957e68ea83e348897b3b9d6fe3e280b5d11 Mon Sep 17 00:00:00 2001
From: pb <pb@9f8f72e9-4bf4-416e-b76e-7d4203597157>
Date: Sun, 14 Mar 2010 15:36:37 +0000
Subject: git-svn-id: https://ssl.buetow.org/repos/hsbot/trunk@32
 9f8f72e9-4bf4-416e-b76e-7d4203597157

---
 Main.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Main.hs b/Main.hs
index b3c6f7c..d515037 100644
--- a/Main.hs
+++ b/Main.hs
@@ -46,6 +46,6 @@ dispatch cmd sendMessage env@(Env state conf _) =
          exitWith ExitSuccess 
 
    in case cmdGet ("!" ++ cmd) commands of
-      Just (Cmd _ _ dispatchFunction) -> dispatchFunction state
-      Nothing -> dispatch "i" sendMessage env
+      Just (Cmd _ _ cmdAction) -> cmdAction state
+      Nothing -> return ()
 
-- 
cgit v1.2.3