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

Don’t use the delta at all.

Browse Source
This commit is contained in:
Rob Rix 2017-03-10 14:18:47 -05:00
parent 438dc91672
commit b81db68867
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/SES/Myers.hs
View File

@ -141,9 +141,9 @@ decompose myers = let ?callStack = popCallStack callStack in case myers of
then next then next
else let x' = succ (x prev) in Endpoint x' (x' - k) else let x' = succ (x prev) in Endpoint x' (x' - k)
let Endpoint x' y' = slide (negate 1) eq xy let Endpoint x' y' = slide (negate 1) eq xy
setBackward (v Vector.// [(maxD - delta + k, x')]) setBackward (v Vector.// [(maxD + k, x')])
return (Endpoint x' y') return (Endpoint x' y')
where at v k = let x = v ! maxD + delta + k in Endpoint x (x - k) where at v k = let x = v ! maxD + k in Endpoint x (x - k)
where (!) = (Vector.!) where (!) = (Vector.!)
EditGraph as bs = editGraph myers EditGraph as bs = editGraph myers