From 1436b9a90835ec2abfee0ff0df8949ea84fc4b98 Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Mon, 17 Sep 2007 23:33:29 +0200 Subject: Match 'Remove Operations functions which have StackSet equivalents' from the core darcs-hash:20070917213329-a5988-b9cc2ae3e1c8740eecb9300a4b92a2dcd9c81aa1.gz --- CycleWS.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'CycleWS.hs') diff --git a/CycleWS.hs b/CycleWS.hs index a3b9f19..3a95ab4 100644 --- a/CycleWS.hs +++ b/CycleWS.hs @@ -36,8 +36,8 @@ import Data.List -- > , ((modMask , xK_period), nextWS ) nextWS, prevWS :: X () -nextWS = withWindowSet $ \s -> view (workspaces !! (setWS s N)) -prevWS = withWindowSet $ \s -> view (workspaces !! (setWS s P)) +nextWS = withWindowSet $ \s -> windows $ W.view (workspaces !! (setWS s N)) +prevWS = withWindowSet $ \s -> windows $ W.view (workspaces !! (setWS s P)) data Dir = P | N deriving Eq setWS :: WindowSet -> Dir -> Int -- cgit v1.2.3