2 files changed, 13 insertions, 0 deletions
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
diff --git a/src/name/dune b/src/name/dune
new file mode 100644
index 0000000..5a4e44c
--- /dev/null
+++ b/src/name/dune
@@ -0,0 +1,4 @@
+(library
+ (name Name)
+ (public_name toytt.name)
+ (libraries fmt yuujinchou))