From b3fd71cf0344e1634fcda6da854f9094957d009b Mon Sep 17 00:00:00 2001 From: Matthew Hall Date: Mon, 20 Feb 2023 20:30:31 +1300 Subject: Add ELIF statements and refactor IF blocks --- DSL/Types.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'DSL/Types.hs') 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 -- cgit v1.2.1