Ur/Web: tests/linksF.ur annotate

Reduce: add reduction in some spots previously missed, associated with 'case' return types

author	Adam Chlipala <adam@chlipala.net>
date	Wed, 25 Nov 2015 18:48:17 -0500
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