@@ -310,6 +310,7 @@ exec conn sql =
310 case mres' of
310 case mres' of
311 Nothing -> case mres of
311 Nothing -> case mres of
312 Nothing -> throwLibPQError h "PQgetResult returned no results"
312 Nothing -> throwLibPQError h "PQgetResult returned no results"
313+ Just res -> return res
313 Just res -> do
314 Just res -> do
314 status <- PQ.resultStatus res
315 status <- PQ.resultStatus res
315 case status of
316 case status of