Anonymous avatar Anonymous committed d1ba432

.

Comments (0)

Files changed (1)

 
 value (it_http :
   (request -> I.iteratee char 'a) ->
-  I.iteratee char 'a
+  (I.iteratee char (request * 'a))
 )
 process_request =
   let fail r = I.throw_err & Bad_request r in
     ; rq_headers = make_headers header_lines
     }
     >>= fun request ->
+    let ret = I.mapI (fun res -> (request, res)) in
     let user_it = process_request request in
     if not & request_has_message_body request
     then
       let () = dbg "request has no body, sending EOF to user's iteratee" in
-      it_eof user_it
+      ret & it_eof user_it
     else
       let () = dbg "request has body" in
       (
       match bounds with
       [ `Till_eof ->
           let () = dbg "bounds: till eof" in
-          user_it
+          ret & user_it
       | `Content_length len ->
           let () = dbg "bounds: Content_length %i" len in
-          I.joinI & I.take len user_it
+          ret & I.joinI & I.take len user_it
       ]
 ;
 
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.