aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorDaniel Wagner <daniel@wagner-home.com>2013-05-28 18:44:01 +0200
committerDaniel Wagner <daniel@wagner-home.com>2013-05-28 18:44:01 +0200
commitd7b4195b2f043e8ec8a712079acf768a1f1118d0 (patch)
tree9fd44f59302b5f3c48d23b2184eeb08ffb4a59eb
parent2b99912405588e4adaa735e6f15a98394fce4083 (diff)
downloadxmonad-d7b4195b2f043e8ec8a712079acf768a1f1118d0.tar.gz
xmonad-d7b4195b2f043e8ec8a712079acf768a1f1118d0.tar.xz
xmonad-d7b4195b2f043e8ec8a712079acf768a1f1118d0.zip
warning police: name userCodeDef's argument defValue instead of def
Ignore-this: f32b218e2097a52c7ecccae28c23754b darcs-hash:20130528164401-76d51-91c2237bbeac06dd5fa6a08cf9a0052d06552d1f.gz
Diffstat (limited to '')
-rw-r--r--XMonad/Core.hs2
1 files changed, 1 insertions, 1 deletions
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