From a4a1f05c24c995cf09591a4fe9d6a3973e389350 Mon Sep 17 00:00:00 2001
From: Maxime Levillain <maxime.levillain@functori.com>
Date: Wed, 6 Nov 2024 09:36:03 +0100
Subject: [PATCH] fix req object for param without ppx

---
 src/ppx/ppx_common.ml | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/ppx/ppx_common.ml b/src/ppx/ppx_common.ml
index 2b4d5be..973e8cb 100644
--- a/src/ppx/ppx_common.ml
+++ b/src/ppx/ppx_common.ml
@@ -506,6 +506,7 @@ let rec get_ident_list_expr ?(acc=[]) e = match e.pexp_desc with
 
 let service_params ~loc ~params ~security =
   let lparams = Option.value ~default:[] (get_ident_list_expr params) in
+  let lparams = List.filter (fun p -> SSet.mem p !param_set) lparams in
   let lsecurities = get_ident_list_expr security in
   let lsecurities = match lsecurities with
     | Some l ->