diff options
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) |