diff --git a/src/Propellor/CmdLine.hs b/src/Propellor/CmdLine.hs index 1aae33f..2d4ae40 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.