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

Slide down diagonals along both axes.

Browse Source
This commit is contained in:
Rob Rix 2017-06-14 16:04:04 -04:00
parent e1f2e988ed
commit 9cef2b2cd6
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

@ -104,8 +104,8 @@ runSES eq (EditGraph as bs)
, y >= 0, y < m
, a <- as ! x
, b <- bs ! y
, a `eq` b = slideFrom (Endpoint (succ x) y (These a b : script))
| otherwise = (Endpoint x (succ y) script)
, a `eq` b = slideFrom (Endpoint (succ x) (succ y) (These a b : script))
| otherwise = (Endpoint x y script)
-- Implementation details