LIB: move 'hiddenFile' to hpath package

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

src/HSFM/GUI/Gtk/MyView.hs

@@ -303,7 +303,7 @@ constructView mygui myview = do
      item    <- (name . file) <$> treeModelGetRow rawModel' iter
      if hidden
        then return True
-       else return $ not . hiddenFile $ item
+       else return $ not . P.hiddenFile $ item
 
   -- sorting
   sortedModel' <- treeModelSortNewWithModel filteredModel'