machines-directory-0.2.1.0: src/System/Directory/Machine/Internal.hs

module System.Directory.Machine.Internal where

-- | Predicate to filter out relative paths: @"."@ and @".."@.
isDirectoryContentsValid :: FilePath -> Bool
isDirectoryContentsValid x = (x /= "." && x /= "..")