summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJoey Hess2014-05-11 10:19:21 -0300
committerJoey Hess2014-05-11 10:19:21 -0300
commit38cedccdf5d279ecadc7baccc03c202b0131d0df (patch)
tree91a4e8c5ff7e581fbaa45962b9e75eff717c6567
parentd23312cb2b8e1396971a8daa2d05ef1d20969659 (diff)
propellor spin
-rw-r--r--Propellor/CmdLine.hs17
1 files changed, 11 insertions, 6 deletions
diff --git a/Propellor/CmdLine.hs b/Propellor/CmdLine.hs
index ad04abe6..66eb0425 100644
--- a/Propellor/CmdLine.hs
+++ b/Propellor/CmdLine.hs
@@ -340,12 +340,17 @@ checkDebugMode = go =<< getEnv "PROPELLOR_DEBUG"
where
go (Just s)
| s == "1" = do
- f <- setFormatter
- <$> streamHandler stderr DEBUG
- <*> pure (simpleLogFormatter "[$time] $msg")
- updateGlobalLogger rootLoggerName $
- setLevel DEBUG . setHandlers [f]
- go _ = noop
+ f <- setFormatter
+ <$> streamHandler stderr DEBUG
+ <*> pure (simpleLogFormatter "[$time] $msg")
+ updateGlobalLogger rootLoggerName $
+ setLevel DEBUG . setHandlers [f]
+ go _ = whenM ((==) "root" <$> myUserName) $ do
+ f <- setFormatter
+ <$> fileHandler "/usr/local/bin/propellor/log" DEBUG
+ <*> pure (simpleLogFormatter "[$time] $msg")
+ updateGlobalLogger rootLoggerName $
+ setLevel DEBUG . setHandlers [f]
-- Parameters can be passed to both ssh and scp, to enable a ssh connection
-- caching socket.