zapashcanon/sun
1
0
Fork 0
Code Issues 1 Pull Requests Actions Releases Wiki Activity

update to latest scfg

Browse Source
This commit is contained in:
zapashcanon 2025-01-03 19:54:49 +01:00
parent fb9471a895
commit f9b6da569d
Signed by: zapashcanon
GPG Key ID: 8981C3C62D1D28F1
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/sun.ml
View File

@ -23,8 +23,8 @@ let choose_output = function
| Error (`Msg e) -> Fmt.failwith "%s" e
| Ok false -> []
| Ok true -> (
match Scfg.Parse.from_file (Fpath.to_string file_name) with
| Error e -> Fmt.failwith "%s" e
match Scfg.Parse.from_file file_name with
| Error (`Msg e) -> Fmt.failwith "%s" e
| Ok file -> file )
in
let output_dir =
@ -52,7 +52,7 @@ let choose_output = function
(* `output_dir` is specified in the user's config, we juste get its value. *)
begin
match Scfg.Query.get_param 0 output_dir with
| Error e -> Fmt.failwith "%s" e
| Error (`Msg e) -> Fmt.failwith "%s" e
| Ok dir -> (
match Bos.Pat.of_string dir with
| Error (`Msg e) -> Fmt.failwith "%s" e