aboutsummaryrefslogtreecommitdiffstats
path: root/RotView.hs
diff options
context:
space:
mode:
authorSpencer Janssen <sjanssen@cse.unl.edu>2007-09-17 23:33:29 +0200
committerSpencer Janssen <sjanssen@cse.unl.edu>2007-09-17 23:33:29 +0200
commit1436b9a90835ec2abfee0ff0df8949ea84fc4b98 (patch)
treeedcd050e3b3a702a8724c3a77998acbdc6bde7b9 /RotView.hs
parent7163db0ed96d0bb4d7455766bfe42ac473d8cf1c (diff)
downloadXMonadContrib-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 'RotView.hs')
-rw-r--r--RotView.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/RotView.hs b/RotView.hs
index c7dc6c6..09b6c4e 100644
--- a/RotView.hs
+++ b/RotView.hs
@@ -25,7 +25,7 @@ import Data.Ord ( comparing )
import XMonad
import StackSet hiding (filter)
-import qualified Operations as O
+import Operations
-- $usage
-- You can use this module with the following in your Config.hs file:
@@ -46,4 +46,4 @@ rotView b = do
sortWs = sortBy (comparing tag)
pivoted = uncurry (flip (++)) . span ((< m) . tag) . sortWs . hidden $ ws
nextws = listToMaybe . filter (isJust . stack) . (if b then id else reverse) $ pivoted
- whenJust nextws (O.view . tag)
+ whenJust nextws (windows . view . tag)