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