1
0
mirror of https://github.com/xmonad/xmonad.git synced 2025-07-26 17:51:51 -07:00

made ScreenDetail a newtype and RationalRect strict in its contents.

This commit is contained in:
Keith
2021-01-19 12:06:07 -05:00
parent 519c79a57e
commit f5bd77a7f8
3 changed files with 6 additions and 2 deletions

@@ -29,6 +29,9 @@
In the cases of 1. and 3., the build script or executable is In the cases of 1. and 3., the build script or executable is
expected to be in the config dir. expected to be in the config dir.
* Change `ScreenDetail` to a newtype and make `RationalRect` strict in
its contents.
## 0.15 (September 30, 2018) ## 0.15 (September 30, 2018)
* Reimplement `sendMessage` to deal properly with windowset changes made * Reimplement `sendMessage` to deal properly with windowset changes made

@@ -135,7 +135,8 @@ type WorkspaceId = String
newtype ScreenId = S Int deriving (Eq,Ord,Show,Read,Enum,Num,Integral,Real) newtype ScreenId = S Int deriving (Eq,Ord,Show,Read,Enum,Num,Integral,Real)
-- | The 'Rectangle' with screen dimensions -- | The 'Rectangle' with screen dimensions
data ScreenDetail = SD { screenRect :: !Rectangle } deriving (Eq,Show, Read) newtype ScreenDetail = SD { screenRect :: Rectangle }
deriving (Eq,Show, Read)
------------------------------------------------------------------------ ------------------------------------------------------------------------

@@ -151,7 +151,7 @@ data Workspace i l a = Workspace { tag :: !i, layout :: l, stack :: Maybe (Stac
deriving (Show, Read, Eq) deriving (Show, Read, Eq)
-- | A structure for window geometries -- | A structure for window geometries
data RationalRect = RationalRect Rational Rational Rational Rational data RationalRect = RationalRect !Rational !Rational !Rational !Rational
deriving (Show, Read, Eq) deriving (Show, Read, Eq)
-- | -- |