diff options
| author | Marcos Magueta <maguetamarcos@gmail.com> | 2026-10-02 22:36:49 -0300 |
|---|---|---|
| committer | Marcos Magueta <maguetamarcos@gmail.com> | 2026-10-02 22:36:49 -0300 |
| commit | 32e663591a84d095723e62ef934a0bc6e1470b52 (patch) | |
| tree | 60d6905606c4c5b829d51dcf95603d62df946f84 /lib/kernel/Path.ml | |
| parent | 9f8fe7b4e5891e848d035c240731fb578f6b33b5 (diff) | |
| parent | 73aec387d33626e33026432db5b1137b59edf0cf (diff) | |
| download | RNT-32e663591a84d095723e62ef934a0bc6e1470b52.tar.gz RNT-32e663591a84d095723e62ef934a0bc6e1470b52.zip | |
Merge branch 'relation-bipartite-registration'
Diffstat (limited to '')
| -rw-r--r-- | lib/kernel/Path.ml | 2 | ||||
| -rw-r--r-- | lib/kernel/Path.mli | 2 |
2 files changed, 4 insertions, 0 deletions
diff --git a/lib/kernel/Path.ml b/lib/kernel/Path.ml index 77a6b54..eeef396 100644 --- a/lib/kernel/Path.ml +++ b/lib/kernel/Path.ml @@ -2,6 +2,8 @@ type t = string list let this = [] let ( @/ ) x y = x :: y +let of_list segments = segments +let to_list path = path let to_string path = path diff --git a/lib/kernel/Path.mli b/lib/kernel/Path.mli index 198ef83..571e59c 100644 --- a/lib/kernel/Path.mli +++ b/lib/kernel/Path.mli @@ -2,6 +2,8 @@ type t val this : t val ( @/ ) : string -> t -> t +val of_list : string list -> t +val to_list : t -> string list val lookup : Protocols.Handle.t -> t -> (Protocols.Handle.t, Concepts.Condition.condition) result val update : |