CreateBudget.hs

{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric      #-}
{-# LANGUAGE OverloadedStrings  #-}
{-# LANGUAGE RecordWildCards    #-}
{-# LANGUAGE TypeFamilies       #-}

{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds   #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}

-- Derived from AWS service descriptions, licensed under Apache 2.0.

-- |
-- Module      : Network.AWS.Budgets.CreateBudget
-- Copyright   : (c) 2013-2016 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Create a new budget
module Network.AWS.Budgets.CreateBudget
    (
    -- * Creating a Request
      createBudget
    , CreateBudget
    -- * Request Lenses
    , cbNotificationsWithSubscribers
    , cbAccountId
    , cbBudget

    -- * Destructuring the Response
    , createBudgetResponse
    , CreateBudgetResponse
    -- * Response Lenses
    , cbrsResponseStatus
    ) where

import           Network.AWS.Budgets.Types
import           Network.AWS.Budgets.Types.Product
import           Network.AWS.Lens
import           Network.AWS.Prelude
import           Network.AWS.Request
import           Network.AWS.Response

-- | Request of CreateBudget
--
-- /See:/ 'createBudget' smart constructor.
data CreateBudget = CreateBudget'
    { _cbNotificationsWithSubscribers :: !(Maybe [NotificationWithSubscribers])
    , _cbAccountId                    :: !Text
    , _cbBudget                       :: !Budget
    } deriving (Eq,Read,Show,Data,Typeable,Generic)

-- | Creates a value of 'CreateBudget' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'cbNotificationsWithSubscribers' - Undocumented member.
--
-- * 'cbAccountId' - Undocumented member.
--
-- * 'cbBudget' - Undocumented member.
createBudget
    :: Text -- ^ 'cbAccountId'
    -> Budget -- ^ 'cbBudget'
    -> CreateBudget
createBudget pAccountId_ pBudget_ =
    CreateBudget'
    { _cbNotificationsWithSubscribers = Nothing
    , _cbAccountId = pAccountId_
    , _cbBudget = pBudget_
    }

-- | Undocumented member.
cbNotificationsWithSubscribers :: Lens' CreateBudget [NotificationWithSubscribers]
cbNotificationsWithSubscribers = lens _cbNotificationsWithSubscribers (\ s a -> s{_cbNotificationsWithSubscribers = a}) . _Default . _Coerce;

-- | Undocumented member.
cbAccountId :: Lens' CreateBudget Text
cbAccountId = lens _cbAccountId (\ s a -> s{_cbAccountId = a});

-- | Undocumented member.
cbBudget :: Lens' CreateBudget Budget
cbBudget = lens _cbBudget (\ s a -> s{_cbBudget = a});

instance AWSRequest CreateBudget where
        type Rs CreateBudget = CreateBudgetResponse
        request = postJSON budgets
        response
          = receiveEmpty
              (\ s h x ->
                 CreateBudgetResponse' <$> (pure (fromEnum s)))

instance Hashable CreateBudget

instance NFData CreateBudget

instance ToHeaders CreateBudget where
        toHeaders
          = const
              (mconcat
                 ["X-Amz-Target" =#
                    ("AWSBudgetServiceGateway.CreateBudget" ::
                       ByteString),
                  "Content-Type" =#
                    ("application/x-amz-json-1.1" :: ByteString)])

instance ToJSON CreateBudget where
        toJSON CreateBudget'{..}
          = object
              (catMaybes
                 [("NotificationsWithSubscribers" .=) <$>
                    _cbNotificationsWithSubscribers,
                  Just ("AccountId" .= _cbAccountId),
                  Just ("Budget" .= _cbBudget)])

instance ToPath CreateBudget where
        toPath = const "/"

instance ToQuery CreateBudget where
        toQuery = const mempty

-- | Response of CreateBudget
--
-- /See:/ 'createBudgetResponse' smart constructor.
newtype CreateBudgetResponse = CreateBudgetResponse'
    { _cbrsResponseStatus :: Int
    } deriving (Eq,Read,Show,Data,Typeable,Generic)

-- | Creates a value of 'CreateBudgetResponse' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'cbrsResponseStatus' - -- | The response status code.
createBudgetResponse
    :: Int -- ^ 'cbrsResponseStatus'
    -> CreateBudgetResponse
createBudgetResponse pResponseStatus_ =
    CreateBudgetResponse'
    { _cbrsResponseStatus = pResponseStatus_
    }

-- | -- | The response status code.
cbrsResponseStatus :: Lens' CreateBudgetResponse Int
cbrsResponseStatus = lens _cbrsResponseStatus (\ s a -> s{_cbrsResponseStatus = a});

instance NFData CreateBudgetResponse