persistent-sqlite 2.13.0.2 → 2.13.0.3

raw patch · 3 files changed

+19/−3 lines, 3 files

Files

• ChangeLog.md +9/−0
• Database/Persist/Sqlite.hs +9/−2
• persistent-sqlite.cabal +1/−1

@@ -1,5 +1,14 @@ # Changelog for persistent-sqlite +## 2.13.0.3++* Somehow failed to properly release the safe-to-remove changes.++## 2.13.0.2++* [#1275](https://github.com/yesodweb/persistent/pull/1275)+    * Fix SafeToRemove+ ## 2.13.0.1  * [#1265](https://github.com/yesodweb/persistent/pull/1265)

@@ -499,7 +499,14 @@ safeToRemove def (FieldNameDB colName)     = any (elem FieldAttrSafeToRemove . fieldAttrs)     $ filter ((== FieldNameDB colName) . fieldDB)-    $ getEntityFieldsDatabase def+    $ allEntityFields+  where+    allEntityFields =+        getEntityFieldsDatabase def <> case getEntityId def of+            EntityIdField fdef ->+                [fdef]+            _ ->+                []  getCopyTable :: [EntityDef]              -> (Text -> IO Statement)@@ -676,7 +683,7 @@ putManySql :: EntityDef -> Int -> Text putManySql ent n = putManySql' conflictColumns (toList fields) ent n   where-    fields = getEntityFieldsDatabase ent+    fields = getEntityFields ent     conflictColumns = concatMap (map (escapeF . snd) . toList . uniqueFields) (getEntityUniques ent)  repsertManySql :: EntityDef -> Int -> Text

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