diff --git a/src/HSFM/GUI/Gtk/MyView.hs b/src/HSFM/GUI/Gtk/MyView.hs index 07aa85b..504422a 100644 --- a/src/HSFM/GUI/Gtk/MyView.hs +++ b/src/HSFM/GUI/Gtk/MyView.hs @@ -108,11 +108,11 @@ newTab mygui iofmv item pos = do notebookSetTabReorderable (notebook mygui) (viewBox myview) True catchIOError (refreshView mygui myview item) $ \e -> do - unless (isUserError e) (ioError e) file <- readFile getFileInfo . fromJust . P.parseAbs . fromString $ "/" refreshView mygui myview file labelSetText label (fromString "/" :: String) + unless (isUserError e) (ioError e) -- close callback _ <- ebox `on` buttonPressEvent $ do