Fix misnaming of internal function (pgstring_of_pdate).

Author: paurkedal

caqti-driver-pgx/lib/caqti_driver_pgx.ml

@@ -95,7 +95,7 @@ let encode_field
    | Enum _ -> Pgx.Value.of_string x
    | Octets -> Pgx.Value.of_binary x
    | Pdate -> Pgx.Value.of_string (Conv.iso8601_of_pdate x)
-   | Ptime -> Pgx.Value.of_string (pgstring_of_pdate x)
+   | Ptime -> Pgx.Value.of_string (pgstring_of_ptime x)
    | Ptime_span -> Pgx.Value.of_string (pgstring_of_ptime_span x))
 
 let encode_param ~uri t param =

caqti-driver-postgresql/lib/caqti_driver_postgresql.ml

@@ -239,7 +239,7 @@ module Make_encoder (String_encoder : STRING_ENCODER) = struct
      | Enum _ -> encode_string x
      | Octets -> encode_octets x
      | Pdate -> Conv.iso8601_of_pdate x
-     | Ptime -> Pg_ext.pgstring_of_pdate x
+     | Ptime -> Pg_ext.pgstring_of_ptime x
      | Ptime_span -> Pg_ext.pgstring_of_ptime_span x)
 
   let encode ~uri params t x =

shared/postgresql_conv.ml

@@ -1,4 +1,4 @@
-(* Copyright (C) 2022  Petter A. Urkedal <paurkedal@gmail.com>
+(* Copyright (C) 2022--2023  Petter A. Urkedal <paurkedal@gmail.com>
  *
  * This library is free software; you can redistribute it and/or modify it
  * under the terms of the GNU Lesser General Public License as published by
@@ -27,7 +27,7 @@ let pgstring_of_bool = function true -> "t" | false -> "f"
 
 let pdate_of_pgstring = Conv.pdate_of_iso8601
 
-let pgstring_of_pdate x =
+let pgstring_of_ptime x =
   Ptime.to_rfc3339 ~space:true ~tz_offset_s:0 ~frac_s:6 x
 
 let pgstring_of_ptime_span t =