Sane parser rewrite

src/FileEval.hs

@@ -51,7 +51,7 @@ evaluateFileResult filePath = do
   contents <- readFile filePath
   let tokens = lexTricu contents
   case parseProgram tokens of
-    Left err -> errorWithoutStackTrace (handleParseError err)
+    Left err -> errorWithoutStackTrace (handleParseError tokens err)
     Right _ast -> do
       processedAst <- preprocessFile filePath
       let finalEnv = evalTricu Map.empty processedAst
@@ -64,7 +64,7 @@ evaluateFile filePath = do
   contents <- readFile filePath
   let tokens = lexTricu contents
   case parseProgram tokens of
-    Left err -> errorWithoutStackTrace (handleParseError err)
+    Left err -> errorWithoutStackTrace (handleParseError tokens err)
     Right _ast -> do
       ast <- preprocessFile filePath
       pure $ evalTricu Map.empty ast
@@ -74,7 +74,7 @@ evaluateFileWithContext env filePath = do
   contents <- readFile filePath
   let tokens = lexTricu contents
   case parseProgram tokens of
-    Left err -> errorWithoutStackTrace (handleParseError err)
+    Left err -> errorWithoutStackTrace (handleParseError tokens err)
     Right _ast -> do
       ast <- preprocessFile filePath
       pure $ evalTricu env ast
@@ -86,7 +86,7 @@ evaluateFileWithStore mconn env filePath = do
   contents <- readFile filePath
   let tokens = lexTricu contents
   case parseProgram tokens of
-    Left err -> errorWithoutStackTrace (handleParseError err)
+    Left err -> errorWithoutStackTrace (handleParseError tokens err)
     Right _ast -> do
       ast <- preprocessFile filePath
       evalTricuWithStore mconn env ast
@@ -99,7 +99,7 @@ preprocessFile' seen base currentPath = do
   contents <- readFile currentPath
   let tokens = lexTricu contents
   case parseProgram tokens of
-    Left err -> errorWithoutStackTrace (handleParseError err)
+    Left err -> errorWithoutStackTrace (handleParseError tokens err)
     Right ast ->
       case processImports seen base currentPath ast of
         Left err -> errorWithoutStackTrace err