From 0cc9b0dd576ce589775aa271686e3d886c04dba5 Mon Sep 17 00:00:00 2001
From: Clombrong <cromblong@egregore.fun>
Date: Sun, 29 Jun 2025 11:25:13 +0200
Subject: fix(portal_tcp): change second parameter of proxy to be the length

---
 portal/tcp/portal.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'portal')

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
-- 
cgit v1.2.3