bin/toml_test_encoder.ml at main · gazagnaire.org/ocaml-tomlt

gazagnaire.org / ocaml-tomlt

forked from anil.recoil.org/ocaml-tomlt

fork atom

TOML 1.1 codecs for OCaml

fork atom

ocaml-tomlt / bin / toml_test_encoder.ml

at main 9 lines 308 B view raw

wrap content

1(* TOML test encoder - reads tagged JSON from stdin, outputs TOML to stdout *)
2
3let () =
4  let input = In_channel.input_all In_channel.stdin in
5  match Tomlt_bytesrw.Tagged_json.decode_and_encode_toml input with
6  | Ok toml -> print_string toml
7  | Error msg ->
8      Fmt.epr "Error: %s\n" msg;
9      exit 1