fix build error

mransan · Oct 25, 2023 · 21a7056 · 21a7056
1 parent e02d74a
commit 21a7056
Showing 1 changed file with 2 additions and 1 deletion.
diff --git 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
           {