From 66cf5d3c5fff84a1cac333c1aa81a8e1f21ee6f4 Mon Sep 17 00:00:00 2001
From: Malte Voos <git@mal.tc>
Date: Mon, 8 Jul 2024 22:10:12 +0200
Subject: rename Ident -> Name

---
 src/name/Name.ml | 9 +++++++++
 1 file changed, 9 insertions(+)
 create mode 100644 src/name/Name.ml

(limited to 'src/name/Name.ml')

diff --git a/src/name/Name.ml b/src/name/Name.ml
new file mode 100644
index 0000000..81c6575
--- /dev/null
+++ b/src/name/Name.ml
@@ -0,0 +1,9 @@
+type t = Yuujinchou.Trie.path
+
+type local = string option
+
+let to_local : t -> local option = function
+  | name :: [] -> Some (Some name)
+  | _ -> None
+
+let pp = Fmt.list ~sep:(Fmt.const Fmt.char '.') Fmt.string
-- 
cgit 1.4.1