Remove another layer of indirection

ozataman · Jan 6, 2012 · 26e56f3 · 26e56f3
1 parent efb67ba
commit 26e56f3
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Database/PostgreSQL/Simple/Internal.hs b/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