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/Frontend/AST.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'lib/Language/Elna/Frontend/AST.hs') 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) -- cgit v1.2.3