LIB/GTK: remove obsolete fullPath/fullPathS and refactor for prettiness

2016-04-16 21:50:15 +02:00
parent 593a59787f
commit e2c83b3c31
4 changed files with 87 additions and 88 deletions
--- a/src/HSFM/GUI/Gtk/MyView.hs
+++ b/src/HSFM/GUI/Gtk/MyView.hs
@@ -228,7 +228,7 @@ refreshView mygui myview mfp =
        ecd <- try (getCurrentDir myview) :: IO (Either SomeException
                                                     Item)
        case ecd of
-          Right dir -> return (Just $ fullPath dir)
+          Right dir -> return (Just $ path dir)
          Left _    -> return (P.parseAbs "/")