Mercurial > urweb
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> |