diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/attribute.ml | 2 | ||||
| -rw-r--r-- | lib/conventions.ml | 2 |
2 files changed, 3 insertions, 1 deletions
diff --git a/lib/attribute.ml b/lib/attribute.ml index b828d64..8448bee 100644 --- a/lib/attribute.ml +++ b/lib/attribute.ml @@ -9,3 +9,5 @@ let make_referenced ~value = Referenced { value_hash } let make_materialized ~value = Materialized { value } + +let materialized_equal a b = Conventions.AbstractValue.equal a.value b.value diff --git a/lib/conventions.ml b/lib/conventions.ml index a031014..9e18762 100644 --- a/lib/conventions.ml +++ b/lib/conventions.ml @@ -49,7 +49,7 @@ module AbstractValue = struct else Atom (string_of_float f) | Opaque -> Atom "<opaque>" - let equals a b = + let equal a b = match (type_of a, type_of b) with | (Int, Int) -> (Obj.obj a : int) = (Obj.obj b : int) | (String, String) -> (Obj.obj a : string) = (Obj.obj b : string) |