gonito/PersistEvaluationScheme.hs
2019-08-12 18:19:02 +02:00

19 lines
494 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"
fromPersistValue _ = Left "Unexpected value"
instance PersistFieldSql EvaluationScheme where
sqlType _ = SqlString