codegen.ml in trackler-2.0.8.23

- old
+ new

@@ -24,7 +24,7 @@
   let s = replace_key "expected" expected s in
   let s = replace_key "suite-name" suite_name s in
   let parameter_strings = ed @@ List.map ~f:(fun (k,p) -> (k,p)) c.parameters in
   List.fold parameter_strings ~init:(Subst s) ~f:(fun (Subst s) (k,v) -> Subst (replace_key k v s))
 
-let fill_in_template (f: edit_expected_function) (ed: edit_parameters_function) test_template suite_name cases =
+let fill_in_template (f: edit_expected_function) (ed: edit_parameters_function) (test_template: string) (suite_name: string) (cases: case list) =
   List.map cases ~f:(replace_keys f ed test_template suite_name)