hasufell/hsfm
1
1
Fork 0
Code Issues 33 Pull Requests Releases Wiki Activity

LIB: move 'hiddenFile' to hpath package

Browse Source
This commit is contained in:
Julian Ospald 2016-04-10 22:03:30 +02:00
parent bddf29671a
commit b7ee2ccd3d
No known key found for this signature in database
GPG Key ID: 511B62C09D50CD28
3 changed files with 2 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
3rdparty/hpath vendored

@ -1 +1 @@
Subproject commit 148eeb619fd6d44589dae556970c623eb4a42131 Subproject commit c570505297f22fda08248dae66072c9bff9ce607

7
src/HSFM/FileSystem/FileType.hs
View File

@ -704,13 +704,6 @@ isBrokenSymlink _ = False
---- OTHER: ---- ---- 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 -- |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. -- for the given constructor the value from the `Default` class is used.
fromFreeVar :: (Default d) => (a -> d) -> File a -> d fromFreeVar :: (Default d) => (a -> d) -> File a -> d

2
src/HSFM/GUI/Gtk/MyView.hs
View File

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