git.iko.soy/vty
on master help sign in
irrefutable pattern
81b6151Willem Van Onsem
src/Graphics/Vty/Attributes.hs+1−1
compare with master
unifiedsplit
@@ -154,7 +154,7 @@ instance (NFData v) => NFData (MaybeDefault v) where
154instance Eq v => Semigroup (MaybeDefault v) where
154instance Eq v => Semigroup (MaybeDefault v) where
155 _ <> v@(SetTo _) = v
155 _ <> v@(SetTo _) = v
156 x <> KeepCurrent = x
156 x <> KeepCurrent = x
157− _ <> Default = Default
157+ _ <> ~Default = Default
158
158
159instance Eq v => Monoid ( MaybeDefault v ) where
159instance Eq v => Monoid ( MaybeDefault v ) where
160 mempty = KeepCurrent
160 mempty = KeepCurrent