Ur/Web: tests/linksF.ur annotate

assert function to use with location literal _LOC_

author	Gabriel Riba Faura <griba2001@gmail.com>
date	Wed, 03 Jun 2015 15:07:46 +0200
parents	71bafe66dbe1
children

rev	line source
adamc@119	1 val pC : unit -> xhtml = fn () => <html><body>
adamc@119	2 <h1>Page C</h1>
adamc@119	3 </body></html>
adamc@119	4
adamc@119	5 val pB : unit -> xhtml = fn () => <html><body>
adamc@119	6 <h1>Page B</h1>
adamc@119	7
adamc@119	8 <li> <a link={pC ()}>C</a></li>
adamc@119	9 </body></html>
adamc@119	10
adamc@119	11 val pA : unit -> xhtml = fn () => <html><body>
adamc@119	12 <h1>Page A</h1>
adamc@119	13
adamc@119	14 <li> <a link={pB ()}>B</a></li>
adamc@119	15 <li> <a link={pC ()}>C</a></li>
adamc@119	16 </body></html>
adamc@119	17
adamc@119	18 val main : unit -> xhtml = fn () => <html><body>
adamc@119	19 <h1>Main</h1>
adamc@119	20
adamc@119	21 <li> <a link={pA ()}>A</a></li>
adamc@119	22 <li> <a link={pB ()}>B</a></li>
adamc@119	23 <li> <a link={pC ()}>C</a></li>
adamc@119	24 </body></html>

Mercurial > urweb