GTK: minor cleanup

2015-12-23 16:09:51 +01:00 · 2015-12-23 16:09:51 +01:00 · f55572542f
commit f55572542f
parent 4d2a4fd1fc
1 changed files with 2 additions and 2 deletions
--- a/src/GUI/Gtk/Callbacks.hs
+++ b/src/GUI/Gtk/Callbacks.hs
@ -182,8 +182,8 @@ operationFinal mygui myview = withErrorDialog $ do
 -- * 'sortedModel' reads
 upDir :: MyGUI -> MyView -> IO ()
 upDir mygui myview = withErrorDialog $ do
-  mcdir <- getFirstRow myview
+  cdir <- goUp =<< getFirstRow myview
  rawModel'    <- readTVarIO $ rawModel myview
  sortedModel' <- readTVarIO $ sortedModel myview
-  nv <- goUp =<< goUp mcdir
+  nv <- goUp cdir
  refreshTreeView' mygui myview nv