@@ -152,10 +152,9 @@ instance (NFData v) => NFData (MaybeDefault v) where
152 rnf (SetTo v) = rnf v
152 rnf (SetTo v) = rnf v
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
158− _ <> Default = Default
157+ _ <> Default = Default
160instance Eq v => Monoid ( MaybeDefault v ) where
159instance Eq v => Monoid ( MaybeDefault v ) where
161 mempty = KeepCurrent
160 mempty = KeepCurrent