4c6c394 · typeable/postgresql-simple

git.iko.soy/typeable/postgresql-simple

Remove case for empty command tag

If I understand correctly, the empty string command tag is only generated when putCopyError is called, in which case we are ignoring the command tag anyway.

commit4c6c394aa4a5c64bcc077cb7599f31239fb9db6b authorLeon P Smith <leon@melding-monads.com> dateThu 11 Jul 2013, 11:37 (13 years ago) parentf221c1f

1 file changed−1

compare with master

unifiedsplit

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

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

@@ -202,7 +202,6 @@ getCopyCommandTag funcName pqconn = do

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

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

204204 let rowCount = P.string "COPY " *> (P.decimal <* P.endOfInput)

205− <|> (P.endOfInput *> pure 0)

206205 case P.parseOnly rowCount cmdStat of

207206 Left _ -> fail errCmdStatusFmt

208207 Right n -> return $! n