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

Use the deleting/inserting helpers.

Browse Source
This commit is contained in:
Rob Rix 2017-05-26 15:05:33 -04:00
parent e1d8a98b22
commit 4e131c84d9
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Semantic.hs
View File

@ -46,8 +46,8 @@ diffBlobPair decorator blobs = do
terms <- Async.mapConcurrently (parseBlob decorator) blobs
pure $ case (runJoin blobs, runJoin terms) of
((left, right), (a, b)) | nonExistentBlob left && nonExistentBlob right -> Nothing
| nonExistentBlob right -> Just . pure $ Delete a
| nonExistentBlob left -> Just . pure $ Insert b
| nonExistentBlob right -> Just $ deleting a
| nonExistentBlob left -> Just $ inserting b
| otherwise -> Just $ runDiff (both a b)
where
runDiff terms = runBothWith diffTerms terms