From 6c080cae7b1ea26bc66f710f4b71a372f83645a0 Mon Sep 17 00:00:00 2001
From: Chimrod <>
Date: Thu, 28 Sep 2023 19:20:58 +0200
Subject: Skip the faulty location when reading the whole compiled file

---
 test/qsp_parser_test.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'test/qsp_parser_test.ml')

diff --git a/test/qsp_parser_test.ml b/test/qsp_parser_test.ml
index c37c7f1..3e4a96b 100644
--- a/test/qsp_parser_test.ml
+++ b/test/qsp_parser_test.ml
@@ -20,7 +20,7 @@ let parse : string -> T.pos location =
   with
   | Ok e -> e
   | Error e ->
-      let msg = Format.asprintf "%a" Qparser.Analyzer.format_error e in
+      let msg = Format.asprintf "%a" Qsp_syntax.Report.pp e in
       raise (Failure msg)
 
 let location : T.pos location Alcotest.testable =
-- 
cgit v1.2.3