Consume input from PostgreSQL also in validate.

Cf. bb95d95.
paurkedal · Sep 21, 2022 · 35c558a · 35c558a
1 parent 867049e
commit 35c558a
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/caqti-driver-postgresql/lib/caqti_driver_postgresql.ml b/caqti-driver-postgresql/lib/caqti_driver_postgresql.ml
@@ -864,6 +864,7 @@ module Connect_functor (System : Caqti_driver_sig.System_unix) = struct
             Caqti_error.pp_uri uri (Pg.string_of_error err))
 
     let validate () = using_db @@ fun () ->
+      db#consume_input;
       if (try db#status = Pg.Ok with Pg.Error _ -> false) then
         return true
       else