txn_do($c->model('DB')->schema, sub {
        my $drvpath = $build->drvpath ;
        error($c, "This build cannot be restarted.")
            unless $build->finished && -f $drvpath ;
        my $cmd = "`nix-store -qR $drvpath`";
        my $r = `nix-store --clear-failed-paths $cmd`;
  
        $build->update({finished => 0, timestamp => time});
        $build->resultInfo->delete;

    
    my $drvpath = $build->drvpath ;
    error($c, "This build cannot be restarted.")
        unless $build->finished && -f $drvpath ;

        $c->model('DB::BuildSchedulingInfo')->create(
            { id => $build->id
            , priority => 0 # don't know the original priority anymore...
            , busy => 0
            , locker => ""
            });
    });

    restartBuild($build);

our @EXPORT = qw(fetchInput evalJobs checkBuild inputsToArgs captureStdoutStderr getReleaseName getBuildLog addBuildProducts);

our @EXPORT = qw(fetchInput evalJobs checkBuild inputsToArgs captureStdoutStderr getReleaseName getBuildLog addBuildProducts restartBuild);

sub restartBuild {
    my ($db, $build) = @_;
    txn_do($db, sub {
        my $drvpath = $build->drvpath ;
        my $outpath = $build->outpath ;
        my $paths = "";
        foreach my $bs ($build->buildsteps) {
          $paths = $paths . " " . $bs->outpath;
        }
        my $r = `nix-store --clear-failed-paths $paths $outpath`;
        $build->update({finished => 0, timestamp => time});
        $build->resultInfo->delete;
        $db->resultset('BuildSchedulingInfo')->create(
            { id => $build->id
            , priority => 0 # don't know the original priority anymore...
            , busy => 0
            , locker => ""
            });
    });
}