Code cleaning.

2011-05-05 00:36:05 +02:00 · 2011-05-05 00:36:05 +02:00 · 4522289d55
commit 4522289d55
parent 9abbc593a2
3 changed files with 14 additions and 6 deletions
--- a/Hsbot/Core.hs
+++ b/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