Add newNullConnection to the Internal module
commit13059324719f097c3fae28794c2b7fcc43c2a14c
authorLeon P Smith <leon@melding-monads.com>
dateTue 10 Jan 2012, 13:08 (15 years ago)
parent251e26d
src/Database/PostgreSQL/Simple/Internal.hs+6
@@ -216,4 +216,10 @@ close Connection{..} =
216216 putMVar connectionHandle =<< PQ.newNullConnection
217217 )
218218
219+newNullConnection :: IO Connection
220+newNullConnection = do
221+ connectionHandle <- newMVar =<< PQ.newNullConnection
222+ connectionObjects <- newMVar IntMap.empty
223+ return Connection{..}
224+
219225data RawResult = RawResult { rawField :: Field, rawData :: Maybe ByteString }