From e4612d3adfa85c30b188555c0b30006e7452bbec Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 9 May 2017 19:20:04 -0400 Subject: Fix bug that prevented creating ~/.debug-me/log/remote/ when ~/.debug-me/ didn't already exist. --- CHANGELOG | 2 ++ Log.hs | 2 +- 2 files changed, 3 insertions(+), 1 deletion(-) 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 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) -- cgit v1.2.3