2015-12-16 12:59:02 +00:00
|
|
|
|
# This expression returns a list of all fetchurl calls used by ‘expr’.
|
2014-02-19 12:01:33 +00:00
|
|
|
|
|
|
|
|
|
with import ../.. { };
|
|
|
|
|
with lib;
|
|
|
|
|
|
2015-12-16 12:59:02 +00:00
|
|
|
|
{ expr }:
|
2015-12-10 14:53:48 +00:00
|
|
|
|
|
2014-02-19 12:01:33 +00:00
|
|
|
|
let
|
|
|
|
|
|
2015-12-10 14:53:48 +00:00
|
|
|
|
root = expr;
|
2014-02-19 12:01:33 +00:00
|
|
|
|
|
|
|
|
|
uniqueUrls = map (x: x.file) (genericClosure {
|
|
|
|
|
startSet = map (file: { key = file.url; inherit file; }) urls;
|
|
|
|
|
operator = const [ ];
|
|
|
|
|
});
|
|
|
|
|
|
|
|
|
|
urls = map (drv: { url = head drv.urls; hash = drv.outputHash; type = drv.outputHashAlgo; }) fetchurlDependencies;
|
|
|
|
|
|
2015-12-10 14:53:48 +00:00
|
|
|
|
fetchurlDependencies =
|
|
|
|
|
filter
|
2016-02-25 07:29:57 +00:00
|
|
|
|
(drv: drv.outputHash or "" != "" && drv.outputHashMode or "flat" == "flat"
|
|
|
|
|
&& drv.postFetch or "" == "" && drv ? urls)
|
2015-12-10 14:53:48 +00:00
|
|
|
|
dependencies;
|
2014-02-19 12:01:33 +00:00
|
|
|
|
|
|
|
|
|
dependencies = map (x: x.value) (genericClosure {
|
|
|
|
|
startSet = map keyDrv (derivationsIn' root);
|
|
|
|
|
operator = { key, value }: map keyDrv (immediateDependenciesOf value);
|
|
|
|
|
});
|
|
|
|
|
|
|
|
|
|
derivationsIn' = x:
|
|
|
|
|
if !canEval x then []
|
|
|
|
|
else if isDerivation x then optional (canEval x.drvPath) x
|
|
|
|
|
else if isList x then concatLists (map derivationsIn' x)
|
|
|
|
|
else if isAttrs x then concatLists (mapAttrsToList (n: v: derivationsIn' v) x)
|
|
|
|
|
else [ ];
|
|
|
|
|
|
|
|
|
|
keyDrv = drv: if canEval drv.drvPath then { key = drv.drvPath; value = drv; } else { };
|
|
|
|
|
|
|
|
|
|
immediateDependenciesOf = drv:
|
|
|
|
|
concatLists (mapAttrsToList (n: v: derivationsIn v) (removeAttrs drv ["meta" "passthru"]));
|
|
|
|
|
|
|
|
|
|
derivationsIn = x:
|
|
|
|
|
if !canEval x then []
|
|
|
|
|
else if isDerivation x then optional (canEval x.drvPath) x
|
|
|
|
|
else if isList x then concatLists (map derivationsIn x)
|
|
|
|
|
else [ ];
|
|
|
|
|
|
|
|
|
|
canEval = val: (builtins.tryEval val).success;
|
|
|
|
|
|
|
|
|
|
in uniqueUrls
|