use JSON::PP;

}
sub serveFile {
    my ($c, $path) = @_;
    my $res = run(cmd => ["nix", "ls-store", "--store", getStoreUri(), "--json", "$path"]);
    if ($res->{status}) {
        notFound($c, "File '$path' does not exist.") if $res->{stderr} =~ /does not exist/;
        die "$res->{stderr}\n";
    }
    my $ls = decode_json($res->{stdout});
    if ($ls->{type} eq "directory" && substr($c->request->uri, -1) ne "/") {
        return $c->res->redirect($c->request->uri . "/");
    }
    elsif ($ls->{type} eq "directory" && defined $ls->{entries}->{"index.html"}) {
        return serveFile($c, "$path/index.html");
    }
    elsif ($ls->{type} eq "symlink") {
        my $target = $ls->{target};
        return serveFile($c, substr($target, 0, 1) eq "/" ? $target : dirname($path) . "/" . $target);
    }
    elsif ($ls->{type} eq "regular") {
        $c->stash->{'plain'} = { data => grab(cmd => ["nix", "cat-store", "--store", getStoreUri(), "$path"]) };
        # Detect MIME type. Borrowed from Catalyst::Plugin::Static::Simple.
        my $type = "text/plain";
        if ($path =~ /.*\.(\S{1,})$/xms) {
            my $ext = $1;
            my $mimeTypes = MIME::Types->new(only_complete => 1);
            my $t = $mimeTypes->mimeTypeOf($ext);
            $type = ref $t ? $t->type : $t if $t;
        }
        $c->response->content_type($type);
        $c->forward('Hydra::View::Plain');
    }
    else {
        error($c, "Do not know how to serve path '$path'.");
    }

        die "Invalid store path " . $product->path . ".\n";

        die "Invalid store path '" . $product->path . "'.\n";

        error($c, "Invalid filename $elem.") if $elem !~ /^$pathCompRE$/;

        error($c, "Invalid filename '$elem'.") if $elem !~ /^$pathCompRE$/;

        notFound($c, "File " . $product->path . " does not exist.") unless -e $product->path;

        notFound($c, "File '" . $product->path . "' does not exist.") unless -e $product->path;

        notFound($c, "File $path does not exist.") if !-e $path;

        notFound($c, "File '$path' does not exist.") if !-e $path;

        notFound($c, "Path $path is a directory.") if -d $path;

        notFound($c, "Path '$path' is a directory.") if -d $path;

        $c->response->headers->last_modified($c->stash->{build}->stoptime);

        $c->stash->{'plain'} = { data => readNixFile($path) };
        # Detect MIME type. Borrowed from Catalyst::Plugin::Static::Simple.
        my $type = "text/plain";
        if ($path =~ /.*\.(\S{1,})$/xms) {
            my $ext = $1;
            my $mimeTypes = MIME::Types->new(only_complete => 1);
            my $t = $mimeTypes->mimeTypeOf($ext);
            $type = ref $t ? $t->type : $t if $t;
        }
        $c->response->content_type($type);
        $c->forward('Hydra::View::Plain');

        serveFile($c, $path);

    $c->response->headers->last_modified($c->stash->{build}->stoptime);

    # FIXME: use nix cat-store

        # FIXME: use nix ls-store -R --json

    $c->response->content_type('text/plain; charset=utf-8') unless $c->response->content_type() ne "";

    $c->clear_encoding;
    $c->response->content_type('text/plain; charset=utf-8') if $c->response->content_type() eq "text/plain";