From 13e3a0e3d16801281ee0160fb40cdafeba02733b Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Thu, 25 Feb 2016 16:49:02 -0700 Subject: [PATCH] Add record fields to Annotated. --- src/Diff.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Diff.hs b/src/Diff.hs index 9d09ac954..85d20a344 100644 --- a/src/Diff.hs +++ b/src/Diff.hs @@ -9,7 +9,7 @@ import Range import Category -- | An annotated syntax in a diff tree. -data Annotated a annotation f = Annotated !annotation !(Syntax a f) +data Annotated a annotation f = Annotated { getAnnotation :: !annotation, getSyntax :: !(Syntax a f) } deriving (Functor, Eq, Show, Foldable) -- | An annotation for a source file, including the source range and semantic