summaryrefslogtreecommitdiffhomepage
path: root/Log.hs
diff options
context:
space:
mode:
authorJoey Hess <joeyh@joeyh.name>2017-05-09 19:20:04 -0400
committerJoey Hess <joeyh@joeyh.name>2017-05-09 19:20:04 -0400
commite4612d3adfa85c30b188555c0b30006e7452bbec (patch)
tree1c72dffcafe33234c30b73e51fbf16bdf223837a /Log.hs
parent54182fd08797eb82fe39dd67b7b5039aaa1dc0a1 (diff)
downloaddebug-me-e4612d3adfa85c30b188555c0b30006e7452bbec.tar.gz
Fix bug that prevented creating ~/.debug-me/log/remote/ when ~/.debug-me/ didn't already exist.
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)