diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2017-05-10 08:58:58 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2017-05-10 08:58:58 -0700 |
commit | a526f69d0e2908bdae2ff17a63641914c86547c3 (patch) | |
tree | a8306453ea5ecae78cc1528e95437dd307ab1cf7 /Log.hs | |
parent | c9d198ffa9d2719b83c07f5157e735dad801bb4e (diff) | |
parent | bb15464e4218ff3209b6312e0795f60689613a2c (diff) | |
download | debug-me-a526f69d0e2908bdae2ff17a63641914c86547c3.tar.gz |
Merge tag '1.20170509'
tagging package debug-me version 1.20170509
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) |