From 50322c847dc28f2a1e2e6efaa0d84d5561bc8d0a Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Thu, 3 Apr 2014 21:15:51 +0200
Subject: [PATCH] gnu: parted: Build against Readline 6.2.

* gnu/packages/readline.scm (readline-6.2): New variable.
* gnu/packages/parted.scm (parted): Use it instead of READLINE.
---
 gnu/packages/parted.scm   |  6 +++++-
 gnu/packages/readline.scm | 11 +++++++++++
 2 files changed, 16 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/parted.scm b/gnu/packages/parted.scm
index 45d6bf1ea40..5d5d38a5153 100644
--- a/gnu/packages/parted.scm
+++ b/gnu/packages/parted.scm
@@ -53,7 +53,11 @@ (define-public parted
     (inputs
      ;; XXX: add 'lvm2'.
      `(("check" ,check)
-       ("readline" ,readline)
+
+       ;; With Readline 6.3, parted/ui.c fails to build because it uses the
+       ;; now undefined 'CPPFunction' type.
+       ("readline" ,readline-6.2)
+
        ("util-linux" ,util-linux)))
     (native-inputs
      `(("gettext" ,gnu-gettext)))
diff --git a/gnu/packages/readline.scm b/gnu/packages/readline.scm
index f35a52f614d..13ce9165f4b 100644
--- a/gnu/packages/readline.scm
+++ b/gnu/packages/readline.scm
@@ -74,3 +74,14 @@ (define-public readline
 comfortable for anyone.")
       (license gpl3+)
       (home-page "http://savannah.gnu.org/projects/readline/"))))
+
+(define-public readline-6.2
+  (package (inherit readline)
+    (version "6.2")
+    (source (origin (inherit (package-source readline))
+              (method url-fetch)
+              (uri (string-append "mirror://gnu/readline/readline-"
+                                  version ".tar.gz"))
+              (sha256
+               (base32
+                "10ckm2bd2rkxhvdmj7nmbsylmihw0abwcsnxf8y27305183rd9kr"))))))
-- 
GitLab