diff src/ur/openid.ur @ 22:70ab0230649b

Fix calculation of URL to return to after sign-up
author Adam Chlipala <adam@chlipala.net>
date Sat, 15 Jan 2011 15:24:42 -0500
parents df2eb629f21a
children ee97bc0e08fa
line wrap: on
line diff
--- a/src/ur/openid.ur	Sat Jan 08 18:47:27 2011 -0500
+++ b/src/ur/openid.ur	Sat Jan 15 15:24:42 2011 -0500
@@ -399,7 +399,7 @@
                                      ^ assoc.Handle ^ "&openid.return_to=" ^ show (effectfulUrl returnTo) ^ realmString))
     end
 
-task periodic 1 = fn () =>
-                     dml (DELETE FROM discoveries WHERE Expires < CURRENT_TIMESTAMP);
-                     dml (DELETE FROM associations WHERE Expires < CURRENT_TIMESTAMP);
-                     dml (DELETE FROM nonces WHERE Expires < CURRENT_TIMESTAMP)
+task periodic 60 = fn () =>
+                      dml (DELETE FROM discoveries WHERE Expires < CURRENT_TIMESTAMP);
+                      dml (DELETE FROM associations WHERE Expires < CURRENT_TIMESTAMP);
+                      dml (DELETE FROM nonces WHERE Expires < CURRENT_TIMESTAMP)