summaryrefslogtreecommitdiff
path: root/src/Utility
diff options
context:
space:
mode:
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