diff options
| author | Eugen Wissner <belka@caraus.de> | 2024-11-24 13:05:11 +0100 |
|---|---|---|
| committer | Eugen Wissner <belka@caraus.de> | 2024-11-26 23:44:25 +0100 |
| commit | f7b36cb81d96817d1c69ffe9025b88112de7400c (patch) | |
| tree | c3846bafd78045b3dfff5c021ed82443868590b3 /lib/Language/Elna/Frontend/AST.hs | |
| parent | 0c9799b887e967a55857377dad0d64ad625b47c9 (diff) | |
| download | elna-f7b36cb81d96817d1c69ffe9025b88112de7400c.tar.gz | |
Implement the while loop
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 e334370..df00d4b 100644 --- a/lib/Language/Elna/Frontend/AST.hs +++ b/lib/Language/Elna/Frontend/AST.hs @@ -71,7 +71,7 @@ data Statement = EmptyStatement | IfStatement Condition Statement (Maybe Statement) | AssignmentStatement VariableAccess Expression - -- | WhileStatement Condition Statement + | WhileStatement Condition Statement | CompoundStatement [Statement] | CallStatement Identifier [Expression] deriving Eq @@ -86,8 +86,8 @@ instance Show Statement ] show (AssignmentStatement lhs rhs) = concat [show lhs, " := ", show rhs, ";"] - {-show (WhileStatement expression statement) = - concat ["while (", show expression, ") ", show statement, ";"]-} + show (WhileStatement expression statement) = + concat ["while (", show expression, ") ", show statement, ";"] show (CompoundStatement statements) = concat ["{\n", unlines (show <$> statements), " }"] show (CallStatement name parameters) = show name <> "(" |