-- = Signing up
-- | provide data needed for signup. We don't do any IO here
signUpProvider :: SignUpRequest -> Query Morgue SignUpData
signUpProvider req = do
    morgue <- ask
    return (req, getOne $ allUsers morgue @= cName (suRqCreds req))

-- | process data from a sign up request
signUpProvider :: SignUpRequest -> Query Morgue SignUpData
signUpProvider req = do
    morgue <- ask
    return (req, getOne $ allUsers morgue @= cName (suRqCreds req))

-- | process data from a sign up request
signUpProvider req = do
    morgue <- ask
    return (req, getOne $ allUsers morgue @= cName (suRqCreds req))

-- | process data from a sign up request