19 lines
510 B
Haskell
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
|