From d80cee1ecddeb75e54de767c35f04a9a004eed12 Mon Sep 17 00:00:00 2001 From: pb Date: Sat, 15 May 2010 17:26:52 +0000 Subject: * renamed HsBot.Callbacks.Callback into HsBot.Callbacks.Base * all callbacks are now stored in the datatype Callback. git-svn-id: https://ssl.buetow.org/repos/hsbot/trunk@66 9f8f72e9-4bf4-416e-b76e-7d4203597157 --- HsBot/Callbacks/Base.hs | 13 +++++++++++++ 1 file changed, 13 insertions(+) create mode 100644 HsBot/Callbacks/Base.hs (limited to 'HsBot/Callbacks/Base.hs') diff --git a/HsBot/Callbacks/Base.hs b/HsBot/Callbacks/Base.hs new file mode 100644 index 0000000..40e9769 --- /dev/null +++ b/HsBot/Callbacks/Base.hs @@ -0,0 +1,13 @@ +module HsBot.Callbacks.Base where + +import HsBot.Base.Env +import HsBot.Base.State + +type CallbackFunction = String -> SendMessage -> Env -> IO Env + +data Callback a = Callback { + cbPrio :: Integer, + cbFunction :: CallbackFunction +} + + -- cgit v1.2.3