Code cleaning.

Hsbot/Core.hs

@@ -75,10 +75,10 @@ runHsbot = do
         -- Then we join channels
         mapM_ (liftIO . sendStr connhdl tlsCtx . IRC.encode . IRC.joinChan) channels
         -- Finally we set the new bot state
-        asks envBotState >>= liftIO . (flip putMVar BotState { botPlugins  = M.empty
-                                                             , botHooks    = []
-                                                             , botChannels = channels
-                                                             , botNickname = nickname })
+        asks envBotState >>= liftIO . flip putMVar BotState { botPlugins  = M.empty
+                                                            , botHooks    = []
+                                                            , botChannels = channels
+                                                            , botNickname = nickname }
     -- | Run the bot itself
     trueRunHsbot :: Env IO BotStatus
     trueRunHsbot = do

Hsbot/Plugin.hs

@@ -13,7 +13,7 @@ import Hsbot.Types
 loadPlugin :: PluginId -> Env IO ()
 loadPlugin pId = do
     botMVar <- asks envBotState
-    (liftIO $ takeMVar botMVar) >>= execStateT effectivelyLoadPlugin >>= liftIO . putMVar botMVar
+    liftIO (takeMVar botMVar) >>= execStateT effectivelyLoadPlugin >>= liftIO . putMVar botMVar
   where
     effectivelyLoadPlugin :: Bot (Env IO) ()
     effectivelyLoadPlugin = do

TODO

@@ -1,8 +1,16 @@
+* owner rights
+* better hooks?
+
+
+
+
+
+
+
 :julien!~julien@ogu21.corp PRIVMSG #shbot :@quote graou snif
 
 * Improve configuration file errors display
 * fork process in background
-* implement logging capabilities
 
 * add a function to answer by /msg to somebody
 * write the vote system for the quote module