From 25f05bae79d67371a7eb0aaf13312d91ac8b4094 Mon Sep 17 00:00:00 2001
From: Nikita Volkov <nikita.y.volkov@mail.ru>
Date: Tue, 31 Oct 2023 19:58:48 +0300
Subject: [PATCH] Change the OID of composites from unknown to record

---
 library/Hasql/Private/Encoders.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/library/Hasql/Private/Encoders.hs b/library/Hasql/Private/Encoders.hs
index 52214da..608a524 100644
--- a/library/Hasql/Private/Encoders.hs
+++ b/library/Hasql/Private/Encoders.hs
@@ -304,7 +304,7 @@ array (Array (Array.Array valueOID arrayOID arrayEncoder renderer)) =
 -- Lift a composite encoder into a value encoder.
 composite :: Composite a -> Value a
 composite (Composite encode print) =
-  Value (Value.unsafePTI PTI.binaryUnknown encodeValue printValue)
+  Value (Value.unsafePTI PTI.record encodeValue printValue)
   where
     encodeValue idt val =
       A.composite $ encode val idt