From bf5ec1f3e2325e28154b9796532d37ee84753349 Mon Sep 17 00:00:00 2001 From: Eugen Wissner Date: Thu, 17 Oct 2024 00:37:42 +0200 Subject: Parse type declarations --- lib/Language/Elna/Glue.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lib/Language/Elna/Glue.hs') diff --git a/lib/Language/Elna/Glue.hs b/lib/Language/Elna/Glue.hs index 094254a..933a2d3 100644 --- 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 -- cgit v1.2.3