Mercurial > openid
comparison tests/utest.ur @ 23:e5df3d3554d3
fakeId parameter
author | Adam Chlipala <adam@chlipala.net> |
---|---|
date | Sun, 16 Jan 2011 13:21:34 -0500 |
parents | 354dae3008de |
children | c560ec5bf514 |
comparison
equal
deleted
inserted
replaced
22:70ab0230649b | 23:e5df3d3554d3 |
---|---|
25 return {Nam = n} | 25 return {Nam = n} |
26 | 26 |
27 fun choose _ r = return r | 27 fun choose _ r = return r |
28 | 28 |
29 val formClass = inputs | 29 val formClass = inputs |
30 | |
31 val fakeId = None | |
30 end) | 32 end) |
31 | 33 |
32 fun wrap title body = | 34 fun wrap title body = |
33 userStuff <- U.main wrap; | 35 userStuff <- U.main wrap; |
34 return <xml><head> | 36 return <xml><head> |