From 175d89cb3d6914ddda68f3294ab172e29784d16d Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Fri, 28 Apr 2017 18:36:08 -0400 Subject: only show log filename at end --- Log.hs | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'Log.hs') diff --git a/Log.hs b/Log.hs index ac250a1..7e414a1 100644 --- a/Log.hs +++ b/Log.hs @@ -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) -- cgit v1.2.3