module Stratosphere.NetworkFirewall.TLSInspectionConfiguration.CheckCertificateRevocationStatusProperty ( CheckCertificateRevocationStatusProperty(..), mkCheckCertificateRevocationStatusProperty ) where import qualified Data.Aeson as JSON import qualified Stratosphere.Prelude as Prelude import Stratosphere.Property import Stratosphere.ResourceProperties import Stratosphere.Value data CheckCertificateRevocationStatusProperty = -- | See: CheckCertificateRevocationStatusProperty {haddock_workaround_ :: (), -- | See: revokedStatusAction :: (Prelude.Maybe (Value Prelude.Text)), -- | See: unknownStatusAction :: (Prelude.Maybe (Value Prelude.Text))} deriving stock (Prelude.Eq, Prelude.Show) mkCheckCertificateRevocationStatusProperty :: CheckCertificateRevocationStatusProperty mkCheckCertificateRevocationStatusProperty = CheckCertificateRevocationStatusProperty {haddock_workaround_ = (), revokedStatusAction = Prelude.Nothing, unknownStatusAction = Prelude.Nothing} instance ToResourceProperties CheckCertificateRevocationStatusProperty where toResourceProperties CheckCertificateRevocationStatusProperty {..} = ResourceProperties {awsType = "AWS::NetworkFirewall::TLSInspectionConfiguration.CheckCertificateRevocationStatus", supportsTags = Prelude.False, properties = Prelude.fromList (Prelude.catMaybes [(JSON..=) "RevokedStatusAction" Prelude.<$> revokedStatusAction, (JSON..=) "UnknownStatusAction" Prelude.<$> unknownStatusAction])} instance JSON.ToJSON CheckCertificateRevocationStatusProperty where toJSON CheckCertificateRevocationStatusProperty {..} = JSON.object (Prelude.fromList (Prelude.catMaybes [(JSON..=) "RevokedStatusAction" Prelude.<$> revokedStatusAction, (JSON..=) "UnknownStatusAction" Prelude.<$> unknownStatusAction])) instance Property "RevokedStatusAction" CheckCertificateRevocationStatusProperty where type PropertyType "RevokedStatusAction" CheckCertificateRevocationStatusProperty = Value Prelude.Text set newValue CheckCertificateRevocationStatusProperty {..} = CheckCertificateRevocationStatusProperty {revokedStatusAction = Prelude.pure newValue, ..} instance Property "UnknownStatusAction" CheckCertificateRevocationStatusProperty where type PropertyType "UnknownStatusAction" CheckCertificateRevocationStatusProperty = Value Prelude.Text set newValue CheckCertificateRevocationStatusProperty {..} = CheckCertificateRevocationStatusProperty {unknownStatusAction = Prelude.pure newValue, ..}