Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- type r = { name : string; age : int } with value
- type t = Foo of r | Bar of int * string with value
- let _ =
- let t = Foo { name = "Foo"; age = 100 } in
- print_endline (Value.to_string (value_of_t t))
- (* => E/t/2/<Foo;E/r/2/{name:S(Foo);age:I(100)}> *)
Add Comment
Please, Sign In to add comment