Skip to content

Commit fbd1ac3

Browse files
committed
fix dummy implementation
1 parent c8e94ef commit fbd1ac3

2 files changed

Lines changed: 2 additions & 3 deletions

File tree

src/server/default/ezServer.dummy.ml

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -8,7 +8,7 @@
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\

src/server/ezOpenAPI.ml

Lines changed: 1 addition & 2 deletions
Original file line numberDiff line numberDiff 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-
676675
let 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

0 commit comments

Comments
 (0)