Began a complete rewrite of command and plugin management.

Wrote a command routing statement, added an IrcPlugin monad.

Hsbot/Core.hs

@@ -1,7 +1,6 @@
 module Hsbot.Core
     ( connectServer
     , disconnectServer
-    , emptyMsg
     ) where
 
 import Control.Concurrent
@@ -30,7 +29,7 @@ connectServer server = do
     chan <- newChan :: IO (Chan BotMsg)
     threadId <- forkIO $ botReader handle chan
     putStrLn "done."
-    return (Bot server starttime handle [] M.empty chan threadId M.empty)
+    return $ Bot server starttime handle [] M.empty chan threadId M.empty
 
 -- | Disconnect from the server
 disconnectServer :: Bot -> IO ()    -- IO Bot ?
@@ -53,6 +52,3 @@ botReader handle chan = forever $ do
         _ -> do
             return ()
 
-emptyMsg :: IrcMsg
-emptyMsg = IrcMsg Nothing "EMPTY" []
-