From da0d596946cf21e2f275dd03b40c0a6c0824f66b Mon Sep 17 00:00:00 2001 From: Josh Rahm Date: Fri, 11 Oct 2024 18:45:34 -0600 Subject: Change 'Expression' to use numbers with units. This helps to catch bugs in the compiler, specifically ones related to mixing up bits and bytes. --- src/Language/Fiddle/GenericTree.hs | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) (limited to 'src/Language/Fiddle/GenericTree.hs') diff --git a/src/Language/Fiddle/GenericTree.hs b/src/Language/Fiddle/GenericTree.hs index 9b04ac7..1dfafc2 100644 --- a/src/Language/Fiddle/GenericTree.hs +++ b/src/Language/Fiddle/GenericTree.hs @@ -28,9 +28,7 @@ import Language.Fiddle.Internal.UnitInterface import Language.Fiddle.Types type Context stage = - ( Show (NumberType stage), - Typeable stage, - ToJSON (NumberType stage), + ( Typeable stage, ToJSON (RegisterOffset stage) ) @@ -277,4 +275,4 @@ deriving instance (Context stage) => (ToGenericSyntaxTree (EnumConstantDecl stag deriving instance (Context stage) => (ToGenericSyntaxTree (PackageBody stage)) -deriving instance (Context stage) => (ToGenericSyntaxTree (Expression stage)) +deriving instance (Context stage) => (ToGenericSyntaxTree (Expression u stage)) -- cgit