diff options
author | Joey Hess <joeyh@joeyh.name> | 2017-05-09 19:20:04 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2017-05-09 19:20:04 -0400 |
commit | e4612d3adfa85c30b188555c0b30006e7452bbec (patch) | |
tree | 1c72dffcafe33234c30b73e51fbf16bdf223837a | |
parent | 54182fd08797eb82fe39dd67b7b5039aaa1dc0a1 (diff) | |
download | debug-me-e4612d3adfa85c30b188555c0b30006e7452bbec.tar.gz |
Fix bug that prevented creating ~/.debug-me/log/remote/ when ~/.debug-me/ didn't already exist.
-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) |