Mercurial > urweb

diff demo/metaform.ur @ 643:aa2290c32ce2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Avoid any JavaScript when pages don't need it; update demo prose
author Adam Chlipala <adamc@hcoop.net>
date Tue, 10 Mar 2009 10:44:26 -0400
parents 6c4643880df5
children 669ac5e9a69e
line wrap: on
line diff
--- a/demo/metaform.ur	Sun Mar 08 20:34:21 2009 -0400
+++ b/demo/metaform.ur	Tue Mar 10 10:44:26 2009 -0400
@@ -1,7 +1,7 @@
 functor Make (M : sig
                   con fs :: {Unit}
                   val fl : folder fs
-                  val names : $(mapUT string fs)
+                  val names : $(mapU string fs)
               end) = struct
 
     fun handler values = return <xml><body>
@@ -14,9 +14,9 @@
 
     fun main () = return <xml><body>
       <form>
-        {foldUR [string] [fn cols :: {Unit} => xml form [] (mapUT string cols)]
+        {foldUR [string] [fn cols :: {Unit} => xml form [] (mapU string cols)]
                 (fn (nm :: Name) (rest :: {Unit}) [[nm] ~ rest] name
-                                 (acc : xml form [] (mapUT string rest)) => <xml>
+                                 (acc : xml form [] (mapU string rest)) => <xml>
                                    <li> {[name]}: <textbox{nm}/></li>
                                    {useMore acc}
                                  </xml>)