From 32dbfd62fb81edad3cd97bbe57ce3302be8ff7d9 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 18 Nov 2014 15:38:18 -0400 Subject: disable always debug --- src/Propellor/CmdLine.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Propellor/CmdLine.hs') 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. -- cgit v1.2.3