Re: How to remove output from inherited package?

[Bodertz <bodertz@gmail.com>]

Hmm, I see that the delete in modify-phases doesn't "actually" delete
what you tell it to, but rather just adds (delete _) to the end of the
list:

(apologies for the long text; just notice that move-gui, for example
isn't actually removed from the output, and that (delete (quote
move-gui)) is added at the end)

--8<---------------cut here---------------start------------->8---
scheme@(guix-user)> (substitute-keyword-arguments transmission-args ((#:phases phases) #~(modify-phases #$phases (delete 'move-gui) (delete 'glib-or-gtk-wrap) (delete 'wrap-program))))

$30 = (#:imported-modules ((guix build glib-or-gtk-build-system) (guix build cmake-build-system) (guix build gnu-build-system) (guix build utils) (guix build gremlin) (guix elf)) #:modules (((guix build glib-or-gtk-build-system) #:prefix glib-or-gtk:) (guix build cmake-build-system) (guix build utils)) #:phases #<gexp (modify-phases #<gexp-input #<gexp (modify-phases %standard-phases (add-after (quote unpack) (quote remove-kernel-version) (lambda _ (substitute* "third-party/miniupnp/miniupnpc/updateminiupnpcstrings.sh" (("OS_VERSION=`uname -r`") "OS_VERSION=Guix")))) (replace (quote check) (lambda* (#:key tests? parallel-tests? #:allow-other-keys) (if tests? (invoke "ctest" "-E" "usesBootstrapFile" "-j" (if parallel-tests? (number->string (parallel-job-count)) "1")) (format #t "test suite not run~%")))) (add-after (quote install) (quote move-gui) (lambda* (#:key outputs #:allow-other-keys) (mkdir-p (string-append #<gexp-output gui> "/bin")) (mkdir-p (string-append #<gexp-output gui> "/share/man/man1")) (rename-file (string-append #<gexp-output out> "/bin/transmission-gtk") (string-append #<gexp-output gui> "/bin/transmission-gtk")) (for-each (lambda (dir) (rename-file (string-append #<gexp-output out> "/share/" dir) (string-append #<gexp-output gui> "/share/" dir))) (quote ("applications" "icons" "metainfo"))) (rename-file (string-append #<gexp-output out> "/share/man/man1/transmission-gtk.1") (string-append #<gexp-output gui> "/share/man/man1/transmission-gtk.1")))) (add-after (quote move-gui) (quote glib-or-gtk-wrap) (lambda* (#:key outputs #:allow-other-keys #:rest args) (apply (assoc-ref glib-or-gtk:%standard-phases (quote glib-or-gtk-wrap)) #:glib-or-gtk-wrap-excluded-outputs (list "out") args))) (add-after (quote glib-or-gtk-wrap) (quote wrap-program) (lambda* (#:key outputs #:allow-other-keys) (wrap-program (string-append #<gexp-output gui> "/bin/transmission-gtk") (quasiquote ("GDK_PIXBUF_MODULE_FILE" = ((unquote (getenv "GDK_PIXBUF_MODULE_FILE"))))))))) gnu/packages/bittorrent.scm:113:8 7f08847bfcc0>:out> (delete (quote move-gui)) (delete (quote glib-or-gtk-wrap)) (delete (quote wrap-program))) 7f088c309bd0>)
--8<---------------cut here---------------end--------------->8---


Is this the problem?  Is there some way to "actually" delete the
offending entries that mention #<gexp-output gui>?