From 6ffa524b6f961294394ede94c003b9f9cd8cccf9 Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Tue, 17 Oct 2023 14:13:28 -0400
Subject: [PATCH] fix build error

---
 src/twirp_tiny_httpd/twirp_tiny_httpd.ml | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/twirp_tiny_httpd/twirp_tiny_httpd.ml b/src/twirp_tiny_httpd/twirp_tiny_httpd.ml
index fbc16056..9fbf4180 100644
--- a/src/twirp_tiny_httpd/twirp_tiny_httpd.ml
+++ b/src/twirp_tiny_httpd/twirp_tiny_httpd.ml
@@ -25,7 +25,8 @@ let return_error (err : Error_codes.t) (msg : string option) : H.Response.t =
     ~headers:[ "content-type", "application/json" ]
     ~code:http_code json_body
 
-let handle_rpc (rpc : PB_server.rpc) (req : string H.Request.t) : H.Response.t =
+let handle_rpc (rpc : PB_server.any_rpc) (req : string H.Request.t) :
+    H.Response.t =
   try
     let (PB_server.RPC
           {