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

Interpret ByKey algorithms.

Browse Source
This commit is contained in:
Rob Rix 2015-11-18 00:21:27 -08:00
parent 213d8fbd55
commit a7545ed749
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Interpreter.hs
View File

@ -29,6 +29,12 @@ run (Free (Recursive a b f)) = run . f $ recur a b where
maybeInterpret (Just a) (Just b) = interpret a b maybeInterpret (Just a) (Just b) = interpret a b
recur _ _ = Pure $ Replace a b recur _ _ = Pure $ Replace a b
run (Free (ByKey a b f)) = run $ f byKey where
byKey = unions [ deleted, inserted, patched ]
deleted = (Pure . Delete) <$> difference a b
inserted = (Pure . Insert) <$> difference b a
patched = intersectionWith interpret a b
interpret :: Term a Info -> Term a Info -> Diff a interpret :: Term a Info -> Term a Info -> Diff a
interpret a b = maybeReplace $ constructAndRun a b where interpret a b = maybeReplace $ constructAndRun a b where
maybeReplace (Just a) = a maybeReplace (Just a) = a