simon/tiny_httpd
1
0
Fork 0
mirror of https://github.com/c-cube/tiny_httpd.git synced 2025-12-06 03:05:29 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

use _debug and better message

Browse source
This commit is contained in:
craff 2021-11-29 23:38:28 -10:00
parent 6ccd8314a3
commit 19a4bad231
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/Tiny_httpd.ml
View file

@ -1101,8 +1101,9 @@ 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
(Printexc.to_string e) "Unix.accept or Thread.create raised an exception: %s"
(Printexc.to_string e))
done; done;
Ok () Ok ()
with e -> Error e with e -> Error e