On Tue, Feb 09, 2016 at 07:02:06PM +0000, Richard W.M. Jones wrote:
       let net_type =
         match net_type with
         | Some model -> model
 	| None -> RTL8139 in
       (IDE, model, Cirrus) 
              ^^ should be net_type, not model
Rich.
-- 
Richard Jones, Virtualization Group, Red Hat 
http://people.redhat.com/~rjones
Read my programming and virtualization blog: 
http://rwmj.wordpress.com
virt-p2v converts physical machines to virtual machines.  Boot with a
live CD or over the network (PXE) and turn machines into KVM guests.
http://libguestfs.org/virt-v2v