GTK: fix show/hide hidden files

2015-12-24 14:45:30 +01:00 · 2015-12-24 14:45:30 +01:00 · d184b82648
commit d184b82648
parent e160f340ec
1 changed files with 1 additions and 1 deletions
--- 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