gazagnaire.org / ocaml-conpool
forked from anil.recoil.org/ocaml-conpool
TCP/TLS connection pooling for Eio
0
fork

Configure Feed

Select the types of activity you want to include in your feed.

ocaml-conpool: enable MDX on lib/{config,endpoint}.mli

Both .mli files document log-source configuration with a code block
that was a bare expression. MDX expects let-bindings; convert to
'let () = ...; assert ...' so the build catches drift in the Logs.Src
API. Add the (mdx ...) stanza wiring config.mli and endpoint.mli to
'conpool' and 'logs'.

Thomas Gazagnaire f1b06204 7c14842c

+8 -2
+2 -1
lib/config.mli
··· 10 10 val src : Logs.Src.t 11 11 (** Logs source for configuration operations. Configure logging with: 12 12 {[ 13 - Logs.Src.set_level Conpool.Config.src (Some Logs.Debug) 13 + let () = Logs.Src.set_level Conpool.Config.src (Some Logs.Debug) 14 + let () = assert (Logs.Src.level Conpool.Config.src = Some Logs.Debug) 14 15 ]} *) 15 16 16 17 (** {1 Type} *)
+4
lib/dune
··· 3 3 (public_name conpool) 4 4 (private_modules connection) 5 5 (libraries eio eio.unix nox-tls-eio logs fmt cmdliner)) 6 + 7 + (mdx 8 + (files config.mli endpoint.mli) 9 + (libraries conpool logs))
+2 -1
lib/endpoint.mli
··· 10 10 val src : Logs.Src.t 11 11 (** Logs source for endpoint operations. Configure logging with: 12 12 {[ 13 - Logs.Src.set_level Conpool.Endpoint.src (Some Logs.Debug) 13 + let () = Logs.Src.set_level Conpool.Endpoint.src (Some Logs.Debug) 14 + let () = assert (Logs.Src.level Conpool.Endpoint.src = Some Logs.Debug) 14 15 ]} *) 15 16 16 17 (** {1 Type} *)