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

Use the endpoint’s y value as the index into bs.

Browse Source
This commit is contained in:
Rob Rix 2017-03-16 15:24:08 -04:00
parent aece49077a
commit 0528845c83
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

@ -130,8 +130,8 @@ decompose myers = let ?callStack = popCallStack callStack in case myers of
(prev, prevScript) <- getK graph direction (Diagonal (pred k))
(next, nextScript) <- getK graph direction (Diagonal (succ k))
let (fromX, fromScript) = if k == negate d || k /= d && prev < next
then (next, addInBounds bs next That nextScript) -- downward (insertion)
else (succ prev, addInBounds as prev This prevScript) -- rightward (deletion)
then (next, addInBounds bs (next - succ k) That nextScript) -- downward (insertion)
else (succ prev, addInBounds as prev This prevScript) -- rightward (deletion)
(endpoint, script) <- slide graph direction (Endpoint fromX (fromX - k)) fromScript
setK graph direction (Diagonal k) (x endpoint) script
return $ case direction of