github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-11 08:45:48 +03:00
Code Issues Projects Releases Wiki Activity

Define a function constructing a Patch from a Diff.

Browse Source
This commit is contained in:
Rob Rix 2017-09-12 08:35:34 -04:00
parent fb9dd790ba
commit a13ca9817b
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/Diff.hs
View File

@ -66,6 +66,14 @@ diffCost :: (Foldable syntax, Functor syntax) => Diff syntax ann -> Int
diffCost = diffSum (const 1)
diffPatch :: Diff syntax ann -> Maybe (Patch (TermF syntax ann (Diff syntax ann)))
diffPatch diff = case unDiff diff of
Let _ (Either (In ann (InL syntax))) -> Just (Delete (In ann syntax))
Let _ (Either (In ann (InR syntax))) -> Just (Insert (In ann syntax))
Let _ (Both (In (ann1, ann2) (Product.Pair syntax1 syntax2))) -> Just (Replace (In ann1 syntax1) (In ann2 syntax2))
_ -> Nothing
-- | Merge a diff using a function to provide the Term (in Maybe, to simplify recovery of the before/after state) for every Patch.
mergeMaybe :: (Mergeable syntax, Traversable syntax) => (DiffF syntax ann (Maybe (Term syntax ann)) -> Maybe (Term syntax ann)) -> Diff syntax ann -> Maybe (Term syntax ann)
mergeMaybe algebra = evalDiff $ \ bind env -> case bind of