Merge pull request #404 from jcristovao/master

Addresses Postgresql exceptions #353
yesodweb · May 28, 2015 · 7a1024a · 7a1024a
2 parents f6d6919 + 0242ad2
commit 7a1024a
Showing 1 changed file with 1 addition and 5 deletions.
diff --git a/persistent-postgresql/Database/Persist/Postgresql.hs b/persistent-postgresql/Database/Persist/Postgresql.hs
@@ -218,11 +218,7 @@ withStmt' conn query vals =
                 status <- LibPQ.resultStatus ret
                 case status of
                   LibPQ.TuplesOk -> return ()
-                  _ -> do
-                    msg <- LibPQ.resStatus status
-                    mmsg <- LibPQ.resultErrorMessage ret
-                    fail $ "Postgresql.withStmt': bad result status " ++
-                           show status ++ " (" ++ maybe (show msg) (show . (,) msg) mmsg ++ ")"
+                  _ -> PG.throwResultError "Postgresql.withStmt': bad result status " ret status
 
                 -- Get number and type of columns
                 cols <- LibPQ.nfields ret