Better error message from TH converter

biocad · Sep 28, 2023 · 9d5e9d7 · 9d5e9d7
1 parent c12b491
commit 9d5e9d7
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/src/Database/Bolt/Extras/Template/Internal/Converters.hs b/src/Database/Bolt/Extras/Template/Internal/Converters.hs
@@ -323,7 +323,10 @@ getProp container (fieldName, fieldMaybe) | fieldMaybe && fieldName `notMember`
   where
     exactE v = case exactEither v of
       Right res -> res
-      Left err -> error $ show err
+      Left err -> error
+        $ "Could not unpack "
+        <> unpack fieldName <> ": " <> show err
+        <> ", value: " <> show v
 
 unpackError :: HasCallStack => Show c => c -> String -> a
 unpackError container label = error $ $currentLoc ++ " could not unpack " ++ label ++ " from " ++ show container