diff tests/formFields.ur @ 1787:69daa6d70299

Top.postFields
author Adam Chlipala <adam@chlipala.net>
date Sat, 21 Jul 2012 15:16:57 -0400
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/tests/formFields.ur	Sat Jul 21 15:16:57 2012 -0400
@@ -0,0 +1,3 @@
+fun main (pb : postBody) : transaction page = return <xml><body>
+  {List.mapX (fn (n, v) => <xml><li>{[n]} = {[v]}</li></xml>) (postFields pb)}
+</body></xml>