Mercurial > urweb
comparison 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 |
comparison
equal
deleted
inserted
replaced
| 109:813e5a52063d | 110:3739af9e727a |
|---|---|
| 1 val ancillary : {} -> xhtml = fn () => <html> | |
| 2 Welcome to the ancillary page! | |
| 3 </html> | |
| 4 | |
| 5 val main : {} -> xhtml = fn () => <html><body> | |
| 6 <a link={ancillary ()}>Enter the unknown!</a> | |
| 7 | |
| 8 <a link={ancillary ()}>Alternate route!</a> | |
| 9 </body></html> |