From fec8721c4eb67ef0c9436677916473ab81a1ebbe Mon Sep 17 00:00:00 2001
From: Torben Ewert <t.ewert@logic-joe.com>
Date: Tue, 9 Jul 2024 12:55:29 +0200
Subject: [PATCH] fix: update computation for payload length offset

---
 lib/parse.ml | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/lib/parse.ml b/lib/parse.ml
index 6a4b320a..52c33936 100644
--- a/lib/parse.ml
+++ b/lib/parse.ml
@@ -63,10 +63,10 @@ let payload_offset_of_bits bits =
   let initial_offset = 2 in
   let mask_offset    = (bits land (1 lsl 7)) lsr (7 - 2) in
   let length_offset  =
-    let length = bits land 0b01111111 in
-    if length < 126
-    then 0
-    else 2 lsl ((length land 0b1) lsl 2)
+    match bits land 0b01111111 with
+    | 127 -> 8
+    | 126 -> 2
+    | _   -> 0
   in
   initial_offset + mask_offset + length_offset
 ;;