revert irrefutable pattern
commitb1d5762e0e349c096f978ed89a3351cb8d02ea73
authorWillem Van Onsem <vanonsem.willem@gmail.com>
dateFri 11 Jun 2021, 08:00 (5 years ago)
parente98e948
src/Graphics/Vty/Attributes.hs+1−1
@@ -154,7 +154,7 @@ instance (NFData v) => NFData (MaybeDefault v) where
154154instance Eq v => Semigroup (MaybeDefault v) where
155155 _ <> v@(SetTo _) = v
156156 x <> KeepCurrent = x
157− _ <> ~Default = Default
157+ _ <> Default = Default
158158
159159instance Eq v => Monoid ( MaybeDefault v ) where
160160 mempty = KeepCurrent