From 2636e565fa4847dc0d1c786345e98053cf783cc1 Mon Sep 17 00:00:00 2001
From: Marius Bakke <address@hidden>
Date: Tue, 18 Apr 2017 20:13:45 +0200
Subject: [PATCH] gnu: coreutils: Replace with 8.27.

* gnu/packages/base.scm (coreutils-8.27): New variable.
(coreutils)[replacement]: New field.
(coreutils-minimal)[source]: Inherit from COREUTILS-8.27.
[replacement]: New field.
* gnu/packages/commencement.scm (coreutils-final): Set replacement #f on
coreutils derivation.

Co-authored-by: Leo Famulari <address@hidden>
---
 gnu/packages/base.scm         | 15 +++++++++++++++
 gnu/packages/commencement.scm | 20 ++++++++++++--------
 2 files changed, 27 insertions(+), 8 deletions(-)

diff --git a/gnu/packages/base.scm b/gnu/packages/base.scm
index 5c36b612f..36eaabb36 100644
--- a/gnu/packages/base.scm
+++ b/gnu/packages/base.scm
@@ -285,6 +285,7 @@ used to apply commands with arbitrarily long arguments.")
   (package
    (name "coreutils")
    (version "8.26")
+   (replacement coreutils-8.27)
    (source (origin
             (method url-fetch)
             (uri (string-append "mirror://gnu/coreutils/coreutils-"
@@ -361,11 +362,25 @@ functionality beyond that which is outlined in the POSIX standard.")
    (license gpl3+)
    (home-page "https://www.gnu.org/software/coreutils/")))
 
+(define coreutils-8.27
+  (package
+    (inherit coreutils)
+    (version "8.27")
+    (source (origin
+              (method url-fetch)
+              (uri (string-append "mirror://gnu/coreutils/coreutils-"
+                                  version ".tar.xz"))
+              (sha256
+               (base32
+                "0sv547572iq8ayy8klir4hnngnx92a9nsazmf1wgzfc7xr4x74c8"))))))
+
 (define-public coreutils-minimal
   ;; Coreutils without its optional dependencies.
   (package
     (inherit coreutils)
     (name "coreutils-minimal")
+    (replacement #f)
+    (source (package-source coreutils-8.27))
     (outputs '("out"))
     (inputs '())))
 
diff --git a/gnu/packages/commencement.scm b/gnu/packages/commencement.scm
index 92f6e6c2e..c9d851c4d 100644
--- a/gnu/packages/commencement.scm
+++ b/gnu/packages/commencement.scm
@@ -868,15 +868,19 @@ exec ~a/bin/~a-~a -B~a/lib -Wl,-dynamic-linker -Wl,~a/~a \"address@hidden"~%"
   ;; The final Coreutils.  Treat them specially because some packages, such as
   ;; Findutils, keep a reference to the Coreutils they were built with.
   (package-with-bootstrap-guile
-   (package-with-explicit-inputs coreutils
-                                 %boot5-inputs
-                                 (current-source-location)
 
-                                 ;; Use the final Guile, linked against the
-                                 ;; final libc with working iconv, so that
-                                 ;; 'substitute*' works well when touching
-                                 ;; test files in Gettext.
-                                 #:guile guile-final)))
+
+   (let ((p (package-with-explicit-inputs coreutils
+                                          %boot5-inputs
+                                          (current-source-location)
+
+                                          ;; Use the final Guile, linked against the
+                                          ;; final libc with working iconv, so that
+                                          ;; 'substitute*' works well when touching
+                                          ;; test files in Gettext.
+                                          #:guile guile-final)))
+           (package (inherit p)
+                    (replacement #f)))))
 
 (define grep-final
   ;; The final grep.  Gzip holds a reference to it (via zgrep), so it must be
-- 
2.12.2