aboutsummaryrefslogtreecommitdiffstats
path: root/lib/kernel/SubstantialRelation.ml
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--lib/kernel/SubstantialRelation.ml3
1 files changed, 3 insertions, 0 deletions
diff --git a/lib/kernel/SubstantialRelation.ml b/lib/kernel/SubstantialRelation.ml
index 0afc3f7..136c146 100644
--- a/lib/kernel/SubstantialRelation.ml
+++ b/lib/kernel/SubstantialRelation.ml
@@ -146,6 +146,9 @@ module Make (S : Abstract.Storage.STORAGE) = struct
class relation storage value =
object (self)
inherit Lifecycle.null
+
+ method to_string = "relation"
+
val storage : S.connection = storage
val relation : t = value
method predicate = Ok relation.predicate