diff tests/utest.ur @ 29:35d06874bec4

Fix Utest to track latest change
author Adam Chlipala <adam@chlipala.net>
date Thu, 24 Feb 2011 17:29:45 -0500
parents c560ec5bf514
children 90b8ce9be9f5
line wrap: on
line diff
--- a/tests/utest.ur	Thu Feb 24 17:29:05 2011 -0500
+++ b/tests/utest.ur	Thu Feb 24 17:29:45 2011 -0500
@@ -24,7 +24,7 @@
                                       n <- signal r.Nam;
                                       return {Nam = n}
 
-                                  fun choose _ r = return r
+                                  fun choose _ r = return (OpenidUser.Success r)
 
                                   val formClass = inputs