github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-24 00:42:33 +03:00
Code Issues Projects Releases Wiki Activity

Fold strictly.

Browse Source
This commit is contained in:
Rob Rix 2017-06-15 08:57:07 -04:00
parent 11859c9b51
commit e15f5ad7ab
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

@ -206,7 +206,7 @@ insertion previous unmappedA unmappedB (UnmappedTerm j _ b) = do
genFeaturizedTermsAndDiffs :: (Functor f, HasField fields (Maybe FeatureVector))
=> RWSEditScript f fields
-> ([UnmappedTerm f fields], [UnmappedTerm f fields], [MappedDiff f fields], [TermOrIndexOrNone (UnmappedTerm f fields)])
genFeaturizedTermsAndDiffs = snd . foldl combine ((0, 0), ([], [], [], []))
genFeaturizedTermsAndDiffs = snd . foldl' combine ((0, 0), ([], [], [], []))
where combine ((counterA, counterB), (as, bs, mappedDiffs, allDiffs)) diff = case diff of
This term -> ((succ counterA, counterB), (featurize counterA term : as, bs, mappedDiffs, None : allDiffs))
That term -> ((counterA, succ counterB), (as, featurize counterB term : bs, mappedDiffs, Term (featurize counterB term) : allDiffs))