gonito/PersistEvaluationScheme.hs
2021-02-27 15:10:08 +01:00

19 lines
510 B
Haskell

module PersistEvaluationScheme where
import ClassyPrelude.Yesod
import Database.Persist.Sql
import GEval.EvaluationScheme
import qualified Data.Text as T
instance PersistField EvaluationScheme where
toPersistValue m = PersistText (T.pack $ show m)
fromPersistValue (PersistText t) = case readMay t of
Just val -> Right val
Nothing -> Left $ "Unexpected value '" ++ t ++ "'"
fromPersistValue _ = Left "Unexpected value"
instance PersistFieldSql EvaluationScheme where
sqlType _ = SqlString