From 9d5e9d7686da500d3124457307e0404bd2247370 Mon Sep 17 00:00:00 2001 From: Maxim Koltsov Date: Thu, 28 Sep 2023 15:13:36 +0300 Subject: [PATCH] Better error message from TH converter --- src/Database/Bolt/Extras/Template/Internal/Converters.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/src/Database/Bolt/Extras/Template/Internal/Converters.hs b/src/Database/Bolt/Extras/Template/Internal/Converters.hs index b9e4cd1..2adaa4f 100644 --- 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