{-# LANGUAGE TemplateHaskell #-} {-| Module: IHP.Postgres.TypeInfo Description: Extension Of The Database.PostgreSQL.Simple.TypeInfo Module Copyright: (c) digitally induced GmbH, 2021 -} module IHP.Postgres.TypeInfo where import Database.PostgreSQL.Simple.FromField tsvector :: TypeInfo tsvector :: TypeInfo tsvector = Basic { typoid :: Oid typoid = Oid tsvectorOid, typcategory :: Char typcategory = Char 'U', typdelim :: Char typdelim = Char ',', typname :: ByteString typname = ByteString "tsvector" } -- `SELECT oid, typname FROM pg_type WHERE typname ~ 'tsvector';` tsvectorOid :: Oid tsvectorOid :: Oid tsvectorOid = CUInt -> Oid Oid CUInt 3614 {-# INLINE tsvector #-}