Mercurial > urweb

view demo/metaform2.ur @ 2289:78820fa8f5a7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix bugs for lock calculation and SQL parsing and add support for tasks.
author Ziv Scully <ziv@mit.edu>
date Sun, 15 Nov 2015 14:18:35 -0500
parents 6302b10dbe0e
children
line wrap: on
line source
structure MM = Metaform.Make(struct
                                 val names = {X = "x", Y = "y"}
                             end)

fun diversion () = return <xml><body>
  Welcome to the diversion.
</body></xml>

fun main () = return <xml><body>
  <li> <a link={diversion ()}>See something shiny!</a></li>
  <li> <a link={MM.main ()}>Fill out a form!</a></li>
</body></xml>