changeset 45:c39c3f63854a

Don't redirect back to URLs that have query strings
author Adam Chlipala <adam@chlipala.net>
date Sun, 03 Jul 2011 16:40:55 -0400
parents f8c9e1e4d337
children 72e942423f26
files src/ur/openidUser.ur
diffstat 1 files changed, 5 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/src/ur/openidUser.ur	Sun Jul 03 14:09:03 2011 -0400
+++ b/src/ur/openidUser.ur	Sun Jul 03 16:40:55 2011 -0400
@@ -84,7 +84,11 @@
         if b then
             return M.afterLogout
         else
-            currentUrl
+            b <- currentUrlHasQueryString;
+            if b then
+                return M.afterLogout
+            else
+                currentUrl
 
     val current =
         login <- getCookie auth;