From 6fd720c07e3e361932e01bfbdbe4637c8f610649 Mon Sep 17 00:00:00 2001
From: Chimrod <>
Date: Sun, 4 Feb 2024 10:37:04 +0100
Subject: Added a general context for each test

---
 lib/qparser/parser.mly | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'lib/qparser/parser.mly')

diff --git a/lib/qparser/parser.mly b/lib/qparser/parser.mly
index 861d8b9..9501884 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)>main
+%start <(Analyzer.context -> Analyzer.Location.t)>main
 %on_error_reduce expression instruction unary_operator assignation_operator
 
 %% 
@@ -31,7 +31,7 @@ main:
       LOCATION_END
     { 
         let instructions = List.map instructions ~f:(Analyzer.Instruction.v) in
-        Analyzer.Location.location $loc instructions
+        fun context -> Analyzer.Location.location context $loc instructions
     }
 
 before_location:
-- 
cgit v1.2.3