From 1af7582b30d70ded97db92a69673849372c98fb9 Mon Sep 17 00:00:00 2001 From: David Roundy Date: Tue, 12 Jun 2007 17:12:09 +0200 Subject: changes to work with Stacks that can't be empty. darcs-hash:20070612151209-72aca-62307f8565fc32ca80be8daf2c30fe414d49111e.gz --- RotView.hs | 9 ++------- 1 file changed, 2 insertions(+), 7 deletions(-) (limited to 'RotView.hs') diff --git a/RotView.hs b/RotView.hs index 1fc421e..6a8fc7f 100644 --- a/RotView.hs +++ b/RotView.hs @@ -10,7 +10,7 @@ module XMonadContrib.RotView ( rotView ) where import Control.Monad.State ( gets ) import Data.List ( sortBy ) -import Data.Maybe ( listToMaybe ) +import Data.Maybe ( listToMaybe, isJust ) import XMonad import StackSet hiding (filter) @@ -22,10 +22,5 @@ rotView b = do let m = tag . workspace . current $ ws sortWs = sortBy (\x y -> compare (tag x) (tag y)) pivoted = uncurry (flip (++)) . span ((< m) . tag) . sortWs . hidden $ ws - nextws = listToMaybe . filter (not.isEmpty) . (if b then id else reverse) $ pivoted + nextws = listToMaybe . filter (isJust . stack) . (if b then id else reverse) $ pivoted whenJust nextws (O.view . tag) - -isEmpty :: Workspace i a -> Bool -isEmpty ws = case stack ws of - Empty -> True - _ -> False -- cgit v1.2.3