summaryrefslogtreecommitdiff
path: root/src/Utility
diff options
context:
space:
mode:
authorJoey Hess2017-10-25 11:49:41 -0400
committerJoey Hess2017-10-25 11:49:41 -0400
commit43a0dfb3703e4a8fdd4eaa90e13cd5415f461bb3 (patch)
treeec1aaa997f1ab8216f117d96381189ab46f49050 /src/Utility
parent628f239e0dab82cee2c1b9a1f2818695990df122 (diff)
reword comment
Diffstat (limited to 'src/Utility')
-rw-r--r--src/Utility/Directory.hs4
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