Now I have the API I want. Everything is abstract in the type S.Analyzer

1 files changed, 7 insertions, 7 deletions

diff --git a/lib/qparser/qsp_instruction.mly b/lib/qparser/qsp_instruction.mly
index e8f5a77..b7d2558 100644
--- a/lib/qparser/qsp_instruction.mly
+++ b/lib/qparser/qsp_instruction.mly
@@ -18,7 +18,7 @@ argument(X):
 %public inline_action:
     | a = onliner(ACT)
       { let loc, label, statements, _, _ = a in 
-        let label = Helper.v' label in
+        let label = Analyzer.Expression.v label in
         Analyzer.Instruction.act loc ~label statements
       }
     | a = onliner(IF)
@@ -30,7 +30,7 @@ argument(X):
           | Some instructions -> Some ($loc(else_opt), [ instructions ]) in
         Analyzer.Instruction.if_
             loc 
-            (loc_s, Helper.v' expr, statements) 
+            (loc_s, Analyzer.Expression.v expr, statements) 
             ~elifs
             ~else_
       }
@@ -42,21 +42,21 @@ argument(X):
 
         Analyzer.Instruction.if_
             loc 
-            (loc_s, Helper.v' expr, statements) 
+            (loc_s, Analyzer.Expression.v expr, statements) 
             ~elifs
             ~else_
       }
 single_instruction:
     | expr = expression
     { 
-        let expr = Helper.v' expr in
+        let expr = Analyzer.Expression.v expr in
         Analyzer.Instruction.expression expr
     }
     | e = let_assignation   { e }
     | k = keyword
       args = argument(expression)
     {
-        let args = List.map args ~f:(Helper.v') in
+        let args = List.map args ~f:(Analyzer.Expression.v) in
         Analyzer.Instruction.call $loc k args
     }
 
@@ -69,8 +69,8 @@ let_assignation:
       op = assignation_operator
       value = expression 
     { 
-        let variable = Helper.variable' variable
-        and value = Helper.v' value in
+        let variable = Helper.variable variable
+        and value = Analyzer.Expression.v value in
 
         Analyzer.Instruction.assign $loc variable op value
     }