Anonymous avatar Anonymous committed d01037a

dbg

Comments (0)

Files changed (1)

iteratees_http.ml

 ;
 
 
+value it_dbg it =
+  match it with
+  [ IE_cont None _ -> "IE_cont None _"
+  | IE_cont (Some e) _ -> Printf.sprintf "IE_cont (Some %S) _"
+      (Printexc.to_string e)
+  | IE_done _ -> "IE_done _"
+  ]
+;
+
 
 exception Multipart_error of string;
 
   and multipart_max_headers_count = ref 10
 ;
 
+
 value it_multipart
  : string ->
    (list string -> iteratee char 'a) ->
            let () = fdbg "  `Finished" in
            (* fdbg_stream_char "after finished" >>= fun () -> *)
            it_ignore (* must ignore, RFC 2046 *) >>= fun () ->
-           map_ready & feed_it it_fold (EOF None)
+           let res = feed_it it_fold (EOF None) in
+           let () = fdbg "    loop_boundaries: res = %s" (it_dbg res) in
+           map_ready res
        | `Next ->
            let () = fdbg "  `Next" in
            read_part_headers >>= fun part_headers ->
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.