futur.blue / pegasus
objective categorical abstract machine language personal data server
fork atom

Drain sqlite pool after using

futur.blue 2d3aafab acb3a271

verified
+1
unified split
+1
pegasus/lib/util.ml
··· 223 223 : 'a Lwt.t = 224 224 match%lwt Caqti_lwt_unix.Pool.use f pool with 225 225 | Ok res -> 226 + let%lwt () = Caqti_lwt_unix.Pool.drain pool in 226 227 Lwt.return res 227 228 | Error e -> 228 229 raise (Caqti_error.Exn e)