M smoke-tests/success/simple-output/expected/build/debug/foo/Makefile +1 -1
@@ 1,4 1,3 @@
-
.PHONY: release debug profile docs install remove
OCAMLDEP_OPTS=
@@ 18,6 17,7 @@ META_LINKOPTS=
all: native-code byte-code
+
all: META
install: all
M smoke-tests/success/simple-output/expected/build/profile/foo/Makefile +1 -1
@@ 1,4 1,3 @@
-
.PHONY: release debug profile docs install remove
OCAMLDEP_OPTS=
@@ 18,6 17,7 @@ META_LINKOPTS=
all: native-code byte-code
+
all: META
install: all
M smoke-tests/success/simple-output/expected/build/release/foo/Makefile +1 -1
@@ 1,4 1,3 @@
-
.PHONY: release debug profile docs install remove
OCAMLDEP_OPTS=
@@ 18,6 17,7 @@ META_LINKOPTS=
all: native-code byte-code
+
all: META
install: all
M src/pds/pds.ml +3 -9
@@ 116,7 116,7 @@ end
let apply_and_write_template tmpl_name out_name kv =
let tmpl =
Pds_template.read tmpl_name
- |> CCOpt.get_exn
+ |> CCOpt.get_exn_or tmpl_name
|> Snabela.Template.of_utf8_string
|> CCResult.get_exn
|> CCFun.flip Snabela.of_template []
@@ 771,15 771,9 @@ let generate_makefiles = function
let cmd =
let doc = "Emit build configs" in
- Cmdliner.Term.((const generate_makefiles $ Cmdline.format), info "pds" ~doc)
+ Cmdliner.(Cmd.v (Cmd.info "pds" ~doc ~exits:Cmd.Exit.defaults) Term.(const generate_makefiles $ Cmdline.format))
let main () =
- match Cmdliner.Term.eval cmd with
- | `Error _ -> begin
- Printf.eprintf "Error\n";
- exit 1
- end
- | _ ->
- exit 0
+ exit @@ Cmdliner.Cmd.eval cmd
let () = main ()