mirror of
https://github.com/nikita-volkov/hasql.git
synced 2024-11-25 06:33:19 +03:00
231 lines
4.7 KiB
Haskell
231 lines
4.7 KiB
Haskell
module Hasql.PostgresTypeInfo where
|
|
|
|
import Database.PostgreSQL.LibPQ qualified as LibPQ
|
|
import Hasql.Prelude hiding (bool)
|
|
|
|
-- | A Postgresql type info
|
|
data PTI = PTI {ptiOID :: !OID, ptiArrayOID :: !(Maybe OID)}
|
|
|
|
-- | A Word32 and a LibPQ representation of an OID
|
|
data OID = OID {oidWord32 :: !Word32, oidPQ :: !LibPQ.Oid, oidFormat :: !LibPQ.Format}
|
|
|
|
mkOID :: LibPQ.Format -> Word32 -> OID
|
|
mkOID format x =
|
|
OID x ((LibPQ.Oid . fromIntegral) x) format
|
|
|
|
mkPTI :: LibPQ.Format -> Word32 -> Maybe Word32 -> PTI
|
|
mkPTI format oid arrayOID =
|
|
PTI (mkOID format oid) (fmap (mkOID format) arrayOID)
|
|
|
|
-- * Constants
|
|
|
|
abstime :: PTI
|
|
abstime = mkPTI LibPQ.Binary 702 (Just 1023)
|
|
|
|
aclitem :: PTI
|
|
aclitem = mkPTI LibPQ.Binary 1033 (Just 1034)
|
|
|
|
bit :: PTI
|
|
bit = mkPTI LibPQ.Binary 1560 (Just 1561)
|
|
|
|
bool :: PTI
|
|
bool = mkPTI LibPQ.Binary 16 (Just 1000)
|
|
|
|
box :: PTI
|
|
box = mkPTI LibPQ.Binary 603 (Just 1020)
|
|
|
|
bpchar :: PTI
|
|
bpchar = mkPTI LibPQ.Binary 1042 (Just 1014)
|
|
|
|
bytea :: PTI
|
|
bytea = mkPTI LibPQ.Binary 17 (Just 1001)
|
|
|
|
char :: PTI
|
|
char = mkPTI LibPQ.Binary 18 (Just 1002)
|
|
|
|
cid :: PTI
|
|
cid = mkPTI LibPQ.Binary 29 (Just 1012)
|
|
|
|
cidr :: PTI
|
|
cidr = mkPTI LibPQ.Binary 650 (Just 651)
|
|
|
|
circle :: PTI
|
|
circle = mkPTI LibPQ.Binary 718 (Just 719)
|
|
|
|
cstring :: PTI
|
|
cstring = mkPTI LibPQ.Binary 2275 (Just 1263)
|
|
|
|
date :: PTI
|
|
date = mkPTI LibPQ.Binary 1082 (Just 1182)
|
|
|
|
daterange :: PTI
|
|
daterange = mkPTI LibPQ.Binary 3912 (Just 3913)
|
|
|
|
float4 :: PTI
|
|
float4 = mkPTI LibPQ.Binary 700 (Just 1021)
|
|
|
|
float8 :: PTI
|
|
float8 = mkPTI LibPQ.Binary 701 (Just 1022)
|
|
|
|
gtsvector :: PTI
|
|
gtsvector = mkPTI LibPQ.Binary 3642 (Just 3644)
|
|
|
|
inet :: PTI
|
|
inet = mkPTI LibPQ.Binary 869 (Just 1041)
|
|
|
|
int2 :: PTI
|
|
int2 = mkPTI LibPQ.Binary 21 (Just 1005)
|
|
|
|
int2vector :: PTI
|
|
int2vector = mkPTI LibPQ.Binary 22 (Just 1006)
|
|
|
|
int4 :: PTI
|
|
int4 = mkPTI LibPQ.Binary 23 (Just 1007)
|
|
|
|
int4range :: PTI
|
|
int4range = mkPTI LibPQ.Binary 3904 (Just 3905)
|
|
|
|
int8 :: PTI
|
|
int8 = mkPTI LibPQ.Binary 20 (Just 1016)
|
|
|
|
int8range :: PTI
|
|
int8range = mkPTI LibPQ.Binary 3926 (Just 3927)
|
|
|
|
interval :: PTI
|
|
interval = mkPTI LibPQ.Binary 1186 (Just 1187)
|
|
|
|
json :: PTI
|
|
json = mkPTI LibPQ.Binary 114 (Just 199)
|
|
|
|
jsonb :: PTI
|
|
jsonb = mkPTI LibPQ.Binary 3802 (Just 3807)
|
|
|
|
line :: PTI
|
|
line = mkPTI LibPQ.Binary 628 (Just 629)
|
|
|
|
lseg :: PTI
|
|
lseg = mkPTI LibPQ.Binary 601 (Just 1018)
|
|
|
|
macaddr :: PTI
|
|
macaddr = mkPTI LibPQ.Binary 829 (Just 1040)
|
|
|
|
money :: PTI
|
|
money = mkPTI LibPQ.Binary 790 (Just 791)
|
|
|
|
name :: PTI
|
|
name = mkPTI LibPQ.Binary 19 (Just 1003)
|
|
|
|
numeric :: PTI
|
|
numeric = mkPTI LibPQ.Binary 1700 (Just 1231)
|
|
|
|
numrange :: PTI
|
|
numrange = mkPTI LibPQ.Binary 3906 (Just 3907)
|
|
|
|
oid :: PTI
|
|
oid = mkPTI LibPQ.Binary 26 (Just 1028)
|
|
|
|
oidvector :: PTI
|
|
oidvector = mkPTI LibPQ.Binary 30 (Just 1013)
|
|
|
|
path :: PTI
|
|
path = mkPTI LibPQ.Binary 602 (Just 1019)
|
|
|
|
point :: PTI
|
|
point = mkPTI LibPQ.Binary 600 (Just 1017)
|
|
|
|
polygon :: PTI
|
|
polygon = mkPTI LibPQ.Binary 604 (Just 1027)
|
|
|
|
record :: PTI
|
|
record = mkPTI LibPQ.Binary 2249 (Just 2287)
|
|
|
|
refcursor :: PTI
|
|
refcursor = mkPTI LibPQ.Binary 1790 (Just 2201)
|
|
|
|
regclass :: PTI
|
|
regclass = mkPTI LibPQ.Binary 2205 (Just 2210)
|
|
|
|
regconfig :: PTI
|
|
regconfig = mkPTI LibPQ.Binary 3734 (Just 3735)
|
|
|
|
regdictionary :: PTI
|
|
regdictionary = mkPTI LibPQ.Binary 3769 (Just 3770)
|
|
|
|
regoper :: PTI
|
|
regoper = mkPTI LibPQ.Binary 2203 (Just 2208)
|
|
|
|
regoperator :: PTI
|
|
regoperator = mkPTI LibPQ.Binary 2204 (Just 2209)
|
|
|
|
regproc :: PTI
|
|
regproc = mkPTI LibPQ.Binary 24 (Just 1008)
|
|
|
|
regprocedure :: PTI
|
|
regprocedure = mkPTI LibPQ.Binary 2202 (Just 2207)
|
|
|
|
regtype :: PTI
|
|
regtype = mkPTI LibPQ.Binary 2206 (Just 2211)
|
|
|
|
reltime :: PTI
|
|
reltime = mkPTI LibPQ.Binary 703 (Just 1024)
|
|
|
|
text :: PTI
|
|
text = mkPTI LibPQ.Binary 25 (Just 1009)
|
|
|
|
tid :: PTI
|
|
tid = mkPTI LibPQ.Binary 27 (Just 1010)
|
|
|
|
time :: PTI
|
|
time = mkPTI LibPQ.Binary 1083 (Just 1183)
|
|
|
|
timestamp :: PTI
|
|
timestamp = mkPTI LibPQ.Binary 1114 (Just 1115)
|
|
|
|
timestamptz :: PTI
|
|
timestamptz = mkPTI LibPQ.Binary 1184 (Just 1185)
|
|
|
|
timetz :: PTI
|
|
timetz = mkPTI LibPQ.Binary 1266 (Just 1270)
|
|
|
|
tinterval :: PTI
|
|
tinterval = mkPTI LibPQ.Binary 704 (Just 1025)
|
|
|
|
tsquery :: PTI
|
|
tsquery = mkPTI LibPQ.Binary 3615 (Just 3645)
|
|
|
|
tsrange :: PTI
|
|
tsrange = mkPTI LibPQ.Binary 3908 (Just 3909)
|
|
|
|
tstzrange :: PTI
|
|
tstzrange = mkPTI LibPQ.Binary 3910 (Just 3911)
|
|
|
|
tsvector :: PTI
|
|
tsvector = mkPTI LibPQ.Binary 3614 (Just 3643)
|
|
|
|
txid_snapshot :: PTI
|
|
txid_snapshot = mkPTI LibPQ.Binary 2970 (Just 2949)
|
|
|
|
textUnknown :: PTI
|
|
textUnknown = mkPTI LibPQ.Text 705 (Just 705)
|
|
|
|
binaryUnknown :: PTI
|
|
binaryUnknown = mkPTI LibPQ.Binary 705 (Just 705)
|
|
|
|
uuid :: PTI
|
|
uuid = mkPTI LibPQ.Binary 2950 (Just 2951)
|
|
|
|
varbit :: PTI
|
|
varbit = mkPTI LibPQ.Binary 1562 (Just 1563)
|
|
|
|
varchar :: PTI
|
|
varchar = mkPTI LibPQ.Binary 1043 (Just 1015)
|
|
|
|
void :: PTI
|
|
void = mkPTI LibPQ.Binary 2278 Nothing
|
|
|
|
xid :: PTI
|
|
xid = mkPTI LibPQ.Binary 28 (Just 1011)
|
|
|
|
xml :: PTI
|
|
xml = mkPTI LibPQ.Binary 142 (Just 143)
|