Fix type error message with AtLeastOneUniqueKey class (#1544)

* Fix type error message with AtLeastOneUniqueKey class * changelog
yesodweb · Aug 28, 2024 · 24f5d92 · 24f5d92
1 parent 40ed447
commit 24f5d92
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
+
+* [#1544](https://github.com/yesodweb/persistent/pull/1544)
+ * 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>