From 4042294a317629b9e4a967df45bf7d9ff996b74e Mon Sep 17 00:00:00 2001 From: travis-ci Date: Fri, 3 Jun 2016 13:07:39 +0000 Subject: [PATCH] Lastest docs updated travis build: 27 commit: e4bb5104e8d9c8616041aa217af3bf2e7cfb6abe auto-pushed to gh-pages --- src/HSFM-GUI-Gtk-MyView.html | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/src/HSFM-GUI-Gtk-MyView.html b/src/HSFM-GUI-Gtk-MyView.html index cd7f609..4f48e6f 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 - unless (isUserError e) (ioError e) - file <- readFile getFileInfo . fromJust . P.parseAbs . fromString - $ "/" - refreshView mygui myview file - labelSetText label (fromString "/" :: String) + 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