Use the new Nix Perl bindings

This commit is contained in:
Eelco Dolstra
2011-11-30 15:25:28 +01:00
parent 5333c67bf9
commit c613b885f2
8 changed files with 12 additions and 17 deletions

View File

@ -8,7 +8,7 @@ use Hydra::Helper::CatalystUtils;
use Hydra::Helper::AddBuilds;
use File::stat;
use Data::Dump qw(dump);
use Nix;
use Nix::Store;
sub build : Chained('/') PathPart CaptureArgs(1) {
@ -41,7 +41,7 @@ sub view_build : Chained('build') PathPart('') Args(0) {
$c->stash->{drvAvailable} = isValidPath $build->drvpath;
$c->stash->{flashMsg} = $c->flash->{buildMsg};
my $pathHash = $c->stash->{available} ? Nix::queryPathHash($build->outpath) : "Not available";
my $pathHash = $c->stash->{available} ? queryPathHash($build->outpath) : "Not available";
$c->stash->{pathHash} = $pathHash;
if (!$build->finished && $build->schedulingInfo->busy) {