diff options
| author | Daniel Wagner <daniel@wagner-home.com> | 2013-05-28 03:39:09 +0200 |
|---|---|---|
| committer | Daniel Wagner <daniel@wagner-home.com> | 2013-05-28 03:39:09 +0200 |
| commit | 6769de07f7e06ddf6eea728bd7072ebfe6eff017 (patch) | |
| tree | f234bf0cac01538fbc1acab1a668ac61b9ab8074 /XMonad/Actions/Submap.hs | |
| parent | fe066e8e9ca5326dd146630a6d729fae51af12cf (diff) | |
| download | XMonadContrib-6769de07f7e06ddf6eea728bd7072ebfe6eff017.tar.gz XMonadContrib-6769de07f7e06ddf6eea728bd7072ebfe6eff017.tar.xz XMonadContrib-6769de07f7e06ddf6eea728bd7072ebfe6eff017.zip | |
use Data.Default wherever possible, and deprecate the things it replaces
Ignore-this: 898458b1d2868a70dfb09faf473dc7aa
darcs-hash:20130528013909-76d51-863278165b6f149c47b08b31b34e85ddcab19f1f.gz
Diffstat (limited to '')
| -rw-r--r-- | XMonad/Actions/Submap.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/XMonad/Actions/Submap.hs b/XMonad/Actions/Submap.hs index 17ab676..3a49d88 100644 --- a/XMonad/Actions/Submap.hs +++ b/XMonad/Actions/Submap.hs @@ -62,7 +62,7 @@ submap keys = submapDefault (return ()) keys -- | Like 'submap', but executes a default action if the key did not match. submapDefault :: X () -> M.Map (KeyMask, KeySym) (X ()) -> X () -submapDefault def keys = do +submapDefault defAction keys = do XConf { theRoot = root, display = d } <- ask io $ grabKeyboard d root False grabModeAsync grabModeAsync currentTime @@ -79,4 +79,4 @@ submapDefault def keys = do io $ ungrabKeyboard d currentTime - maybe def id (M.lookup (m', s) keys) + maybe defAction id (M.lookup (m', s) keys) |