Discard next rather than existing fixes when they overlap
This commit is contained in:
parent
c57e447c89
commit
b5f5e6347d
|
@ -87,6 +87,7 @@ instance Ranged Replacement where
|
||||||
instance Monoid Fix where
|
instance Monoid Fix where
|
||||||
mempty = newFix
|
mempty = newFix
|
||||||
mappend = (<>)
|
mappend = (<>)
|
||||||
|
mconcat = foldl mappend mempty -- fold left to right since <> discards right on overlap
|
||||||
|
|
||||||
instance Semigroup Fix where
|
instance Semigroup Fix where
|
||||||
f1 <> f2 =
|
f1 <> f2 =
|
||||||
|
|
Loading…
Reference in New Issue