diff options
| author | Adam Vogt <vogt.adam@gmail.com> | 2012-11-09 01:34:10 +0100 |
|---|---|---|
| committer | Adam Vogt <vogt.adam@gmail.com> | 2012-11-09 01:34:10 +0100 |
| commit | f1c0b28a5c40186f8723772a9e30d1107a4c884b (patch) | |
| tree | 7e4306b45fe3355d45ebff56def897e6296960d2 /XMonad/Layout/Minimize.hs | |
| parent | abc4a5c1fdbf5c4c50dea3ae319531de4878a857 (diff) | |
| download | XMonadContrib-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/Minimize.hs')
| -rw-r--r-- | XMonad/Layout/Minimize.hs | 6 |
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 (:) |