Remove another layer of indirection
commit26e56f3a7400394d3c7ff440f4e7e2a6fee015e6
authorLeon P Smith <leon@melding-monads.com>
dateFri 6 Jan 2012, 18:32 (15 years ago)
parentefb67ba
src/Database/PostgreSQL/Simple/Internal.hs+2−2
@@ -51,8 +51,8 @@ typeOid Field{..} = unsafePerformIO (PQ.ftype result column)
5151
5252
5353data Connection = Connection {
54− connectionHandle :: MVar PQ.Connection
55− , connectionObjects :: MVar (IntMap.IntMap ByteString)
54+ connectionHandle :: {-# UNPACK #-} !(MVar PQ.Connection)
55+ , connectionObjects :: {-# UNPACK #-} !(MVar (IntMap.IntMap ByteString))
5656 }
5757
5858data SqlType