From 00d0f4e011c1566591a406d104f6511bebdbcfd8 Mon Sep 17 00:00:00 2001 From: Yann Dupont Date: Tue, 2 Nov 2021 22:23:00 +0100 Subject: [PATCH] test --- glicid/packages/cluster.scm | 6 +----- glicid/utils.scm | 5 +++++ 2 files changed, 6 insertions(+), 5 deletions(-) create mode 100644 glicid/utils.scm diff --git a/glicid/packages/cluster.scm b/glicid/packages/cluster.scm index 358afe0..4f79e60 100644 --- a/glicid/packages/cluster.scm +++ b/glicid/packages/cluster.scm @@ -89,13 +89,9 @@ #:use-module (gnu packages web) #:use-module (gnu packages pretty-print) #:use-module (gnu packages virtualization) - + #:use-module (glicid utils) ) -;; helper function -(define (latest-version v1 v2) (if (string> (package-version v1) (package-version v2)) v1 v2)) - - ;;;;;;;; (define-public keepalived diff --git a/glicid/utils.scm b/glicid/utils.scm new file mode 100644 index 0000000..166c14b --- /dev/null +++ b/glicid/utils.scm @@ -0,0 +1,5 @@ +(define-module (glicid utils)) +;; helper function +;; return latest version of 2 packages + +(define-public (latest-version v1 v2) (if (string> (package-version v1) (package-version v2)) v1 v2))