From 2e307510b2bb1d2cfeb394f1323b76adb145e443 Mon Sep 17 00:00:00 2001
From: Rob Rix <rob.rix@github.com>
Date: Fri, 27 Nov 2015 12:03:48 -0500
Subject: [PATCH] =?UTF-8?q?Don=E2=80=99t=20shadow=20the=20`head`=20functio?=
 =?UTF-8?q?n.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

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

diff --git a/src/SES.hs b/src/SES.hs
index 90d54be96..0e6c5dfde 100644
--- a/src/SES.hs
+++ b/src/SES.hs
@@ -20,4 +20,4 @@ ses diffTerms cost (a : as) (b : bs) = case diffTerms a b of
     delete = (Pure . Delete $ a) : ses diffTerms cost as (b : bs)
     insert = (Pure . Insert $ b) : ses diffTerms cost (a : as) bs
     sumCost script = sum $ cost <$> script
-    copy head = head : ses diffTerms cost as bs
+    copy diff = diff : ses diffTerms cost as bs