From ed66eb310a9ec78901e6a3be2275f9de62ad5708 Mon Sep 17 00:00:00 2001 From: pb Date: Sun, 28 Mar 2010 11:52:17 +0000 Subject: git-svn-id: https://ssl.buetow.org/repos/hsbot/trunk@52 9f8f72e9-4bf4-416e-b76e-7d4203597157 --- HsBot/Logics/Dummy.hs | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) (limited to 'HsBot/Logics') 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) -- cgit v1.2.3