summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorJoey Hess2014-11-18 15:38:18 -0400
committerJoey Hess2014-11-18 15:38:18 -0400
commit32dbfd62fb81edad3cd97bbe57ce3302be8ff7d9 (patch)
treed9e933136ce4c510bb5fcd1043110730caedcab7 /src
parent1bb2a2b481867163325fb0f9605b22d4de2b6ec4 (diff)
disable always debug
Diffstat (limited to 'src')
-rw-r--r--src/Propellor/CmdLine.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Propellor/CmdLine.hs b/src/Propellor/CmdLine.hs
index 1aae33fc..2d4ae403 100644
--- a/src/Propellor/CmdLine.hs
+++ b/src/Propellor/CmdLine.hs
@@ -347,13 +347,13 @@ getRepoUrl = getM get urls
checkDebugMode :: IO ()
checkDebugMode = go =<< getEnv "PROPELLOR_DEBUG"
where
- go _ = do
+ go (Just "1") = do
f <- setFormatter
<$> streamHandler stderr DEBUG
<*> pure (simpleLogFormatter "[$time] $msg")
updateGlobalLogger rootLoggerName $
setLevel DEBUG . setHandlers [f]
- -- go _ = noop
+ go _ = noop
-- Parameters can be passed to both ssh and scp, to enable a ssh connection
-- caching socket.