diff options
| -rw-r--r-- | XMonad/Actions/Warp.hs | 6 |
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) |