Adjust to hpath-0.6.0

hsfm.cabal

@@ -35,7 +35,7 @@ library
                        data-default,
                        filepath >= 1.3.0.0,
                        hinotify-bytestring,
-                       hpath >= 0.5.9,
+                       hpath >= 0.6.0,
                        safe,
                        stm,
                        time >= 1.4.2,
@@ -76,7 +76,7 @@ executable hsfm-gtk
                        glib >= 0.13,
                        gtk3 >= 0.14.1,
                        hinotify-bytestring,
-                       hpath >= 0.5.9,
+                       hpath >= 0.6.0,
                        hsfm,
                        old-locale >= 1,
                        process,

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'