public/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: drv-name = drv:
discard (substring 33 (stringLength (builtins.baseNameOf drv)) (builtins.baseNameOf 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 ${ $nixStore --dump ${drv} | sed 's|${baseNameOf drv}|'$(basename $out)'|g' | sed -e ${
concatStringsSep " -e " (mapAttrsToList (name: value: concatStringsSep " -e " (mapAttrsToList (name: value:
"'s|${baseNameOf name}|${baseNameOf value}|g'" "'s|${baseNameOf name}|${baseNameOf value}|g'"
) rewritten-drvs) ) hashes)
} | $nixStore --restore $out } | $nixStore --restore $out
''; '';
rewritten-deps = listToAttrs [ {name = discard (toString old-dependency); value = new-dependency;} ]; rewritten-deps = listToAttrs [ {name = discard (toString old-dependency); value = new-dependency;} ];
fn = drv: rewritten-derivations = drv:
if depends-on-old drv if depends-on-old drv
then listToAttrs [ { then listToAttrs [ {
name = discard (toString drv); name = discard (toString drv);
value = replace-strings drv (rewritten-deps // (fold (drv: acc: value = rewrite-hashes drv (rewritten-deps // (fold (drv: acc:
(fn drv) // acc (rewritten-derivations drv) // acc
) {} (references-of drv))); ) {} (references-of drv)));
} ] } ]
else {}; else {};
in assert (stringLength (drv-name (toString old-dependency)) == stringLength (drv-name (toString new-dependency))); 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)