From 3829f4492dbac894f0999765f6a6d9b42e991461 Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Tue, 17 Nov 2015 17:04:05 -0800 Subject: [PATCH] Remove the old `interpret` function. --- src/Diff.hs | 4 ---- 1 file changed, 4 deletions(-) diff --git a/src/Diff.hs b/src/Diff.hs index 8b4ea69ea..0f3f9853e 100644 --- a/src/Diff.hs +++ b/src/Diff.hs @@ -41,10 +41,6 @@ cost f = iter c $ fmap g f where c (Fixed xs) = sum xs g _ = 1 --- interpret :: Algorithm a b -> b --- interpret (Pure b) = b --- interpret (Free (Recur a b f)) = f $ Pure (Patch { old = Just (In a), new = Just (In b) }) - type RangedTerm a = Cofree (Syntax a) Int -- data Difff a f = Difff (Either (Patch (Term a)) (Syntax a f)) -- type RangedDiff a = Cofree (Difff a) Range