From e953f7a8249603089423c08dadb66e6049c43a5d Mon Sep 17 00:00:00 2001
From: Brent Yorgey <byorgey@gmail.com>
Date: Sat, 15 Dec 2007 15:32:27 +0100
Subject: DynamicLog.hs: fix shadowing warning

darcs-hash:20071215143227-bd4d7-ae762306d69afc8af294c769ed91b8071c375ed1.gz
---
 XMonad/Hooks/DynamicLog.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'XMonad/Hooks/DynamicLog.hs')

diff --git a/XMonad/Hooks/DynamicLog.hs b/XMonad/Hooks/DynamicLog.hs
index 36f896d..a95cc29 100644
--- a/XMonad/Hooks/DynamicLog.hs
+++ b/XMonad/Hooks/DynamicLog.hs
@@ -145,7 +145,7 @@ pprWindowSet spaces urgents pp s =  sepBy (ppWsSep pp) $ map fmt $ sortBy cmp
          fmt w = printer pp (S.tag w)
           where printer | S.tag w == this                                               = ppCurrent
                         | S.tag w `elem` visibles                                       = ppVisible
-                        | any (\x -> maybe False (== S.tag w) (S.findTag x s)) urgents  = \pp -> ppUrgent pp . ppHidden pp
+                        | any (\x -> maybe False (== S.tag w) (S.findTag x s)) urgents  = \ppC -> ppUrgent ppC . ppHidden ppC
                         | isJust (S.stack w)                                            = ppHidden
                         | otherwise                                                     = ppHiddenNoWindows
 
-- 
cgit v1.2.3