diff options
| author | Eugen Wissner <belka@caraus.de> | 2024-10-17 00:37:42 +0200 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2024-10-17 00:37:42 +0200 |
| commit | bf5ec1f3e2325e28154b9796532d37ee84753349 (patch) | |
| tree | 247eb0160bb7a415d1210c8a6246c8c49abc6231 /lib/Language/Elna/Glue.hs | |
| parent | 582040e5d3f6a5fb5b9046964b6823891d2802dd (diff) | |
| download | elna-bf5ec1f3e2325e28154b9796532d37ee84753349.tar.gz | |
Parse type declarations
Diffstat (limited to 'lib/Language/Elna/Glue.hs')
| -rw-r--r-- | lib/Language/Elna/Glue.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |