Change implementation of typeOid to avoid unnecessary metaschema queries
commitde83238eccc95c16bc5a66806c6082c50d01712c
authorLeon P Smith <leon@melding-monads.com>
dateTue 9 Oct 2012, 00:44 (14 years ago)
parent3a26c38
src/Database/PostgreSQL/Simple/Internal.hs+1−1
@@ -110,7 +110,7 @@ format Field{..} = unsafePerformIO (PQ.fformat result column)
110110-- to libpq's @PQftype@.
111111
112112typeOid :: Field -> PQ.Oid
113−typeOid = typoid . typ . typeinfo
113+typeOid Field{..} = unsafePerformIO (PQ.ftype result column)
114114
115115data Connection = Connection {
116116 connectionHandle :: {-# UNPACK #-} !(MVar PQ.Connection)