From 530c182171b708888448783267e98a0da19d303d Mon Sep 17 00:00:00 2001
From: Javier Chavarri <javier.chavarri@gmail.com>
Date: Wed, 10 Apr 2024 15:29:19 +0000
Subject: [PATCH] Accept empty params

---
 ocaml-lsp-server/src/custom_requests/req_dune_contexts.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ocaml-lsp-server/src/custom_requests/req_dune_contexts.ml b/ocaml-lsp-server/src/custom_requests/req_dune_contexts.ml
index 345f26566..214dfd697 100644
--- a/ocaml-lsp-server/src/custom_requests/req_dune_contexts.ml
+++ b/ocaml-lsp-server/src/custom_requests/req_dune_contexts.ml
@@ -15,7 +15,7 @@ module Request_params = struct
            ()
     in
     match params with
-    | None -> ()
+    | None | Some (`List [] | `Assoc []) -> ()
     | Some params ->
       let error_json = `Assoc [ ("params_received", (params :> Json.t)) ] in
       raise_invalid_params