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