From b5d7a6be9a58c322e72dab331131f82cbf62e2e0 Mon Sep 17 00:00:00 2001
From: Yann Dupont <yann@objoo.org>
Date: Mon, 26 Jul 2021 22:09:45 +0200
Subject: [PATCH] add a compiling ceph version

---
 gnu/packages/glicid.scm | 39 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 39 insertions(+)

diff --git a/gnu/packages/glicid.scm b/gnu/packages/glicid.scm
index 8f8510f..3d99691 100644
--- a/gnu/packages/glicid.scm
+++ b/gnu/packages/glicid.scm
@@ -1189,5 +1189,44 @@ in the @code{debug} output), and binutils.")))
 
 
 
+(use-modules (guix inferior) (guix channels)
+             (srfi srfi-1))   ;pour « first »
+
+
+(define channels
+  ;; L'ancienne révision depuis laquelle on veut
+  ;; extraire guile-json.
+  (list (channel
+         (name 'guix)
+         (url "https://git.savannah.gnu.org/git/guix.git")
+         (commit
+          "c9c274172b781c51e67868c53c8b2ea394bf7a94")))) ; just before snappy 1.19
+
+
+(define inferior
+  ;; Un inférieur représentant la révision ci-dessus.
+  (inferior-for-channels channels))
+
+(define-public old-snappy
+ (first (lookup-inferior-packages inferior "snappy")
+ )
+)
+
+
+(define-public glicid-ceph
+ (package 
+  (inherit ceph) 
+  (name "glicid-ceph")
+
+
+   (inputs `(("snappy",old-snappy)
+      ,@(package-inputs ceph)))
+
+ )
+)
+
+
+
+
 
 ;;; glicid.scm ends here