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 *)