7095d00608
Two-argument calls end up parsing the second argument to guess what should happen, three-arg parses ... less?
25 lines
417 B
Perl
25 lines
417 B
Perl
package Hydra::View::NixClosure;
|
|
|
|
use strict;
|
|
use warnings;
|
|
use base qw/Catalyst::View/;
|
|
use IO::Pipe;
|
|
|
|
sub process {
|
|
my ($self, $c) = @_;
|
|
|
|
$c->response->content_type('application/x-nix-export');
|
|
|
|
my @storePaths = @{$c->stash->{storePaths}};
|
|
|
|
my $fh = IO::Handle->new();
|
|
|
|
open($fh, "-|", "nix-store --export `nix-store -qR @storePaths` | gzip");
|
|
|
|
$c->response->body($fh);
|
|
|
|
return 1;
|
|
}
|
|
|
|
1;
|