From 393625598c550558a3fc3ef101c10b22a233007a Mon Sep 17 00:00:00 2001 From: travis-ci Date: Fri, 3 Jun 2016 13:15:14 +0000 Subject: [PATCH] Lastest docs updated travis build: 26 commit: 3e4621fe70e8f7b3fb54587747c8ccb04a61d44e 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 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) -- close callback _ <- ebox `on` buttonPressEvent $ do