@@ -398,7 +398,7 @@ instance
399-- >>> :set -XTypeApplications
399-- >>> :set -XTypeApplications
400-- >>> oidOf @'PGbool
400-- >>> oidOf @'PGbool
401−-- 16
401+-- Oid {getOid = 16}
402class HasOid (ty :: PGType) where oidOf :: Oid
402class HasOid (ty :: PGType) where oidOf :: Oid
403instance HasOid 'PGbool where oidOf = Oid 16
403instance HasOid 'PGbool where oidOf = Oid 16
404instance HasOid 'PGint2 where oidOf = Oid 21
404instance HasOid 'PGint2 where oidOf = Oid 21