{-# 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 :: Oid -> Char -> Char -> ByteString -> TypeInfo
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 #-}