-- | transform a SignInRequest as passed to our application to a version
-- suited for pure computation
toSignInRequest :: SignInRequest' -> IO SignInRequest
toSignInRequest req =
    SignInRequest (siRqCreds' req) <$> genApiKey
toSignInRequest :: SignInRequest' -> IO SignInRequest
toSignInRequest req =
    SignInRequest (siRqCreds' req) <$> genApiKey
toSignInRequest req =
    SignInRequest (siRqCreds' req) <$> genApiKey