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

[Pino Toscano]

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
-- 
2.7.4