reynir/albatross
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

compression level is 9 for remote (bistro/request), and 0 for local now

Browse source
This commit is contained in:
Hannes Mehnert 2019-10-10 22:29:13 +02:00
parent da8dcef6a0
commit 2db9e0c15e
4 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
client/albatross_client_bistro.ml
View file

@ -197,7 +197,7 @@ let create_cmd =
[`S "DESCRIPTION"; [`S "DESCRIPTION";
`P "Creates a virtual machine."] `P "Creates a virtual machine."]
in in
Term.(term_result (const create $ setup_log $ destination $ ca_cert $ ca_key $ server_ca $ force $ vm_name $ image $ cpu $ vm_mem $ args $ block $ net $ compress_level)), Term.(term_result (const create $ setup_log $ destination $ ca_cert $ ca_key $ server_ca $ force $ vm_name $ image $ cpu $ vm_mem $ args $ block $ net $ compress_level 9)),
Term.info "create" ~doc ~man Term.info "create" ~doc ~man
let console_cmd = let console_cmd =

2
client/albatross_client_local.ml
View file

@ -151,7 +151,7 @@ let create_cmd =
[`S "DESCRIPTION"; [`S "DESCRIPTION";
`P "Creates a virtual machine."] `P "Creates a virtual machine."]
in in
Term.(term_result (const create $ setup_log $ socket $ force $ vm_name $ image $ cpu $ vm_mem $ args $ block $ net $ compress_level)), Term.(term_result (const create $ setup_log $ socket $ force $ vm_name $ image $ cpu $ vm_mem $ args $ block $ net $ compress_level 0)),
Term.info "create" ~doc ~man Term.info "create" ~doc ~man
let console_cmd = let console_cmd =

4
command-line/albatross_cli.ml
View file

@ -86,9 +86,9 @@ let opt_vm_name =
let doc = "name of virtual machine." in let doc = "name of virtual machine." in
Arg.(value & opt vm_c Name.root & info [ "n" ; "name"] ~doc) Arg.(value & opt vm_c Name.root & info [ "n" ; "name"] ~doc)
let compress_level = let compress_level default =
let doc = "Compression level (0 for no compression, 1-3 fixed with static huffman, 4-9 dynamic with canonic huffman)" in 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) Arg.(value & opt int default & info [ "compression-level" ] ~doc)
let force = let force =
let doc = "force VM creation." in let doc = "force VM creation." in

2
provision/albatross_provision_request.ml
View file

@ -121,7 +121,7 @@ let create_cmd =
[`S "DESCRIPTION"; [`S "DESCRIPTION";
`P "Creates a virtual machine."] `P "Creates a virtual machine."]
in in
Term.(term_result (const create $ setup_log $ force $ vm_name $ image $ cpu $ vm_mem $ args $ block $ net $ compress_level)), Term.(term_result (const create $ setup_log $ force $ vm_name $ image $ cpu $ vm_mem $ args $ block $ net $ compress_level 9)),
Term.info "create" ~doc ~man Term.info "create" ~doc ~man
let console_cmd = let console_cmd =