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