From 66b1cbb4385107a98591d6a45f1fe3713496f2b0 Mon Sep 17 00:00:00 2001
From: pb <pb@9f8f72e9-4bf4-416e-b76e-7d4203597157>
Date: Sat, 15 May 2010 17:08:06 +0000
Subject: oups, forgot the definition of the CallbackFunction type

git-svn-id: https://ssl.buetow.org/repos/hsbot/trunk@64 9f8f72e9-4bf4-416e-b76e-7d4203597157
---
 HsBot/Callbacks/Callback.hs | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100644 HsBot/Callbacks/Callback.hs

(limited to 'HsBot')

diff --git a/HsBot/Callbacks/Callback.hs b/HsBot/Callbacks/Callback.hs
new file mode 100644
index 0000000..c92aa96
--- /dev/null
+++ b/HsBot/Callbacks/Callback.hs
@@ -0,0 +1,13 @@
+module HsBot.Callbacks.Callback where
+
+import HsBot.Base.Env
+import HsBot.Base.State
+
+type CallbackFunction = String -> SendMessage -> Env -> IO Env
+
+class Callback a where
+   cbRunPrio :: a -> Integer
+   cbRunPrio a = 0
+
+   cbRun :: a 
+
-- 
cgit v1.2.3