aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorAdam Vogt <vogt.adam@gmail.com>2009-11-15 03:56:47 +0100
committerAdam Vogt <vogt.adam@gmail.com>2009-11-15 03:56:47 +0100
commit140ea83e4922055317ab64d0a968f89efc5e3cc4 (patch)
treea47e2328c87daad8b5290faf960d54cd21002cf4
parenta0b42ff9d7120d6ae202365ada3893be6480144c (diff)
downloadXMonadContrib-140ea83e4922055317ab64d0a968f89efc5e3cc4.tar.gz
XMonadContrib-140ea83e4922055317ab64d0a968f89efc5e3cc4.tar.xz
XMonadContrib-140ea83e4922055317ab64d0a968f89efc5e3cc4.zip
Use less short names in X.Prompt
Ignore-this: 1d27b8efc4d829a5642717c6f6426336 darcs-hash:20091115025647-1499c-f326242916f623c9685e2ecc1bc2ea7ab600ebfd.gz
-rw-r--r--XMonad/Prompt.hs7
1 files changed, 2 insertions, 5 deletions
diff --git a/XMonad/Prompt.hs b/XMonad/Prompt.hs
index 17a628d..74b7730 100644
--- a/XMonad/Prompt.hs
+++ b/XMonad/Prompt.hs
@@ -266,9 +266,7 @@ getInput = gets command
-- module.
mkXPromptWithReturn :: XPrompt p => p -> XPConfig -> ComplFunction -> (String -> X a) -> X (Maybe a)
mkXPromptWithReturn t conf compl action = do
- c <- ask
- let d = display c
- rw = theRoot c
+ XConf { display = d, theRoot = rw } <- ask
s <- gets $ screenRect . W.screenDetail . W.current . windowset
hist <- io readHistory
w <- io $ createWin d rw conf s
@@ -313,8 +311,7 @@ mkXPrompt t conf compl action = mkXPromptWithReturn t conf compl action >> retur
runXP :: XP ()
runXP = do
- st <- get
- let (d,w) = (dpy &&& win) st
+ (d,w) <- gets (dpy &&& win)
status <- io $ grabKeyboard d w True grabModeAsync grabModeAsync currentTime
when (status == grabSuccess) $ do
updateWindows