persistent-postgresql 1.3.0.4 → 1.3.0.5

raw patch · 2 files changed

+10/−6 lines, 2 files

Files

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

@@ -144,11 +144,15 @@   let sql = T.concat                 [ "INSERT INTO "                 , escape $ entityDB ent-                , "("-                , T.intercalate "," $ map (escape . fieldDB) $ entityFields ent-                , ") VALUES("-                , T.intercalate "," (map (const "?") $ entityFields ent)-                , ")"+                , if null (entityFields ent)+                    then " DEFAULT VALUES"+                    else T.concat+                        [ "("+                        , T.intercalate "," $ map (escape . fieldDB) $ entityFields ent+                        , ") VALUES("+                        , T.intercalate "," (map (const "?") $ entityFields ent)+                        , ")"+                        ]                 ]   in case entityPrimary ent of        Just pdef -> ISRManyKeys sql vals

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