diff options
| author | Raúl Benencia <rul@kalgan.cc> | 2013-09-05 23:52:04 -0300 |
|---|---|---|
| committer | Raúl Benencia <rul@kalgan.cc> | 2013-09-05 23:52:04 -0300 |
| commit | 41b16df2db3920b59d1c13a468e848e68111058b (patch) | |
| tree | c91ec22759cd594405e185db687e3c8ccd8feacb /src/Lazymail/Keymap.hs | |
| parent | 4f9e2732d8c19bcb731f82d590436f5a3168ec8d (diff) | |
Code clean-up
Diffstat (limited to 'src/Lazymail/Keymap.hs')
| -rw-r--r-- | src/Lazymail/Keymap.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Lazymail/Keymap.hs b/src/Lazymail/Keymap.hs index c649faa..cdd57cc 100644 --- a/src/Lazymail/Keymap.hs +++ b/src/Lazymail/Keymap.hs @@ -32,8 +32,8 @@ defaultComposeKeymap = [] -- | Try to find a keymap for the current mode. If nothing is found, then -- try looking up in the global keymap. findHandler st cfg ev = case modeHandler (mode st) ev of - Nothing -> globalHandler ev - Just h -> Just h -- I think I saw a way of using an as-pattern in this case + Nothing -> globalHandler ev + h@Just{} -> h where modeHandler MaildirMode = lookupHandler $ maildirModeKeymap cfg modeHandler IndexMode = lookupHandler $ indexModeKeymap cfg |