aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad/Prompt
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--XMonad/Prompt.hs18
1 files changed, 9 insertions, 9 deletions
diff --git a/XMonad/Prompt.hs b/XMonad/Prompt.hs
index a84decc..17a628d 100644
--- a/XMonad/Prompt.hs
+++ b/XMonad/Prompt.hs
@@ -269,24 +269,24 @@ mkXPromptWithReturn t conf compl action = do
c <- ask
let d = display c
rw = theRoot c
- s <- gets $ screenRect . W.screenDetail . W.current . windowset
- hist <- liftIO readHistory
- w <- liftIO $ createWin d rw conf s
- liftIO $ selectInput d w $ exposureMask .|. keyPressMask
- gc <- liftIO $ createGC d w
- liftIO $ setGraphicsExposures d gc False
+ s <- gets $ screenRect . W.screenDetail . W.current . windowset
+ hist <- io readHistory
+ w <- io $ createWin d rw conf s
+ io $ selectInput d w $ exposureMask .|. keyPressMask
+ gc <- io $ createGC d w
+ io $ setGraphicsExposures d gc False
fs <- initXMF (font conf)
numlock <- asks $ X.numlockMask . X.config
let hs = fromMaybe [] $ M.lookup (showXPrompt t) hist
st = (initState d rw w s compl gc fs (XPT t) hs conf)
{ numlockMask = numlock }
- st' <- liftIO $ execStateT runXP st
+ st' <- io $ execStateT runXP st
releaseXMF fs
- liftIO $ freeGC d gc
+ io $ freeGC d gc
if successful st'
then do
- liftIO $ writeHistory $ M.insertWith
+ io $ writeHistory $ M.insertWith
(\xs ys -> take (historySize conf)
. historyFilter conf $ xs ++ ys)
(showXPrompt t) (historyFilter conf [command st'])