a3eaf4d · typeable/postgresql-simple

git.iko.soy/typeable/postgresql-simple

Add another strictness annotation

commita3eaf4d5e6c7f155caa059d3399f5a5cdf029660 authorLeon P Smith <leon@melding-monads.com> dateThu 27 Jun 2013, 19:08 (13 years ago) parenta14930d

1 file changed+1−1

unifiedsplit

src/Database/PostgreSQL/Simple/Copy.hs+1−1

@@ -79,7 +79,7 @@ getCopyData conn = withConnection conn loop

7979 row <- PQ.getCopyData pqconn True

8080#endif

8181 case row of

82− PQ.CopyOutRow rowdata -> return (CopyOutRow rowdata)

82+ PQ.CopyOutRow rowdata -> return $! CopyOutRow rowdata

8383 PQ.CopyOutDone -> do

8484 result <- maybe (fail errCmdStatus) return =<< PQ.getResult pqconn

8585 cmdStat <- maybe (fail errCmdStatus) return =<< PQ.cmdStatus result