summaryrefslogtreecommitdiff
path: root/HsBot/Callbacks.hs
diff options
context:
space:
mode:
Diffstat (limited to 'HsBot/Callbacks.hs')
-rw-r--r--HsBot/Callbacks.hs28
1 files changed, 0 insertions, 28 deletions
diff --git a/HsBot/Callbacks.hs b/HsBot/Callbacks.hs
deleted file mode 100644
index 0bbf08f..0000000
--- a/HsBot/Callbacks.hs
+++ /dev/null
@@ -1,28 +0,0 @@
-module HsBot.Callbacks (callbacksRun) where
-
-import HsBot.Base.Env
-import HsBot.Base.State
-
-import HsBot.Callbacks.Base
-import HsBot.Callbacks.MessageCounter
-import HsBot.Callbacks.PrintMessages
-import HsBot.Callbacks.StoreMessages
-import HsBot.Callbacks.Dummy
-
-registeredCallbacks = [
- makeMessageCounter,
- makePrintMessages,
- makeStoreMessages,
- makeDummy
- ]
-
-callbacksRun :: String -> SendMessage -> Env -> IO Env
-callbacksRun str sendMessage env@(Env state _)
- | isReady state = callbackAll registeredCallbacks env
- | otherwise = do { putStrLn str; return (env) }
- where
- callbackAll [] env = return (env)
- callbackAll (callback:restCallbacks) env = do
- env' <- (cbFunction callback) str sendMessage env
- callbackAll restCallbacks env'
-