1
1
mirror of https://github.com/github/semantic.git synced 2024-12-27 00:44:57 +03:00

🔥 redundant bindings of n & m.

This commit is contained in:
Rob Rix 2017-06-13 20:30:20 -04:00
parent 3ed7e1da53
commit 6c95429a27

View File

@ -71,7 +71,6 @@ runSES eq (EditGraph as bs)
-- | Search an edit graph for the shortest edit script up to a given proposed edit distance, building on the results of previous searches.
searchUpToD (Distance d) =
for [ k | k <- [negate d, negate d + 2 .. d], inRange (negate m, n) k ] (searchAlongK (Distance d) . Diagonal)
where (n, m) = (length as, length bs)
-- | Search an edit graph for the shortest edit script along a specific diagonal.
searchAlongK d k = do