diff options
| author | Daniel Wagner <daniel@wagner-home.com> | 2013-05-28 18:44:01 +0200 |
|---|---|---|
| committer | Daniel Wagner <daniel@wagner-home.com> | 2013-05-28 18:44:01 +0200 |
| commit | b93803bbf235b216890db2e06f91ca0cce1a1791 (patch) | |
| tree | 9fd44f59302b5f3c48d23b2184eeb08ffb4a59eb | |
| parent | 9e5fe03ca436b3d794c1d149d62d4f66d6aeecfd (diff) | |
| download | metatile-b93803bbf235b216890db2e06f91ca0cce1a1791.tar metatile-b93803bbf235b216890db2e06f91ca0cce1a1791.zip | |
warning police: name userCodeDef's argument defValue instead of def
Ignore-this: f32b218e2097a52c7ecccae28c23754b
darcs-hash:20130528164401-76d51-91c2237bbeac06dd5fa6a08cf9a0052d06552d1f
| -rw-r--r-- | XMonad/Core.hs | 2 |
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 |