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

🔥 a let.

Browse Source
This commit is contained in:
Rob Rix 2017-06-13 18:12:08 -04:00
parent bc838ab72f
commit cebdbf2e0c
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/SES/Myers.hs
View File

@ -85,7 +85,7 @@ runSES eq (EditGraph as bs)
v <- get
let getK k = let (x, script) = v ! k in Endpoint x (x - unDiagonal k) script
let (n, m) = (length as, length bs)
let endpoint = slideFrom $! if d == 0 || k < negate m || k > n then
let endpoint@(Endpoint x' _ script) = slideFrom $! if d == 0 || k < negate m || k > n then
-- The top-left corner, or otherwise out-of-bounds.
Endpoint 0 0 []
else if k == negate d || k == negate m then
@ -102,8 +102,7 @@ runSES eq (EditGraph as bs)
else
-- The upper/right extent of the search region or edit graph, whichever is smaller.
moveRightFrom (getK (Diagonal (pred k)))
let Endpoint x _ script = endpoint
put (v Array.// [(Diagonal k, (x, script))])
put (v Array.// [(Diagonal k, (x', script))])
return endpoint
-- | Move downward from a given vertex, inserting the element for the corresponding row.