Fix bug that prevented creating ~/.debug-me/log/remote/ when ~/.debug-me/ didn't already exist.

2 files changed, 3 insertions, 1 deletions

diff --git a/CHANGELOG b/CHANGELOG
index 9be378e..4a4cc05 100644
--- a/CHANGELOG
+++ b/CHANGELOG
@@ -7,6 +7,8 @@ debug-me (1.20170506) UNRELEASED; urgency=medium
     Thanks, Sean Whitton.
   * Avoid crash when --use-server is given an url that does not
     include a path.
+  * Fix bug that prevented creating ~/.debug-me/log/remote/
+    when ~/.debug-me/ didn't already exist.
 
  -- Joey Hess <id@joeyh.name>  Tue, 09 May 2017 11:45:41 -0400
 
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)