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

Default to current directory for repository

Browse Source
This commit is contained in:
Stavros Polymenis 2017-10-27 13:38:55 +01:00
parent dd895a1613
commit 0400b7c8a0
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/core/archive.ml
View File

@ -17,10 +17,10 @@ module Configuration = struct
try
Ok {
repository =
(try Lpath.repo_of_string (str "repository" |> mandatory)
(try Lpath.repo_of_string (str "repository" |> with_default ".")
with
| Invalid_argument s -> failwith ("Invalid repository: " ^ s)
| Failure s -> failwith s);
| Failure s -> failwith ("Missing repository value: " ^ s));
title = str "title" |> with_default "";
owner = str "owner" |> with_default "";
email = str "email" |> with_default "";