      eAccessToken <- liftIO $ runEncryptM appEncryptionSettings $ decryptText twitchCredentialsAccessToken
      case eAccessToken of
        Left _ -> sendStatusJSON status401 ("Unable to retrieve access token" :: Text)
        Right accessToken -> do
          eResponse <-
            twitchRequest