github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-03 04:51:57 +03:00
Code Issues Projects Releases Wiki Activity

Bind ! locally.

Browse Source
This commit is contained in:
Rob Rix 2017-03-10 13:18:59 -05:00
parent a15ae4b2e0
commit 9bb0ae2f5a
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/SES/Myers.hs
View File

@ -117,11 +117,13 @@ decompose myers = let ?callStack = popCallStack callStack in case myers of
slide eq (Endpoint x y)
| x < length as
, y < length bs
, (as Vector.! x) `eq` (bs Vector.! y) = slide eq (Endpoint (succ x) (succ y))
, (as ! x) `eq` (bs ! y) = slide eq (Endpoint (succ x) (succ y))
| otherwise = Endpoint x y
FindDPath (EditGraph as bs) Reverse (EditDistance d) (Diagonal k) -> return (Endpoint 0 0)
where (!) = (Vector.!)
-- Smart constructors