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/nested_strings.ml | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

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

diff --git a/lib/syntax/nested_strings.ml b/lib/syntax/nested_strings.ml
index 4dd5c81..0119197 100644
--- a/lib/syntax/nested_strings.ml
+++ b/lib/syntax/nested_strings.ml
@@ -4,6 +4,10 @@ let identifier = "escaped_string"
 let description = "Check for unnecessary use of expression encoded in string"
 let active = ref true
 
+type context = unit
+
+let initialize = Fun.id
+
 module TypeBuilder = Compose.Expression (Get_type)
 
 module Expression = TypeBuilder.Make (struct
@@ -143,8 +147,8 @@ module Location = struct
 
   let v = Fun.id
 
-  let location : S.pos -> instruction list -> t =
-   fun pos intructions ->
+  let location : unit -> S.pos -> instruction list -> t =
+   fun () pos intructions ->
     ignore pos;
     List.concat intructions
 end
-- 
cgit v1.2.3