Mercurial > urweb
annotate demo/css.ur @ 2162:c39c48696393
Allow returnBlob and redirect in static protocol
Both of these functions end up returning RETURN_INDIRECTLY, which is
assumed to be an error by static.c's main. Treat it as success
instead.
| author | Julian Squires <julian@cipht.net> |
|---|---|
| date | Mon, 13 Jul 2015 14:34:30 -0400 |
| parents | a8bdd5a0d9b0 |
| children |
| rev | line source |
|---|---|
| adamc@775 | 1 style quote |
| adamc@775 | 2 |
| adamc@775 | 3 fun main () = return <xml> |
| adamc@775 | 4 <head> |
| adamc@775 | 5 <link rel="stylesheet" type="text/css" href="http://adam.chlipala.net/style.css"/> |
| adamc@775 | 6 </head> |
| adamc@775 | 7 |
| adamc@775 | 8 <body> |
| adamc@775 | 9 <div class={quote}>Here's a quote.</div> |
| adamc@775 | 10 </body> |
| adamc@775 | 11 </xml> |