diff options
| author | Joey Hess <joeyh@joeyh.name> | 2015-01-06 18:29:07 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2015-01-06 18:55:56 -0400 |
| commit | 965e106f242b34a8269c72e136f60fc0c36ae460 (patch) | |
| tree | 98f76631598ae6e07d27053b6727405930805e38 /Config | |
| parent | d09a198ec05dc0f280c4ada7098f63ac08ee1644 (diff) | |
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.
Diffstat (limited to 'Config')
| -rw-r--r-- | Config/Files.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Config/Files.hs b/Config/Files.hs index 8d5c1fd124..edea83eeb6 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 |