only show log filename at end

1 files changed, 1 insertions, 3 deletions

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)