Mercurial > openid

comparison tests/utest.ur @ 25:c560ec5bf514

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
More flexibility in placement of login form and other similar stuff
author Adam Chlipala <adam@chlipala.net>
date Thu, 20 Jan 2011 12:23:44 -0500
parents e5df3d3554d3
children 35d06874bec4
comparison
equal deleted inserted replaced
24:b416b9b9dc38 25:c560ec5bf514
34 fun wrap title body = 34 fun wrap title body =
35 userStuff <- U.main wrap; 35 userStuff <- U.main wrap;
36 return <xml><head> 36 return <xml><head>
37 <title>{[title]}</title> 37 <title>{[title]}</title>
38 </head><body> 38 </head><body>
39 {userStuff} 39 {userStuff.Status}<br/>
40 {userStuff.Other}
40 41
41 <h1>{[title]}</h1> 42 <h1>{[title]}</h1>
42 43
43 {body} 44 {body}
44 </body></xml> 45 </body></xml>