module Facebook.Persistent () where
import Control.Applicative ((<$>))
import Database.Persist
import Facebook
instance PersistField Action where
toPersistValue = toPersistValue . show
fromPersistValue v =
case fmap reads $ fromPersistValue v of
Right [(action,"")] -> Right action
Right _ -> Left "fromPersistValue[Facebook.Action]: \
\Could not parse action"
Left err -> Left err
sqlType = sqlType . show
isNullable _ = False
instance PersistField Id where
toPersistValue = toPersistValue . idCode
fromPersistValue v = Id <$> fromPersistValue v
sqlType = sqlType . idCode
isNullable _ = False