Remove trailing whitespace
This commit is contained in:
@ -9,7 +9,7 @@ sub process {
|
||||
my ($self, $c) = @_;
|
||||
|
||||
my $storePath = $c->stash->{storePath};
|
||||
|
||||
|
||||
$c->response->content_type('text/x-nix-narinfo'); # !!! check MIME type
|
||||
|
||||
my ($deriver, $narHash, $time, $narSize, $refs) = queryPathInfo($storePath, 1);
|
||||
|
@ -6,17 +6,17 @@ use IO::Pipe;
|
||||
|
||||
sub process {
|
||||
my ($self, $c) = @_;
|
||||
|
||||
|
||||
$c->response->content_type('application/x-nix-export');
|
||||
|
||||
my @storePaths = @{$c->stash->{storePaths}};
|
||||
|
||||
my $fh = new IO::Handle;
|
||||
|
||||
|
||||
open $fh, "nix-store --export `nix-store -qR @storePaths` | gzip |";
|
||||
|
||||
$c->response->body($fh);
|
||||
|
||||
|
||||
return 1;
|
||||
}
|
||||
|
||||
|
@ -10,7 +10,7 @@ sub process {
|
||||
my ($self, $c) = @_;
|
||||
|
||||
my @storePaths = @{$c->stash->{storePaths}};
|
||||
|
||||
|
||||
$c->response->content_type('text/x-nix-manifest');
|
||||
|
||||
my @paths = computeFSClosure(0, 1, @storePaths);
|
||||
@ -19,7 +19,7 @@ sub process {
|
||||
"version {\n" .
|
||||
" ManifestVersion: 4\n" .
|
||||
"}\n";
|
||||
|
||||
|
||||
foreach my $path (@paths) {
|
||||
my ($deriver, $hash, $time, $narSize, $refs) = queryPathInfo($path, 0);
|
||||
|
||||
@ -30,7 +30,7 @@ sub process {
|
||||
$escaped =~ s/\+/%2b/g;
|
||||
$escaped =~ s/\=/%3d/g;
|
||||
$escaped =~ s/\?/%3f/g;
|
||||
|
||||
|
||||
my $url = $c->stash->{narBase} . "/" . $escaped;
|
||||
|
||||
my $system = $c->stash->{systemForPath}->{$path};
|
||||
|
@ -7,11 +7,11 @@ sub process {
|
||||
my ($self, $c) = @_;
|
||||
|
||||
my $storePath = $c->stash->{storePath};
|
||||
|
||||
|
||||
$c->response->content_type('application/x-nix-archive'); # !!! check MIME type
|
||||
|
||||
my $fh = new IO::Handle;
|
||||
|
||||
|
||||
open $fh, "nix-store --dump '$storePath' | bzip2 |";
|
||||
|
||||
$c->response->body($fh);
|
||||
|
@ -14,7 +14,7 @@ sub process {
|
||||
. " " . $build->nixname . " " . $build->system
|
||||
. " " . $build->drvpath . " " . $build->outpath
|
||||
. " " . $c->uri_for('/');
|
||||
|
||||
|
||||
$c->response->body($s);
|
||||
|
||||
return 1;
|
||||
|
Reference in New Issue
Block a user