aboutsummaryrefslogtreecommitdiff
path: root/test/syntax.ml
diff options
context:
space:
mode:
Diffstat (limited to 'test/syntax.ml')
-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