From 828571625f7d55fdabb9f3b563e131244d638409 Mon Sep 17 00:00:00 2001 From: Mats Rauhala Date: Wed, 4 May 2011 21:24:55 +0200 Subject: Compile with ghc7 Ignore-this: 218d2e19835f1e4315c01bd6214899ce darcs-hash:20110504192455-af521-ba19a95226d2527af9fbad8ed902982f2db567db.gz --- XMonad/Prompt.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'XMonad/Prompt.hs') 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 -- cgit v1.2.3