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

Adjust to hpath-0.6.0

Browse Source
This commit is contained in:
Julian Ospald 2016-05-10 02:05:05 +02:00
parent aaa6dc7e48
commit 8739ccc55f
No known key found for this signature in database
GPG Key ID: 511B62C09D50CD28
2 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
hsfm.cabal
View File

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

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

@ -80,6 +80,7 @@ import System.INotify
import System.Posix.FilePath import System.Posix.FilePath
( (
pathSeparator pathSeparator
, hiddenFile
) )
@ -398,7 +399,7 @@ constructView mygui myview = do
item <- treeModelGetRow rawModel' iter >>= (P.basename . path) item <- treeModelGetRow rawModel' iter >>= (P.basename . path)
if hidden if hidden
then return True then return True
else return $ not . P.hiddenFile $ item else return . not . hiddenFile . P.fromRel $ item
-- sorting -- sorting
sortedModel' <- treeModelSortNewWithModel filteredModel' sortedModel' <- treeModelSortNewWithModel filteredModel'