From 292a0379923bdc24fb65f46138681d839e7aa063 Mon Sep 17 00:00:00 2001 From: Adam Vogt Date: Sun, 24 Jan 2010 21:19:55 +0100 Subject: Compatibility for rename of XMonad.numlockMask Ignore-this: 765c58a8b77ca0b54f05fd69a9bba714 darcs-hash:20100124201955-1499c-2df148dc43f0fd6506c0e70a7bce268b22ab8665.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 850e0c7..22154ed 100644 --- a/XMonad/Prompt.hs +++ b/XMonad/Prompt.hs @@ -67,8 +67,8 @@ module XMonad.Prompt import Prelude hiding (catch) -import XMonad hiding (config, numlockMask, cleanMask) -import qualified XMonad as X (numlockMask) +import XMonad hiding (config, cleanMask) +import qualified XMonad as X (numberlockMask) import qualified XMonad.StackSet as W import XMonad.Util.Font import XMonad.Util.Types @@ -284,7 +284,7 @@ mkXPromptWithReturn t conf compl action = do gc <- io $ createGC d w io $ setGraphicsExposures d gc False fs <- initXMF (font conf) - numlock <- gets $ X.numlockMask + numlock <- gets $ X.numberlockMask let hs = fromMaybe [] $ M.lookup (showXPrompt t) hist st = initState d rw w s compl gc fs (XPT t) hs conf numlock st' <- io $ execStateT runXP st -- cgit v1.2.3