From 906b9d34b3e272ffbeaa2497ce09131d4a203515 Mon Sep 17 00:00:00 2001 From: Tomas Janousek Date: Tue, 1 Feb 2022 18:12:05 +0000 Subject: [PATCH] X.Operations: Whitespace cleanup after #371 --- src/XMonad/Operations.hs | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/src/XMonad/Operations.hs b/src/XMonad/Operations.hs index 3e43fc9..ce29def 100644 --- a/src/XMonad/Operations.hs +++ b/src/XMonad/Operations.hs @@ -83,10 +83,10 @@ import Graphics.X11.Xlib.Extras -- isFixedSizeOrTransient :: Display -> Window -> X Bool isFixedSizeOrTransient d w = do - sh <- io $ getWMNormalHints d w - let isFixedSize = isJust (sh_min_size sh) && sh_min_size sh == sh_max_size sh - isTransient <- isJust <$> io (getTransientForHint d w) - return (isFixedSize || isTransient) + sh <- io $ getWMNormalHints d w + let isFixedSize = isJust (sh_min_size sh) && sh_min_size sh == sh_max_size sh + isTransient <- isJust <$> io (getTransientForHint d w) + return (isFixedSize || isTransient) -- | -- Add a new window to be managed in the current workspace. @@ -106,8 +106,8 @@ manage w = whenX (not <$> isClient w) $ withDisplay $ \d -> do = W.RationalRect (0.5 - wid/2) (0.5 - h/2) wid h adjust r = r - f ws | shouldFloat = W.float w (adjust rr) . W.insertUp w . W.view i $ ws - | otherwise = W.insertUp w ws + f ws | shouldFloat = W.float w (adjust rr) . W.insertUp w . W.view i $ ws + | otherwise = W.insertUp w ws where i = W.tag $ W.workspace $ W.current ws mh <- asks (manageHook . config)