From f2c197c92c541b127fe253a9162e94e8613f31ad Mon Sep 17 00:00:00 2001
From: Yann Dupont <yann@objoo.org>
Date: Mon, 1 Nov 2021 23:16:44 +0100
Subject: [PATCH] =?UTF-8?q?now=20use=20a=20function=E2=80=A6?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 glicid/packages/cluster.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/glicid/packages/cluster.scm b/glicid/packages/cluster.scm
index 5805a8d..358afe0 100644
--- a/glicid/packages/cluster.scm
+++ b/glicid/packages/cluster.scm
@@ -92,6 +92,9 @@
   
 )
 
+;; helper function
+(define (latest-version v1 v2) (if (string> (package-version v1) (package-version v2)) v1 v2))
+
 
 ;;;;;;;;
 
@@ -118,8 +121,7 @@
 
 (define-public glicid-keepalived
   (package
-    (inherit (if (string> (package-version keepalived) (package-version gnu:keepalived)) keepalived gnu:keepalived))
-
+    (inherit (latest-version keepalived gnu:keepalived))
     (name "glicid-keepalived")
     (arguments
      `(#:configure-flags