From a33b80dbf64303fe376419216c1245a0238ea37d Mon Sep 17 00:00:00 2001
From: Josh Rahm <joshuarahm@gmail.com>
Date: Mon, 9 Jan 2023 01:07:25 -0700
Subject: 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.
---
 src/Language/Fiddle/Ast.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'src/Language/Fiddle/Ast.hs')

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
-- 
cgit