diff options
| author | Mats Rauhala <mats.rauhala@gmail.com> | 2011-05-04 21:24:55 +0200 |
|---|---|---|
| committer | Mats Rauhala <mats.rauhala@gmail.com> | 2011-05-04 21:24:55 +0200 |
| commit | 828571625f7d55fdabb9f3b563e131244d638409 (patch) | |
| tree | 064f346992e00a38041ba9d600c6902e6175ed7a /XMonad/Prompt.hs | |
| parent | b29fee817d4b8b91165f40b5aa14590bc28b8375 (diff) | |
| download | XMonadContrib-828571625f7d55fdabb9f3b563e131244d638409.tar.gz XMonadContrib-828571625f7d55fdabb9f3b563e131244d638409.tar.xz XMonadContrib-828571625f7d55fdabb9f3b563e131244d638409.zip | |
Compile with ghc7
Ignore-this: 218d2e19835f1e4315c01bd6214899ce
darcs-hash:20110504192455-af521-ba19a95226d2527af9fbad8ed902982f2db567db.gz
Diffstat (limited to '')
| -rw-r--r-- | XMonad/Prompt.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/XMonad/Prompt.hs b/XMonad/Prompt.hs index d8133fd..1d2faba 100644 --- a/XMonad/Prompt.hs +++ b/XMonad/Prompt.hs @@ -442,12 +442,12 @@ defaultXPKeymap = M.fromList $ keyPressHandle :: KeyMask -> KeyStroke -> XP () keyPressHandle m (ks,str) = do km <- gets (promptKeymap . config) - mask <- cleanMask m - case M.lookup (mask,ks) km of + kmask <- cleanMask m -- mask is defined in ghc7 + case M.lookup (kmask,ks) km of Just action -> action >> updateWindows Nothing -> case str of "" -> eventLoop handle - _ -> when (mask .&. controlMask == 0) $ do + _ -> when (kmask .&. controlMask == 0) $ do insertString (decodeString str) updateWindows completed <- tryAutoComplete |