From f8ae53d2df3a584d6ea125a860ca3b7beb4cba42 Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Tue, 31 May 2016 16:11:11 -0400 Subject: [PATCH] =?UTF-8?q?DiffSummary=E2=80=99s=20type=20parameter=20is?= =?UTF-8?q?=20no=20longer=20phantom.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/DiffSummary.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/DiffSummary.hs b/src/DiffSummary.hs index a64e48749..cf4eff875 100644 --- a/src/DiffSummary.hs +++ b/src/DiffSummary.hs @@ -49,11 +49,11 @@ instance HasCategory leaf => HasCategory (Term leaf Info) where toCategoryName = toCategoryName . toCategory . extract data DiffSummary a = DiffSummary { - patch :: Patch DiffInfo, - parentAnnotations :: [DiffInfo] + patch :: Patch a, + parentAnnotations :: [a] } deriving (Eq, Functor) -instance Show a => Show (DiffSummary a) where +instance Show (DiffSummary DiffInfo) where showsPrec _ DiffSummary{..} s = (++s) $ case patch of (Insert termInfo) -> "Added the " ++ "'" ++ fromJust (termName termInfo) ++ "' " ++ categoryName termInfo ++ maybeParentContext parentAnnotations