From 5cc0109030145b6b8483794f77524147d9d93f71 Mon Sep 17 00:00:00 2001
From: Yann Dupont <yann@objoo.org>
Date: Mon, 25 Oct 2021 16:04:29 +0200
Subject: [PATCH] keepalived is now in cluster.scm

---
 glicid/packages/cluster.scm | 138 ++++++++++++++++++++++++++++++++++++
 glicid/packages/glicid.scm  |  34 ---------
 2 files changed, 138 insertions(+), 34 deletions(-)
 create mode 100644 glicid/packages/cluster.scm

diff --git a/glicid/packages/cluster.scm b/glicid/packages/cluster.scm
new file mode 100644
index 0000000..4332883
--- /dev/null
+++ b/glicid/packages/cluster.scm
@@ -0,0 +1,138 @@
+(define-module (glicid packages cluster)
+  #:use-module (guix packages)
+  #:use-module (guix download)
+  #:use-module (guix git-download)
+  #:use-module (guix build-system gnu)
+  #:use-module (guix build-system cmake)
+;  #:use-module (guix licenses)
+  #:use-module (gnu packages gawk)
+  #:use-module (gnu packages gcc)
+  #:use-module (gnu packages commencement)
+  #:use-module (guix build-system python)
+  #:use-module ((guix licenses) #:prefix license:)
+  #:use-module ((guix utils) #:select (target-64bit?))
+  #:use-module (gnu packages)
+  #:use-module (gnu packages admin)
+  #:use-module (gnu packages autotools)
+  #:use-module (gnu packages base)
+  #:use-module (gnu packages freeipmi)
+  #:use-module (gnu packages linux)
+  #:use-module (gnu packages mpi)
+  #:use-module (gnu packages perl)
+  #:use-module (gnu packages pkg-config)
+  #:use-module (gnu packages parallel)
+  #:use-module (gnu packages storage)
+  #:use-module (gnu packages networking)
+  #:use-module (gnu packages gtk)  
+  #:use-module (gnu packages python)
+  #:use-module (gnu packages python-science)
+  #:use-module (gnu packages python-web)
+  #:use-module (gnu packages python-xyz)
+  #:use-module (gnu packages readline)
+  #:use-module (gnu packages tcl)
+  #:use-module (gnu packages tls)
+  #:use-module (gnu packages commencement)
+  #:use-module (gnu packages gcc)
+  #:use-module (gnu packages chemistry)
+  #:use-module (gnu packages sphinx)
+  #:use-module (srfi srfi-1)
+  #:use-module (gnu packages mpi)
+  #:use-module (gnu packages sssd)
+  #:use-module (gnu packages fabric-management)
+  #:use-module (gnu packages benchmark)
+  #:use-module (gnu packages messaging)
+  #:use-module (gnu packages web)
+  #:use-module (gnu packages gnome)
+  #:use-module (gnu packages cluster)  
+  #:use-module (gnu packages libevent)
+  #:use-module (gnu packages xorg)
+  #:use-module (gnu packages fontutils)
+  #:use-module (gnu packages flex)
+  #:use-module (gnu packages bison)
+  #:use-module (gnu packages pkg-config)
+  #:use-module (gnu packages autotools)
+  #:use-module (gnu packages fontutils)
+  #:use-module (guix build-system gnu)
+  #:use-module (gnu packages image)
+  #:use-module (gnu packages maths)     
+  #:use-module (guix utils)
+  #:use-module (gnu packages cmake)
+  #:use-module  (gnu packages pretty-print)
+  #:use-module (gnu packages boost)
+  #:use-module (gnu packages curl)
+  #:use-module (gnu packages cryptsetup)
+  #:use-module (gnu packages xml)
+  #:use-module (gnu packages admin)
+  #:use-module (gnu packages assembly)
+  #:use-module (gnu packages authentication)
+  #:use-module (gnu packages bdw-gc)
+  #:use-module (gnu packages boost) 
+  #:use-module (gnu packages compression)
+  #:use-module (gnu packages crypto)
+  #:use-module (gnu packages cryptsetup)
+  #:use-module (gnu packages curl)
+  #:use-module (gnu packages databases)
+  #:use-module (gnu packages disk)
+  #:use-module (gnu packages gperf)
+  #:use-module (gnu packages jemalloc)
+  #:use-module (gnu packages linux)   
+  #:use-module (gnu packages lua)     
+  #:use-module (gnu packages ncurses) 
+  #:use-module (gnu packages networking)
+  #:use-module (gnu packages nss)
+  #:use-module (gnu packages openldap)
+  #:use-module (gnu packages pkg-config)
+  #:use-module (gnu packages python)
+  #:use-module (gnu packages python-xyz)
+  #:use-module (gnu packages sphinx)
+  #:use-module (gnu packages tls)   
+  #:use-module (gnu packages web)   
+;;  #:use-module (gnu packages glicid)
+  #:use-module (gnu packages pretty-print)
+  #:use-module (gnu packages virtualization)
+  #:use-module (glicid packages storage)
+  #:use-module (glicid packages mpi)
+  #:use-module (glicid packages gcc)
+  
+)
+
+
+;;;;;;;;
+
+(define-public glicid-keepalived
+  (package
+    (inherit keepalived)
+    (name "glicid-keepalived")
+    (version "2.1.5")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append
+                    "http://www.keepalived.org/software/keepalived-"
+                    version ".tar.gz"))
+
+              (sha256
+               (base32
+                "0n92fdlmm251scq2j7w1nqwly8jsla4sxrd0jnfb6nn9qp5pqkfr"))))
+
+   (arguments
+   `(#:configure-flags
+     (list (string-append "--enable-snmp")
+           (string-append "--enable-snmp-checker")
+	   (string-append "--enable-snmp-rfc")
+     )
+    )
+      
+   )
+
+
+      (inputs `(("net-snmp", net-snmp)
+      ,@(package-inputs keepalived)))
+
+
+
+ )
+)
+
+
+
+;;; glicid/cluster.scm ends here
diff --git a/glicid/packages/glicid.scm b/glicid/packages/glicid.scm
index 927d221..f801b51 100644
--- a/glicid/packages/glicid.scm
+++ b/glicid/packages/glicid.scm
@@ -441,40 +441,6 @@
 )
 
 
-(define-public glicid-keepalived
-  (package
-    (inherit keepalived)
-    (name "glicid-keepalived")
-    (version "2.1.5")
-    (source (origin
-              (method url-fetch)
-              (uri (string-append
-                    "http://www.keepalived.org/software/keepalived-"
-                    version ".tar.gz"))
-
-              (sha256
-               (base32
-                "0n92fdlmm251scq2j7w1nqwly8jsla4sxrd0jnfb6nn9qp5pqkfr"))))
-
-   (arguments
-   `(#:configure-flags
-     (list (string-append "--enable-snmp")
-           (string-append "--enable-snmp-checker")
-	   (string-append "--enable-snmp-rfc")
-     )
-    )
-      
-   )
-
-
-      (inputs `(("net-snmp", net-snmp)
-      ,@(package-inputs keepalived)))
-
-
-
- )
-)
-
 (define-public glicid-motif
   (package
     (name "glicid-motif")