From e75a72d63f0160955713d251f1d0a5df2780e724 Mon Sep 17 00:00:00 2001 From: Brent Yorgey Date: Sat, 15 Dec 2007 14:32:27 +0000 Subject: [PATCH] DynamicLog.hs: fix shadowing warning --- XMonad/Hooks/DynamicLog.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/XMonad/Hooks/DynamicLog.hs b/XMonad/Hooks/DynamicLog.hs index 36f896de..a95cc29d 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