1
1
mirror of https://github.com/github/semantic.git synced 2024-12-23 06:41:45 +03:00

🔥 redundant parens.

This commit is contained in:
Rob Rix 2017-10-23 15:29:12 -04:00
parent dda974e4c5
commit 9108620607

View File

@ -162,7 +162,7 @@ findNearestNeighbourTo canCompare kdTreeA kdTreeB term@(UnmappedTerm j _ b) = do
-- Look up the nearest unmapped term in `unmappedA`.
foundA@(UnmappedTerm i _ a) <- nearestUnmapped (nearAndComparableTo canCompare previous b unmappedA) kdTreeA term
-- Look up the nearest `foundA` in `unmappedB`
UnmappedTerm j' _ _ <- nearestUnmapped ((nearAndComparableTo (flip canCompare) (pred j) a) unmappedB) kdTreeB foundA
UnmappedTerm j' _ _ <- nearestUnmapped (nearAndComparableTo (flip canCompare) (pred j) a unmappedB) kdTreeB foundA
-- Return Nothing if their indices don't match
guard (j == j')
pure $! do