Mercurial > urweb
comparison demo/listShop.ur @ 397:4d519baf357c
ListShop skeleton
| author | Adam Chlipala <adamc@hcoop.net> |
|---|---|
| date | Tue, 21 Oct 2008 12:06:35 -0400 |
| parents | |
| children | ab3177746c78 |
comparison
equal
deleted
inserted
replaced
| 396:040edfade639 | 397:4d519baf357c |
|---|---|
| 1 structure I = struct | |
| 2 type t = int | |
| 3 end | |
| 4 | |
| 5 structure S = struct | |
| 6 type t = string | |
| 7 end | |
| 8 | |
| 9 structure IL = ListFun.Make(I) | |
| 10 structure SL = ListFun.Make(S) | |
| 11 | |
| 12 fun main () = return <xml><body> | |
| 13 Pick your poison:<br/> | |
| 14 <li> <a link={IL.main ()}>Integers</a></li> | |
| 15 <li> <a link={SL.main ()}>Strings</a></li> | |
| 16 </body></xml> |