twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-08-16 12:33:47 -07:00
Code Issues Packages Projects Releases Wiki Activity

Fixed a crash due to an unhandled getWindowAttributes exception

Browse Source
This commit is contained in:
Felix Hirn
2017-02-09 22:28:57 +01:00
parent f18bda7dc7
commit 50eb1844eb
1 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/XMonad/Operations.hs
View File

@@ -632,8 +632,12 @@ type D = (Dimension, Dimension)
mkAdjust :: Window -> X (D -> D) mkAdjust :: Window -> X (D -> D)
mkAdjust w = withDisplay $ \d -> liftIO $ do mkAdjust w = withDisplay $ \d -> liftIO $ do
sh <- getWMNormalHints d w sh <- getWMNormalHints d w
bw <- fmap (fromIntegral . wa_border_width) $ getWindowAttributes d w wa <- C.try $ getWindowAttributes d w
return $ applySizeHints bw sh case wa of
Left err -> const (return id) (err :: C.SomeException)
Right wa' ->
let bw = fromIntegral $ wa_border_width wa'
in return $ applySizeHints bw sh
-- | Reduce the dimensions if needed to comply to the given SizeHints, taking -- | Reduce the dimensions if needed to comply to the given SizeHints, taking
-- window borders into account. -- window borders into account.