From bf36db548891057ccdcfb5b4c9366296fc26d7dd Mon Sep 17 00:00:00 2001
From: Julien Dessaux
Date: Sun, 1 May 2011 15:56:53 +0200
Subject: Code cleaning.

---
 Hsbot.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'Hsbot.hs')

diff --git a/Hsbot.hs b/Hsbot.hs
index 76e1ba6..c02b2e5 100644
--- a/Hsbot.hs
+++ b/Hsbot.hs
@@ -22,7 +22,7 @@ startHsbot config = do
     -- main stuff
     infoM "Hsbot" "Bot core starting"
     status <- runReaderT runHsbot hsbotEnv
-    infoM "Hsbot" $ "Bot core exited with status " ++ (show status)
+    infoM "Hsbot" $ "Bot core exited with status " ++ show status
     -- Handling exit signal
     case status of
          BotContinue -> startHsbot config -- TODO do something not so dumb about starting over
@@ -34,5 +34,5 @@ hsbot :: Config -> IO ()
 hsbot = Dyre.wrapMain $ Dyre.defaultParams
     { Dyre.projectName = "hsbot"
     , Dyre.realMain    = startHsbot
-    , Dyre.showError   = (\config err -> config { configErrors = Just err }) }
+    , Dyre.showError   = \config err -> config { configErrors = Just err } }
 
-- 
cgit v1.2.3