Commit 72d90c94 authored by Guillaume Melquiond's avatar Guillaume Melquiond

Make --flat option meaningful.

parent 5e080086
......@@ -71,7 +71,7 @@ let option_list = [
" same as -D";
"--recursive", Arg.Unit (fun () -> opt_rec_single := Recursive),
" recursively extract all dependencies";
"--flat", Arg.Unit (fun x -> x),
"--flat", Arg.Unit (fun () -> opt_modu_flat := Flat),
" perform a flat extraction (default option)";
"--modular", Arg.Unit (fun () -> opt_modu_flat := Modular),
" perform a modular extraction";
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment