From 089871ad417a9cd085a75b03301aebb91896ca0f Mon Sep 17 00:00:00 2001 From: Stavros Polymenis Date: Fri, 20 Oct 2017 23:05:17 +0100 Subject: [PATCH] Obselete Config record and functions --- src/core/lpath.ml | 5 ----- 1 file changed, 5 deletions(-) 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)