diff options
| author | Josh Rahm <joshuarahm@gmail.com> | 2024-10-11 18:45:34 -0600 |
|---|---|---|
| committer | Josh Rahm <joshuarahm@gmail.com> | 2024-10-11 18:45:34 -0600 |
| commit | da0d596946cf21e2f275dd03b40c0a6c0824f66b (patch) | |
| tree | 517763d8d0613dc0f1b138eb2434a2a709383227 /src/Language/Fiddle/GenericTree.hs | |
| parent | 6ce692d61e8486c103a8492b0ec372858b29de50 (diff) | |
| download | fiddle-da0d596946cf21e2f275dd03b40c0a6c0824f66b.tar.gz fiddle-da0d596946cf21e2f275dd03b40c0a6c0824f66b.tar.bz2 fiddle-da0d596946cf21e2f275dd03b40c0a6c0824f66b.zip | |
Change 'Expression' to use numbers with units.
This helps to catch bugs in the compiler, specifically ones related to
mixing up bits and bytes.
Diffstat (limited to 'src/Language/Fiddle/GenericTree.hs')
| -rw-r--r-- | src/Language/Fiddle/GenericTree.hs | 6 |
1 files changed, 2 insertions, 4 deletions
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)) |