Update src/Tiny_httpd.ml

This commit is contained in:
Simon Cruanes 2021-11-29 22:37:19 -05:00 committed by GitHub
parent 6ccd8314a3
commit 50f225638d
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23

View file

@ -1101,8 +1101,7 @@ let run (self:t) : (unit,_) result =
raise e raise e
); );
with e -> with e ->
Printf.eprintf "accept raised an exception: %s" _debug (fun k->k "accept raised an exception: %s" (Printexc.to_string e))
(Printexc.to_string e)
done; done;
Ok () Ok ()
with e -> Error e with e -> Error e