5 files changed, 0 insertions, 67 deletions
diff --git a/HsBot/Callbacks/Base.hs b/HsBot/Callbacks/Base.hs
deleted file mode 100644
index 40e9769..0000000
--- a/HsBot/Callbacks/Base.hs
+++ /dev/null
@@ -1,13 +0,0 @@
-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
-}
-
-
diff --git a/HsBot/Callbacks/Dummy.hs b/HsBot/Callbacks/Dummy.hs
deleted file mode 100644
index 3096af5..0000000
--- a/HsBot/Callbacks/Dummy.hs
+++ /dev/null
@@ -1,11 +0,0 @@
-module HsBot.Callbacks.Dummy (makeDummy) where
-
-import HsBot.Callbacks.Base
-
-import HsBot.Base.Env
-import HsBot.Base.State
-
-dummy :: CallbackFunction
-dummy str sendMessage env@(Env state _) = return (env)
-
-makeDummy = Callback 0 dummy
diff --git a/HsBot/Callbacks/MessageCounter.hs b/HsBot/Callbacks/MessageCounter.hs
deleted file mode 100644
index 18f6dba..0000000
--- a/HsBot/Callbacks/MessageCounter.hs
+++ /dev/null
@@ -1,16 +0,0 @@
-module HsBot.Callbacks.MessageCounter (makeMessageCounter) where
-
-import HsBot.Callbacks.Base
-
-import HsBot.Base.Env
-import HsBot.Base.State
-
-import HsBot.IRC.User
-
-update user = user { userMessages = 1 + userMessages user }
-
-messageCounter :: CallbackFunction
-messageCounter str sendMessage (Env state conf) = do
-   return (Env (stateUpdateUser state (currentSender state) update) conf)
-
-makeMessageCounter = Callback 0 messageCounter
diff --git a/HsBot/Callbacks/PrintMessages.hs b/HsBot/Callbacks/PrintMessages.hs
deleted file mode 100644
index 2674aa9..0000000
--- a/HsBot/Callbacks/PrintMessages.hs
+++ /dev/null
@@ -1,15 +0,0 @@
-module HsBot.Callbacks.PrintMessages (makePrintMessages) where
-
-import HsBot.Callbacks.Base
-
-import HsBot.Base.Env
-import HsBot.Base.State
-
-printMessages :: CallbackFunction
-printMessages str sendMessage env@(Env state _) = do
-   putStrLn $ (currentChannel state) ++ " "
-      ++ (currentSender state) ++ ": "
-      ++ str
-   return (env)
-
-makePrintMessages = Callback 0 printMessages
diff --git a/HsBot/Callbacks/StoreMessages.hs b/HsBot/Callbacks/StoreMessages.hs
deleted file mode 100644
index 0a7ab4d..0000000
--- a/HsBot/Callbacks/StoreMessages.hs
+++ /dev/null
@@ -1,12 +0,0 @@
-module HsBot.Callbacks.StoreMessages (makeStoreMessages) where
-
-import HsBot.Callbacks.Base
-
-import HsBot.Base.Env
-import HsBot.Base.State
-
-storeMessages :: CallbackFunction
-storeMessages str sendMessage env@(Env state _) = do
-   return (env)
-
-makeStoreMessages = Callback 0 storeMessages