From 62dffb99e29eba9004ef2764fbdd9b0462de4742 Mon Sep 17 00:00:00 2001 From: Josh Rahm Date: Thu, 17 Oct 2024 00:36:03 -0600 Subject: Add ContExpression syntax tree. This is for expressions which must be calculatable at compile time. --- src/Language/Fiddle/GenericTree.hs | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'src/Language/Fiddle/GenericTree.hs') diff --git a/src/Language/Fiddle/GenericTree.hs b/src/Language/Fiddle/GenericTree.hs index 49727f7..9b3089b 100644 --- a/src/Language/Fiddle/GenericTree.hs +++ b/src/Language/Fiddle/GenericTree.hs @@ -25,6 +25,7 @@ import GHC.Generics import GHC.TypeLits (KnownSymbol, symbolVal) import Language.Fiddle.Ast import Language.Fiddle.Internal.UnitInterface +import Language.Fiddle.Internal.UnitNumbers import Language.Fiddle.Types type Context stage = @@ -271,4 +272,8 @@ deriving instance (Context stage) => (ToGenericSyntaxTree (EnumConstantDecl stag deriving instance (Context stage) => (ToGenericSyntaxTree (PackageBody stage)) +deriving instance (Context stage) => (ToGenericSyntaxTree (ConstExpression Unitless stage)) + +deriving instance (Context stage) => (ToGenericSyntaxTree (ConstExpression Address stage)) + deriving instance (Context stage) => (ToGenericSyntaxTree (Expression u stage)) -- cgit