From 7025ff92b57b639fba57fb2e5f7ac053da250e10 Mon Sep 17 00:00:00 2001 From: Sudha Parimala Date: Wed, 29 Nov 2023 11:03:37 +0530 Subject: [PATCH] Fix Saturn.Queue function Now needs pop_opt --- lib/multi_channel.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lib/multi_channel.ml b/lib/multi_channel.ml index 40a7d0d..0834fde 100644 --- a/lib/multi_channel.ml +++ b/lib/multi_channel.ml @@ -147,7 +147,7 @@ let recv_poll_with_dls mchan dls = Ws_deque.pop (Array.unsafe_get mchan.channels dls.id) with | Exit -> - match Foreign_queue.pop mchan.foreign_queue with + match Foreign_queue.pop_opt mchan.foreign_queue with | None -> recv_poll_loop mchan dls 0 | Some v -> v [@@inline]