diff src/ur/openidUser.ur @ 34:c0731afcb0c7

Merge from upstream.
author Karn Kallio <kkallio@eka>
date Mon, 18 Apr 2011 01:49:24 -0430
parents 43f921ee8ee5 5d6337df5ec7
children a5574ec3991f
line wrap: on
line diff
--- a/src/ur/openidUser.ur	Mon Apr 18 01:20:39 2011 -0430
+++ b/src/ur/openidUser.ur	Mon Apr 18 01:49:24 2011 -0430
@@ -130,7 +130,7 @@
                                             dml (insert user ({Id = (SQL {[uid]})} ++ @Sql.sqexps M.folder M.inj cols));
                                             dml (INSERT INTO identity (User, Identifier)
                                                  VALUES ({[uid]}, {[ident]}));
-                                            redirect (bless after)
+                                            return None
                 in
                     uid <- source "";
                     cs <- M.creationState;