ExtractTokenAndExpiration.scala

private def extractTokenAndExpiration(response: Response[String]): Option[(String, Duration)] = {
  for {
    location <- response.headers.find(_._1 == "Location").map(_._2)
    queryParams <- extractQueryParams(location)
    token <- queryParams.get("access_token")
    expiration <- queryParams.get("expires_in").map(parseExpirationTime)
  } yield (token, expiration)
}

private def extractQueryParams(location: String): Option[Map[String, String]] = {
  val uri: Uri = uri"$location"
  uri.fragment.map { fragment =>
    fragment
      .split("&")
      .toSeq
      .map(_.split("=").toSeq)
      .map { case Seq(x, y) => (x, y) }
      .toMap
  }
}

private def parseExpirationTime(timeInSeconds: String): Duration = {
  timeInSeconds.toLong.seconds
}