module Stratosphere.CloudFront.Distribution.OriginGroupFailoverCriteriaProperty ( module Exports, OriginGroupFailoverCriteriaProperty(..), mkOriginGroupFailoverCriteriaProperty ) where import qualified Data.Aeson as JSON import qualified Stratosphere.Prelude as Prelude import Stratosphere.Property import {-# SOURCE #-} Stratosphere.CloudFront.Distribution.StatusCodesProperty as Exports import Stratosphere.ResourceProperties data OriginGroupFailoverCriteriaProperty = -- | See: OriginGroupFailoverCriteriaProperty {haddock_workaround_ :: (), -- | See: statusCodes :: StatusCodesProperty} deriving stock (Prelude.Eq, Prelude.Show) mkOriginGroupFailoverCriteriaProperty :: StatusCodesProperty -> OriginGroupFailoverCriteriaProperty mkOriginGroupFailoverCriteriaProperty statusCodes = OriginGroupFailoverCriteriaProperty {haddock_workaround_ = (), statusCodes = statusCodes} instance ToResourceProperties OriginGroupFailoverCriteriaProperty where toResourceProperties OriginGroupFailoverCriteriaProperty {..} = ResourceProperties {awsType = "AWS::CloudFront::Distribution.OriginGroupFailoverCriteria", supportsTags = Prelude.False, properties = ["StatusCodes" JSON..= statusCodes]} instance JSON.ToJSON OriginGroupFailoverCriteriaProperty where toJSON OriginGroupFailoverCriteriaProperty {..} = JSON.object ["StatusCodes" JSON..= statusCodes] instance Property "StatusCodes" OriginGroupFailoverCriteriaProperty where type PropertyType "StatusCodes" OriginGroupFailoverCriteriaProperty = StatusCodesProperty set newValue OriginGroupFailoverCriteriaProperty {..} = OriginGroupFailoverCriteriaProperty {statusCodes = newValue, ..}