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

compat fix

Browse source
This commit is contained in:
Simon Cruanes 2024-02-05 01:10:23 -05:00
parent b97c8abf80
commit 7eaaf432e4
No known key found for this signature in database
GPG key ID: EBFFF6F283F3A2B4
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/ws/tiny_httpd_ws.ml
View file

@ -349,7 +349,7 @@ module Reader = struct
self.state <- Close;
let body = read_body_to_string self in
if String.length body >= 2 then (
let errcode = String.get_int16_be body 0 in
let errcode = Bytes.get_int16_be (Bytes.unsafe_of_string body) 0 in
Log.info (fun k ->
k "client send 'close' with errcode=%d, message=%S" errcode
(String.sub body 2 (String.length body - 2)))