From efc043cd5cf4e92dbed65bfc99abc32c0c4b9b1f Mon Sep 17 00:00:00 2001
From: Hannes Mehnert <hannes@mehnert.org>
Date: Sat, 13 Oct 2018 01:25:18 +0200
Subject: [PATCH] fix 'vmmc info'

---
 src/vmm_wire.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/vmm_wire.ml b/src/vmm_wire.ml
index 47f81c8..9153fbc 100644
--- a/src/vmm_wire.ml
+++ b/src/vmm_wire.ml
@@ -625,7 +625,7 @@ module Vm = struct
     decode_int cs''' >>= fun pid ->
     cs_shift cs''' 8 >>= fun cs'''' ->
     decode_strings cs'''' >>= fun (taps, l'') ->
-    Ok ((id, memory, cmd, pid, taps), l + 8 + l' + l'')
+    Ok ((id, memory, cmd, pid, taps), l + 8 + l' + 8 + l'')
 
   let decode_vms buf = decode_list decode_vm buf