On Wed, May 14, 2014 at 06:00:56PM +0200, Pino Toscano wrote:
 Missing from commit 87d79c2ee259ce51595ad3a924fd216f882dc477.
 ---
  builder/builder.ml | 11 +++++++----
  1 file changed, 7 insertions(+), 4 deletions(-)
 
 diff --git a/builder/builder.ml b/builder/builder.ml
 index acb6129..95f90b7 100644
 --- a/builder/builder.ml
 +++ b/builder/builder.ml
 @@ -178,12 +178,13 @@ let main () =
        | Some _ ->
          List.iter (
            fun (name,
 -               { Index_parser.revision = revision; file_uri = file_uri }) ->
 +               { Index_parser.revision = revision; file_uri = file_uri;
 +                 proxy = proxy }) ->
              let template = name, arch, revision in
              msg (f_"Downloading: %s") file_uri;
              let progress_bar = not quiet in
              ignore (Downloader.download ~prog downloader ~template ~progress_bar
 -                      file_uri)
 +                      ~proxy file_uri)
          ) index;
          exit 0
        );
 @@ -224,11 +225,13 @@ let main () =
    (* Download the template, or it may be in the cache. *)
    let template =
      let template, delete_on_exit =
 -      let { Index_parser.revision = revision; file_uri = file_uri } = entry in
 +      let { Index_parser.revision = revision; file_uri = file_uri;
 +            proxy = proxy } = entry in
        let template = arg, arch, revision in
        msg (f_"Downloading: %s") file_uri;
        let progress_bar = not quiet in
 -      Downloader.download ~prog downloader ~template ~progress_bar file_uri in
 +      Downloader.download ~prog downloader ~template ~progress_bar ~proxy
 +        file_uri in
      if delete_on_exit then unlink_on_exit template;
      template in 
ACK series.  Thanks!
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