rpm: do not unpack parameters

They will be used as parameters again soon. This has no behaviour changes.
libguestfs · Apr 12, 2019 · 941f72d · 941f72d
1 parent bca633b
commit 941f72d
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/ph_rpm.ml b/src/ph_rpm.ml
@@ -144,10 +144,10 @@ let rpm_package_of_string str =
      * interested in the highest version with the best
      * architecture.
      *)
-    let cmp { version = v1; arch = a1 } { version = v2; arch = a2 } =
-      let i = rpm_vercmp v2 v1 in
+    let cmp pkg1 pkg2 =
+      let i = rpm_vercmp pkg2.version pkg1.version in
       if i <> 0 then i
-      else compare_architecture a2 a1
+      else compare_architecture pkg2.arch pkg1.arch
     in
     let rpms = List.sort cmp rpms in
     List.hd rpms