[Libguestfs] [supermin PATCH 1/5] rpm: do not unpack parameters

[Pino Toscano]

They will be used as parameters again soon.

This has no behaviour changes.
---
 src/ph_rpm.ml | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/ph_rpm.ml b/src/ph_rpm.ml
index 3ff5c94..6769e7b 100644
--- 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
-- 
2.20.1