type meth = [ `GET ]
+type daemon_mode = [ `Single | `Fork | `Thread ]
+
+type tcp_server =
+ sockaddr:Unix.sockaddr -> timeout:int option ->
+ (in_channel -> out_channel -> unit) ->
+ unit
+
type informational_substatus =
[ `Continue
| `Switching_protocols
method setExpires: string -> unit
method server: string
method setServer: string -> unit
+ method toString: string
method serialize: out_channel -> unit
end
class type request =