cast :: DB.Value -> PersistValue
-- since we have case analysys this won't ever be Nothing
-- However, unsupported types do throw an exception in pure code
-- probably should re-work this to throw in IO
cast = fromJust . DB.cast'
cast :: DB.Value -> PersistValue
cast = fromJust . DB.cast'
cast = fromJust . DB.cast'