From f1c0b28a5c40186f8723772a9e30d1107a4c884b Mon Sep 17 00:00:00 2001 From: Adam Vogt Date: Fri, 9 Nov 2012 01:34:10 +0100 Subject: 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 --- XMonad/Layout/Minimize.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'XMonad/Layout/Minimize.hs') 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 (:) -- cgit v1.2.3