aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--XMonad/Actions/Warp.hs6
1 files changed, 4 insertions, 2 deletions
diff --git a/XMonad/Actions/Warp.hs b/XMonad/Actions/Warp.hs
index 7536a1c..863d0f6 100644
--- a/XMonad/Actions/Warp.hs
+++ b/XMonad/Actions/Warp.hs
@@ -77,8 +77,10 @@ banishScreen direction = case direction of
UpperRight -> warpToCurrentScreen 1 0
where
warpToCurrentScreen h v =
- do (StackSet { current = x }) <- gets windowset
- warpToScreen (W.screen x) h v
+ do ws <- gets windowset
+ warpToScreen (W.screen $ current ws) h v
+ windows (const ws)
+
fraction :: (Integral a, Integral b) => Rational -> a -> b
fraction f x = floor (f * fromIntegral x)