ahuston-0/hydra
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Use the new Nix Perl bindings

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

6
src/lib/Hydra/View/NixManifest.pm
View File

@ -3,7 +3,7 @@ package Hydra::View::NixManifest;
use strict;
use base qw/Catalyst::View/;
use Hydra::Helper::Nix;
use Nix;
use Nix::Store;
sub process {
@ -13,7 +13,7 @@ sub process {
$c->response->content_type('text/x-nix-manifest');
my @paths = Nix::computeFSClosure(0, 1, @storePaths);
my @paths = computeFSClosure(0, 1, @storePaths);
my $manifest =
"version {\n" .
@ -21,7 +21,7 @@ sub process {
"}\n";
foreach my $path (@paths) {
my ($deriver, $hash, $time, $narSize, $refs) = Nix::queryPathInfo $path;
my ($deriver, $hash, $time, $narSize, $refs) = queryPathInfo $path;
# Escape the characters that are allowed to appear in a Nix
# path name but have special meaning in a URI.