[Libguestfs] [PATCH 1/3] v2v: linux kernels: set type of 'g'

[Richard W.M. Jones]

On Tue, Sep 27, 2016 at 05:58:10PM +0200, Pino Toscano wrote:
> Make sure the type checker can detect the real type of 'g', even when
> adding more code using it in detect_kernels.
> ---
>  v2v/linux_kernels.ml | 2 +-
>  1 file changed, 1 insertion(+), 1 deletion(-)
> 
> diff --git a/v2v/linux_kernels.ml b/v2v/linux_kernels.ml
> index 3819d26..b292921 100644
> --- a/v2v/linux_kernels.ml
> +++ b/v2v/linux_kernels.ml
> @@ -49,7 +49,7 @@ let string_of_kernel_info ki =
>      (match ki.ki_initrd with None -> "None" | Some f -> f)
>      ki.ki_supports_virtio ki.ki_is_xen_kernel ki.ki_is_debug
>  
> -let detect_kernels g inspect family bootloader =
> +let detect_kernels (g : G.guestfs) inspect family bootloader =
>    (* What kernel/kernel-like packages are installed on the current guest? *)
>    let installed_kernels : kernel_info list =
>      let rex_ko = Str.regexp ".*\\.k?o\\(\\.xz\\)?$" in

Trivial change, ACK.

Rich.

-- 
Richard Jones, Virtualization Group, Red Hat http://people.redhat.com/~rjones
Read my programming and virtualization blog: http://rwmj.wordpress.com
virt-builder quickly builds VMs from scratch
http://libguestfs.org/virt-builder.1.html