From 7231c64bdd24d278e9e958234cc1bf17c399200b Mon Sep 17 00:00:00 2001
From: Rob Rix <rob.rix@me.com>
Date: Fri, 10 Mar 2017 13:53:16 -0500
Subject: [PATCH] Set the backwards vector with the delta.

---
 src/SES/Myers.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/SES/Myers.hs b/src/SES/Myers.hs
index 0b0bd46d7..515fd9a29 100644
--- a/src/SES/Myers.hs
+++ b/src/SES/Myers.hs
@@ -136,7 +136,7 @@ decompose myers = let ?callStack = popCallStack callStack in case myers of
           then next
           else let x' = succ (x prev) in Endpoint x' (x' - k)
     let Endpoint x' y' = slide (negate 1) eq xy
-    setBackward (v Vector.// [(maxD + k, x')])
+    setBackward (v Vector.// [(maxD + delta + k, x')])
     return (Endpoint x' y')
     where at v k = let x = v ! maxD + delta + k in Endpoint x (x - k)