From 09d10875c30629979318ebf8b087ccf355c5c925 Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Wed, 18 Nov 2015 11:19:16 -0800 Subject: [PATCH] Info is Equatable. --- src/Diff.hs | 1 + 1 file changed, 1 insertion(+) diff --git a/src/Diff.hs b/src/Diff.hs index 5348cfec9..1009ff031 100644 --- a/src/Diff.hs +++ b/src/Diff.hs @@ -11,6 +11,7 @@ import Patch data Range = Range { start :: Int, end :: Int } data Info = Info -- Range [String] + deriving Eq type Term a annotation = Cofree (Syntax a) annotation type Diff a = Free (Syntax a) (Patch (Term a Info))