Fix build with latest hpath library

This also touches some exception handling code, be careful.
2018-05-17 11:42:36 +02:00
parent 6ff620d4ae
commit 3cd7a246ab
6 changed files with 26 additions and 25 deletions
--- a/src/HSFM/GUI/Gtk/MyView.hs
+++ b/src/HSFM/GUI/Gtk/MyView.hs
@@ -116,7 +116,7 @@ newTab mygui nb iofmv item pos = do
  notebookSetTabReorderable (notebook myview) (viewBox myview) True

  catchIOError (refreshView mygui myview item) $ \e -> do
-    file <- readFile getFileInfo . fromJust . P.parseAbs . fromString
+    file <- pathToFile getFileInfo . fromJust . P.parseAbs . fromString
      $ "/"
    refreshView mygui myview file
    labelSetText label (fromString "/" :: String)