Mercurial > urweb
diff lib/ur/basis.urs @ 1050:93315ac00394
More fun with cookies
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Thu, 26 Nov 2009 14:20:00 -0500 |
parents | 609ab3947a08 |
children | e8a35d710ab9 |
line wrap: on
line diff
--- a/lib/ur/basis.urs Thu Nov 26 10:35:57 2009 -0500 +++ b/lib/ur/basis.urs Thu Nov 26 14:20:00 2009 -0500 @@ -115,6 +115,7 @@ (** * Time *) val now : transaction time +val minTime : time (** HTTP operations *) @@ -123,7 +124,10 @@ con http_cookie :: Type -> Type val getCookie : t ::: Type -> http_cookie t -> transaction (option t) -val setCookie : t ::: Type -> http_cookie t -> t -> transaction unit +val setCookie : t ::: Type -> http_cookie t -> {Value : t, + Expires : option time, + Secure : bool} -> transaction unit +val clearCookie : t ::: Type -> http_cookie t -> transaction unit (** JavaScript-y gadgets *)