From f55572542f58e840fd84c349c3e15780c5e56632 Mon Sep 17 00:00:00 2001
From: Julian Ospald <hasufell@hasufell.de>
Date: Wed, 23 Dec 2015 16:09:51 +0100
Subject: [PATCH] GTK: minor cleanup

---
 src/GUI/Gtk/Callbacks.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/GUI/Gtk/Callbacks.hs b/src/GUI/Gtk/Callbacks.hs
index 92ed8b5..a7b185d 100644
--- 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