blob: 7a7b1e98c0e1804c92beade6b030f039f93a051f (
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 : xhtml = <html><body>
<h1>Page C</h1>
</body></html>
val pB : xhtml = <html><body>
<h1>Page B</h1>
<li> <a link={pC}>C</a></li>
</body></html>
val pA : xhtml = <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>
|
