git.iko.soy/typeable/postgresql-simple
on master help sign in
Remove debugging statement
9a6b2beLeon P Smith
src/Database/PostgreSQL/Simple/Copy.hs−1
compare with master
unifiedsplit
@@ -201,7 +201,6 @@ getCopyCommandTag :: B.ByteString -> PQ.Connection -> IO Int64
201getCopyCommandTag funcName pqconn = do
201getCopyCommandTag funcName pqconn = do
202 result <- maybe (fail errCmdStatus) return =<< PQ.getResult pqconn
202 result <- maybe (fail errCmdStatus) return =<< PQ.getResult pqconn
203 cmdStat <- maybe (fail errCmdStatus) return =<< PQ.cmdStatus result
203 cmdStat <- maybe (fail errCmdStatus) return =<< PQ.cmdStatus result
204− print cmdStat
205 let rowCount = P.string "COPY " *> (P.decimal <* P.endOfInput)
204 let rowCount = P.string "COPY " *> (P.decimal <* P.endOfInput)
206 <|> (P.endOfInput *> pure 0)
205 <|> (P.endOfInput *> pure 0)
207 case P.parseOnly rowCount cmdStat of
206 case P.parseOnly rowCount cmdStat of