From 8a2c0bf6c2c1abcecb227df5cb389f9d3330288f Mon Sep 17 00:00:00 2001
From: Rob Rix <rob.rix@me.com>
Date: Wed, 21 Jun 2017 13:45:16 -0400
Subject: [PATCH] Less strict evaluation of the edit script.

---
 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 ea2fda4f1..e55f2245f 100644
--- a/src/SES/Myers.hs
+++ b/src/SES/Myers.hs
@@ -14,7 +14,7 @@ import Prologue hiding (error)
 -- | An edit script, i.e. a sequence of changes/copies of elements.
 type EditScript a b = [These a b]
 
-data Endpoint a b = Endpoint { x :: {-# UNPACK #-} !Int, _y :: {-# UNPACK #-} !Int, _script :: !(EditScript a b) }
+data Endpoint a b = Endpoint { x :: {-# UNPACK #-} !Int, _y :: {-# UNPACK #-} !Int, _script :: EditScript a b }
   deriving (Eq, Show)