From 4c7f0a237af1927eda84bb8a8a4bb2b27521ac3e Mon Sep 17 00:00:00 2001
From: Mylloon <kennel.anri@tutanota.com>
Date: Wed, 14 Jun 2023 18:53:13 +0200
Subject: [PATCH] i think its 2 bytes

---
 lib/response.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/response.ml b/lib/response.ml
index 60f3d6f..38bb66f 100644
--- a/lib/response.ml
+++ b/lib/response.ml
@@ -28,7 +28,7 @@ and decode_name_simple reader =
     else if length land 0b1100_0000 <> 0
     then (
       let decoded_name = decode_compressed_name reader length in
-      length + 1, decoded_name :: parts)
+      2, decoded_name :: parts)
     else (
       let part = Bytes.sub_string reader.data (reader.pointer + pos + 1) length in
       let last_length, parts' = read_parts (parts @ [ part ]) (pos + 1 + length) in