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 --- RotView.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'RotView.hs') 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) -- cgit v1.2.3