summaryrefslogtreecommitdiff
path: root/tests/both2.ur
blob: 3190def8cf58ac0a540af9df18f41ac74083d4c0 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
fun main () : transaction page =
    let
        fun handler r = return <xml/>
    in
        return <xml>
          <body>
            <form>
              <textbox{#Text}/><submit action={handler}/>
            </form>
          </body>
        </xml>
    end