Adjust to hpath-0.6.0

2016-05-10 02:05:05 +02:00
parent aaa6dc7e48
commit 8739ccc55f
2 changed files with 4 additions and 3 deletions
--- a/src/HSFM/GUI/Gtk/MyView.hs
+++ b/src/HSFM/GUI/Gtk/MyView.hs
@@ -80,6 +80,7 @@ import System.INotify
 import System.Posix.FilePath
  (
    pathSeparator
+  , hiddenFile
  )


@@ -398,7 +399,7 @@ constructView mygui myview = do
     item   <- treeModelGetRow rawModel' iter >>= (P.basename . path)
     if hidden
       then return True
-       else return $ not . P.hiddenFile $ item
+       else return . not . hiddenFile . P.fromRel $ item

  -- sorting
  sortedModel' <- treeModelSortNewWithModel filteredModel'