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/Glue.hs
+++ b/lib/Language/Elna/Glue.hs
@@ -70,7 +70,7 @@ declaration globalTable (AST.ProcedureDeclaration procedureName _ _ statements)
    . flip Vector.snoc StopQuadruple
    . fold
    <$> traverse (statement globalTable) statements
-- declaration (AST.TypeDefinition _ _) accumulator = pure accumulator
+declaration _ (AST.TypeDefinition _ _) = pure Nothing

 statement :: SymbolTable -> AST.Statement -> Glue (Vector (Quadruple Variable))
 statement _ AST.EmptyStatement = pure mempty