mirrors/libguestfs
1
0
Fork 0
mirror of https://github.com/libguestfs/libguestfs.git synced 2026-03-22 07:03:38 +00:00
Code Issues Packages Projects Releases Wiki Activity

v2v: linux kernels: set type of 'g'

Browse Source 
Make sure the type checker can detect the real type of 'g', even when
adding more code using it in detect_kernels.
This commit is contained in:
Pino Toscano
2016-09-27 17:24:57 +02:00
parent b548c41951
commit d3736eb0a3
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
v2v/linux_kernels.ml
View File

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