aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad/Layout
diff options
context:
space:
mode:
authorAdam Vogt <vogt.adam@gmail.com>2012-11-09 01:34:10 +0100
committerAdam Vogt <vogt.adam@gmail.com>2012-11-09 01:34:10 +0100
commitf1c0b28a5c40186f8723772a9e30d1107a4c884b (patch)
tree7e4306b45fe3355d45ebff56def897e6296960d2 /XMonad/Layout
parentabc4a5c1fdbf5c4c50dea3ae319531de4878a857 (diff)
downloadXMonadContrib-f1c0b28a5c40186f8723772a9e30d1107a4c884b.tar.gz
XMonadContrib-f1c0b28a5c40186f8723772a9e30d1107a4c884b.tar.xz
XMonadContrib-f1c0b28a5c40186f8723772a9e30d1107a4c884b.zip
Rename variable in L.Minimize to avoid shadowing.
Ignore-this: b46d3e8e0d4106cea6966116be386677 This "state" is new with a newer mtl. darcs-hash:20121109003410-1499c-5a2ac6463df763768818a9dae5c2721c3eaede76.gz
Diffstat (limited to 'XMonad/Layout')
-rw-r--r--XMonad/Layout/Minimize.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/XMonad/Layout/Minimize.hs b/XMonad/Layout/Minimize.hs
index 89f3d24..28202c0 100644
--- a/XMonad/Layout/Minimize.hs
+++ b/XMonad/Layout/Minimize.hs
@@ -84,12 +84,12 @@ setMinimizedState :: Window -> Int -> (CLong -> [CLong] -> [CLong]) -> X ()
setMinimizedState win st f = do
setWMState win st
withDisplay $ \dpy -> do
- state <- getAtom "_NET_WM_STATE"
+ wm_state <- getAtom "_NET_WM_STATE"
mini <- getAtom "_NET_WM_STATE_HIDDEN"
- wstate <- fromMaybe [] `fmap` getProp32 state win
+ wstate <- fromMaybe [] `fmap` getProp32 wm_state win
let ptype = 4 -- The atom property type for changeProperty
fi_mini = fromIntegral mini
- io $ changeProperty32 dpy win state ptype propModeReplace (f fi_mini wstate)
+ io $ changeProperty32 dpy win wm_state ptype propModeReplace (f fi_mini wstate)
setMinimized :: Window -> X ()
setMinimized win = setMinimizedState win iconicState (:)