diff options
| author | Jan Tuomi <jans.tuomi@gmail.com> | 2022-12-05 12:42:21 +0200 |
|---|---|---|
| committer | Jan Tuomi <jans.tuomi@gmail.com> | 2022-12-05 14:21:53 +0200 |
| commit | bba047ae945ae7d7899d6e2c1610923bcedb0442 (patch) | |
| tree | 4c442e6e09cc3f4ec65edb04bfafe93084045689 /src/Tokenizer.hs | |
| parent | ac6b455f4a9be11d322551a927c4330532f9f184 (diff) | |
Implement purity checking
Diffstat (limited to 'src/Tokenizer.hs')
| -rw-r--r-- | src/Tokenizer.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Tokenizer.hs b/src/Tokenizer.hs index b38e568..96a1c5a 100644 --- a/src/Tokenizer.hs +++ b/src/Tokenizer.hs @@ -65,7 +65,7 @@ _tokenize fileName acc current (x:xs) tokenColumn = tColumn $ head cur, tokenFileName = fileName } in _tokenize fileName (token : acc) [] xs - | tChar x `elem` ['(', ')', '[', ']', '{', '}', '\\'] = + | tChar x `elem` ['(', ')', '[', ']', '{', '}'] = let cur = reverse current token1 = Token { tokenContent = [tChar x], |