annotate tests/link.ur @ 1153:a62ac791f7fb

More is*() casts
author Adam Chlipala <adamc@hcoop.net>
date Sat, 06 Feb 2010 20:13:51 -0500
parents 6fd102fa28f9
children
rev   line source
adamc@376 1 fun ancillary () = return <xml>
adamc@110 2 Welcome to the ancillary page!
adamc@376 3 </xml>
adamc@110 4
adamc@376 5 fun main () : transaction page = return <xml><body>
adamc@110 6 <a link={ancillary ()}>Enter the unknown!</a>
adamc@376 7 </body></xml>