From c675c92a06761d6b28f8fdda8cc418b64a040c9a Mon Sep 17 00:00:00 2001
From: pb <pb@9f8f72e9-4bf4-416e-b76e-7d4203597157>
Date: Sat, 15 May 2010 18:03:15 +0000
Subject: renamed Callbacks into Plugins

git-svn-id: https://ssl.buetow.org/repos/hsbot/trunk@67 9f8f72e9-4bf4-416e-b76e-7d4203597157
---
 HsBot/Callbacks/Base.hs           | 13 -------------
 HsBot/Callbacks/Dummy.hs          | 11 -----------
 HsBot/Callbacks/MessageCounter.hs | 16 ----------------
 HsBot/Callbacks/PrintMessages.hs  | 15 ---------------
 HsBot/Callbacks/StoreMessages.hs  | 12 ------------
 5 files changed, 67 deletions(-)
 delete mode 100644 HsBot/Callbacks/Base.hs
 delete mode 100644 HsBot/Callbacks/Dummy.hs
 delete mode 100644 HsBot/Callbacks/MessageCounter.hs
 delete mode 100644 HsBot/Callbacks/PrintMessages.hs
 delete mode 100644 HsBot/Callbacks/StoreMessages.hs

(limited to 'HsBot/Callbacks')

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
-- 
cgit v1.2.3