BearerTokenDirective.scala

private def bearerToken: Directive1[Option[String]] =
 for {
   authBearerHeader  <- optionalHeaderValueByType(classOf[Authorization]).map(extractBearerToken)
   xAuthCookie       <- optionalCookie("X-Authorization-Token").map(_.map(_.value))
 } yield authBearerHeader.orElse(xAuthCookie)

private def extractBearerToken(authHeader: Option[Authorization]): Option[String] =
 authHeader.collect {
   case Authorization(OAuth2BearerToken(token)) => token
 }