Mercurial > urweb
annotate demo/metaform2.ur @ 632:6c4643880df5
Demos compile again, with manual folders
| author | Adam Chlipala <adamc@hcoop.net> |
|---|---|
| date | Tue, 24 Feb 2009 15:12:13 -0500 |
| parents | ad7e854a518c |
| children | 6302b10dbe0e |
| rev | line source |
|---|---|
| adamc@418 | 1 structure MM = Metaform.Make(struct |
| adamc@418 | 2 val names = {X = "x", Y = "y"} |
| adamc@632 | 3 val fl = Folder.cons [#X] [()] ! (Folder.cons [#Y] [()] ! Folder.nil) |
| adamc@418 | 4 end) |
| adamc@418 | 5 |
| adamc@418 | 6 fun diversion () = return <xml><body> |
| adamc@418 | 7 Welcome to the diversion. |
| adamc@418 | 8 </body></xml> |
| adamc@418 | 9 |
| adamc@418 | 10 fun main () = return <xml><body> |
| adamc@418 | 11 <li> <a link={diversion ()}>See something shiny!</a></li> |
| adamc@418 | 12 <li> <a link={MM.main ()}>Fill out a form!</a></li> |
| adamc@418 | 13 </body></xml> |