summaryrefslogtreecommitdiffhomepage
path: root/Log.hs
diff options
context:
space:
mode:
authorSean Whitton <spwhitton@spwhitton.name>2017-05-10 08:58:58 -0700
committerSean Whitton <spwhitton@spwhitton.name>2017-05-10 08:58:58 -0700
commita526f69d0e2908bdae2ff17a63641914c86547c3 (patch)
treea8306453ea5ecae78cc1528e95437dd307ab1cf7 /Log.hs
parentc9d198ffa9d2719b83c07f5157e735dad801bb4e (diff)
parentbb15464e4218ff3209b6312e0795f60689613a2c (diff)
downloaddebug-me-a526f69d0e2908bdae2ff17a63641914c86547c3.tar.gz
Merge tag '1.20170509'
tagging package debug-me version 1.20170509
Diffstat (limited to 'Log.hs')
-rw-r--r--Log.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Log.hs b/Log.hs
index 1bda5e1..1974b47 100644
--- a/Log.hs
+++ b/Log.hs
@@ -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)