From 5ab6b11181fd48394f439b77646d3fedf868bc60 Mon Sep 17 00:00:00 2001 From: Roman Cheplyaka Date: Tue, 27 Jan 2009 19:56:04 +0100 Subject: X.A.CycleWS: convert tabs to spaces (closes #266) darcs-hash:20090127185604-3ebed-db1c1b6b33a83e58a9fa957f7222fce88db52e20.gz --- XMonad/Actions/CycleWS.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'XMonad/Actions/CycleWS.hs') diff --git a/XMonad/Actions/CycleWS.hs b/XMonad/Actions/CycleWS.hs index c0f19e2..5e267ca 100644 --- a/XMonad/Actions/CycleWS.hs +++ b/XMonad/Actions/CycleWS.hs @@ -172,7 +172,7 @@ data WSDirection = Next | Prev -- | What type of workspaces should be included in the cycle? data WSType = EmptyWS -- ^ cycle through empty workspaces | NonEmptyWS -- ^ cycle through non-empty workspaces - | HiddenWS -- ^ cycle through non-visible workspaces + | HiddenWS -- ^ cycle through non-visible workspaces | HiddenNonEmptyWS -- ^ cycle through non-empty non-visible workspaces | AnyWS -- ^ cycle through all workspaces | WSIs (X (WindowSpace -> Bool)) @@ -186,7 +186,7 @@ wsTypeToPred NonEmptyWS = return (isJust . stack) wsTypeToPred HiddenWS = do hs <- gets (map tag . hidden . windowset) return (\w -> tag w `elem` hs) wsTypeToPred HiddenNonEmptyWS = do ne <- wsTypeToPred NonEmptyWS - hi <- wsTypeToPred HiddenWS + hi <- wsTypeToPred HiddenWS return (\w -> hi w && ne w) wsTypeToPred AnyWS = return (const True) wsTypeToPred (WSIs p) = p -- cgit v1.2.3