persistent 2.14.4.0 → 2.14.4.1

raw patch · 3 files changed

+19/−1 lines, 3 files

Files

• ChangeLog.md +6/−0
• Database/Persist/Sql/Orphan/PersistStore.hs +12/−0
• persistent.cabal +1/−1

@@ -1,5 +1,11 @@ # Changelog for persistent +## 2.14.4.1++* [#1449](https://github.com/yesodweb/persistent/pull/1449)+    * Default implementation for `insert_` which doesn't perform any unnecessary+      queries.+ ## 2.14.4.0  * [#1440](https://github.com/yesodweb/persistent/pull/1440)

@@ -159,6 +159,18 @@         rawExecute sql $             map updatePersistValue upds `mappend` keyToValues k +    insert_ val = do+        conn <- ask+        let vals = mkInsertValues val+        case connInsertSql conn (entityDef (Just val)) vals  of+            ISRSingle sql -> do+                withRawQuery sql vals $ do+                    pure ()+            ISRInsertGet sql1 _sql2 -> do+                rawExecute sql1 vals+            ISRManyKeys sql _fs -> do+                rawExecute sql vals+     insert val = do         conn <- ask         let esql = connInsertSql conn t vals

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