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/Frontend/AST.hs | |
| parent | 582040e5d3f6a5fb5b9046964b6823891d2802dd (diff) | |
| download | elna-bf5ec1f3e2325e28154b9796532d37ee84753349.tar.gz | |
Parse type declarations
Diffstat (limited to 'lib/Language/Elna/Frontend/AST.hs')
| -rw-r--r-- | lib/Language/Elna/Frontend/AST.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lib/Language/Elna/Frontend/AST.hs b/lib/Language/Elna/Frontend/AST.hs index 5918e8e..0925f6f 100644 --- 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) |