cadey
/
propellor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Propellor/CmdLine.hs
View File

@ -347,13 +347,13 @@ getRepoUrl = getM get urls
checkDebugMode :: IO () checkDebugMode :: IO ()
checkDebugMode = go =<< getEnv "PROPELLOR_DEBUG" checkDebugMode = go =<< getEnv "PROPELLOR_DEBUG"
where where
go _ = do go (Just "1") = do
f <- setFormatter f <- setFormatter
<$> streamHandler stderr DEBUG <$> streamHandler stderr DEBUG
<*> pure (simpleLogFormatter "[$time] $msg") <*> pure (simpleLogFormatter "[$time] $msg")
updateGlobalLogger rootLoggerName $ updateGlobalLogger rootLoggerName $
setLevel DEBUG . setHandlers [f] setLevel DEBUG . setHandlers [f]
-- go _ = noop go _ = noop
-- Parameters can be passed to both ssh and scp, to enable a ssh connection -- Parameters can be passed to both ssh and scp, to enable a ssh connection
-- caching socket. -- caching socket.