annotate tests/headers.ur @ 1701:6a4461757829

Remove weird special case for FFI functions whose first arguments have type [unit]
author Adam Chlipala <adam@chlipala.net>
date Wed, 14 Mar 2012 09:06:23 -0400
parents 2f5fd248588d
children
rev   line source
adam@1465 1 fun action () =
adam@1465 2 setHeader (blessResponseHeader "Location") "http://www.google.com/";
adam@1465 3 return <xml/>
adam@1465 4
adam@1465 5 fun main () =
adam@1465 6 ag <- getHeader (blessRequestHeader "User-Agent");
adam@1465 7 return <xml><body>
adam@1465 8 User agent: {[ag]}
adam@1465 9
adam@1465 10 <form> <submit action={action}/> </form>
adam@1465 11 </body></xml>