diff options
| author | Josh Rahm <joshuarahm@gmail.com> | 2024-12-03 17:49:28 -0700 |
|---|---|---|
| committer | Josh Rahm <joshuarahm@gmail.com> | 2024-12-03 17:49:28 -0700 |
| commit | f371a310affd9501f48aa8ade4670f9a29070cad (patch) | |
| tree | 3c7815e1d3672f425787855a0f25513cce49db9c /src/Language/Fiddle/Tokenizer.hs | |
| parent | 673c99472da3de2d52bd29fec91978166f008766 (diff) | |
| download | fiddle-f371a310affd9501f48aa8ade4670f9a29070cad.tar.gz fiddle-f371a310affd9501f48aa8ade4670f9a29070cad.tar.bz2 fiddle-f371a310affd9501f48aa8ade4670f9a29070cad.zip | |
Implement new syntactic-sugar for skip_to(). Allows specifying the offset directly on a register
Diffstat (limited to 'src/Language/Fiddle/Tokenizer.hs')
| -rw-r--r-- | src/Language/Fiddle/Tokenizer.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/Language/Fiddle/Tokenizer.hs b/src/Language/Fiddle/Tokenizer.hs index 4590ed0..c4b53d2 100644 --- a/src/Language/Fiddle/Tokenizer.hs +++ b/src/Language/Fiddle/Tokenizer.hs @@ -48,6 +48,7 @@ data T | TokString !Text | TokDirectiveStart -- [[ | TokDirectiveEnd -- ]] + | TokAtSign deriving (Eq, Ord, Show, Read) textOf :: T -> Maybe Text @@ -154,7 +155,8 @@ parseToken = spaces *> tok parseToken' <* spaces char '}' $> TokRBrace, char ']' $> TokRBracket, char ')' $> TokRParen, - char ';' $> TokSemi + char ';' $> TokSemi, + char '@' $> TokAtSign ] where a $> b = a >> return b |