[Pkg-libvirt-commits] [libguestfs] 132/384: v2v: -o libvirt: Replace List.mapi with mapi.

[Hilko Bengen]

This is an automated email from the git hooks/post-receive script.

bengen pushed a commit to branch experimental
in repository libguestfs.

commit 47d909808aa8cd285f46cab5ea08c7971f8f2f85
Author: Richard W.M. Jones <rjones at redhat.com>
Date:   Thu Dec 18 08:30:18 2014 +0000

    v2v: -o libvirt: Replace List.mapi with mapi.
    
    Don't depend on OCaml >= 4.00.
    
    https://bugs.gentoo.org/show_bug.cgi?id=532698
    
    Thanks: Fabian Ohler
---
 v2v/output_libvirt.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/v2v/output_libvirt.ml b/v2v/output_libvirt.ml
index cdc86b4..b566c16 100644
--- a/v2v/output_libvirt.ml
+++ b/v2v/output_libvirt.ml
@@ -114,7 +114,7 @@ let create_libvirt_xml ?pool source targets guestcaps target_features =
     let block_bus =
       match guestcaps.gcaps_block_bus with
       | Virtio_blk -> "virtio" | IDE -> "ide" in
-    List.mapi (
+    mapi (
       fun i t ->
         e "disk" [
           "type", if pool = None then "file" else "volume";

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-libvirt/libguestfs.git