Began a big refactoring/rewriting (again)

1 files changed, 0 insertions, 35 deletions

diff --git a/HsbotMaster/Hsbot/Message.hs b/HsbotMaster/Hsbot/Message.hs
deleted file mode 100644
index 933394b..0000000
--- a/HsbotMaster/Hsbot/Message.hs
+++ /dev/null
@@ -1,35 +0,0 @@
-module Hsbot.Message
-    ( processInternalMessage
-    , processRebootMessage
-    , processExitMessage
-    ) where
-
-import Control.Monad.State
-import qualified Data.Map as M
-
-import Hsbot.PluginUtils
-import Hsbot.Types
-
--- | Processes an internal message
-processInternalMessage :: Msg -> Bot (BotStatus)
-processInternalMessage msg
-  | msgTo msg == "CORE" = processCoreMessage msg
-  | otherwise = do
-      plugins <- gets botPlugins
-      case M.lookup (msgTo msg) plugins of
-          Just (plugin, _, _) -> sendToPlugin (IntMsg msg) plugin
-          Nothing          -> return ()
-      return BotContinue
-
-processCoreMessage :: Msg -> Bot (BotStatus)
-processCoreMessage msg = do
-    case msgType msg of
-        "REBOOT" -> return BotReboot
-        _        -> return BotContinue
-
-processRebootMessage :: RebootMsg -> Bot (BotStatus)
-processRebootMessage _ = return BotReboot   -- TODO : check who is sending that to us
-
-processExitMessage :: ExitMsg -> Bot (BotStatus)
-processExitMessage _ = return BotExit   -- TODO : check who is sending that to us
-