Skip to content

Instantly share code, notes, and snippets.

@gsg
Created August 20, 2016 12:08
Show Gist options
  • Save gsg/eb52f57423681d4489f105536c39bd85 to your computer and use it in GitHub Desktop.
Save gsg/eb52f57423681d4489f105536c39bd85 to your computer and use it in GitHub Desktop.
type ('a, 'b) tmp_results =
| Nada
| Other of ('a, 'b) tmp_result
constraint 'b = <
to_str : string;
pack : ('a,'b) tmp_results;
unpack: 'a;
..
>
and ('a, 'b) tmp_result = <
to_str : string;
pack : ('a,'b) tmp_results;
unpack: 'a;
..
> as 'b
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment