aboutsummaryrefslogtreecommitdiff
path: root/lib/qparser
diff options
context:
space:
mode:
Diffstat (limited to 'lib/qparser')
-rw-r--r--lib/qparser/analyzer.ml1
-rw-r--r--lib/qparser/parser.mly2
2 files changed, 2 insertions, 1 deletions
diff --git a/lib/qparser/analyzer.ml b/lib/qparser/analyzer.ml
index a79535e..e3a2774 100644
--- a/lib/qparser/analyzer.ml
+++ b/lib/qparser/analyzer.ml
@@ -36,6 +36,7 @@ let parse :
in
evaluation
+ |> Result.map (fun r -> (r, S.Location.v r))
|> Result.map_error (fun e ->
let message =
match e.IncrementalParser.code with
diff --git a/lib/qparser/parser.mly b/lib/qparser/parser.mly
index 81b630a..73d77b7 100644
--- a/lib/qparser/parser.mly
+++ b/lib/qparser/parser.mly
@@ -18,7 +18,7 @@
%}
%parameter<Analyzer: Qsp_syntax.S.Analyzer>
-%start <(Analyzer.Location.t * Qsp_syntax.Report.t list)>main
+%start <(Analyzer.Location.t)>main
%on_error_reduce expression instruction unary_operator assignation_operator
%%