From 7fdeeda0a60a378331f31f7651f6d2f86ebd2d8b Mon Sep 17 00:00:00 2001 From: Filip Gralinski Date: Sat, 27 Feb 2021 15:00:22 +0100 Subject: [PATCH] More diagnostic --- PersistEvaluationScheme.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/PersistEvaluationScheme.hs b/PersistEvaluationScheme.hs index 28ee1d1..14d11b7 100644 --- a/PersistEvaluationScheme.hs +++ b/PersistEvaluationScheme.hs @@ -11,7 +11,7 @@ instance PersistField EvaluationScheme where fromPersistValue (PersistText t) = case readMay t of Just val -> Right val - Nothing -> Left "Unexpected value" + Nothing -> Left $ "Unexpected value '" ++ t ++ "'" fromPersistValue _ = Left "Unexpected value" instance PersistFieldSql EvaluationScheme where