From 2bba5bc22d049272d3328bfa6c452d3e2e50e86c Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 6 Jan 2015 18:29:07 -0400 Subject: made parentDir return a Maybe FilePath; removed most uses of it parentDir is less safe than takeDirectory, especially when working with relative FilePaths. It's really only useful in loops that want to terminate at / This commit was sponsored by Audric SCHILTKNECHT. --- Config/Files.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Config') diff --git a/Config/Files.hs b/Config/Files.hs index 8d5c1fd12..edea83eeb 100644 --- a/Config/Files.hs +++ b/Config/Files.hs @@ -33,7 +33,7 @@ modifyAutoStartFile func = do let dirs' = nubBy equalFilePath $ func dirs when (dirs' /= dirs) $ do f <- autoStartFile - createDirectoryIfMissing True (parentDir f) + createDirectoryIfMissing True (takeDirectory f) viaTmp writeFile f $ unlines dirs' {- Adds a directory to the autostart file. If the directory is already -- cgit v1.2.3