Update lib_eio/mock/sockopt.ml

Co-authored-by: Thomas Leonard <[email protected]>

Author: avsm

lib_eio/mock/sockopt.ml

@@ -1,8 +1,8 @@
 open Eio.Std
 
-let pp_sockopt_value : type a. a Eio.Net.Sockopt.t -> a -> string = fun opt v ->
+let pp_sockopt_value (type a) (opt : a Eio.Net.Sockopt.t) f (v : a) =
   match opt with
-  | Eio.Net.Sockopt.SO_DEBUG -> Fmt.str "SO_DEBUG = %b" v
+  | Eio.Net.Sockopt.SO_DEBUG -> Fmt.pf f "SO_DEBUG = %b" v
   | Eio.Net.Sockopt.SO_BROADCAST -> Fmt.str "SO_BROADCAST = %b" v
   | Eio.Net.Sockopt.SO_REUSEADDR -> Fmt.str "SO_REUSEADDR = %b" v
   | Eio.Net.Sockopt.SO_KEEPALIVE -> Fmt.str "SO_KEEPALIVE = %b" v