Guest User

Untitled

a guest
Jul 19th, 2018
94
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.25 KB | None | 0 0
  1. type r = { name : string; age : int } with value
  2. type t = Foo of r | Bar of int * string with value
  3.  
  4. let _ =
  5. let t = Foo { name = "Foo"; age = 100 } in
  6. print_endline (Value.to_string (value_of_t t))
  7. (* => E/t/2/<Foo;E/r/2/{name:S(Foo);age:I(100)}> *)
Add Comment
Please, Sign In to add comment