diff options
| author | Marcos Magueta <maguetamarcos@gmail.com> | 2026-09-26 15:30:53 -0300 |
|---|---|---|
| committer | Marcos Magueta <maguetamarcos@gmail.com> | 2026-09-26 15:30:53 -0300 |
| commit | e32ba6294781691846c3ab19281fe977350b4d0f (patch) | |
| tree | f38e92ba2fc03e966d7263c7ee2e0b5d7983ebae /lib/attribute.ml | |
| parent | be375a52da6174dfda5b68617d27e1542cc80499 (diff) | |
| download | Sakura-e32ba6294781691846c3ab19281fe977350b4d0f.tar.gz Sakura-e32ba6294781691846c3ab19281fe977350b4d0f.zip | |
preparation cleanup for RNT integration
Diffstat (limited to 'lib/attribute.ml')
| -rw-r--r-- | lib/attribute.ml | 10 |
1 files changed, 0 insertions, 10 deletions
diff --git a/lib/attribute.ml b/lib/attribute.ml deleted file mode 100644 index dc0e178..0000000 --- a/lib/attribute.ml +++ /dev/null @@ -1,10 +0,0 @@ -type referenced = {value_hash: Conventions.Hash.t} [@@deriving sexp_of] -type materialized = {value: Conventions.AbstractValue.t} [@@deriving sexp_of] -type t = Referenced of referenced | Materialized of materialized [@@deriving sexp_of] - -let make_referenced ~value = - let value_hash = Conventions.AbstractValue.hash value in - Referenced {value_hash} - -let make_materialized ~value = Materialized {value} -let materialized_equal a b = Conventions.AbstractValue.equal a.value b.value |