diff options
| author | Josh Rahm <joshuarahm@gmail.com> | 2023-01-09 01:07:25 -0700 |
|---|---|---|
| committer | Josh Rahm <joshuarahm@gmail.com> | 2023-01-09 01:07:25 -0700 |
| commit | a33b80dbf64303fe376419216c1245a0238ea37d (patch) | |
| tree | 18477f448abe49d9c384ff0b24d1874eb83afdaa /src/Language/Fiddle/Ast.hs | |
| parent | def481d234ce5e1671d9faaa539477de8cd14640 (diff) | |
| download | fiddle-a33b80dbf64303fe376419216c1245a0238ea37d.tar.gz fiddle-a33b80dbf64303fe376419216c1245a0238ea37d.tar.bz2 fiddle-a33b80dbf64303fe376419216c1245a0238ea37d.zip | |
Crude compilation pipeline starting to take shape.
This simply does a Stage0 -> Stage1 conversion. Namely, parse the text,
check for syntax errors, squeeze the resulting ast and ... that's it.
Diffstat (limited to 'src/Language/Fiddle/Ast.hs')
| -rw-r--r-- | src/Language/Fiddle/Ast.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/Language/Fiddle/Ast.hs b/src/Language/Fiddle/Ast.hs index 7600006..60b9e11 100644 --- a/src/Language/Fiddle/Ast.hs +++ b/src/Language/Fiddle/Ast.hs @@ -189,13 +189,14 @@ data RegisterBitsTypeRef stage f a where AnonymousBitsType stage f a -> a -> RegisterBitsTypeRef 'Stage1 f a - {- (<expr>) - - The expression is just bits ... i.e. an integer. -} RegisterBitsJustBits :: - Expression stage f a -> a -> RegisterBitsTypeRef stage f a + Expression stage f a -> + a -> + RegisterBitsTypeRef stage f a instance Alter (RegisterBitsTypeRef stage) where alter ffn fn = \case |