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