github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-24 08:54:07 +03:00
Code Issues Projects Releases Wiki Activity

Rename the parameter.

Browse Source
This commit is contained in:
Rob Rix 2016-05-30 13:43:20 -04:00
parent 49f477f5b0
commit 88beca1557
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

@ -91,6 +91,6 @@ diffCostWithCachedTermSizes = diffSum (getSum . foldMap (Sum . size . extract))
-- | The absolute difference between the node counts of a diff.
diffCostWithAbsoluteDifferenceOfCachedDiffSizes :: Diff a Info -> Rational
diffCostWithAbsoluteDifferenceOfCachedDiffSizes term = case runFree term of
diffCostWithAbsoluteDifferenceOfCachedDiffSizes diff = case runFree diff of
Free (Join (before, after) :< _) -> abs $ size before - size after
Pure patch -> sum $ size . extract <$> patch