
  -- 2. Now we post the form with all of our credentials.
  let form' = form <> ["identity" := _email, "credential" := _password]
  Just code <- fmap (xcode . BC.unpack) <$> findRedirect authURL (fopts
                                                                  & params .~ gparams