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

temporarily always debug

This commit is contained in:
Joey Hess 2014-11-18 15:34:58 -04:00
parent 6116f0af24
commit d07edfdbeb
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/Propellor/CmdLine.hs
View File

@ -349,14 +349,13 @@ getRepoUrl = getM get urls
checkDebugMode :: IO () checkDebugMode :: IO ()
checkDebugMode = go =<< getEnv "PROPELLOR_DEBUG" checkDebugMode = go =<< getEnv "PROPELLOR_DEBUG"
where where
go (Just s) go _ = do
| s == "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.