diff options
author | Joey Hess <joeyh@joeyh.name> | 2017-04-28 18:36:08 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2017-04-28 18:36:08 -0400 |
commit | 175d89cb3d6914ddda68f3294ab172e29784d16d (patch) | |
tree | 02c90ce955a8d154a3ecf5372d4536f2c42110f9 /Log.hs | |
parent | e4ae1644d7dff23d8ddcc9afe0412ba4a7e5d6b9 (diff) | |
download | debug-me-175d89cb3d6914ddda68f3294ab172e29784d16d.tar.gz |
only show log filename at end
Diffstat (limited to 'Log.hs')
-rw-r--r-- | Log.hs | 4 |
1 files changed, 1 insertions, 3 deletions
@@ -63,9 +63,7 @@ withSessionLogger sessionid a = bracket setup cleanup go setup = do dir <- logDir createDirectoryIfMissing False dir - let logfile = sessionLogFile dir sessionid - putStrLn $ "** debug-me is logging to " ++ logfile - return logfile + return $ sessionLogFile dir sessionid cleanup logfile = putStrLn $ "** debug-me session was logged to " ++ logfile go logfile = withFile logfile WriteMode (a . mkLogger) |