@@ -216,4 +216,10 @@ close Connection{..} =
216 putMVar connectionHandle =<< PQ.newNullConnection
216 putMVar connectionHandle =<< PQ.newNullConnection
219+newNullConnection :: IO Connection
220+newNullConnection = do
221+ connectionHandle <- newMVar =<< PQ.newNullConnection
222+ connectionObjects <- newMVar IntMap.empty
223+ return Connection{..}
219data RawResult = RawResult { rawField :: Field, rawData :: Maybe ByteString }
225data RawResult = RawResult { rawField :: Field, rawData :: Maybe ByteString }