Mercurial > urweb

view tests/rpcNested.ur @ 1839:d8c260bcc1f9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix determination of MySQL timestamp hour fields (may still be wrong once DST bit flips)
author Adam Chlipala <adam@chlipala.net>
date Thu, 13 Dec 2012 17:51:34 -0500
parents 133c71008bef
children
line wrap: on
line source
datatype node
  = Node of
    { Label     : string
    , SubForest : list node
    }

fun getNode () : transaction node =
    return (Node { Label = "foo", SubForest = [] })

fun main () : transaction page = return <xml><body>
  <button onclick={
    n <- rpc (getNode ());
    case n of
        Node {Label = l, ...} => alert ("l = " ^ l)
  }/>
  </body></xml>