irrefutable pattern
commit81b6151d5179d2c02d170d048eef9d5acb7da95c
authorWillem Van Onsem <vanonsem.willem@gmail.com>
dateThu 10 Jun 2021, 23:15 (5 years ago)
parented04989
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