From 8739ccc55f0f5eaf07b7e1d44e9f64649ac53e1e Mon Sep 17 00:00:00 2001
From: Julian Ospald <hasufell@posteo.de>
Date: Tue, 10 May 2016 02:05:05 +0200
Subject: [PATCH] Adjust to hpath-0.6.0

---
 hsfm.cabal                 | 4 ++--
 src/HSFM/GUI/Gtk/MyView.hs | 3 ++-
 2 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/hsfm.cabal b/hsfm.cabal
index 7c783d7..f15f0fe 100644
--- a/hsfm.cabal
+++ b/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,
diff --git a/src/HSFM/GUI/Gtk/MyView.hs b/src/HSFM/GUI/Gtk/MyView.hs
index d7bf7c2..704052f 100644
--- 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'