diff --git a/src/HSFM-GUI-Gtk-MyView.html b/src/HSFM-GUI-Gtk-MyView.html
index 4f48e6f..cd7f609 100644
--- a/src/HSFM-GUI-Gtk-MyView.html
+++ b/src/HSFM-GUI-Gtk-MyView.html
@@ -117,11 +117,11 @@
notebookSetTabReorderable (notebook mygui) (viewBox myview) True
catchIOError (refreshView mygui myview item) $ \e -> do
- file <- readFile getFileInfo . fromJust . P.parseAbs . fromString
- $ "/"
- refreshView mygui myview file
- labelSetText label (fromString "/" :: String)
- unless (isUserError e) (ioError e)
+ unless (isUserError e) (ioError e)
+ file <- readFile getFileInfo . fromJust . P.parseAbs . fromString
+ $ "/"
+ refreshView mygui myview file
+ labelSetText label (fromString "/" :: String)
_ <- ebox `on` buttonPressEvent $ do