diff options
Diffstat (limited to 'HsBot/Callbacks.hs')
| -rw-r--r-- | HsBot/Callbacks.hs | 28 |
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' - |
