fabianhjr/lix
0
0
Fork 0
forked from lix-project/lix
Code Pull requests Activity

* Print a more useful stack trace when an error occurs deep in the

Browse source 
derivation dependency graph.
This commit is contained in:
Eelco Dolstra 2006-03-24 14:02:44 +00:00
parent b69e469328
commit ef2d4a2da9
1 changed files with 10 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
src/libexpr/primops.cc
View file

@ -229,10 +229,16 @@ static Expr primDerivationStrict(EvalState & state, const ATermVector & args)
ATermMap attrs; ATermMap attrs;
queryAllAttrs(evalExpr(state, args[0]), attrs, true); queryAllAttrs(evalExpr(state, args[0]), attrs, true);
/* Figure out the name already (for stack backtraces). */
Expr eDrvName = attrs.get("name");
if (!eDrvName)
throw Error("required attribute `name' missing");
ATerm posDrvName;
if (!matchAttrRHS(eDrvName, eDrvName, posDrvName)) abort();
string drvName = evalString(state, eDrvName);
/* Build the derivation expression by processing the attributes. */ /* Build the derivation expression by processing the attributes. */
Derivation drv; Derivation drv;
string drvName;
string outputHash; string outputHash;
string outputHashAlgo; string outputHashAlgo;
@ -252,6 +258,8 @@ static Expr primDerivationStrict(EvalState & state, const ATermVector & args)
} catch (Error & e) { } catch (Error & e) {
e.addPrefix(format("while processing the derivation attribute `%1%' at %2%:\n") e.addPrefix(format("while processing the derivation attribute `%1%' at %2%:\n")
% key % showPos(pos)); % key % showPos(pos));
e.addPrefix(format("while instantiating the derivation named `%1%' at %2%:\n")
% drvName % showPos(posDrvName));
throw; throw;
} }
@ -285,8 +293,6 @@ static Expr primDerivationStrict(EvalState & state, const ATermVector & args)
throw Error("required attribute `builder' missing"); throw Error("required attribute `builder' missing");
if (drv.platform == "") if (drv.platform == "")
throw Error("required attribute `system' missing"); throw Error("required attribute `system' missing");
if (drvName == "")
throw Error("required attribute `name' missing");
/* If an output hash was given, check it. */ /* If an output hash was given, check it. */
if (outputHash == "") if (outputHash == "")