summaryrefslogtreecommitdiff
path: root/tests/nestedInput.ur
blob: 19a73e15d556b04dd84339e2251f5b98693d12c7 (plain)
1
2
3
4
5
6
7
8
9
10
fun main () : transaction page =
    let
        fun handler _ = return <xml/>
    in
        return <xml><body>
          <form>
            <submit action={handler}>Uh oh!</submit>
          </form>
        </body></xml>
    end