diff options
-rw-r--r-- | CHANGELOG | 2 | ||||
-rw-r--r-- | Log.hs | 2 |
2 files changed, 3 insertions, 1 deletions
@@ -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 @@ -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) |