persistent-sqlite 1.3.0.4 → 1.3.0.5

raw patch · 2 files changed

+10/−6 lines, 2 files

Files

• Database/Persist/Sqlite.hs +9/−5
• persistent-sqlite.cabal +1/−1

@@ -125,11 +125,15 @@           ins = 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 " VALUES(null)"+                    else T.concat+                      [ "("+                      , T.intercalate "," $ map (escape . fieldDB) $ entityFields ent+                      , ") VALUES("+                      , T.intercalate "," (map (const "?") $ entityFields ent)+                      , ")"+                      ]               ]  execute' :: Sqlite.Connection -> Sqlite.Statement -> [PersistValue] -> IO Int64

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