Mercurial > urweb

annotate tests/echoBlob.ur @ 1895:2eabe66daef6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Experimenting with distribution via 'make dist', to allow deletion of autogenerated files from version control
author Adam Chlipala <adam@chlipala.net>
date Thu, 21 Nov 2013 14:53:01 -0500
parents f7e2026dd5ae
children
rev   line source
adamc@741 1 fun echo r = returnBlob (fileData r.Data) (blessMime (fileMimeType r.Data))
adamc@741 2
adamc@741 3 fun main () = return <xml><body>
adamc@741 4 <form>
adamc@741 5 <upload{#Data}/>
adamc@741 6 <submit action={echo}/>
adamc@741 7 </form>
adamc@741 8 </body></xml>