Fix type error message with AtLeastOneUniqueKey class

yesodweb · Aug 28, 2024 · 6a75190 · 6a75190
1 parent 40ed447
commit 6a75190
Show file tree

Hide file tree

Showing 3 changed files with 8 additions and 2 deletions.
diff --git a/persistent/ChangeLog.md b/persistent/ChangeLog.md
@@ -1,5 +1,11 @@
 # Changelog for persistent
 
+## 2.14.6.3
+
+* []()
+    * Fix type error message when no unique keys are defined on a model and you
+      use a function with constraint `AtLeastOneUniqueKey`.
+
 ## 2.14.6.2
 
 * [#1536](https://github.com/yesodweb/persistent/pull/1536/)

diff --git a/persistent/Database/Persist/TH.hs b/persistent/Database/Persist/TH.hs
@@ -2306,7 +2306,7 @@ mkUniqueKeyInstances mps entDef = do
     typeErrorAtLeastOne :: Q [Dec]
     typeErrorAtLeastOne = do
         let impl = mkImpossible requireUniquesPName
-        cxt <- typeErrorMultipleCtx
+        cxt <- typeErrorNoneCtx
         pure [instanceD cxt atLeastOneUniqueKeyClass impl]
 
     singleUniqueKey :: Q [Dec]

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