Mercurial > urweb
annotate tests/link.lac @ 110:3739af9e727a
Starting with closure links
| author | Adam Chlipala <adamc@hcoop.net> |
|---|---|
| date | Sun, 13 Jul 2008 11:43:57 -0400 |
| parents | |
| children | 2d6116de9cca |
| rev | line source |
|---|---|
| adamc@110 | 1 val ancillary : {} -> xhtml = fn () => <html> |
| adamc@110 | 2 Welcome to the ancillary page! |
| adamc@110 | 3 </html> |
| adamc@110 | 4 |
| adamc@110 | 5 val main : {} -> xhtml = fn () => <html><body> |
| adamc@110 | 6 <a link={ancillary ()}>Enter the unknown!</a> |
| adamc@110 | 7 |
| adamc@110 | 8 <a link={ancillary ()}>Alternate route!</a> |
| adamc@110 | 9 </body></html> |