git.iko.soy/typeable/postgresql-simple
on master help sign in
Add another strictness annotation
a3eaf4dLeon P Smith
src/Database/PostgreSQL/Simple/Copy.hs+1−1
compare with master
unifiedsplit
@@ -79,7 +79,7 @@ getCopyData conn = withConnection conn loop
79 row <- PQ.getCopyData pqconn True
79 row <- PQ.getCopyData pqconn True
80#endif
80#endif
81 case row of
81 case row of
82− PQ.CopyOutRow rowdata -> return (CopyOutRow rowdata)
82+ PQ.CopyOutRow rowdata -> return $! CopyOutRow rowdata
83 PQ.CopyOutDone -> do
83 PQ.CopyOutDone -> do
84 result <- maybe (fail errCmdStatus) return =<< PQ.getResult pqconn
84 result <- maybe (fail errCmdStatus) return =<< PQ.getResult pqconn
85 cmdStat <- maybe (fail errCmdStatus) return =<< PQ.cmdStatus result
85 cmdStat <- maybe (fail errCmdStatus) return =<< PQ.cmdStatus result