Added a general context for each test

1 files changed, 7 insertions, 1 deletions

diff --git a/lib/syntax/tree.ml b/lib/syntax/tree.ml
index 21238a6..6f6e7f2 100644
--- a/lib/syntax/tree.ml
+++ b/lib/syntax/tree.ml
@@ -4,6 +4,10 @@ let identifier = "tree"
 let description = "Build the AST"
 let active = ref true
 
+type context = unit
+
+let initialize = Fun.id
+
 module Ast = struct
   type 'a literal = 'a T.literal = Text of string | Expression of 'a
   [@@deriving eq, show]
@@ -120,5 +124,7 @@ module Location = struct
   type t = S.pos * S.pos Ast.statement list
 
   let v _ = []
-  let location : S.pos -> instruction list -> t = fun pos block -> (pos, block)
+
+  let location : unit -> S.pos -> instruction list -> t =
+   fun () pos block -> (pos, block)
 end