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 try
Ok { Ok {
repository = repository =
(try Lpath.repo_of_string (str "repository" |> mandatory) (try Lpath.repo_of_string (str "repository" |> with_default ".")
with with
| Invalid_argument s -> failwith ("Invalid repository: " ^ s) | Invalid_argument s -> failwith ("Invalid repository: " ^ s)
| Failure s -> failwith s); | Failure s -> failwith ("Missing repository value: " ^ s));
title = str "title" |> with_default ""; title = str "title" |> with_default "";
owner = str "owner" |> with_default ""; owner = str "owner" |> with_default "";
email = str "email" |> with_default ""; email = str "email" |> with_default "";