From 93989aedfdbc6c8f3217bbe7bdf2896fb8957cc5 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Sun, 10 May 2020 15:27:32 +0200
Subject: [PATCH] gnu: guile-xapian: Switch to Guile 3.0.

* gnu/packages/guile-xyz.scm (guile-xapian)[inputs]: Switch to GUILE-3.0.
(guile2.2-xapian): New variable.
(guile3.0-xapian): Define as 'deprecated-package'.
---
 gnu/packages/guile-xyz.scm | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/gnu/packages/guile-xyz.scm b/gnu/packages/guile-xyz.scm
index fe28dfca57..db9c205e3f 100644
--- a/gnu/packages/guile-xyz.scm
+++ b/gnu/packages/guile-xyz.scm
@@ -3382,7 +3382,7 @@ (define-public guile-xapian
     (arguments
      '(#:make-flags '("GUILE_AUTO_COMPILE=0"))) ; to prevent guild warnings
     (inputs
-     `(("guile" ,guile-2.2)
+     `(("guile" ,guile-3.0)
        ("xapian" ,xapian)
        ("zlib" ,zlib)))
     (native-inputs
@@ -3400,14 +3400,17 @@ (define-public guile-xapian
 models and also supports a rich set of boolean query operators.")
     (license license:gpl2+)))
 
-(define-public guile3.0-xapian
+(define-public guile2.2-xapian
   (package
     (inherit guile-xapian)
-    (name "guile3.0-xapian")
+    (name "guile2.2-xapian")
     (inputs
-     `(("guile" ,guile-next)
+     `(("guile" ,guile-2.2)
        ,@(alist-delete "guile" (package-inputs guile-xapian))))))
 
+(define-public guile3.0-xapian
+  (deprecated-package "guile3.0-xapian" guile-xapian))
+
 (define-public guile-torrent
   (package
     (name "guile-torrent")