Added a general context for each test

1 files changed, 6 insertions, 2 deletions

diff --git a/lib/syntax/dead_end.ml b/lib/syntax/dead_end.ml
index 832a97a..ddf7edb 100644
--- a/lib/syntax/dead_end.ml
+++ b/lib/syntax/dead_end.ml
@@ -4,6 +4,10 @@ let identifier = "dead_end"
 let description = "Check for dead end in the code"
 let active = ref false
 
+type context = unit
+
+let initialize = Fun.id
+
 module Expression = struct
   type t = unit
 
@@ -148,8 +152,8 @@ module Location = struct
 
   let v = Fun.id
 
-  let location : S.pos -> instruction list -> t =
-   fun _pos instructions ->
+  let location : unit -> S.pos -> instruction list -> t =
+   fun () _pos instructions ->
     List.fold_left instructions ~init:[] ~f:(fun report t ->
         match (t.Instruction.is_gt, t.Instruction.pos) with
         | false, Some (cause, value) ->