comparison tests/link.ur @ 376:6fd102fa28f9

Simple generation of persistent paths
author Adam Chlipala <adamc@hcoop.net>
date Sun, 19 Oct 2008 11:11:49 -0400
parents 71bafe66dbe1
children
comparison
equal deleted inserted replaced
375:d3de57ce4bca 376:6fd102fa28f9
1 val ancillary = fn () => <html> 1 fun ancillary () = return <xml>
2 Welcome to the ancillary page! 2 Welcome to the ancillary page!
3 </html> 3 </xml>
4 4
5 val main : unit -> page = fn () => <html><body> 5 fun main () : transaction page = return <xml><body>
6 <a link={ancillary ()}>Enter the unknown!</a> 6 <a link={ancillary ()}>Enter the unknown!</a>
7 </body></html> 7 </body></xml>