X-Git-Url: http://git.annexia.org/?p=virt-mem.git;a=blobdiff_plain;f=extract%2Ffedora-koji%2Ffedora_koji_download_kernels.ml;h=57abfd3471a50f1793f51b263bd39246a4589483;hp=89879e435e4afbedb541f8cd6c58a0af53876f43;hb=6a9ef09747fe85ca7f69c3c9e08c1372db62b90e;hpb=0a354dd8e7e1fc5853af75d76de772e31f4a7901

diff --git a/extract/fedora-koji/fedora_koji_download_kernels.ml b/extract/fedora-koji/fedora_koji_download_kernels.ml
index 89879e4..57abfd3 100644
--- a/extract/fedora-koji/fedora_koji_download_kernels.ml
+++ b/extract/fedora-koji/fedora_koji_download_kernels.ml
@@ -197,6 +197,13 @@ let main outputdir =
   let nr_builds = List.length builds in
   printf "%d kernel builds found on Koji.\n%!" nr_builds;
 
+  (* Sort the builds by build ID in reverse, so that we tend to download
+   * the most recent kernels first.
+   *)
+  let builds =
+    let cmp { build_id = id1 } { build_id = id2 } = compare id2 id1 in
+    List.sort ~cmp builds in
+
   List.iteri (
     fun i build ->
       printf "Build %d/%d: %s\n" (i+1) nr_builds (string_of_build build);