Mercurial > openid

diff tests/utest.ur @ 63:089ad1d33e2f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix to track a change in Ur/Web's 'table' signature item syntactic sugar
author Adam Chlipala <adam@chlipala.net>
date Wed, 06 Nov 2013 18:25:51 -0500
parents 9f392276d614
children
line wrap: on
line diff
--- a/tests/utest.ur	Sat Jul 21 10:16:20 2012 -0400
+++ b/tests/utest.ur	Wed Nov 06 18:25:51 2013 -0500
@@ -33,17 +33,17 @@
                                   structure CtlDisplay = OpenidUser.DefaultDisplay
                               end)
 
-fun wrap title body =
+fun wrap titl bod =
     userStuff <- U.main wrap;
     return <xml><head>
-      <title>{[title]}</title>
+      <title>{[titl]}</title>
     </head><body>
       {userStuff.Status}<br/>
       {userStuff.Other.Xml}
 
-      <h1>{[title]}</h1>
+      <h1>{[titl]}</h1>
 
-      {body}
+      {bod}
     </body></xml>
 
 fun main () =