More diagnostic

2021-02-27 15:00:22 +01:00 · 2021-02-27 15:00:22 +01:00 · 7fdeeda0a6
commit 7fdeeda0a6
parent abed530d1f
1 changed files with 1 additions and 1 deletions
--- 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