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

GTK: minor cleanup

Browse Source
This commit is contained in:
Julian Ospald 2015-12-23 16:09:51 +01:00
parent 4d2a4fd1fc
commit f55572542f
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/GUI/Gtk/Callbacks.hs
View File

@ -182,8 +182,8 @@ operationFinal mygui myview = withErrorDialog $ do
-- * 'sortedModel' reads -- * 'sortedModel' reads
upDir :: MyGUI -> MyView -> IO () upDir :: MyGUI -> MyView -> IO ()
upDir mygui myview = withErrorDialog $ do upDir mygui myview = withErrorDialog $ do
mcdir <- getFirstRow myview cdir <- goUp =<< getFirstRow myview
rawModel' <- readTVarIO $ rawModel myview rawModel' <- readTVarIO $ rawModel myview
sortedModel' <- readTVarIO $ sortedModel myview sortedModel' <- readTVarIO $ sortedModel myview
nv <- goUp =<< goUp mcdir nv <- goUp cdir
refreshTreeView' mygui myview nv refreshTreeView' mygui myview nv