comparison tests/echoBlob.ur @ 741:f7e2026dd5ae
Returning a blob as page result
| author |
Adam Chlipala <adamc@hcoop.net> |
| date |
Sun, 26 Apr 2009 09:02:17 -0400 |
| parents |
|
| children |
|
comparison
equal
deleted
inserted
replaced
| |
1 fun echo r = returnBlob (fileData r.Data) (blessMime (fileMimeType r.Data)) |
| |
2 |
| |
3 fun main () = return <xml><body> |
| |
4 <form> |
| |
5 <upload{#Data}/> |
| |
6 <submit action={echo}/> |
| |
7 </form> |
| |
8 </body></xml> |
