default: fix bool type

ahrefs · Jan 11, 2025 · 7ecbe6f · 7ecbe6f
1 parent 2ad215d
commit 7ecbe6f
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/lib/generator.ml b/lib/generator.ml
@@ -67,7 +67,13 @@ let rec ocaml_value_of_json ~typ = function
      | _ -> (Yojson.Basic.to_string json)
 
     )
-  | `String value -> sprintf "\\\"%s\\\"" value
+  | `String value ->
+    (match typ with
+     | Some Boolean -> value
+     | Some Integer -> value
+     | _ ->
+       sprintf "\\\"%s\\\"" value
+    )
   | `List elements ->
     let list_elements = List.map (ocaml_value_of_json ~typ:None) elements |> String.concat ";" in
     sprintf "[%s]" list_elements