diff options
| author | pb <pb@9f8f72e9-4bf4-416e-b76e-7d4203597157> | 2010-05-15 17:26:52 +0000 |
|---|---|---|
| committer | pb <pb@9f8f72e9-4bf4-416e-b76e-7d4203597157> | 2010-05-15 17:26:52 +0000 |
| commit | d80cee1ecddeb75e54de767c35f04a9a004eed12 (patch) | |
| tree | 87d9f1cde449312972ccc0c9bd18ef7374ce5cac /HsBot/Callbacks/Dummy.hs | |
| parent | 55d68bd70662f906b69b49979e22ead3fcc4178f (diff) | |
* 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
Diffstat (limited to 'HsBot/Callbacks/Dummy.hs')
| -rw-r--r-- | HsBot/Callbacks/Dummy.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/HsBot/Callbacks/Dummy.hs b/HsBot/Callbacks/Dummy.hs index 5d83ade..3096af5 100644 --- a/HsBot/Callbacks/Dummy.hs +++ b/HsBot/Callbacks/Dummy.hs @@ -1,6 +1,6 @@ -module HsBot.Callbacks.Dummy (dummy) where +module HsBot.Callbacks.Dummy (makeDummy) where -import HsBot.Callbacks.Callback +import HsBot.Callbacks.Base import HsBot.Base.Env import HsBot.Base.State @@ -8,3 +8,4 @@ import HsBot.Base.State dummy :: CallbackFunction dummy str sendMessage env@(Env state _) = return (env) +makeDummy = Callback 0 dummy |