hasufell/hsfm
1
1
Fork 0
Code Issues 33 Pull Requests Releases Wiki Activity

GTK: fix opening non-readable directory as tab

Browse Source
This commit is contained in:
Julian Ospald 2016-06-03 14:46:23 +02:00
parent 3e4621fe70
commit e4bb5104e8
No known key found for this signature in database
GPG Key ID: 511B62C09D50CD28
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/HSFM/GUI/Gtk/MyView.hs
View File

@ -108,11 +108,11 @@ newTab mygui iofmv item pos = do
notebookSetTabReorderable (notebook mygui) (viewBox myview) True notebookSetTabReorderable (notebook mygui) (viewBox myview) True
catchIOError (refreshView mygui myview item) $ \e -> do catchIOError (refreshView mygui myview item) $ \e -> do
unless (isUserError e) (ioError e)
file <- readFile getFileInfo . fromJust . P.parseAbs . fromString file <- readFile getFileInfo . fromJust . P.parseAbs . fromString
$ "/" $ "/"
refreshView mygui myview file refreshView mygui myview file
labelSetText label (fromString "/" :: String) labelSetText label (fromString "/" :: String)
unless (isUserError e) (ioError e)
-- close callback -- close callback
_ <- ebox `on` buttonPressEvent $ do _ <- ebox `on` buttonPressEvent $ do