Commits

Dmitry Grebeniuk  committed f12fe4f

ocaml-iteratees 0.2 api changed

  • Participants
  • Parent commits e174159

Comments (0)

Files changed (1)

File amall_http.ml

   let fail r = I.throw_err & Bad_request r in
   let read_the_char c =
     (I.catch
-      (I.mapI some I.head)
+      (fun () -> I.mapI some I.head)
       (fun [ End_of_file -> I.return None
            | x -> I.throw_err x])
     )