* 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

1 files changed, 13 insertions, 0 deletions

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
+}
+
+