From b93803bbf235b216890db2e06f91ca0cce1a1791 Mon Sep 17 00:00:00 2001
From: Daniel Wagner <daniel@wagner-home.com>
Date: Tue, 28 May 2013 18:44:01 +0200
Subject: warning police: name userCodeDef's argument defValue instead of def

Ignore-this: f32b218e2097a52c7ecccae28c23754b

darcs-hash:20130528164401-76d51-91c2237bbeac06dd5fa6a08cf9a0052d06552d1f
---
 XMonad/Core.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/XMonad/Core.hs b/XMonad/Core.hs
index 112d1e4..20d7258 100644
--- a/XMonad/Core.hs
+++ b/XMonad/Core.hs
@@ -192,7 +192,7 @@ userCode a = catchX (Just `liftM` a) (return Nothing)
 -- | Same as userCode but with a default argument to return instead of using
 -- Maybe, provided for convenience.
 userCodeDef :: a -> X a -> X a
-userCodeDef def a = fromMaybe def `liftM` userCode a
+userCodeDef defValue a = fromMaybe defValue `liftM` userCode a
 
 -- ---------------------------------------------------------------------
 -- Convenient wrappers to state
-- 
cgit v1.2.3