File tree Expand file tree Collapse file tree
Expand file tree Collapse file tree Original file line number Diff line number Diff line change 88(* *)
99(* *************************************************************************)
1010
11- let server ?catch :_ _ =
11+ let server ?catch :_ ?allow_origin:_ ?allow_headers:_ ?allow_methods:_ ?allow_credentials:_ _ =
1212 Format. eprintf
1313 " Cohttp or Httpaf server implementation not availble\n \
1414 Try: `opam install cohttp-lwt-unix`\n \
Original file line number Diff line number Diff line change @@ -243,7 +243,7 @@ module Encoding = struct
243243 (function
244244 | `O l -> List. map (fun (n , v ) -> (n, Json_encoding. destruct enc v)) l
245245 | _ -> failwith " asssociative object" )
246- ~schema: (Json_encoding. schema Json_encoding. any_ezjson_object)
246+ ~schema: (Json_encoding. schema ~definitions_path: EzAPI.Doc. definitions_path Json_encoding. any_ezjson_object)
247247
248248
249249 let contact_object = conv
@@ -672,7 +672,6 @@ let make ?descr ?terms ?contact ?license ?(version="0.1") ?servers ?(docs=[])
672672 else
673673 filename ^ " .json" , EzEncoding.Ezjsonm. to_string ~minify: (not pretty) openapi_json
674674
675-
676675let write ?descr ?terms ?contact ?license ?version ?servers ?docs ?(yaml =false )
677676 ?pretty ?definitions ~sections ~title filename =
678677 let filename, s = make ?descr ?terms ?contact ?license ?version ?servers ?docs ?definitions ~yaml ?pretty ~sections ~title filename in
You can’t perform that action at this time.
0 commit comments