github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-05 14:11:33 +03:00
Code Issues Projects Releases Wiki Activity

Go back to taking the absolute value, even tho it’s wrong.

Browse Source 
This is still a poor approximation to the edit distance, but it’s a
better one than `sum`, and it’s still very cheap.
This commit is contained in:
Rob Rix 2016-06-03 15:29:28 -04:00
parent ec84afcadb
commit 410629b165
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Diffing.hs
View File

@ -99,5 +99,5 @@ diffFiles parser renderer sourceBlobs = do
-- | The sum of the node count of the diff’s patches. -- | The sum of the node count of the diff’s patches.
diffCostWithCachedTermSizes :: Diff a Info -> Integer diffCostWithCachedTermSizes :: Diff a Info -> Integer
diffCostWithCachedTermSizes diff = case runFree diff of diffCostWithCachedTermSizes diff = case runFree diff of
Free (info :< _) -> sum (cost <$> info) Free (info :< _) -> abs $ runBothWith (-) (cost <$> info)
Pure patch -> sum (cost . extract <$> patch) Pure patch -> sum (cost . extract <$> patch)