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

Take the index of the first, not last, element.

Browse Source
This commit is contained in:
Rob Rix 2017-10-23 21:00:15 -04:00
parent f30029d16d
commit 2ca40cad2b
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/RWS.hs
View File

@ -248,7 +248,7 @@ mapContiguous canCompare = go 0 0 id id
These a b -> mapChunk (ls []) (rs []) <> (These (i, a) (j, b) : go (succ i) (succ j) id id rest)
mapChunk ls [] = This . (termIndex &&& term) <$> ls
mapChunk [] rs = That . (termIndex &&& term) <$> rs
mapChunk ls rs = findNearestNeighbourTo' canCompare (toKdMap ls) (toKdMap rs) (termIndex (last ls)) ls rs
mapChunk ls rs = findNearestNeighbourTo' canCompare (toKdMap ls) (toKdMap rs) (termIndex (head ls)) ls rs
genFeaturizedTermsAndDiffs :: Functor syntax