1 files changed, 2 insertions, 1 deletions
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,