-- | transform a SignUpRequest as passed to our application to a version
-- suited for pure computation
toSignUpRequest :: SignUpRequest' -> IO SignUpRequest
toSignUpRequest req =
    SignUpRequest (suRqCreds' req) <$> genApiKey <*> newSalt
toSignUpRequest :: SignUpRequest' -> IO SignUpRequest
toSignUpRequest req =
    SignUpRequest (suRqCreds' req) <$> genApiKey <*> newSalt
toSignUpRequest req =
    SignUpRequest (suRqCreds' req) <$> genApiKey <*> newSalt