From 29f1d1b22b240ee9ef3cf4b867bc7a663d8d3a6a Mon Sep 17 00:00:00 2001
From: Jan Tuomi <jans.tuomi@gmail.com>
Date: Thu, 8 Dec 2022 17:26:43 +0200
Subject: Improve error reporting

---
 src/Tokenizer.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Tokenizer.hs')

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
-- 
cgit v1.3