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

mapContiguous takes a ComparabilityRelation.

Browse Source
This commit is contained in:
Rob Rix 2017-10-23 16:45:25 -04:00
parent 9c37f641da
commit 76d3373d39
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/RWS.hs
View File

@ -233,9 +233,10 @@ insertion previous unmappedA unmappedB (UnmappedTerm j _ b) = do
pure (That (j, b)) pure (That (j, b))
mapContiguous :: Functor syntax mapContiguous :: Functor syntax
=> RWSEditScript syntax (Record (FeatureVector ': fields1)) (Record (FeatureVector ': fields2)) => ComparabilityRelation syntax ann1 ann2
-> RWSEditScript syntax (Record (FeatureVector ': fields1)) (Record (FeatureVector ': fields2))
-> [MappedDiff syntax (Record (FeatureVector ': fields1)) (Record (FeatureVector ': fields2))] -> [MappedDiff syntax (Record (FeatureVector ': fields1)) (Record (FeatureVector ': fields2))]
mapContiguous = go 0 0 [] mapContiguous canCompare = go 0 0 []
where go _ _ chunk [] = mapChunk chunk [] where go _ _ chunk [] = mapChunk chunk []
go i j chunk (first : rest) = case first of go i j chunk (first : rest) = case first of
This a -> go (succ i) j (Left (i, a) : chunk) rest This a -> go (succ i) j (Left (i, a) : chunk) rest