github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-03 21:16:12 +03:00
Code Issues Projects Releases Wiki Activity

Formatting

Browse Source
This commit is contained in:
joshvera 2016-09-08 12:40:51 -04:00
parent 109cca099e
commit 45320eb1f7
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Data/RandomWalkSimilarity.hs
View File

@ -77,9 +77,9 @@ rws compare as bs
_ -> (as, bs, succ counterA, succ counterB)
) ([], [], 0, 0) sesDiff
-- (catMaybes $ (\ diff -> case runFree diff of { Pure (Delete term) -> UnmappedTerm }) <$> sesDiff, )
dropEqualTerms :: PQueue.MaxPQueue Int (UnmappedHashTerm (Cofree f (Record fields))) -> PQueue.MaxPQueue Int (UnmappedHashTerm (Cofree f (Record fields))) -> ([UnmappedTerm (Cofree f (Record fields))], [UnmappedTerm (Cofree f (Record fields))])
dropEqualTerms :: PQueue.MaxPQueue Int (UnmappedHashTerm (Cofree f (Record fields)))
-> PQueue.MaxPQueue Int (UnmappedHashTerm (Cofree f (Record fields)))
-> ([UnmappedTerm (Cofree f (Record fields))], [UnmappedTerm (Cofree f (Record fields))])
dropEqualTerms as bs = (unmappedAs, unmappedBs)
where
(unmappedAs, unmappedBs, _, _) = dropEqualTerms' ([], [], as, bs)