From 2ceb52eee699bd782442aaa0e3ee3d2db6e8cd2e Mon Sep 17 00:00:00 2001 From: deltaspace0 Date: Tue, 2 May 2023 22:55:23 +0300 Subject: [PATCH] fix Semigroup instance for BoxShadowCfg --- src/Monomer/Widgets/Containers/BoxShadow.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/Monomer/Widgets/Containers/BoxShadow.hs b/src/Monomer/Widgets/Containers/BoxShadow.hs index 826d8ae0..4b9947b1 100644 --- a/src/Monomer/Widgets/Containers/BoxShadow.hs +++ b/src/Monomer/Widgets/Containers/BoxShadow.hs @@ -59,9 +59,9 @@ instance Default BoxShadowCfg where instance Semigroup BoxShadowCfg where (<>) c1 c2 = BoxShadowCfg { - _bscRadius = _bscRadius c1 <|> _bscRadius c2, - _bscAlignH = _bscAlignH c1 <|> _bscAlignH c2, - _bscAlignV = _bscAlignV c1 <|> _bscAlignV c2 + _bscRadius = _bscRadius c2 <|> _bscRadius c1, + _bscAlignH = _bscAlignH c2 <|> _bscAlignH c1, + _bscAlignV = _bscAlignV c2 <|> _bscAlignV c1 } instance Monoid BoxShadowCfg where