TakeV
/
guix
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

* Delete obstructed paths prior to building.

This commit is contained in:
Eelco Dolstra 2003-08-05 09:47:20 +00:00
parent d2e963f7a3
commit d6b6b2d3a8
1 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/normalise.cc
View File

@ -152,11 +152,20 @@ FSId normaliseFState(FSId id, FSIdSet pending)
if (!fastBuild) {
/* Check that none of the outputs exist. */
/* If any of the outputs already exist but are not registered,
delete them. */
for (OutPaths::iterator i = outPaths.begin();
i != outPaths.end(); i++)
if (pathExists(i->first))
throw Error(format("path `%1%' exists") % i->first);
{
string path = i->first;
FSId id;
if (queryPathId(path, id))
throw Error(format("obstructed build: path `%1%' exists") % path);
if (pathExists(path)) {
debug(format("removing unregistered path `%1%'") % path);
deletePath(path);
}
}
/* Run the builder. */
msg(lvlChatty, format("building..."));