module Stratosphere.BillingConductor.CustomLineItem.PresentationDetailsProperty (
PresentationDetailsProperty(..), mkPresentationDetailsProperty
) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import Stratosphere.ResourceProperties
import Stratosphere.Value
data PresentationDetailsProperty
=
PresentationDetailsProperty {PresentationDetailsProperty -> ()
haddock_workaround_ :: (),
PresentationDetailsProperty -> Value Text
service :: (Value Prelude.Text)}
deriving stock (PresentationDetailsProperty -> PresentationDetailsProperty -> Bool
(PresentationDetailsProperty
-> PresentationDetailsProperty -> Bool)
-> (PresentationDetailsProperty
-> PresentationDetailsProperty -> Bool)
-> Eq PresentationDetailsProperty
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: PresentationDetailsProperty -> PresentationDetailsProperty -> Bool
== :: PresentationDetailsProperty -> PresentationDetailsProperty -> Bool
$c/= :: PresentationDetailsProperty -> PresentationDetailsProperty -> Bool
/= :: PresentationDetailsProperty -> PresentationDetailsProperty -> Bool
Prelude.Eq, Int -> PresentationDetailsProperty -> ShowS
[PresentationDetailsProperty] -> ShowS
PresentationDetailsProperty -> String
(Int -> PresentationDetailsProperty -> ShowS)
-> (PresentationDetailsProperty -> String)
-> ([PresentationDetailsProperty] -> ShowS)
-> Show PresentationDetailsProperty
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> PresentationDetailsProperty -> ShowS
showsPrec :: Int -> PresentationDetailsProperty -> ShowS
$cshow :: PresentationDetailsProperty -> String
show :: PresentationDetailsProperty -> String
$cshowList :: [PresentationDetailsProperty] -> ShowS
showList :: [PresentationDetailsProperty] -> ShowS
Prelude.Show)
mkPresentationDetailsProperty ::
Value Prelude.Text -> PresentationDetailsProperty
mkPresentationDetailsProperty :: Value Text -> PresentationDetailsProperty
mkPresentationDetailsProperty Value Text
service
= PresentationDetailsProperty
{haddock_workaround_ :: ()
haddock_workaround_ = (), service :: Value Text
service = Value Text
service}
instance ToResourceProperties PresentationDetailsProperty where
toResourceProperties :: PresentationDetailsProperty -> ResourceProperties
toResourceProperties PresentationDetailsProperty {()
Value Text
haddock_workaround_ :: PresentationDetailsProperty -> ()
service :: PresentationDetailsProperty -> Value Text
haddock_workaround_ :: ()
service :: Value Text
..}
= ResourceProperties
{awsType :: Text
awsType = Text
"AWS::BillingConductor::CustomLineItem.PresentationDetails",
supportsTags :: Bool
supportsTags = Bool
Prelude.False,
properties :: Object
properties = [Key
"Service" Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Text
service]}
instance JSON.ToJSON PresentationDetailsProperty where
toJSON :: PresentationDetailsProperty -> Value
toJSON PresentationDetailsProperty {()
Value Text
haddock_workaround_ :: PresentationDetailsProperty -> ()
service :: PresentationDetailsProperty -> Value Text
haddock_workaround_ :: ()
service :: Value Text
..}
= [(Key, Value)] -> Value
JSON.object [Key
"Service" Key -> Value Text -> (Key, Value)
forall v. ToJSON v => Key -> v -> (Key, Value)
forall e kv v. (KeyValue e kv, ToJSON v) => Key -> v -> kv
JSON..= Value Text
service]
instance Property "Service" PresentationDetailsProperty where
type PropertyType "Service" PresentationDetailsProperty = Value Prelude.Text
set :: PropertyType "Service" PresentationDetailsProperty
-> PresentationDetailsProperty -> PresentationDetailsProperty
set PropertyType "Service" PresentationDetailsProperty
newValue PresentationDetailsProperty {()
Value Text
haddock_workaround_ :: PresentationDetailsProperty -> ()
service :: PresentationDetailsProperty -> Value Text
haddock_workaround_ :: ()
service :: Value Text
..}
= PresentationDetailsProperty {service :: Value Text
service = PropertyType "Service" PresentationDetailsProperty
Value Text
newValue, ()
haddock_workaround_ :: ()
haddock_workaround_ :: ()
..}