mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* Support singleton values and nested lists again in `args', but print

Browse source 
a warning.
This commit is contained in:
Eelco Dolstra 2006-08-29 15:40:49 +00:00
parent 2132d9ddeb
commit 547b119f25
2 changed files with 9 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/libexpr/primops.cc
View file

@ -269,7 +269,11 @@ static Expr primDerivationStrict(EvalState & state, const ATermVector & args)
if (key == "args") {
ATermList es;
value = evalExpr(state, value);
if (!matchList(value, es)) throw Error(format("`args' should be a list %1%") % value);
if (!matchList(value, es)) {
static bool haveWarned = false;
warnOnce(haveWarned, "the `args' attribute should evaluate to a list");
es = flattenList(state, value);
}
for (ATermIterator i(es); i; ++i) {
string s;
toString(state, *i, context, s);

7
src/libmain/shared.cc
View file

@ -44,13 +44,10 @@ Path makeRootName(const Path & gcRoot, int & counter)
void printGCWarning()
{
static bool warned = false;
if (!warned) {
printMsg(lvlInfo,
static bool haveWarned = false;
warnOnce(haveWarned,
"warning: you did not specify `--add-root'; "
"the result might be removed by the garbage collector");
warned = true;
}
}