use fieldslib for Cookie as well

for mirage#38

Author: avsm

_tags

@@ -250,6 +250,6 @@
 <lib_test/test_net_async_server.{native,byte}>: custom
 # OASIS_STOP
 <lib_test/{test_parser,test_net_lwt,test_net_lwt_server,test_net_mirage_server,test_net_lwt_client_and_server}.ml>: syntax_camlp4o, pkg_lwt.syntax
-<cohttp/request.*> or <cohttp/response.*>: syntax_camlp4o, pkg_fieldslib.syntax
+<cohttp/request.*> or <cohttp/response.*> or <cohttp/cookie.*>: syntax_camlp4o, pkg_fieldslib.syntax
 <lwt/*>: syntax_camlp4o, pkg_lwt.syntax
 true: annot, bin_annot, debug, strict_sequence, principal

cohttp/cookie.ml

@@ -28,7 +28,7 @@ module Set_cookie_hdr = struct
     expiration : expiration;
     domain : string option;
     path : string option;
-    secure : bool }
+    secure : bool } with fields
 
   (* Does not check the contents of name or value for ';', ',', '\s', or name[0]='$' *)
   let make ?(expiration=`Session) ?path ?domain ?(secure=false) cookie =
@@ -116,11 +116,6 @@ module Set_cookie_hdr = struct
       | _ -> (fun _ a -> a)
     ) hdr []
 
-  let cookie { cookie } = cookie
-  let expiration { expiration } = expiration
-  let domain { domain } = domain
-  let path { path } = path
-  let secure { secure } = secure
   let value { cookie=(_,v) } = v
 end
 

cohttp/cookie.mli

@@ -28,7 +28,7 @@ module Set_cookie_hdr : sig
     expiration : expiration;
     domain : string option;
     path : string option;
-    secure : bool }
+    secure : bool } with fields
   (** A header which a server sends to a client to request that the client
     returns the cookie in future requests, under certain conditions. *)