Use the new Nix Perl bindings

deps.nix

@@ -33,5 +33,5 @@ with pkgs;
   perlPackages.TestMore
   perlPackages.SysHostnameLong
   perlPackages.Starman
-  perlPackages.nixPerl
+  nixUnstable
 ]

src/lib/Hydra/Controller/Build.pm

@@ -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) {

src/lib/Hydra/Helper/AddBuilds.pm

@@ -5,6 +5,7 @@ use feature 'switch';
 use XML::Simple;
 use POSIX qw(strftime);
 use IPC::Run;
+use Nix::Store;
 use Hydra::Helper::Nix;
 use Digest::SHA qw(sha256_hex);
 use File::Basename;

src/lib/Hydra/Helper/CatalystUtils.pm

@@ -3,6 +3,7 @@ package Hydra::Helper::CatalystUtils;
 use strict;
 use Exporter;
 use Readonly;
+use Nix::Store;
 use Hydra::Helper::Nix;
 
 our @ISA = qw(Exporter);
@@ -117,8 +118,8 @@ sub getChannelData {
     
     my @storePaths = ();
     foreach my $build (@builds2) {
-        next unless Hydra::Helper::Nix::isValidPath($build->outpath);
+        next unless isValidPath($build->outpath);
-        if (Hydra::Helper::Nix::isValidPath($build->drvpath)) {
+        if (isValidPath($build->drvpath)) {
             # Adding `drvpath' implies adding `outpath' because of the
             # `--include-outputs' flag passed to `nix-store'.
             push @storePaths, $build->drvpath;

src/lib/Hydra/Helper/Nix.pm

@@ -4,12 +4,10 @@ use strict;
 use Exporter;
 use File::Path;
 use File::Basename;
-use Nix;
 use Hydra::Helper::CatalystUtils;
 
 our @ISA = qw(Exporter);
 our @EXPORT = qw(
-    isValidPath
     getHydraPath getHydraDBPath openHydraDB getHydraConf txn_do
     registerRoot getGCRootsDir gcRootFor
     getPrimaryBuildsForView
@@ -17,12 +15,6 @@ our @EXPORT = qw(
     getViewResult getLatestSuccessfulViewResult jobsetOverview removeAsciiEscapes);
 
 
-sub isValidPath {
-    my $path = shift;
-    return Nix::isValidPath($path);
-}
-
-
 sub getHydraPath {
     my $dir = $ENV{"HYDRA_DATA"} || "/var/lib/hydra";
     die "The HYDRA_DATA directory ($dir) does not exist!\n" unless -d $dir;

src/lib/Hydra/View/NixManifest.pm

@@ -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.

src/script/hydra_queue_runner.pl.in

@@ -7,7 +7,7 @@ use POSIX qw(dup2 :sys_wait_h);
 use Hydra::Schema;
 use Hydra::Helper::Nix;
 use IO::Handle;
-use Nix;
+use Nix::Store;
 
 chdir getHydraPath or die;
 my $db = openHydraDB;

src/script/hydra_update_gc_roots.pl.in

@@ -3,6 +3,7 @@
 use strict;
 use File::Path;
 use File::Basename;
+use Nix::Store;
 use Hydra::Schema;
 use Hydra::Helper::Nix;
 use POSIX qw(strftime);