From 1704369fdce3eb849b9186079f2826577655980a Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Mon, 30 Nov 2015 16:53:04 -0500 Subject: [PATCH] =?UTF-8?q?We=20don=E2=80=99t=20use=20these=20bindings.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/SES.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/SES.hs b/src/SES.hs index e0bb8c156..4692f46e0 100644 --- a/src/SES.hs +++ b/src/SES.hs @@ -26,8 +26,8 @@ ses diffTerms cost (a : as) (b : bs) = case diffTerms a b of diffAt :: (Integer, Integer) -> [Term String Info] -> [Term String Info] -> State (Map.Map (Integer, Integer) [(Diff String Info, Integer)]) [Diff String Info] diffAt _ [] [] = return [] -diffAt (i, j) [] bs = return $ (Pure . Insert) <$> bs -diffAt (i, j) as [] = return $ (Pure . Delete) <$> as +diffAt _ [] bs = return $ (Pure . Insert) <$> bs +diffAt _ as [] = return $ (Pure . Delete) <$> as diffAt (i, j) as bs = do state <- get case Map.lookup (i, j) state of