twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-01 12:41:52 -07:00
Code Issues Packages Projects Releases Wiki Activity

Compatibility for rename of XMonad.numlockMask

Browse Source
This commit is contained in:
Adam Vogt
2010-01-24 20:19:55 +00:00
parent aa8290b60d
commit 52a2eba7e6
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
XMonad/Prompt.hs
View File

@@ -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