git-svn-id: https://ssl.buetow.org/repos/hsbot/trunk@52 9f8f72e9-4bf4-416e-b76e-7d4203597157

1 files changed, 6 insertions, 3 deletions

diff --git a/HsBot/Logics/Dummy.hs b/HsBot/Logics/Dummy.hs
index a873f8a..be32a50 100644
--- a/HsBot/Logics/Dummy.hs
+++ b/HsBot/Logics/Dummy.hs
@@ -1,10 +1,13 @@
 module HsBot.Logics.Dummy (dummyRun) where
 
 import HsBot.Base.Env
+import HsBot.Base.State
 
 dummyRun :: String -> SendMessage -> Env -> IO Env
-dummyRun str sendMessage env = do
-	--sendMessage "Hello World"
-	putStrLn str
+dummyRun str sendMessage env@(Env state _) = do
+	if isReady state 
+		--then sendMessage "Hello World"
+		then putStrLn $ "::::" ++ str
+		else putStrLn str
 	return (env)