From 44d00e1c1793629a8e1356b8089b0bd43a9f047b Mon Sep 17 00:00:00 2001 From: Yann Dupont Date: Mon, 1 Nov 2021 21:55:09 +0100 Subject: [PATCH] tests de versions. --- glicid/packages/cluster.scm | 22 ++++++++++++++++++++-- 1 file changed, 20 insertions(+), 2 deletions(-) diff --git a/glicid/packages/cluster.scm b/glicid/packages/cluster.scm index 418b96d..a27bd1e 100644 --- a/glicid/packages/cluster.scm +++ b/glicid/packages/cluster.scm @@ -119,12 +119,30 @@ ) -(use-modules (gnu packages cluster)) ;; to bring keepalived symbols +;(define choose-latest (package1 package2) +; (let ) +;) + +; (define glicid-version +; (version-major+minor (package-version keepalived))) + +; (define gnu-version +; (version-major+minor (package-version gnu:keepalived))) + + ;(define (latest-keepalived (if (>= glicid-version gnu-version) keepalived gnu:keepalived))) + (define-public glicid-keepalived (package - (inherit keepalived) +; (inherit (latest-keepalived)) + + ; (inherit (if (>= (version-major+minor (package-version keepalived)) (version-major+minor (package-version keepalived))) keepalived gnu:keepalived)) + (inherit (if (string> (package-version keepalived) (package-version keepalived)) keepalived gnu:keepalived)) + + + ; ) + (name "glicid-keepalived") (arguments `(#:configure-flags