From eee1a4cb91108d2a7834e1715d9c0e74b50db71e Mon Sep 17 00:00:00 2001
From: Hannes Mehnert <hannes@mehnert.org>
Date: Wed, 14 Nov 2018 20:09:43 +0100
Subject: [PATCH] use less bandwidth, and more compression

---
 app/vmm_cli.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/app/vmm_cli.ml b/app/vmm_cli.ml
index bee529e..7c25950 100644
--- a/app/vmm_cli.ml
+++ b/app/vmm_cli.ml
@@ -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