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

Diff Commented nodes’ comments byIndex.

Browse Source
This commit is contained in:
Rob Rix 2016-08-04 11:46:02 -04:00
parent bb40b363ba
commit 00e538fadb
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Interpreter.hs
View File

@ -42,6 +42,9 @@ diffComparableTerms construct comparable cost = recur
algorithmWithTerms :: (TermF leaf (Both a) diff -> diff) -> Term leaf a -> Term leaf a -> Algorithm (Term leaf a) diff diff
algorithmWithTerms construct t1 t2 = case (unwrap t1, unwrap t2) of
(Indexed a, Indexed b) -> byIndex Indexed a b
(Commented commentsA a, Commented commentsB b) -> do
wrapped <- sequenceA (recursively <$> a <*> b)
byIndex (`Commented` wrapped) commentsA commentsB
(Array a, Array b) -> byIndex Array a b
_ -> recursively t1 t2
where annotate = pure . construct . (both (extract t1) (extract t2) :<)