diff options
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 |