Add missing case (oops from previous commit)
commitd7b8568c9901d948722e9b9c4bfa449abe34d545
authorLeon P Smith <leon@melding-monads.com>
dateThu 4 Sep 2014, 14:27 (12 years ago)
parent07fa663
src/Database/PostgreSQL/Simple/Internal.hs+1
@@ -310,6 +310,7 @@ exec conn sql =
310310 case mres' of
311311 Nothing -> case mres of
312312 Nothing -> throwLibPQError h "PQgetResult returned no results"
313+ Just res -> return res
313314 Just res -> do
314315 status <- PQ.resultStatus res
315316 case status of