Subject: bug#33010: closed (Re: [bug#33010] [PATCH 2/3] gnu: Add guix-minimal.)

From: [email-masked] (GNU bug Tracking System)
Date: Tue, 16 Oct 2018 22:34:02 +0000

Your bug report

#33010: [PATCH 2/3] gnu: Add guix-minimal.

which was filed against the guix-patches package, has been closed.

The explanation is attached below, along with your original report.
If you require more details, please reply to [email-masked].

-- 
33010: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=33010
GNU Bug Tracking System
Contact [email-masked] with problems

Subject: Re: [bug#33010] [PATCH 2/3] gnu: Add guix-minimal.
From: Eric Bavier <[email-masked]>
Cc: [email-masked]
Date: Tue, 16 Oct 2018 17:33:24 -0500
List-Id: <debbugs-submit.debbugs.gnu.org>

On Tue, 16 Oct 2018 13:28:01 +0200
[email-masked] (Ludovic Courtès) wrote:

> Hi Eric,
> 
> Eric Bavier <[email-masked]> skribis:
> 
> > On Mon, Oct 15, 2018 at 09:28:31PM +0200, Ludovic Courtès wrote:  
> >> Eric Bavier <[email-masked]> skribis:
> >>   
> >> > On Sun, 14 Oct 2018 23:42:58 +0200
> >> > [email-masked] (Ludovic Courtès) wrote:  
> >> >> I wonder whether we should add packages “just” for this, especially
> >> >> given that 2.0 support is reaching end-of-life and that 2.0.13 is pretty
> >> >> old.  
> >> >
> >> > This package would be updated as needed to reflect changes in Guix
> >> > dependencies.  
> >> 
> >> OK.  It does sound like an interesting CI job, but maybe not great as a
> >> package users can install.  Though of course we can mark it as hidden
> >> and then it’s just an easy way to write that CI job.  Thoughts?  
> >
> > I think marking it "hidden" would be fine.  
> 
> OK, let’s do that, along with a comment explaining the purpose of this
> package.

Pushed with the above changes in
6f1ce09d79fa6148459c90120881e825551651b2

Subject: [PATCH 2/3] gnu: Add guix-minimal.
From: [email-masked]
To: [email-masked]
Cc: Eric Bavier <[email-masked]>
Date: Wed, 10 Oct 2018 20:52:45 -0500
List-Id: <debbugs-submit.debbugs.gnu.org>

From: Eric Bavier <[email-masked]>

* gnu/packages/guile.scm (guile-2.0.13): New variable.
* gnu/packages/package-management.scm (guix)[arguments]: Adjust 'wrap-program'
phase to handle "missing" inputs.
(guix-minimal): New variable.
---
 gnu/packages/guile.scm              | 14 ++++++++++++++
 gnu/packages/package-management.scm | 17 +++++++++++++++--
 2 files changed, 29 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/guile.scm b/gnu/packages/guile.scm
index 912b0218e..216f7c6d5 100644
--- a/gnu/packages/guile.scm
+++ b/gnu/packages/guile.scm
@@ -226,6 +226,20 @@ without requiring the source code to be rewritten.")
    (home-page "https://www.gnu.org/software/guile/")
    (license license:lgpl3+)))
 
+(define-public guile-2.0.13
+  ;; For testing a "minimal" Guix
+  (hidden-package
+   (package (inherit guile-2.0)
+            (name "guile")
+            (version "2.0.13")
+            (source (origin
+                      (method url-fetch)
+                      (uri (string-append "mirror://gnu/guile/guile-" version
+                                          ".tar.xz"))
+                      (sha256
+                       (base32
+                        "12yqkr974y91ylgw6jnmci2v90i90s7h9vxa4zk0sai8vjnz4i1p")))))))
+
 (define-public guile-2.2
   (package (inherit guile-2.0)
     (name "guile")
diff --git a/gnu/packages/package-management.scm b/gnu/packages/package-management.scm
index 000c28632..4ddcb55f4 100644
--- a/gnu/packages/package-management.scm
+++ b/gnu/packages/package-management.scm
@@ -232,13 +232,13 @@
                                         (map (cut string-append <>
                                                   "/share/guile/site/"
                                                   effective)
-                                             deps)
+                                             (delete #f deps))
                                         ":"))
                                (gopath (string-join
                                         (map (cut string-append <>
                                                   "/lib/guile/" effective
                                                   "/site-ccache")
-                                             deps)
+                                             (delete #f deps))
                                         ":")))
 
                           (wrap-program (string-append out "/bin/guix")
@@ -371,6 +371,19 @@ the Nix package manager.")
        ("guile-ssh" ,guile2.0-ssh)
        ("guile-git" ,guile2.0-git)))))
 
+(define-public guix-minimal
+  (let ((guix guile2.0-guix))
+    (package
+      (inherit guix)
+      (name "guix-minimal")
+      (inputs
+       `(("guile" ,guile-2.0.13)
+         ,@(alist-delete "guile" (package-inputs guix))))
+      (propagated-inputs
+       (fold alist-delete
+             (package-propagated-inputs guix)
+             '("guile-json" "guile-ssh"))))))
+
 (define (source-file? file stat)
   "Return true if FILE is likely a source file, false if it is a typical
 generated file."
-- 
2.19.0