File: main.ml

package info (click to toggle)
ocaml-atd 3.0.1-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 7,800 kB
  • sloc: ml: 45,316; python: 835; sh: 339; makefile: 304; cpp: 195; java: 76
file content (11 lines) | stat: -rw-r--r-- 210 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
 
let v = {
  Part3_t.name = "foo";
  data = Some [
    { Part1_t.x = 1; y = 2 };
    { Part1_t.x = 3; y = 4 };
  ]
}

let () =
  Atdgen_runtime.Util.Json.to_channel Part3_j.write_t3 stdout v;
  print_newline ()