diff options
Diffstat (limited to 'src/Language/Fiddle/Tokenizer.hs')
| -rw-r--r-- | src/Language/Fiddle/Tokenizer.hs | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/Language/Fiddle/Tokenizer.hs b/src/Language/Fiddle/Tokenizer.hs index d2e5cf8..4590ed0 100644 --- a/src/Language/Fiddle/Tokenizer.hs +++ b/src/Language/Fiddle/Tokenizer.hs @@ -28,6 +28,8 @@ data T | KWWo | KWImport | KWUsing + | KWSkipTo + | KWBuffer | TokColon | TokComma | TokDot @@ -69,6 +71,8 @@ textOf t = do KWWo -> Just "wo" KWImport -> Just "import" KWUsing -> Just "using" + KWBuffer -> Just "buffer" + KWSkipTo -> Just "skip_to" TokIdent i -> Just i TokLitNum n -> Just n _ -> Nothing @@ -106,6 +110,8 @@ parseToken = spaces *> tok parseToken' <* spaces "using" -> KWUsing "struct" -> KWStruct "assert_pos" -> KWAssertPos + "skip_to" -> KWSkipTo + "buffer" -> KWBuffer (Data.Text.head -> h) | isDigit h -> TokLitNum str ident -> TokIdent ident |