From 5455ba1066734fca12616bea2bbfacaff423b158 Mon Sep 17 00:00:00 2001 From: Julian Ospald Date: Fri, 25 Dec 2015 23:26:47 +0100 Subject: [PATCH] GTK: remove redundant bracket --- 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 b89793d..2f6c98d 100644 --- a/src/GUI/Gtk/Callbacks.hs +++ b/src/GUI/Gtk/Callbacks.hs @@ -88,7 +88,7 @@ setCallbacks mygui myview = do cdir <- liftIO $ getCurrentDir myview liftIO $ modifyTVarIO (settings mygui) (\x -> x { showHidden = not . showHidden $ x}) - >> (refreshTreeView' mygui myview cdir) + >> refreshTreeView' mygui myview cdir _ <- treeView mygui `on` keyPressEvent $ tryEvent $ do [Alt] <- eventModifier "Up" <- fmap glibToString eventKeyName