version qui devrait être ok.

This commit is contained in:
Yann Dupont 2021-11-01 22:13:40 +01:00
parent b1c8e6cbef
commit 5cde355a83

View file

@ -87,7 +87,6 @@
#:use-module (gnu packages sphinx) #:use-module (gnu packages sphinx)
#:use-module (gnu packages tls) #:use-module (gnu packages tls)
#:use-module (gnu packages web) #:use-module (gnu packages web)
;; #:use-module (gnu packages glicid)
#:use-module (gnu packages pretty-print) #:use-module (gnu packages pretty-print)
#:use-module (gnu packages virtualization) #:use-module (gnu packages virtualization)
@ -99,8 +98,7 @@
(define-public keepalived (define-public keepalived
(package (package
(inherit gnu:keepalived) (inherit gnu:keepalived)
; (version "2.2.4") (version "2.2.4")
(version "2.0.18")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append (uri (string-append
@ -109,8 +107,7 @@
(sha256 (sha256
(base32 (base32
; "1py1xdrxzdxn09yi8dx842rmhnc8lv7z09wmb2mfljylhy8dcf01" "1py1xdrxzdxn09yi8dx842rmhnc8lv7z09wmb2mfljylhy8dcf01"
"1l2g0bzzbah9svfpwa0b9dgvwfv85r2y3qdr54822hg5p2qs48ql"
)))) ))))
@ -119,50 +116,24 @@
) )
;(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 (define-public glicid-keepalived
(package (package
; (inherit (latest-keepalived)) (inherit (if (string> (package-version keepalived) (package-version gnu:keepalived)) keepalived gnu: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 gnu:keepalived)) keepalived gnu:keepalived))
; )
(name "glicid-keepalived") (name "glicid-keepalived")
(arguments (arguments
`(#:configure-flags `(#:configure-flags
(list (string-append "--enable-snmp") (list (string-append "--enable-snmp")
(string-append "--enable-snmp-checker") (string-append "--enable-snmp-checker")
(string-append "--enable-snmp-rfc") (string-append "--enable-snmp-rfc")
) )
)
) )
)
(inputs `(("net-snmp", net-snmp)
,@(package-inputs keepalived)))
(inputs `(("net-snmp", net-snmp)
,@(package-inputs keepalived)))
) )
) )
; (define-public glicid-keepalived glicid-keepalived-2.2.4)
;;; glicid/cluster.scm ends here ;;; glicid/cluster.scm ends here