diff options
Diffstat (limited to 'src/name/Name.ml')
| -rw-r--r-- | src/name/Name.ml | 9 |
1 files changed, 9 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 |