Skip to content
Browse files

Remove another layer of indirection

  • Loading branch information...
1 parent efb67ba commit 26e56f3a7400394d3c7ff440f4e7e2a6fee015e6 @lpsmith committed Jan 6, 2012
Showing with 2 additions and 2 deletions.
  1. +2 −2 src/Database/PostgreSQL/Simple/Internal.hs
View
4 src/Database/PostgreSQL/Simple/Internal.hs
@@ -51,8 +51,8 @@ typeOid Field{..} = unsafePerformIO (PQ.ftype result column)
data Connection = Connection {
- connectionHandle :: MVar PQ.Connection
- , connectionObjects :: MVar (IntMap.IntMap ByteString)
+ connectionHandle :: {-# UNPACK #-} !(MVar PQ.Connection)
+ , connectionObjects :: {-# UNPACK #-} !(MVar (IntMap.IntMap ByteString))
}
data SqlType

0 comments on commit 26e56f3

Please sign in to comment.
Something went wrong with that request. Please try again.