diff options
| author | Marcos Magueta <maguetamarcos@gmail.com> | 2026-04-27 23:24:19 -0300 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2026-04-27 23:24:19 -0300 |
| commit | 97960adb8426e5270fe16b027e82a2c61674f821 (patch) | |
| tree | 03da5611898c06cd3868d4384ef4259005a29b69 /lib/conventions.ml | |
| parent | 56492ad5f6f09d8c9f337d42803b64d1b9f0668b (diff) | |
| download | Sakura-97960adb8426e5270fe16b027e82a2c61674f821.tar.gz Sakura-97960adb8426e5270fe16b027e82a2c61674f821.zip | |
Foreign call PRL (#67)
Diffstat (limited to 'lib/conventions.ml')
| -rw-r--r-- | lib/conventions.ml | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/lib/conventions.ml b/lib/conventions.ml index 93dd579..cdc63a9 100644 --- a/lib/conventions.ml +++ b/lib/conventions.ml @@ -13,13 +13,15 @@ module Name = struct end module Cardinality = struct + open Sexplib.Std + type t = Finite of int | ConstrainedFinite | AlephZero | Continuum + [@@deriving sexp] +end - let sexp_of_t = function - | Finite n -> Sexplib.Sexp.(List [ Atom "Finite"; Atom (string_of_int n) ]) - | ConstrainedFinite -> Sexplib.Sexp.Atom "ConstrainedFinite" - | AlephZero -> Sexplib.Sexp.Atom "AlephZero" - | Continuum -> Sexplib.Sexp.Atom "Continuum" +module Purity = struct + type t = Pure | IO + [@@deriving sexp] end module AbstractValue = struct |