Mercurial > openid
comparison 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 |
comparison
equal
deleted
inserted
replaced
47:ba203b170476 | 50:328a429dfedb |
---|---|
103 PRIMARY KEY Id | 103 PRIMARY KEY Id |
104 | 104 |
105 val current : transaction (option user) | 105 val current : transaction (option user) |
106 (* Figure out which, if any, user is logged in on this connection. *) | 106 (* Figure out which, if any, user is logged in on this connection. *) |
107 | 107 |
108 val renew : transaction (option user) | |
109 (* Like [current], but also resets the expiration time of the user's | |
110 * session, if one is found. *) | |
111 | |
108 | 112 |
109 val main : (string -> xbody -> transaction page) -> transaction {Status : xbody, | 113 val main : (string -> xbody -> transaction page) -> transaction {Status : xbody, |
110 Other : {Url : url, Xml : xbody}} | 114 Other : {Url : url, Xml : xbody}} |
111 | 115 |
112 (* Pass in your generic page template; get out the HTML snippet for user | 116 (* Pass in your generic page template; get out the HTML snippet for user |