diff --git a/src/core/lpath.ml b/src/core/lpath.ml index be3e73c..556aaa4 100644 --- a/src/core/lpath.ml +++ b/src/core/lpath.ml @@ -1,14 +1,9 @@ open Fpath type repo_t = Repo of t type note_t = Note of { repo: repo_t; basename: t } -type config_t = Config of t let extension = ".ymd" -let config_of_string s = Config (of_string s |> function Ok p -> p | _ -> invalid_arg "Config") -let fpath_of_config = function Config c -> c -let string_of_config c = fpath_of_config c |> to_string - let fpath_of_repo = function Repo p -> p let string_of_repo r = fpath_of_repo r |> to_string let repo_of_string s = Repo (v s)