From f85abcb996b8d189a646e6aeea8aa4ce068f7570 Mon Sep 17 00:00:00 2001
From: Chimrod <>
Date: Sat, 14 Oct 2023 15:32:13 +0200
Subject: Used the type S.repr in Syntax/Location.t

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

(limited to 'test')

diff --git a/test/syntax.ml b/test/syntax.ml
index 487f85b..9aca3b6 100644
--- a/test/syntax.ml
+++ b/test/syntax.ml
@@ -21,7 +21,7 @@ let parse : string -> (S.pos location, Qsp_syntax.Report.t) result =
   let lexing =
     Sedlexing.Latin1.from_string content |> Qparser.Lexbuf.from_lexbuf
   in
-  Qparser.Analyzer.parse (module Qsp_syntax.Tree) lexing
+  Qparser.Analyzer.parse (module Qsp_syntax.Tree) lexing |> Result.map fst
 
 let location : S.pos location Alcotest.testable =
   let equal = equal_location (fun _ _ -> true) in
-- 
cgit v1.2.3