use less bandwidth, and more compression

This commit is contained in:
Hannes Mehnert 2018-11-14 20:09:43 +01:00
parent f9cb93b1bc
commit eee1a4cb91

View file

@ -67,8 +67,8 @@ let opt_vm_name =
Arg.(value & opt vm_c Name.root & info [ "n" ; "name"] ~doc)
let compress_level =
let doc = "Compression level (0 for no compression)" in
Arg.(value & opt int 4 & info [ "compression-level" ] ~doc)
let doc = "Compression level (0 for no compression, 1-3 fixed with static huffman, 4-9 dynamic with canonic huffman)" in
Arg.(value & opt int 9 & info [ "compression-level" ] ~doc)
let force =
let doc = "force VM creation." in