diff options
Diffstat (limited to 'DSL/Types.hs')
| -rw-r--r-- | DSL/Types.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/DSL/Types.hs b/DSL/Types.hs index 8d59a06..bb1f862 100644 --- a/DSL/Types.hs +++ b/DSL/Types.hs @@ -5,12 +5,14 @@ import DSL.BaseParsers (Parser(..)) data StackData = StackInt Integer | StackBool Bool + | StackString String deriving (Eq) instance Show StackData where show (StackInt x) = show x show (StackBool True) = "true" show (StackBool False) = "false" + show (StackString s) = show s type TypeCheck = StackData -> Bool @@ -70,8 +72,9 @@ data TokenTag | T_WHILE | T_DO | T_END - | T_BOOL_LITERAL | T_INT_LITERAL + | T_BOOL_LITERAL + | T_STRING_LITERAL | T_INTRINSIC Intrinsic deriving (Show, Eq) |