cache content-type as well

fastmail · Dec 23, 2015 · 095417a · 095417a
1 parent b3ff856
commit 095417a
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/lib/TownCrier.pm b/lib/TownCrier.pm
@@ -39,12 +39,15 @@ my $cache = CHI->new(driver => 'FastMmap', cache_size => '10m');
 sub cached (&) {
     my ($s) = @_;
     return sub {
+        content_type 'text/html';
         my $expiry_key = "_expiry_".request->uri;
         my $expires_in = $cache->get($expiry_key) // 1;
         my $out = $cache->compute(request->uri, $expires_in, sub {
             $cache->set($expiry_key, min($expires_in * 1.6, 3600));
-            $s->();
+            [$s->(), content_type()];
         });
+        content_type $out->[1];
+        $out->[0];
     };
 }