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 objects byIndex.

Browse Source
This commit is contained in:
Rob Rix 2016-08-04 11:53:08 -04:00
parent 970ae647d2
commit efeb01e970
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/Interpreter.hs
View File

@ -44,6 +44,7 @@ algorithmWithTerms construct t1 t2 = case (unwrap t1, unwrap t2) of
(S.Switch exprA casesA, S.Switch exprB casesB) -> do
expr <- recursively exprA exprB
byIndex (S.Switch expr) casesA casesB
(S.Object a, S.Object b) -> byIndex S.Object a b
(Commented commentsA a, Commented commentsB b) -> do
wrapped <- sequenceA (recursively <$> a <*> b)
byIndex (`Commented` wrapped) commentsA commentsB