From 508debd233d9bddf5f5f8c8ad071fcbe52da4f0e Mon Sep 17 00:00:00 2001 From: Devin Mullins Date: Sun, 21 Sep 2008 03:11:59 +0200 Subject: cleanup - use currentTag darcs-hash:20080921011159-78224-b0ac172560719cba3a1c41171d91e222a6fa1304.gz --- XMonad/Actions/CycleWS.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'XMonad/Actions/CycleWS.hs') diff --git a/XMonad/Actions/CycleWS.hs b/XMonad/Actions/CycleWS.hs index ac0fddb..f7a59bb 100644 --- a/XMonad/Actions/CycleWS.hs +++ b/XMonad/Actions/CycleWS.hs @@ -217,7 +217,7 @@ findWorkspace s dir t n = findWorkspaceGen s (wsTypeToPred t) (maybeNegate dir n maybeNegate Prev d = (-d) findWorkspaceGen :: X WorkspaceSort -> X (WindowSpace -> Bool) -> Int -> X WorkspaceId -findWorkspaceGen _ _ 0 = (tag . workspace . current) `fmap` gets windowset +findWorkspaceGen _ _ 0 = gets (currentTag . windowset) findWorkspaceGen sortX wsPredX d = do wsPred <- wsPredX sort <- sortX -- cgit v1.2.3