LIB: move 'hiddenFile' to hpath package

2016-04-10 22:03:30 +02:00
parent bddf29671a
commit b7ee2ccd3d
3 changed files with 2 additions and 9 deletions
--- a/src/HSFM/FileSystem/FileType.hs
+++ b/src/HSFM/FileSystem/FileType.hs
@@ -704,13 +704,6 @@ isBrokenSymlink _ = False
 ---- OTHER: ----


-- |Check whether the given file is a hidden file.
-hiddenFile :: Path Fn -> Bool
-hiddenFile (Path ".")  = False
-hiddenFile (Path "..") = False
-hiddenFile p           = "." `B.isPrefixOf` (P.fromRel p)
-
-
 -- |Apply a function on the free variable. If there is no free variable
 -- for the given constructor the value from the `Default` class is used.
 fromFreeVar :: (Default d) => (a -> d) -> File a -> d