diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-09-17 23:33:29 +0200 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-09-17 23:33:29 +0200 |
| commit | 1436b9a90835ec2abfee0ff0df8949ea84fc4b98 (patch) | |
| tree | edcd050e3b3a702a8724c3a77998acbdc6bde7b9 /CycleWS.hs | |
| parent | 7163db0ed96d0bb4d7455766bfe42ac473d8cf1c (diff) | |
| download | XMonadContrib-1436b9a90835ec2abfee0ff0df8949ea84fc4b98.tar.gz XMonadContrib-1436b9a90835ec2abfee0ff0df8949ea84fc4b98.tar.xz XMonadContrib-1436b9a90835ec2abfee0ff0df8949ea84fc4b98.zip | |
Match 'Remove Operations functions which have StackSet equivalents' from the core
darcs-hash:20070917213329-a5988-b9cc2ae3e1c8740eecb9300a4b92a2dcd9c81aa1.gz
Diffstat (limited to 'CycleWS.hs')
| -rw-r--r-- | CycleWS.hs | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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 |