diff options
| author | Jan Tuomi <jans.tuomi@gmail.com> | 2022-12-08 17:26:43 +0200 |
|---|---|---|
| committer | Jan Tuomi <jans.tuomi@gmail.com> | 2022-12-08 17:27:57 +0200 |
| commit | 29f1d1b22b240ee9ef3cf4b867bc7a663d8d3a6a (patch) | |
| tree | 9bbf6c53a3782c48f679a02e93fbe46908f44d34 /src/Tokenizer.hs | |
| parent | 22a9ade3409b40f644a5b79fc6f1e5b06419c507 (diff) | |
Improve error reporting
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 96a1c5a..e36a68e 100644 --- a/src/Tokenizer.hs +++ b/src/Tokenizer.hs @@ -55,7 +55,7 @@ _tokenize fileName acc current (x:xs) tokenColumn = tColumn $ x, tokenFileName = fileName } in do - when (stringLength == -1) $ throwL (posTChar fileName x) $ "unbalanced string literal" + when (stringLength == -1) $ throwL (posTChar fileName x, "unbalanced string literal") _tokenize fileName (token : acc) [] stringDropped | tChar x `elem` [' ', '\n', '\t', '\r'] = let cur = reverse current |