diff options
| author | Joey Hess <joeyh@joeyh.name> | 2017-10-25 11:49:41 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2017-10-25 11:49:41 -0400 |
| commit | 43a0dfb3703e4a8fdd4eaa90e13cd5415f461bb3 (patch) | |
| tree | ec1aaa997f1ab8216f117d96381189ab46f49050 | |
| parent | 628f239e0dab82cee2c1b9a1f2818695990df122 (diff) | |
reword comment
| -rw-r--r-- | src/Utility/Directory.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Utility/Directory.hs b/src/Utility/Directory.hs index 86904d63..e13191e4 100644 --- a/src/Utility/Directory.hs +++ b/src/Utility/Directory.hs @@ -242,8 +242,8 @@ readDirectory hdl@(DirectoryHandle _ h fdat mv) = do isDirectoryEmpty :: FilePath -> IO Bool isDirectoryEmpty d = testDirectory d dirCruft --- | True if the directory does not exists or contains nothing, ignoring --- "lost+found" which can exists in an empty filesystem. +-- | True if the directory does not exist or contains nothing. +-- Ignores "lost+found" which can exist in an empty filesystem. isUnpopulated :: FilePath -> IO Bool isUnpopulated d = catchDefaultIO True $ testDirectory d fsCruft |