76f010e · patch · git.iko.soy

git.iko.soy/patch

Delete old code and format a bit

commit76f010efa546c44b686274edaeb3236bb96686a2 authorJohn Ericson <John.Ericson@Obsidian.Systems> dateFri 23 Apr 2021, 13:17 (5 years ago) parent4da27a8

2 files changed+4−5

compare with develop

unifiedsplit

src/Data/Patch/DMapWithPatchingMove.hs−4 src/Data/Patch/MapWithPatchingMove.hs+4−1

src/Data/Patch/DMapWithPatchingMove.hs−4

@@ -265,10 +265,6 @@ instance forall k p

265265 -- The item is destroyed in the second patch, so indicate that it is

266266 -- destroyed in the source map

267267 [fromBefore :=> Const ( Fixup_Update $ That To_NonMove)]

268− --(To_Move (Some toAfter), From_Insert val) ->

269− -- [toAfter :=> Fixup_Update (This $ From_Insert $ applyAlwaysHet2 p val)]

270− --(To_Move (Some toAfter), From_Delete) ->

271− -- [toAfter :=> Fixup_Update (This From_Delete)]

272268 (To_Move (Some toAfter), _) ->

273269 [toAfter :=> Const (Fixup_Update $ This $ between :=> editBefore)]

274270 (To_NonMove, _) ->

src/Data/Patch/MapWithPatchingMove.hs+4−1

@@ -379,7 +379,10 @@ instance ( Ord k

379379 -> [ (toAfter, Fixup_Update (This editBefore))

380380 , (fromBefore, Fixup_Update (That mToAfter))

381381 ]

382− (Nothing, From_Move fromBefore _) -> [(fromBefore, Fixup_Update (That mToAfter))] -- The item is destroyed in the second patch, so indicate that it is destroyed in the source map

382+ (Nothing, From_Move fromBefore _) ->

383+ -- The item is destroyed in the second patch, so indicate that it is

384+ -- destroyed in the source map

385+ [(fromBefore, Fixup_Update (That mToAfter))]

383386 (Just toAfter, _) -> [(toAfter, Fixup_Update (This editBefore))]

384387 (Nothing, _) -> []

385388 mergeFixups _ Fixup_Delete Fixup_Delete = Fixup_Delete