Added dependencies system between the modules in the checksHEADmaster

1 files changed, 8 insertions, 2 deletions

diff --git a/lib/checks/locations.ml b/lib/checks/locations.ml
index 8e5f500..3a5ddf5 100644
--- a/lib/checks/locations.ml
+++ b/lib/checks/locations.ml
@@ -20,6 +20,9 @@ let identifier = "locations"
 let description = "Ensure every call points to an existing location"
 let is_global = true
 let active = ref true
+let depends = []
+
+type ex = Qsp_syntax.Identifier.t
 
 type t = {
   locations : LocationSet.t;
@@ -89,8 +92,11 @@ module Expression = struct
   let v : t -> t' = Fun.id
 
   (* Extract the litteral if this is a simple text *)
-  let literal : S.pos -> t' T.literal list -> t' =
-   fun _ ll -> match ll with Text lit :: [] -> Some lit | _ -> None
+  let literal :
+      ctx:Qsp_syntax.S.extract_context -> S.pos -> t' T.literal list -> t' =
+   fun ~ctx _ ll ->
+    ignore ctx;
+    match ll with Text lit :: [] -> Some lit | _ -> None
 end
 
 module Instruction = struct