[Libguestfs] [PATCH supermin 1/5] dpkg: Don't use OCaml 4-ism when creating a struct.

[Richard W.M. Jones]

Prevents us compiling on OCaml 3.11.2 in RHEL 6.
---
 src/dpkg.ml | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/dpkg.ml b/src/dpkg.ml
index 8f92f7f..f96105f 100644
--- a/src/dpkg.ml
+++ b/src/dpkg.ml
@@ -64,7 +64,8 @@ let dpkg_package_of_string str =
       fun line ->
         match string_split " " line with
         | [ name; version; arch; _; _; "installed" ] ->
-          Hashtbl.add dpkg_packages name { name; version; arch }
+          let dpkg = { name = name; version = version; arch = arch } in
+          Hashtbl.add dpkg_packages name dpkg
         | _ -> ();
     ) lines
   );
-- 
1.8.5.3