Budget.hs

module Stratosphere.Budgets.Budget (
        module Exports, Budget(..), mkBudget
    ) where
import qualified Data.Aeson as JSON
import qualified Stratosphere.Prelude as Prelude
import Stratosphere.Property
import {-# SOURCE #-} Stratosphere.Budgets.Budget.BudgetDataProperty as Exports
import {-# SOURCE #-} Stratosphere.Budgets.Budget.NotificationWithSubscribersProperty as Exports
import {-# SOURCE #-} Stratosphere.Budgets.Budget.ResourceTagProperty as Exports
import Stratosphere.ResourceProperties
data Budget
  = -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-budgets-budget.html>
    Budget {haddock_workaround_ :: (),
            -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-budgets-budget.html#cfn-budgets-budget-budget>
            budget :: BudgetDataProperty,
            -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-budgets-budget.html#cfn-budgets-budget-notificationswithsubscribers>
            notificationsWithSubscribers :: (Prelude.Maybe [NotificationWithSubscribersProperty]),
            -- | See: <http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-budgets-budget.html#cfn-budgets-budget-resourcetags>
            resourceTags :: (Prelude.Maybe [ResourceTagProperty])}
  deriving stock (Prelude.Eq, Prelude.Show)
mkBudget :: BudgetDataProperty -> Budget
mkBudget budget
  = Budget
      {haddock_workaround_ = (), budget = budget,
       notificationsWithSubscribers = Prelude.Nothing,
       resourceTags = Prelude.Nothing}
instance ToResourceProperties Budget where
  toResourceProperties Budget {..}
    = ResourceProperties
        {awsType = "AWS::Budgets::Budget", supportsTags = Prelude.False,
         properties = Prelude.fromList
                        ((Prelude.<>)
                           ["Budget" JSON..= budget]
                           (Prelude.catMaybes
                              [(JSON..=) "NotificationsWithSubscribers"
                                 Prelude.<$> notificationsWithSubscribers,
                               (JSON..=) "ResourceTags" Prelude.<$> resourceTags]))}
instance JSON.ToJSON Budget where
  toJSON Budget {..}
    = JSON.object
        (Prelude.fromList
           ((Prelude.<>)
              ["Budget" JSON..= budget]
              (Prelude.catMaybes
                 [(JSON..=) "NotificationsWithSubscribers"
                    Prelude.<$> notificationsWithSubscribers,
                  (JSON..=) "ResourceTags" Prelude.<$> resourceTags])))
instance Property "Budget" Budget where
  type PropertyType "Budget" Budget = BudgetDataProperty
  set newValue Budget {..} = Budget {budget = newValue, ..}
instance Property "NotificationsWithSubscribers" Budget where
  type PropertyType "NotificationsWithSubscribers" Budget = [NotificationWithSubscribersProperty]
  set newValue Budget {..}
    = Budget {notificationsWithSubscribers = Prelude.pure newValue, ..}
instance Property "ResourceTags" Budget where
  type PropertyType "ResourceTags" Budget = [ResourceTagProperty]
  set newValue Budget {..}
    = Budget {resourceTags = Prelude.pure newValue, ..}