Show keyFromValues error (#1268)

* Show `keyFromValues` error * Update changelog * Incorporate review suggestions
yesodweb · May 11, 2021 · 7e85a7c · 7e85a7c
1 parent 9a6303b
commit 7e85a7c
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,10 @@
 # Changelog for persistent
 
+## 2.13.0.1
+
+* [#1268](https://github.com/yesodweb/persistent/pull/1268)
+    * Show `keyFromValues` error
+
 ## 2.13.0.0
 
 * [#1244](https://github.com/yesodweb/persistent/pull/1244)

diff --git a/persistent/Database/Persist/Sql/Util.hs b/persistent/Database/Persist/Sql/Util.hs
@@ -188,7 +188,8 @@ parseEntityValues t vals =
         case fromPersistValues xs of
             Left e -> Left e
             Right xs' -> case keyFromValues keyvals of
-                Left _ -> error "fromPersistValuesComposite': keyFromValues failed"
+                Left err -> error $ "fromPersistValuesComposite': keyFromValues failed with error: "
+                    <> T.unpack err
                 Right key -> Right (Entity key xs')
 
 

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