Dzen.hs: replace 'findIndex' by 'findTag' to match renaming in core.

darcs-hash:20071022204335-bd4d7-0ab4d32c58350215828b95a7a160024931ed8573.gz

1 files changed, 1 insertions, 1 deletions

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