aboutsummaryrefslogtreecommitdiff
path: root/test
diff options
context:
space:
mode:
authorChimrod <>2023-10-14 15:32:13 +0200
committerChimrod <>2023-10-18 09:49:47 +0200
commitf85abcb996b8d189a646e6aeea8aa4ce068f7570 (patch)
tree658bb3448777435b569a5b0871468317611bf47c /test
parentf135a5fcb6c9827d07025a143b190cbbf8eddc15 (diff)
Used the type S.repr in Syntax/Location.t
Diffstat (limited to 'test')
-rw-r--r--test/syntax.ml2
1 files changed, 1 insertions, 1 deletions
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