github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-29 18:06:14 +03:00
Code Issues Projects Releases Wiki Activity

Swap the operands to compare.

Browse Source
This commit is contained in:
Rob Rix 2016-06-27 15:59:37 -04:00
parent e003549ef0
commit c9733cdc5a
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/Data/RandomWalkSimilarity.hs
View File

@ -34,7 +34,7 @@ rws compare getLabel as bs
let (k, nearest) = (KdTree.nearest fas kv) let (k, nearest) = (KdTree.nearest fas kv)
if k `Set.member` mapped if k `Set.member` mapped
then pure $! insert v then pure $! insert v
else case compare v nearest of else case compare nearest v of
Just y -> do Just y -> do
put (Set.insert k mapped) put (Set.insert k mapped)
pure y pure y