From 8e061c0c6de75c895b51ddbeacb544cb218c6acf Mon Sep 17 00:00:00 2001 From: Ivan Malison Date: Wed, 26 Oct 2016 17:24:45 -0700 Subject: [PATCH] X.A.WindowGo: Remove uncurry from raiseNextMaybeCustomFocus --- XMonad/Actions/WindowGo.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/XMonad/Actions/WindowGo.hs b/XMonad/Actions/WindowGo.hs index 1ee62e2c..e4760d6d 100644 --- a/XMonad/Actions/WindowGo.hs +++ b/XMonad/Actions/WindowGo.hs @@ -144,7 +144,7 @@ raiseNext = raiseNextMaybe $ return () raiseNextMaybe :: X () -> Query Bool -> X () raiseNextMaybe = raiseNextMaybeCustomFocus W.focusWindow -raiseNextMaybeCustomFocus :: (Window -> (WindowSet -> WindowSet)) -> X() -> Query Bool -> X() +raiseNextMaybeCustomFocus :: (Window -> WindowSet -> WindowSet) -> X() -> Query Bool -> X() raiseNextMaybeCustomFocus focusFn f qry = flip (ifWindows qry) f $ \ws -> do foc <- withWindowSet $ return . W.peek case foc of