Source file ocaml_protoc_plugin.ml
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
(**/**)
module Serialize = Serialize
module Deserialize = Deserialize
module Serialize_json = Serialize_json
module Deserialize_json = Deserialize_json
module Spec = Spec
module Field = Field
module Merge = Merge
(**/**)
module Json = Json
module Reader = Reader
module Writer = Writer
module Service = Service
module Result = Result
module Extensions = Extensions
module Json_options = Json_options
let apply_lazy f =
match Sys.backend_type with
| Native | Bytecode ->
f ()
| Other _ ->
let f = Lazy.from_fun f in
fun x -> (Lazy.force f) x