git.iko.soy/typeable/postgresql-simple
on master help sign in
Add newNullConnection to the Internal module
1305932Leon P Smith
src/Database/PostgreSQL/Simple/Internal.hs+6
@@ -216,4 +216,10 @@ close Connection{..} =
216 putMVar connectionHandle =<< PQ.newNullConnection
216 putMVar connectionHandle =<< PQ.newNullConnection
217 )
217 )
218
218
219+newNullConnection :: IO Connection
220+newNullConnection = do
221+ connectionHandle <- newMVar =<< PQ.newNullConnection
222+ connectionObjects <- newMVar IntMap.empty
223+ return Connection{..}
224+
219data RawResult = RawResult { rawField :: Field, rawData :: Maybe ByteString }
225data RawResult = RawResult { rawField :: Field, rawData :: Maybe ByteString }