git.iko.soy/typeable/postgresql-simple
on master help sign in
Remove another layer of indirection
26e56f3Leon P Smith
src/Database/PostgreSQL/Simple/Internal.hs+2−2
compare with master
unifiedsplit
@@ -51,8 +51,8 @@ typeOid Field{..} = unsafePerformIO (PQ.ftype result column)
51
51
52
52
53data Connection = Connection {
53data Connection = Connection {
54− connectionHandle :: MVar PQ.Connection
54+ connectionHandle :: {-# UNPACK #-} !(MVar PQ.Connection)
55− , connectionObjects :: MVar (IntMap.IntMap ByteString)
55+ , connectionObjects :: {-# UNPACK #-} !(MVar (IntMap.IntMap ByteString))
56 }
56 }
57
57
58data SqlType
58data SqlType