This commit is contained in:
Eitan Chatav 2019-08-21 12:13:29 -07:00
parent 163dca82d5
commit 5ae6708c65

View File

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