summaryrefslogtreecommitdiff
path: root/Hsbot.hs
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--Hsbot.hs4
1 files changed, 2 insertions, 2 deletions
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 } }