Commits

Anonymous committed 7853804

for new iteratees fix

Comments (0)

Files changed (1)

amall_http_server.ml

 
 value rec printexc e =
   match e with
-  [ Iteratees.Iteratees_err_msg e -> printexc e
+  [ I.Iteratees_err_msg e -> printexc e
   | _ -> Printexc.to_string e
   ]
 ;
   I.ie_cont step
   where rec step s =
   match s with
-  [ Iteratees.EOF oe ->
+  [ I.EOF oe ->
       let err =
         match oe with
         [ None -> "eof"
       in
         IO.printf "dump_chars_chunks: %s: EOF: %s.\n" title err >>% fun () ->
         I.ie_doneM () s
-  | Iteratees.Chunk c ->
+  | I.Chunk c ->
       IO.printf "dump_chars_chunks: %s: Chunk: %S\n"
         title (Subarray.to_string c) >>% fun () ->
       I.ie_contM step