Create ampersand tokenizer

2021-11-03 19:58:53 +01:00
parent ce20e00704
commit 4a8a0ec437
1 changed files with 2 additions and 0 deletions
--- a/app/Assembler.hs
+++ b/app/Assembler.hs
@@ -12,6 +12,7 @@ data Token = Operator VM.Op
           | StringLiteral String
           | Identifier String
           | Colon
+           | Ampersand
           | WhiteSpace
           | Comment String
           deriving (Eq, Show)
@@ -132,6 +133,7 @@ tokenizers = anyTokenizer
  , sepTokenizer Char.isSpace tokenizeDecimal
  , tokenizeIdentifier
  , keywordTokenizer False ":" Colon
+  , keywordTokenizer False "&" Ampersand
  , tokenizeChar
  , tokenizeString
  ]