git.iko.soy/typeable/postgresql-simple
on master help sign in
Tweak capitalization in GenBuiltinTypes
094b560Leon P Smith
tools/GenBuiltinTypes.hs+16−22
compare with master
unifiedsplit
@@ -1,7 +1,7 @@
1------------------------------------------------------------------------------
1------------------------------------------------------------------------------
2-- |
2-- |
3-- Module: GenBuiltinTypes
3-- Module: GenBuiltinTypes
4−-- Copyright: (c) 2011 Leon P Smith
4+-- Copyright: (c) 2011-2012 Leon P Smith
5-- License: BSD3
5-- License: BSD3
6-- Maintainer: Leon P Smith <leon@melding-monads.com>
6-- Maintainer: Leon P Smith <leon@melding-monads.com>
7-- Stability: experimental
7-- Stability: experimental
@@ -39,13 +39,13 @@ type Map = Map.Map B.ByteString Int
39builtins :: [(B.ByteString, B.ByteString)]
39builtins :: [(B.ByteString, B.ByteString)]
40builtins = [strings|
40builtins = [strings|
41bool
41bool
42−bytea
42+bytea ByteA
43char
43char
44name
44name
45int8
45int8
46int2
46int2
47int4
47int4
48−regproc
48+regproc RegProc
49text
49text
50oid
50oid
51tid
51tid
@@ -53,7 +53,7 @@ xid
53cid
53cid
54xml
54xml
55point
55point
56−lseg
56+lseg LSeg
57path
57path
58box
58box
59polygon
59polygon
@@ -61,26 +61,26 @@ line
61cidr
61cidr
62float4
62float4
63float8
63float8
64−abstime
64+abstime AbsTime
65−reltime
65+reltime RelTime
66−tinterval
66+tinterval TInterval
67unknown
67unknown
68circle
68circle
69money
69money
70−macaddr
70+macaddr MacAddr
71inet
71inet
72−bpchar
72+bpchar BpChar
73−varchar
73+varchar VarChar
74date
74date
75time
75time
76timestamp
76timestamp
77−timestamptz TimestampWithTimeZone
77+timestamptz TimestampTZ
78interval
78interval
79−timetz TimeWithTimeZone
79+timetz TimeTZ
80bit
80bit
81−varbit
81+varbit VarBit
82numeric
82numeric
83−refcursor
83+refcursor RefCursor
84record
84record
85void
85void
86|]
86|]
@@ -89,13 +89,7 @@ instance IsString Blaze.Builder where
89 fromString = Blaze.fromByteString . fromString
89 fromString = Blaze.fromByteString . fromString
90
90
91main = do
91main = do
92− conn <- connect ConnectInfo {
92+ conn <- connectPostgreSQL ""
93− connectHost = "127.0.0.1",
94− connectPort = 5432,
95− connectUser = "aliadmin",
96− connectPassword = "aliadmin",
97− connectDatabase = "postgres"
98− }
99 xs <- query conn "SELECT typname::text, oid::int\
93 xs <- query conn "SELECT typname::text, oid::int\
100 \ FROM pg_type\
94 \ FROM pg_type\
101 \ WHERE typname IN ?"
95 \ WHERE typname IN ?"
@@ -130,7 +124,7 @@ renderFile oidmap builtins = ([longstring|
130------------------------------------------------------------------------------
124------------------------------------------------------------------------------
131-- |
125-- |
132-- Module: Database.PostgreSQL.Simple.BuiltinTypes
126-- Module: Database.PostgreSQL.Simple.BuiltinTypes
133−-- Copyright: (c) 2011 Leon P Smith
127+-- Copyright: (c) 2011-2012 Leon P Smith
134-- License: BSD3
128-- License: BSD3
135-- Maintainer: Leon P Smith <leon@melding-monads.com>
129-- Maintainer: Leon P Smith <leon@melding-monads.com>
136-- Stability: experimental
130-- Stability: experimental