Don't discover constrained instances (#1329)

* Don't discover constrained instances * Bump version, add changelog
yesodweb · Oct 13, 2021 · 34c8b8f · 34c8b8f
1 parent 9e84929
commit 34c8b8f
Show file tree

Hide file tree

Showing 3 changed files with 9 additions and 2 deletions.
diff --git a/persistent/ChangeLog.md b/persistent/ChangeLog.md
@@ -1,5 +1,12 @@
 # Changelog for persistent
 
+## 2.13.2.1
+
+* [#1329](https://github.com/yesodweb/persistent/pull/1329)
+    * Prevent discovery of constrained `PersistEntity` instances in
+      `discoverEntities` (since the discovered instances won't work without
+      constraints anyway).
+
 ## 2.13.2.0
 
 * [#1314](https://github.com/yesodweb/persistent/pull/1314)

diff --git a/persistent/Database/Persist/TH.hs b/persistent/Database/Persist/TH.hs
@@ -3104,7 +3104,7 @@ discoverEntities = do
             mapMaybe getDecType instances
         getDecType dec =
             case dec of
-                InstanceD _moverlap _cxt typ _decs ->
+                InstanceD _moverlap [] typ _decs ->
                     stripPersistEntity typ
                 _ ->
                     Nothing

diff --git a/persistent/persistent.cabal b/persistent/persistent.cabal
@@ -1,5 +1,5 @@
 name:            persistent
-version:         2.13.2.0
+version:         2.13.2.1
 license:         MIT
 license-file:    LICENSE
 author:          Michael Snoyman <michael@snoyman.com>