[Libguestfs] [PATCH v11 4/6] builder: add Index.write_entry function

[Richard W.M. Jones]

On Thu, Oct 05, 2017 at 04:58:28PM +0200, Cédric Bosdonnat wrote:
> +let write_entry chan (name, { Index.printable_name = printable_name;
> +                              file_uri = file_uri;
> +                              arch = arch;
> +                              osinfo = osinfo;
> +                              signature_uri = signature_uri;
> +                              checksums = checksums;
> +                              revision = revision;
> +                              format = format;
> +                              size = size;
> +                              compressed_size = compressed_size;
> +                              expand = expand;
> +                              lvexpand = lvexpand;
> +                              notes = notes;
> +                              aliases = aliases;
> +                              hidden = hidden }) =

Since commit c7651744da455a00a7abeb930621c50bfb23c40c we've moved the
base OCaml compiler version forwards, allowing this to be written much
more concisely as:

let write_entry chan (name, { Index.printable_name; file_uri; arch; osinfo;
                              signature_uri; checksums; revision; format;
                              size; compressed_size; expand; lvexpand;
                              notes; aliases; hidden }) =


Rich.

-- 
Richard Jones, Virtualization Group, Red Hat http://people.redhat.com/~rjones
Read my programming and virtualization blog: http://rwmj.wordpress.com
libguestfs lets you edit virtual machines.  Supports shell scripting,
bindings from many languages.  http://libguestfs.org