diff options
| author | Matthew Hall <hallmatthew314@gmail.com> | 2023-02-20 20:30:31 +1300 |
|---|---|---|
| committer | Matthew Hall <hallmatthew314@gmail.com> | 2023-02-20 20:30:31 +1300 |
| commit | b3fd71cf0344e1634fcda6da854f9094957d009b (patch) | |
| tree | 65556343faa64ae29871eab8df3bd7c06aa3c8c1 /DSL/Types.hs | |
| parent | 77d84c1539851f096b2c632cc6381ac72b2bfd1b (diff) | |
Add ELIF statements and refactor IF blocks
Diffstat (limited to 'DSL/Types.hs')
| -rw-r--r-- | DSL/Types.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/DSL/Types.hs b/DSL/Types.hs index dbed203..431a361 100644 --- a/DSL/Types.hs +++ b/DSL/Types.hs @@ -59,8 +59,7 @@ data StackModifier = StackModifier { smName :: String data Block = BLinear [Operation] - | BIf [Block] [Block] - | BIfElse [Block] [Block] [Block] + | BIf [Block] [Block] [Block] | BWhile [Block] [Block] deriving (Show) @@ -78,6 +77,7 @@ data TokenTag | T_COMMENT | T_PROC | T_IF + | T_ELIF | T_ELSE | T_WHILE | T_DO |