From 26d3d35894b64894d4f29c7939be53957895742b Mon Sep 17 00:00:00 2001
From: Brent Yorgey <byorgey@gmail.com>
Date: Mon, 22 Oct 2007 22:43:35 +0200
Subject: Dzen.hs: replace 'findIndex' by 'findTag' to match renaming in core.

darcs-hash:20071022204335-bd4d7-0ab4d32c58350215828b95a7a160024931ed8573.gz
---
 Dzen.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Dzen.hs b/Dzen.hs
index 807e266..e6ae53a 100644
--- a/Dzen.hs
+++ b/Dzen.hs
@@ -48,7 +48,7 @@ dzenUrgencyHook duration w = do
     visibles <- gets mapped
     name <- getName w
     ws <- gets windowset
-    whenJust (W.findIndex w ws) (flash name visibles)
+    whenJust (W.findTag w ws) (flash name visibles)
   where flash name visibles index =
               when (not $ S.member w visibles) $
               dzen (show name ++ " requests your attention on workspace " ++ index) duration
-- 
cgit v1.2.3