From e833b89e2a1a1c2acbc0eb8bed1760ef0e50f3c5 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 28 Apr 2017 12:50:53 -0400 Subject: log to ~/.debug-me/log/ Make watcher also log and display the name of the logfile at start and end of session. --download still downloads to current directory because that seems less surprising than downloading to elsewhere. Also, the user might want to keep a copy of the local log while downloading the server log. --- Role/User.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Role/User.hs') diff --git a/Role/User.hs b/Role/User.hs index fe679a5..4ecb31f 100644 --- a/Role/User.hs +++ b/Role/User.hs @@ -40,7 +40,7 @@ run os = fromMaybe (ExitFailure 101) <$> connect putStrLn "Others can connect to this session and help you debug by running:" putStrLn $ " debug-me --debug " ++ url hFlush stdout - withLogger "debug-me.log" $ go ochan ichan usv + withSessionLogger sid $ go ochan ichan usv go ochan ichan usv logger = do (cmd, cmdparams) <- shellCommand os runWithPty cmd cmdparams $ \(p, ph) -> do -- cgit v1.2.3