From d184b82648a87edc709dc1c0d6ca04beef6795c7 Mon Sep 17 00:00:00 2001
From: Julian Ospald <hasufell@hasufell.de>
Date: Thu, 24 Dec 2015 14:45:30 +0100
Subject: [PATCH] GTK: fix show/hide hidden files

---
 src/GUI/Gtk/Callbacks.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/GUI/Gtk/Callbacks.hs b/src/GUI/Gtk/Callbacks.hs
index cce2841..f0b995a 100644
--- a/src/GUI/Gtk/Callbacks.hs
+++ b/src/GUI/Gtk/Callbacks.hs
@@ -70,7 +70,7 @@ setCallbacks mygui myview = do
     mcdir <- liftIO $ getFirstRow myview
     liftIO $ modifyTVarIO (settings mygui)
                           (\x -> x { showHidden = not . showHidden $ x})
-             >> refreshTreeView' mygui myview mcdir
+             >> (refreshTreeView' mygui myview =<< goUp mcdir)
   _ <- treeView mygui `on` keyPressEvent $ tryEvent $ do
     [Alt] <- eventModifier
     "Up"  <- fmap glibToString eventKeyName