From 6769de07f7e06ddf6eea728bd7072ebfe6eff017 Mon Sep 17 00:00:00 2001
From: Daniel Wagner <daniel@wagner-home.com>
Date: Tue, 28 May 2013 03:39:09 +0200
Subject: use Data.Default wherever possible, and deprecate the things it
 replaces

Ignore-this: 898458b1d2868a70dfb09faf473dc7aa

darcs-hash:20130528013909-76d51-863278165b6f149c47b08b31b34e85ddcab19f1f.gz
---
 XMonad/Util/Loggers.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'XMonad/Util/Loggers.hs')

diff --git a/XMonad/Util/Loggers.hs b/XMonad/Util/Loggers.hs
index 36f91d9..c613d69 100644
--- a/XMonad/Util/Loggers.hs
+++ b/XMonad/Util/Loggers.hs
@@ -77,7 +77,7 @@ econst = const . return
 -- For example:
 --
 -- >   -- display load averages and a pithy quote along with xmonad status.
--- >   , logHook = dynamicLogWithPP $ defaultPP {
+-- >   , logHook = dynamicLogWithPP $ def {
 -- >                  ppExtras = [ padL loadAvg, logCmd "fortune -n 40 -s" ]
 -- >                }
 -- >   -- gives something like " 3.27 3.52 3.26 Drive defensively.  Buy a tank."
@@ -193,7 +193,7 @@ logCurrent = withWindowSet $ return . Just . W.currentTag
 -- use instead of \'.\' or \'$\' in hard to read formatting lines.
 -- For example:
 --
--- > myLogHook = dynamicLogWithPP defaultPP {
+-- > myLogHook = dynamicLogWithPP def {
 -- >     -- skipped
 -- >     , ppExtras = [lLoad, lTitle, logSp 3, wrapL "[" "]" $ date "%a %d %b"]
 -- >     , ppOrder = \(ws,l,_,xs) -> [l,ws] ++ xs
-- 
cgit v1.2.3