From 9cef2b2cd6e23631783a6d149cc672a0714c12cf Mon Sep 17 00:00:00 2001
From: Rob Rix <rob.rix@me.com>
Date: Wed, 14 Jun 2017 16:04:04 -0400
Subject: [PATCH] Slide down diagonals along both axes.

---
 src/SES/Myers.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/SES/Myers.hs b/src/SES/Myers.hs
index acc6459df..a7c190439 100644
--- a/src/SES/Myers.hs
+++ b/src/SES/Myers.hs
@@ -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