persistent-postgresql 0.8.0 → 0.8.1

raw patch · 2 files changed

+10/−1 lines, 2 files

Files

• Database/Persist/Postgresql.hs +9/−0
• persistent-postgresql.cabal +1/−1

@@ -164,6 +164,15 @@                          Nothing -> "Postgresql.withStmt': unknown error"                          Just e  -> "Postgresql.withStmt': " ++ B8.unpack e               Just ret -> do+                -- Check result status+                status <- LibPQ.resultStatus ret+                case status of+                  LibPQ.TuplesOk -> return ()+                  _ -> do+                    msg <- LibPQ.resStatus status+                    fail $ "Postgresql.withStmt': bad result status " +++                           show status ++ " (" ++ show msg ++ ")"+                 -- Get number and type of columns                 cols <- LibPQ.nfields ret                 getters <- forM [0..cols-1] $ \col -> do

@@ -1,5 +1,5 @@ name:            persistent-postgresql-version:         0.8.0+version:         0.8.1 license:         BSD3 license-file:    LICENSE author:          Felipe Lessa, Michael Snoyman <michael@snoyman.com>