From cbb366235d4093884096999a5d0a65eda812306b Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Fri, 18 Oct 2019 16:34:56 -0400 Subject: [PATCH] Derive a Declarations instance for TSX.Term. --- src/Language/TSX/Term.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/Language/TSX/Term.hs b/src/Language/TSX/Term.hs index 35a91f250..7b149a50e 100644 --- a/src/Language/TSX/Term.hs +++ b/src/Language/TSX/Term.hs @@ -5,6 +5,7 @@ module Language.TSX.Term , Diff(..) ) where +import Data.Abstract.Declarations import Data.Bifoldable import Data.Bifunctor import Data.Sum (Sum) @@ -192,7 +193,7 @@ type Syntax = newtype Term ann = Term { getTerm :: Term.Term (Sum Syntax) ann } - deriving (Foldable, Functor, Syntax.HasErrors, Traversable) + deriving (Declarations, Foldable, Functor, Syntax.HasErrors, Traversable) newtype Diff ann1 ann2 = Diff { getDiff :: Diff.Diff (Sum Syntax) ann1 ann2 } deriving (Bifoldable, Bifunctor)