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

Offset given the delta.

Browse Source
This commit is contained in:
Rob Rix 2017-03-10 13:57:41 -05:00
parent 7231c64bdd
commit d419e9aa9a
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/SES/Myers.hs
View File

@ -136,7 +136,7 @@ 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 - delta + 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 + delta + k in Endpoint x (x - k)