bug#23132: Grafted system retains references to original store items

[Mark H Weaver]

address@hidden (Ludovic Courtès) writes:

> Mark H Weaver <address@hidden> skribis:
>
>> The gnome-session store item above was created by a grafting derivation,
>> and all of the ones that follow (starting with glib-2.46.1-bin) are
>> ungrafted derivations.  The grafting derivation for gnome-session failed
>> to include a mapping for glib-2.46.1-bin.
>
> I suppose this is on a private branch, right?

Yes, but see <https://debbugs.gnu.org/cgi/bugreport.cgi?bug=23132#14>
where I reproduce the same problem from commit ffc13e753b on the master
branch.  From now on, I will use that commit during the investigation of
this bug.

> What does “guix build glib” produce?  Is the “bin” output of “glib”
> correctly grafted?

It produces:

/gnu/store/1my476c628x9kxa6pf2jlw8mhdlvr8xr-glib-2.46.1
/gnu/store/yw2yjlc1mgb4ga6m28nazxwjfh1d2p1n-glib-2.46.1-bin
/gnu/store/mm05frzzxa55kl062c4qp44qli00jnm4-glib-2.46.1-doc

which do not contain any references to the original openssl.  I think
that glib-2.46.1-bin might refer to the old perl, though.

In any case, the grafted 'glib-2.46.1-bin' above is not the one that
gnome-session refers to, and the mapping in gnome-session's
guile-builder does not include any replacement for glib:bin.

> Could you send
> /gnu/store/60a5vinj56nhxzszfyayjjy61b303c8r-gnome-session-3.18.1.2-guile-builder?

Instead, I'll send the builder for gnome-session for i686-linux from
commit ffc13e753b, which is:

  /gnu/store/sivy5ycg2pgncahyikrqfk60cvfg0vam-gnome-session-3.18.1.2,

produced by:

  /gnu/store/99pcj42dc8w1pvv7xngm1ns1yf896ckk-gnome-session-3.18.1.2.drv

with builder:

  
/gnu/store/1rl6yiapmir0fsiw7ncpna3bjdqhj4pk-gnome-session-3.18.1.2-guile-builder

which contains:

(begin (use-modules (guix build graft) (guix build utils) (ice-9 match)) 
(define %output (getenv "out")) (define %outputs (map (lambda (o) (cons o 
(getenv o))) (quote ("out")))) (define %build-inputs (quote (("x" . 
"/gnu/store/2f25m1jyy7lvkjqgilza6bafbnv3k044-gnome-session-3.18.1.2") ("x" . 
"/gnu/store/xd6qk8kad1466v9z74nmikhapz64cszp-graphite2-1.3.5") ("x" . 
"/gnu/store/b8sicbpsjabfhfszsajpfvjw8ynx97iw-perl-5.22.1") ("x" . 
"/gnu/store/dgyc74zakg110dxj67z3mj9g1vk8l4xp-openssl-1.0.2f") ("x" . 
"/gnu/store/1146ja893l132cs1dn4jkmb047pw6rsk-perl-5.22.1") ("x" . 
"/gnu/store/6zsdzk0w99d5xmpw50mgqj9nfiwazpyx-gnome-desktop-3.18.1") ("x" . 
"/gnu/store/8s3k25609kj6cqfd737vd1y9wqfr0zzl-harfbuzz-1.0.6") ("x" . 
"/gnu/store/h3vpr7k7c2h3n7ixddyvr22sbzy98vhz-gtk+-3.18.2") ("x" . 
"/gnu/store/lhhgw9psfnf7c8sjax68sin7nqm3d2k0-cups-2.1.0") ("x" . 
"/gnu/store/bk3bplyp1cr6jv2hgv9d8cxlad3griqb-cups-filters-1.4.0") ("x" . 
"/gnu/store/2symxhixbs2rrhh59il0i8mlndl3x2d8-qpdf-5.1.3") ("x" . 
"/gnu/store/sxxqvvrf3f679m939yps51ddz327q0dr-pango-1.38.1") ("x" . 
"/gnu/store/zsaklr7zimhdnvb8z5yqld8jgqf31v9r-librsvg-2.40.13") ("x" . 
"/gnu/store/45j3scjfgz9ahlvn5lfqj2s0m2gkpdrk-graphite2-1.3.5") ("x" . 
"/gnu/store/h6bzcv3a0r9zm37gsi62visvc8kwg02a-perl-5.22.1") ("x" . 
"/gnu/store/fbmkb0xiwnr1823053dxal87m45bpy60-openssl-1.0.2f") ("x" . 
"/gnu/store/iam2djqw4s2bcpff8nhbsbkg7z73f3v3-perl-5.22.1") ("x" . 
"/gnu/store/m98ff01sc2bxz4lv3pc2yqc6hsljd4cv-gnome-desktop-3.18.1") ("x" . 
"/gnu/store/0wsn1h22xdnzplaajxhx59957xkwx103-harfbuzz-1.0.6") ("x" . 
"/gnu/store/w1h49ha77kgicf5i8yrbr3y1ijb2aqis-gtk+-3.18.2") ("x" . 
"/gnu/store/87sjyxzjg22rbi7a234l828kns63mzsf-cups-2.1.0") ("x" . 
"/gnu/store/rikq7ra0xfs4qx1kv1jx9azk1prmk0n2-cups-filters-1.4.0") ("x" . 
"/gnu/store/qkh0m7ims01i3j57bkxyqq5m6q3zngy4-qpdf-5.1.3") ("x" . 
"/gnu/store/xzfhlic6876skj953xa8phh1rhfmwi9i-pango-1.38.1") ("x" . 
"/gnu/store/yyvjbdagvzzdy56fip7qsfwwij364fh4-librsvg-2.40.13")))) (unsetenv 
"GUILE_LOAD_COMPILED_PATH") (unsetenv "LD_LIBRARY_PATH"))(exit (begin (let* 
((old-outputs (quote (("out" . 
"/gnu/store/2f25m1jyy7lvkjqgilza6bafbnv3k044-gnome-session-3.18.1.2")))) 
(mapping (append (quote 
(("/gnu/store/xd6qk8kad1466v9z74nmikhapz64cszp-graphite2-1.3.5" . 
"/gnu/store/45j3scjfgz9ahlvn5lfqj2s0m2gkpdrk-graphite2-1.3.5") 
("/gnu/store/b8sicbpsjabfhfszsajpfvjw8ynx97iw-perl-5.22.1" . 
"/gnu/store/h6bzcv3a0r9zm37gsi62visvc8kwg02a-perl-5.22.1") 
("/gnu/store/dgyc74zakg110dxj67z3mj9g1vk8l4xp-openssl-1.0.2f" . 
"/gnu/store/fbmkb0xiwnr1823053dxal87m45bpy60-openssl-1.0.2f") 
("/gnu/store/1146ja893l132cs1dn4jkmb047pw6rsk-perl-5.22.1" . 
"/gnu/store/iam2djqw4s2bcpff8nhbsbkg7z73f3v3-perl-5.22.1") 
("/gnu/store/6zsdzk0w99d5xmpw50mgqj9nfiwazpyx-gnome-desktop-3.18.1" . 
"/gnu/store/m98ff01sc2bxz4lv3pc2yqc6hsljd4cv-gnome-desktop-3.18.1") 
("/gnu/store/8s3k25609kj6cqfd737vd1y9wqfr0zzl-harfbuzz-1.0.6" . 
"/gnu/store/0wsn1h22xdnzplaajxhx59957xkwx103-harfbuzz-1.0.6") 
("/gnu/store/h3vpr7k7c2h3n7ixddyvr22sbzy98vhz-gtk+-3.18.2" . 
"/gnu/store/w1h49ha77kgicf5i8yrbr3y1ijb2aqis-gtk+-3.18.2") 
("/gnu/store/lhhgw9psfnf7c8sjax68sin7nqm3d2k0-cups-2.1.0" . 
"/gnu/store/87sjyxzjg22rbi7a234l828kns63mzsf-cups-2.1.0") 
("/gnu/store/bk3bplyp1cr6jv2hgv9d8cxlad3griqb-cups-filters-1.4.0" . 
"/gnu/store/rikq7ra0xfs4qx1kv1jx9azk1prmk0n2-cups-filters-1.4.0") 
("/gnu/store/2symxhixbs2rrhh59il0i8mlndl3x2d8-qpdf-5.1.3" . 
"/gnu/store/qkh0m7ims01i3j57bkxyqq5m6q3zngy4-qpdf-5.1.3") 
("/gnu/store/sxxqvvrf3f679m939yps51ddz327q0dr-pango-1.38.1" . 
"/gnu/store/xzfhlic6876skj953xa8phh1rhfmwi9i-pango-1.38.1") 
("/gnu/store/zsaklr7zimhdnvb8z5yqld8jgqf31v9r-librsvg-2.40.13" . 
"/gnu/store/yyvjbdagvzzdy56fip7qsfwwij364fh4-librsvg-2.40.13"))) (map 
(match-lambda ((name . file) (cons (assoc-ref old-outputs name) file))) 
%outputs)))) (for-each (lambda (input output) (format #t "grafting '~a' -> 
'~a'...~%" input output) (force-output) (rewrite-directory input output 
mapping)) (match old-outputs (((names . files) ...) files)) (match %outputs 
(((names . files) ...) files))))))

      Mark