Parse type declarations

2024-10-17 00:37:42 +02:00
parent 582040e5d3
commit bf5ec1f3e2
4 changed files with 21 additions and 13 deletions
--- a/lib/Language/Elna/Frontend/AST.hs
+++ b/lib/Language/Elna/Frontend/AST.hs
@@ -28,13 +28,13 @@ instance Show Program

 data Declaration
    = ProcedureDeclaration Identifier [Parameter] [VariableDeclaration] [Statement]
-    -- | TypeDefinition Identifier TypeExpression
+    | TypeDefinition Identifier TypeExpression
    deriving Eq

 instance Show Declaration
  where
-    {- show (TypeDefinition identifier typeExpression) =
-        concat ["type ", show identifier, " = ", show typeExpression, ";"] -}
+    show (TypeDefinition identifier typeExpression) =
+        concat ["type ", show identifier, " = ", show typeExpression, ";"]
    show (ProcedureDeclaration procedureName parameters variables body)
        = "proc " <> show procedureName <> showParameters parameters <> " {\n"
        <> unlines (("  " <>) . show <$> variables)