diff options
| author | Clombrong <cromblong@egregore.fun> | 2025-06-29 11:25:13 +0200 |
|---|---|---|
| committer | Clombrong <cromblong@egregore.fun> | 2025-06-29 11:25:13 +0200 |
| commit | 0cc9b0dd576ce589775aa271686e3d886c04dba5 (patch) | |
| tree | 416b8b127af71d0d6dd42582d92331e95661dd6e /portal/tcp/portal.ml | |
| parent | f22cea587d63a42d2a5f9730d2f11335636f72c4 (diff) | |
fix(portal_tcp): change second parameter of proxy to be the length
Diffstat (limited to 'portal/tcp/portal.ml')
| -rw-r--r-- | portal/tcp/portal.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/portal/tcp/portal.ml b/portal/tcp/portal.ml index 576ed40..207bd91 100644 --- a/portal/tcp/portal.ml +++ b/portal/tcp/portal.ml @@ -93,7 +93,7 @@ let socket_to_stream (sock : socket) = if len > 0 then begin send_pos := 0; - if len >= 7 && (Lwt_bytes.proxy send_buffer (len-7) len |> Lwt_bytes.to_string) = "<!---->" + if len >= 7 && (Lwt_bytes.proxy send_buffer (len-7) 7 |> Lwt_bytes.to_string) = "<!---->" then if (len - 7) > 0 then flush_socket (len - 7) else Lwt.return_unit |