twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 11:30:22 -07:00
Code Issues Packages Projects Releases Wiki Activity

X.A.WindowGo: Remove uncurry from raiseNextMaybeCustomFocus

Browse Source
This commit is contained in:
Ivan Malison 2016-10-26 17:24:45 -07:00
parent 49fecdf4eb
commit 8e061c0c6d
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
XMonad/Actions/WindowGo.hs
View File

@ -144,7 +144,7 @@ raiseNext = raiseNextMaybe $ return ()
raiseNextMaybe :: X () -> Query Bool -> X () raiseNextMaybe :: X () -> Query Bool -> X ()
raiseNextMaybe = raiseNextMaybeCustomFocus W.focusWindow 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 raiseNextMaybeCustomFocus focusFn f qry = flip (ifWindows qry) f $ \ws -> do
foc <- withWindowSet $ return . W.peek foc <- withWindowSet $ return . W.peek
case foc of case foc of