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
|
||||
mempty = newFix
|
||||
mappend = (<>)
|
||||
mconcat = foldl mappend mempty -- fold left to right since <> discards right on overlap
|
||||
|
||||
instance Semigroup Fix where
|
||||
f1 <> f2 =
|
||||
|
|
Loading…
Reference in New Issue