From 28c55a730d9a0a19a62d85c166dc879aebd7b772 Mon Sep 17 00:00:00 2001 From: Marcos Magueta Date: Wed, 23 Sep 2026 03:35:36 -0300 Subject: remove dead API --- lib/kernel/SubstantialRelation.ml | 2 -- lib/kernel/SubstantialRelation.mli | 8 -------- 2 files changed, 10 deletions(-) (limited to 'lib/kernel') diff --git a/lib/kernel/SubstantialRelation.ml b/lib/kernel/SubstantialRelation.ml index b94e2f8..090568f 100644 --- a/lib/kernel/SubstantialRelation.ml +++ b/lib/kernel/SubstantialRelation.ml @@ -147,8 +147,6 @@ module Make (S : Abstract.Storage.STORAGE) = struct [ Concepts.Mode.enumerable Concepts.Cardinality.Finite; {Concepts.Mode.bound= Concepts.Mode.attributes_of_map description; affords= Decides} ] - let modes tx relation = schema_of tx relation |> Result.map modes_of - class relation storage value description = object (self) inherit Lifecycle.null diff --git a/lib/kernel/SubstantialRelation.mli b/lib/kernel/SubstantialRelation.mli index 73a06c7..a36c802 100644 --- a/lib/kernel/SubstantialRelation.mli +++ b/lib/kernel/SubstantialRelation.mli @@ -53,12 +53,4 @@ module Make (S : Abstract.Storage.STORAGE) : sig (Protocols.Schematics.relation_description, Concepts.Condition.condition) result val enumerate : S.connection -> t -> (Protocols.Handle.t, Concepts.Condition.condition) result - - val generate : - S.connection -> - t -> - Protocols.Generative.binding -> - (Protocols.Handle.t, Concepts.Condition.condition) result - - val modes : S.transaction -> t -> (Concepts.Mode.t, Concepts.Condition.condition) result end -- cgit v1.2.3