test_generator.ml in trackler-2.0.0.10

- old
+ new

@@ -43,16 +43,16 @@
   let cases = parse_json_text canonical_data_file in
   let cases = Result.map_error cases show_error in
   let open Result.Monad_infix in
   template >>= fun (s,e,template) ->
   cases >>= fun cs ->
-  let Ok substs = generate_code (fixup ~stringify:parameter_to_string ~slug) template cs in
+  let substs = Result.ok_or_failwith @@ generate_code (fixup ~stringify:parameter_to_string ~slug) (edit ~slug) template cs in
   Result.return (splice_in_filled_in_code s e ~template:template_file substs)
 
 let output_tests (files: (string * content * content) list) (output_folder: string): unit =
   let output_filepath name = output_folder ^ "/" ^ name ^ "/test.ml" in
   let output1 (slug,t,c) =
-    let Ok code = generate_code slug t c in
+    let code = Result.ok_or_failwith @@ generate_code slug t c in
     Out_channel.write_all (output_filepath slug) code in
   List.iter files ~f:output1
 
 let run ~(templates_folder: string) ~(canonical_data_folder: string) ~(output_folder: string) =
   let templates = find_templates templates_folder in