+ method toString =
+ sprintf
+ "%s%s%s%s%s"
+ self#statusLine (* status line *)
+ crlf
+ (String.concat (* headers, crlf terminated *)
+ ""
+ (List.map (fun (h,v) -> h ^ ": " ^ v ^ crlf) self#headers))
+ crlf
+ (Buffer.contents contentsBuf) (* body *)