bug#35618: 'guix environment' doesn't honor package transformations

[Ludovic Courtès]

Hello,

‘guix environment’ apparently doesn’t honor package transformation
options:

--8<---------------cut here---------------start------------->8---
$ guix describe
Generacio 80    May 02 2019 15:50:50    (nuna)
  guix 746ac45
    repository URL: https://git.savannah.gnu.org/git/guix.git
    branch: master
    commit: 746ac457cc2748152a3a39d4296972fa20f19741
$ guix environment guile-json --with-input=guile=guile-next
[env]$ cat $GUIX_ENVIRONMENT/manifest | grep -C4 guile
          ":"
          directory
          #f)))
      (properties))
     ("guile"
      "2.2.4"
      "out"
      "/gnu/store/9alic3caqhay3h8mx4iihpmyj6ymqpcx-guile-2.2.4"
      (propagated-inputs
        (("libunistring"
          "0.9.10"
          "out"
--
          (search-paths ())
          (properties))))
      (search-paths
        (("GUILE_LOAD_PATH"
          ("share/guile/site/2.2")
          ":"
          directory
          #f)
         ("GUILE_LOAD_COMPILED_PATH"
          ("lib/guile/2.2/site-ccache")
          ":"
          directory
          #f)))
      (properties))
--8<---------------cut here---------------end--------------->8---

With ‘--ad-hoc’, package transformation options are honored:

--8<---------------cut here---------------start------------->8---
$ guix environment --ad-hoc guile-json --with-input=guile=guile-next

[...]

[env]$ cat $GUIX_ENVIRONMENT/manifest | grep -C4 guile
(manifest
  (version 3)
  (packages
    (("guile-json"
      "3.1.0"
      "out"
      "/gnu/store/lyzfdnifdm21m20yxjc4lpwf67b74kgz-guile-json-3.1.0"
      (propagated-inputs ())
      (search-paths ())
      (properties)))))
[env]$ guix gc --references $(guix gc --derivers 
"/gnu/store/lyzfdnifdm21m20yxjc4lpwf67b74kgz-guile-json-3.1.0" |head -1) |grep 
guile
/gnu/store/16c8c8hm1qdn6xz8014939mirc7c4d4j-guile-2.2.4.drv
/gnu/store/36r9kmss44r1w96pqjd52bpkbvg0mh72-guile-json-3.1.0-guile-builder
/gnu/store/qfxz4zcnxgavf70j2b4ad0wr44bg2m2l-guile-next-2.9.1.drv
/gnu/store/qmsj1jnlah66cqmhwznabd09zjm2yqsm-guile-json-3.1.0.tar.gz.drv
[env]$ grep guile-next 
/gnu/store/36r9kmss44r1w96pqjd52bpkbvg0mh72-guile-json-3.1.0-guile-builder
(begin (use-modules (guix build gnu-build-system) (guix build utils)) (define 
%output (getenv "out")) (define %outputs (map (lambda (o) (cons o (getenv o))) 
(quote ("out")))) (define %build-inputs (quote (("source" . 
"/gnu/store/s8rxp97hlh751wb46355slvqg579n2py-guile-json-3.1.0.tar.gz") 
("pkg-config" . 
"/gnu/store/xyiyf12w4i7zf5g5b4ah0bi1mmd6i8xa-pkg-config-0.29.2") ("guile" . 
"/gnu/store/szs1ndrdmg5yz7b2cms3bc740cn3dfwv-guile-next-2.9.1") ("tar" . 
"/gnu/store/bl3pxxj6frg0dww8pj5dvh2d1akwvj47-tar-1.30") ("gzip" . 
"/gnu/store/h0c398zan9ibhk4w0c944vp5pwgzkfpd-gzip-1.9") ("bzip2" . 
"/gnu/store/j74aabxwayjl9yfyrm6ni482gykxq48b-bzip2-1.0.6") ("xz" . 
"/gnu/store/9425b5dwpfc04bb4p58hsjypxghliyr3-xz-5.2.4") ("file" . 
"/gnu/store/ypiyk8ngn79cz655jrl0hng37xv54yjr-file-5.33") ("diffutils" . 
"/gnu/store/4bzzz0lzjc9b7bfsnqbq2j22d4fvf433-diffutils-3.6") ("patch" . 
"/gnu/store/a4rxl40jr7gmq8bp3dryq4yq67cwkwiw-patch-2.7.6") ("findutils" . 
"/gnu/store/fd621k6fmdnr1yiw0lbvw5spqaa169j3-findutils-4.6.0") ("gawk" . 
"/gnu/store/l67sib1ld0fgyf0f4vrzyxnmn4yvimvb-gawk-4.2.1") ("sed" . 
"/gnu/store/lmfddplnplxd03bcqv3w9pynbnr1fp8k-sed-4.5") ("grep" . 
"/gnu/store/02k245xy33cvcnr8vm3lagm9zmb1s2wa-grep-3.1") ("coreutils" . 
"/gnu/store/5s2nib1lrd2101bbrivcl17kjx1mspw6-coreutils-8.30") ("make" . 
"/gnu/store/7j3941iannrngdvgbclyxid12vds5w9i-make-4.2.1") ("bash" . 
"/gnu/store/q19l04vd2za80mk1845pz7r8cz29qk43-bash-minimal-4.4.23") 
("ld-wrapper" . "/gnu/store/9ysmg2739n1ms84lx6hifncgc5l2hiy9-ld-wrapper-0") 
("binutils" . "/gnu/store/02iklp4swqs0ipxhg5x9b2shmj6b30h1-binutils-2.31.1") 
("gcc" . "/gnu/store/n2p1zs14y89lwkg9da68y12pc10c6sw9-gcc-5.5.0") ("libc" . 
"/gnu/store/h90vnqw0nwd0hhm1l5dgxsdrigddfmq4-glibc-2.28") ("libc:static" . 
"/gnu/store/a3p8zc23w5asxck5h4mswz4s8yl9s6pa-glibc-2.28-static") ("locales" . 
"/gnu/store/mn3ymm3f2r4xjqf8m9fgmadh6b8p6fvr-glibc-utf8-locales-2.28") ("guile" 
. "/gnu/store/szs1ndrdmg5yz7b2cms3bc740cn3dfwv-guile-next-2.9.1") ("gmp" . 
"/gnu/store/mrzq0vrb7h5dzvp18qrzky0az712rcvr-gmp-6.1.2") ("bdw-gc" . 
"/gnu/store/04vqghzmpqzxpd94h1q931xpmazp5s7g-libgc-7.6.6") ("libltdl" . 
"/gnu/store/zk7047byh5yk7qsi8shbnqlz64qsiy8x-libltdl-2.4.6") ("libunistring" . 
"/gnu/store/hdwl1lwx0w6s1lmllla9w6yzxblwdp1g-libunistring-0.9.10") 
("kernel-headers" . 
"/gnu/store/xha1mk4qji8fmg62nygfzdx0l94ikdhm-linux-libre-headers-4.14.67")))) 
(unsetenv "GUILE_LOAD_COMPILED_PATH") (unsetenv "LD_LIBRARY_PATH"))(exit (begin 
(gnu-build #:source 
"/gnu/store/s8rxp97hlh751wb46355slvqg579n2py-guile-json-3.1.0.tar.gz" #:system 
"x86_64-linux" #:build "x86_64-unknown-linux-gnu" #:outputs %outputs #:inputs 
%build-inputs #:search-paths (quote (("PKG_CONFIG_PATH" ("lib/pkgconfig" 
"lib64/pkgconfig" "share/pkgconfig") ":" directory #f) ("GUILE_LOAD_PATH" 
("share/guile/site/3.0") ":" directory #f) ("GUILE_LOAD_COMPILED_PATH" 
("lib/guile/3.0/site-ccache" "share/guile/site/3.0") ":" directory #f) 
("BASH_LOADABLES_PATH" ("lib/bash") ":" directory #f) ("C_INCLUDE_PATH" 
("include") ":" directory #f) ("CPLUS_INCLUDE_PATH" ("include") ":" directory 
#f) ("LIBRARY_PATH" ("lib" "lib64") ":" directory #f) ("GUIX_LOCPATH" 
("lib/locale") ":" directory #f))) #:phases %standard-phases #:locale 
"en_US.utf8" #:configure-flags (quote ()) #:make-flags (quote ()) 
#:out-of-source? #f #:tests? #t #:test-target "check" #:parallel-build? #t 
#:parallel-tests? #t #:patch-shebangs? #t #:strip-binaries? #t 
#:validate-runpath? #t #:license-file-regexp 
"^(COPYING.*|LICEN[CS]E.*|[Ll]icen[cs]e.*|Copy[Rr]ight(\\.(txt|md))?)$" 
#:strip-flags (quote ("--strip-debug" "--enable-deterministic-archives")) 
#:strip-directories (quote ("lib" "lib64" "libexec" "bin" "sbin")))))
--8<---------------cut here---------------end--------------->8---

Ludo’.