# HG changeset patch
# User Karn Kallio <kkallio@eka>
# Date 1303107564 16200
# Node ID c0731afcb0c707e7f697c74f8a1988052c2ae93e
# Parent  43f921ee8ee578f82af0f218a79d9d303cc0b96c# Parent  5d6337df5ec7cd381a2665bd2218f43a70d87e20
Merge from upstream.

diff -r 43f921ee8ee5 -r c0731afcb0c7 src/ur/openidUser.ur
--- 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;