software-archive/logarion-2016
2
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Obselete Config record and functions

Browse Source
This commit is contained in:
Stavros Polymenis 2017-10-20 23:05:17 +01:00
parent c0b6f45fe5
commit 089871ad41
1 changed files with 0 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/core/lpath.ml
View File

@ -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)