disable always debug

This commit is contained in:
Joey Hess 2014-11-18 15:38:18 -04:00
parent 1bb2a2b481
commit 32dbfd62fb
1 changed files with 2 additions and 2 deletions

View File

@ -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.