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/syntax/tree.ml | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'lib/syntax/tree.ml')

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
-- 
cgit v1.2.3