diff src/ur/openidUser.urs @ 50:328a429dfedb

renew
author Adam Chlipala <adam@chlipala.net>
date Sun, 24 Jul 2011 10:23:50 -0400
parents e31baf0f275e
children a984dc1c8954
line wrap: on
line diff
--- a/src/ur/openidUser.urs	Tue Jul 19 09:27:10 2011 -0400
+++ b/src/ur/openidUser.urs	Sun Jul 24 10:23:50 2011 -0400
@@ -105,6 +105,10 @@
     val current : transaction (option user)
     (* Figure out which, if any, user is logged in on this connection. *)
 
+    val renew : transaction (option user)
+    (* Like [current], but also resets the expiration time of the user's
+     * session, if one is found. *)
+
 
     val main : (string -> xbody -> transaction page) -> transaction {Status : xbody,
                                                                      Other : {Url : url, Xml : xbody}}