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

---
 AI.hs   | 6 ++++++
 Main.hs | 3 ++-
 2 files changed, 8 insertions(+), 1 deletion(-)
 create mode 100644 AI.hs

diff --git a/AI.hs b/AI.hs
new file mode 100644
index 0000000..bcae182
--- /dev/null
+++ b/AI.hs
@@ -0,0 +1,6 @@
+module AI (aiRun) where
+
+import Env
+
+aiRun :: String -> Env -> IO Env
+aiRun str env = return (env)
diff --git a/Main.hs b/Main.hs
index df2c41b..4bd88dc 100644
--- a/Main.hs
+++ b/Main.hs
@@ -2,6 +2,7 @@ module Main where
 
 import System
 
+import AI
 import Cmd
 import Conf
 import Env
@@ -30,7 +31,7 @@ dispatch msg sendMessage env@(Env state conf) = dispatch' msg
               cmdAction state
               return (env)
            Nothing -> return (env)
-      dispatch' _ = return (env)
+      dispatch' _ = aiRun msg env
       commands = [      
          Cmd "!h" "Prints help" printHelp,
          Cmd "!i" "Prints infos" printInfos,
-- 
cgit v1.2.3