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/Config/Dmwit.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'XMonad/Config/Dmwit.hs')

diff --git a/XMonad/Config/Dmwit.hs b/XMonad/Config/Dmwit.hs
index 08c0b04..2bf22ec 100644
--- a/XMonad/Config/Dmwit.hs
+++ b/XMonad/Config/Dmwit.hs
@@ -307,12 +307,12 @@ xmobarCommand (S s) = unwords ["xmobar",
 allPPs nScreens = sequence_ [dynamicLogWithPP (pp s) | s <- [0..nScreens-1], pp <- [ppFocus, ppWorkspaces]]
 color c = xmobarColor c ""
 
-ppFocus s@(S s_) = whenCurrentOn s defaultPP {
+ppFocus s@(S s_) = whenCurrentOn s def {
     ppOrder  = \(_:_:windowTitle:_) -> [windowTitle],
     ppOutput = appendFile (pipeName "focus" s_) . (++ "\n")
     }
 
-ppWorkspaces s@(S s_) = marshallPP s defaultPP {
+ppWorkspaces s@(S s_) = marshallPP s def {
     ppCurrent           = color "white",
     ppVisible           = color "white",
     ppHiddenNoWindows   = color dark,
-- 
cgit v1.2.3