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

---
 HsBot/Logics.hs       | 21 ++++++++++++---------
 HsBot/Logics/Dummy.hs |  7 ++-----
 2 files changed, 14 insertions(+), 14 deletions(-)

(limited to 'HsBot')

diff --git a/HsBot/Logics.hs b/HsBot/Logics.hs
index 9b98300..e66a238 100644
--- a/HsBot/Logics.hs
+++ b/HsBot/Logics.hs
@@ -1,15 +1,18 @@
-module HsBot.Logics (logicsRun) where
+module HsBot.Callbacks (logicsRun) where
 
 import HsBot.Base.Env
-import HsBot.Logics.Dummy
+import HsBot.Base.State
+import HsBot.Callbacks.Dummy
 
-registeredLogics = [dummyRun]
+registeredCallbacks = [dummyRun]
 
 logicsRun :: String -> SendMessage -> Env -> IO Env
-logicsRun = logicsRun' registeredLogics 
-	where
-		logicsRun' [] sendMessage str env = return (env)
-		logicsRun' (logic:ls) sendMessage str env = do
-			env' <- logic sendMessage str env
-			logicsRun' ls sendMessage str env'
+logicsRun str sendMessage env@(Env state _) 
+	| isReady state = logicsRun' registeredCallbacks env
+	| otherwise = do { putStrLn str; return (env) }
+		where
+			logicsRun' [] env = return (env)
+			logicsRun' (logic:rest) env = do
+				env' <- logic str sendMessage env
+				logicsRun' rest env'
 
diff --git a/HsBot/Logics/Dummy.hs b/HsBot/Logics/Dummy.hs
index be32a50..edc8056 100644
--- a/HsBot/Logics/Dummy.hs
+++ b/HsBot/Logics/Dummy.hs
@@ -1,13 +1,10 @@
-module HsBot.Logics.Dummy (dummyRun) where
+module HsBot.Callbacks.Dummy (dummyRun) where
 
 import HsBot.Base.Env
 import HsBot.Base.State
 
 dummyRun :: String -> SendMessage -> Env -> IO Env
 dummyRun str sendMessage env@(Env state _) = do
-	if isReady state 
-		--then sendMessage "Hello World"
-		then putStrLn $ "::::" ++ str
-		else putStrLn str
+	putStrLn $ "::::" ++ str
 	return (env)
 
-- 
cgit v1.2.3