filipg/gonito
1
0
Fork 1
Code Issues 1 Pull Requests Releases Wiki Activity

More diagnostic

Browse Source
This commit is contained in:
Filip Gralinski 2021-02-27 15:00:22 +01:00
parent abed530d1f
commit 7fdeeda0a6
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
PersistEvaluationScheme.hs
View File

@ -11,7 +11,7 @@ instance PersistField EvaluationScheme where
fromPersistValue (PersistText t) = case readMay t of fromPersistValue (PersistText t) = case readMay t of
Just val -> Right val Just val -> Right val
Nothing -> Left "Unexpected value" Nothing -> Left $ "Unexpected value '" ++ t ++ "'"
fromPersistValue _ = Left "Unexpected value" fromPersistValue _ = Left "Unexpected value"
instance PersistFieldSql EvaluationScheme where instance PersistFieldSql EvaluationScheme where