b12f/nixpkgs
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

replace-dependency: Better function names

Browse source
This commit is contained in:
Shea Levy 2013-01-11 16:16:20 -05:00
parent 5dd1b8f204
commit 96a834d42a
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
pkgs/build-support/replace-dependency.nix
View file

@ -55,25 +55,25 @@ let
drv-name = drv:
discard (substring 33 (stringLength (builtins.baseNameOf drv)) (builtins.baseNameOf drv));
replace-strings = drv: rewritten-drvs: runCommand (drv-name drv) { nixStore = "${nix}/bin/nix-store"; } ''
rewrite-hashes = drv: hashes: runCommand (drv-name drv) { nixStore = "${nix}/bin/nix-store"; } ''
$nixStore --dump ${drv} | sed 's|${baseNameOf drv}|'$(basename $out)'|g' | sed -e ${
concatStringsSep " -e " (mapAttrsToList (name: value:
"'s|${baseNameOf name}|${baseNameOf value}|g'"
) rewritten-drvs)
) hashes)
} | $nixStore --restore $out
'';
rewritten-deps = listToAttrs [ {name = discard (toString old-dependency); value = new-dependency;} ];
fn = drv:
rewritten-derivations = drv:
if depends-on-old drv
then listToAttrs [ {
name = discard (toString drv);
value = replace-strings drv (rewritten-deps // (fold (drv: acc:
(fn drv) // acc
value = rewrite-hashes drv (rewritten-deps // (fold (drv: acc:
(rewritten-derivations drv) // acc
) {} (references-of drv)));
} ]
else {};
in assert (stringLength (drv-name (toString old-dependency)) == stringLength (drv-name (toString new-dependency)));
getAttr (discard (toString drv)) (fn drv)
getAttr (discard (toString drv)) (rewritten-derivations drv)