From c7205f32eefb263da5f44ceecdd00c3d70411e3f Mon Sep 17 00:00:00 2001 From: pb Date: Sat, 15 May 2010 17:07:44 +0000 Subject: using generic CallbackFunction type in callbacks now git-svn-id: https://ssl.buetow.org/repos/hsbot/trunk@63 9f8f72e9-4bf4-416e-b76e-7d4203597157 --- HsBot/Callbacks/Dummy.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'HsBot/Callbacks/Dummy.hs') diff --git a/HsBot/Callbacks/Dummy.hs b/HsBot/Callbacks/Dummy.hs index 071a9f4..5d83ade 100644 --- a/HsBot/Callbacks/Dummy.hs +++ b/HsBot/Callbacks/Dummy.hs @@ -1,8 +1,10 @@ module HsBot.Callbacks.Dummy (dummy) where +import HsBot.Callbacks.Callback + import HsBot.Base.Env import HsBot.Base.State -dummy :: String -> SendMessage -> Env -> IO Env +dummy :: CallbackFunction dummy str sendMessage env@(Env state _) = return (env) -- cgit v1.2.3