From ff07633fb8f81577ffec409cbf0a3c7361990f6c Mon Sep 17 00:00:00 2001
From: Julien Dessaux
Date: Wed, 13 Apr 2011 20:15:55 +0200
Subject: Began a big refactoring/rewriting (again)

---
 HsbotMaster/Hsbot/Message.hs | 35 -----------------------------------
 1 file changed, 35 deletions(-)
 delete mode 100644 HsbotMaster/Hsbot/Message.hs

(limited to 'HsbotMaster/Hsbot/Message.hs')

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