GTK: remove redundant bracket

This commit is contained in:
2015-12-25 23:26:47 +01:00
parent 61b2313320
commit 5455ba1066

View File

@@ -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