support explicit .html requests

coke · coke · commit 548f340408b5 · 2018-11-09T15:22:59.000-05:00
diff --git a/util/site b/util/site
@@ -24,9 +24,12 @@ my $application = route {
     for <language programs type> -> $section {
         get -> $section, $path {
             my $file = "doc/{tc $section}/{$path}";
-            if $path.ends-with('.pod6') {
+            if $file.ends-with('.pod6') {
                 content 'text/plain', $file.IO.slurp
             }
+            if $file.ends-with('.html') {
+                $file .= chop: 5
+            }
             content 'text/html', pod-to-html($file ~ '.pod6');
         }
     }

Original file line number	Diff line number	Diff line change
`@@ -24,9 +24,12 @@ my $application = route {`
`24`	`24`	`for <language programs type> -> $section {`
`25`	`25`	`get -> $section, $path {`
`26`	`26`	`my $file = "doc/{tc $section}/{$path}";`
`27`		`- if $path.ends-with('.pod6') {`
	`27`	`+ if $file.ends-with('.pod6') {`
`28`	`28`	`content 'text/plain', $file.IO.slurp`
`29`	`29`	`}`
	`30`	`+ if $file.ends-with('.html') {`
	`31`	`+ $file .= chop: 5`
	`32`	`+ }`
`30`	`33`	`content 'text/html', pod-to-html($file ~ '.pod6');`
`31`	`34`	`}`
`32`	`35`	`}`