diff options
Diffstat (limited to 'Log.hs')
-rw-r--r-- | Log.hs | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -68,7 +68,7 @@ withSessionLogger subdir sessionid a = bracket setup cleanup go setup = do basedir <- logDir let dir = maybe basedir (basedir </>) subdir - createDirectoryIfMissing False dir + createDirectoryIfMissing True dir return $ sessionLogFile dir sessionid cleanup logfile = putStrLn $ "** debug-me session was logged to " ++ logfile go logfile = withFile logfile WriteMode (a . mkLogger) |