LIB: move 'hiddenFile' to hpath package
This commit is contained in:
parent
bddf29671a
commit
b7ee2ccd3d
2
3rdparty/hpath
vendored
2
3rdparty/hpath
vendored
@ -1 +1 @@
|
||||
Subproject commit 148eeb619fd6d44589dae556970c623eb4a42131
|
||||
Subproject commit c570505297f22fda08248dae66072c9bff9ce607
|
@ -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
|
||||
|
@ -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'
|
||||
|
Loading…
Reference in New Issue
Block a user