From e3ef1c28b8862964f7a211b409edbef6056163dc Mon Sep 17 00:00:00 2001 From: Brent Yorgey Date: Mon, 22 Oct 2007 22:41:05 +0200 Subject: Replace 'findIndex' with 'findTag', which more accurately describes what the function does. I realize this is a big change, but the name 'findIndex' was confusing for me, since I expected it to return some sort of integer. What it actually does, of course, is return a workspace tag, which might be more general than an index. Of course, this change breaks several contrib modules; I'll submit a patch to make the change there as well. darcs-hash:20071022204105-bd4d7-9f5d5b8ce00c61b4830fde329f528b2d79af2fa6 --- Operations.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Operations.hs') diff --git a/Operations.hs b/Operations.hs index ba8d109..d4b6f3e 100644 --- a/Operations.hs +++ b/Operations.hs @@ -564,7 +564,7 @@ float :: Window -> X () float w = do (sc, rr) <- floatLocation w windows $ \ws -> W.float w rr . fromMaybe ws $ do - i <- W.findIndex w ws + i <- W.findTag w ws guard $ i `elem` map (W.tag . W.workspace) (W.screens ws) f <- W.peek ws sw <- W.lookupWorkspace sc ws -- cgit v1.2.3