{-# 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.Kinesis.UpdateShardCount
-- Copyright   : (c) 2013-2017 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Updates the shard count of the specified stream to the specified number of shards.
--
--
-- Updating the shard count is an asynchronous operation. Upon receiving the request, Amazon Kinesis returns immediately and sets the status of the stream to @UPDATING@ . After the update is complete, Amazon Kinesis sets the status of the stream back to @ACTIVE@ . Depending on the size of the stream, the scaling action could take a few minutes to complete. You can continue to read and write data to your stream while its status is @UPDATING@ .
--
-- To update the shard count, Amazon Kinesis performs splits or merges on individual shards. This can cause short-lived shards to be created, in addition to the final shards. We recommend that you double or halve the shard count, as this results in the fewest number of splits or merges.
--
-- This operation has the following limits, which are per region per account unless otherwise noted:
--
--     * scale more than twice per rolling 24 hour period
--
--     * scale up above double your current shard count
--
--     * scale down below half your current shard count
--
--     * scale up above 200 shards in a stream
--
--     * scale a stream with more than 200 shards down unless the result is less than 200 shards
--
--     * scale up above the shard limits for your account
--
--     *
--
--
--
-- For the default limits for an AWS account, see <http://docs.aws.amazon.com/kinesis/latest/dev/service-sizes-and-limits.html Streams Limits> in the /Amazon Kinesis Streams Developer Guide/ . If you need to increase a limit, <http://docs.aws.amazon.com/general/latest/gr/aws_service_limits.html contact AWS Support> .
--
module Network.AWS.Kinesis.UpdateShardCount
    (
    -- * Creating a Request
      updateShardCount
    , UpdateShardCount
    -- * Request Lenses
    , uscStreamName
    , uscTargetShardCount
    , uscScalingType

    -- * Destructuring the Response
    , updateShardCountResponse
    , UpdateShardCountResponse
    -- * Response Lenses
    , uscrsTargetShardCount
    , uscrsStreamName
    , uscrsCurrentShardCount
    , uscrsResponseStatus
    ) where

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

-- | /See:/ 'updateShardCount' smart constructor.
data UpdateShardCount = UpdateShardCount'
  { _uscStreamName       :: !Text
  , _uscTargetShardCount :: !Nat
  , _uscScalingType      :: !ScalingType
  } deriving (Eq, Read, Show, Data, Typeable, Generic)


-- | Creates a value of 'UpdateShardCount' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'uscStreamName' - The name of the stream.
--
-- * 'uscTargetShardCount' - The new number of shards.
--
-- * 'uscScalingType' - The scaling type. Uniform scaling creates shards of equal size.
updateShardCount
    :: Text -- ^ 'uscStreamName'
    -> Natural -- ^ 'uscTargetShardCount'
    -> ScalingType -- ^ 'uscScalingType'
    -> UpdateShardCount
updateShardCount pStreamName_ pTargetShardCount_ pScalingType_ =
  UpdateShardCount'
  { _uscStreamName = pStreamName_
  , _uscTargetShardCount = _Nat # pTargetShardCount_
  , _uscScalingType = pScalingType_
  }


-- | The name of the stream.
uscStreamName :: Lens' UpdateShardCount Text
uscStreamName = lens _uscStreamName (\ s a -> s{_uscStreamName = a});

-- | The new number of shards.
uscTargetShardCount :: Lens' UpdateShardCount Natural
uscTargetShardCount = lens _uscTargetShardCount (\ s a -> s{_uscTargetShardCount = a}) . _Nat;

-- | The scaling type. Uniform scaling creates shards of equal size.
uscScalingType :: Lens' UpdateShardCount ScalingType
uscScalingType = lens _uscScalingType (\ s a -> s{_uscScalingType = a});

instance AWSRequest UpdateShardCount where
        type Rs UpdateShardCount = UpdateShardCountResponse
        request = postJSON kinesis
        response
          = receiveJSON
              (\ s h x ->
                 UpdateShardCountResponse' <$>
                   (x .?> "TargetShardCount") <*> (x .?> "StreamName")
                     <*> (x .?> "CurrentShardCount")
                     <*> (pure (fromEnum s)))

instance Hashable UpdateShardCount where

instance NFData UpdateShardCount where

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

instance ToJSON UpdateShardCount where
        toJSON UpdateShardCount'{..}
          = object
              (catMaybes
                 [Just ("StreamName" .= _uscStreamName),
                  Just ("TargetShardCount" .= _uscTargetShardCount),
                  Just ("ScalingType" .= _uscScalingType)])

instance ToPath UpdateShardCount where
        toPath = const "/"

instance ToQuery UpdateShardCount where
        toQuery = const mempty

-- | /See:/ 'updateShardCountResponse' smart constructor.
data UpdateShardCountResponse = UpdateShardCountResponse'
  { _uscrsTargetShardCount  :: !(Maybe Nat)
  , _uscrsStreamName        :: !(Maybe Text)
  , _uscrsCurrentShardCount :: !(Maybe Nat)
  , _uscrsResponseStatus    :: !Int
  } deriving (Eq, Read, Show, Data, Typeable, Generic)


-- | Creates a value of 'UpdateShardCountResponse' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'uscrsTargetShardCount' - The updated number of shards.
--
-- * 'uscrsStreamName' - The name of the stream.
--
-- * 'uscrsCurrentShardCount' - The current number of shards.
--
-- * 'uscrsResponseStatus' - -- | The response status code.
updateShardCountResponse
    :: Int -- ^ 'uscrsResponseStatus'
    -> UpdateShardCountResponse
updateShardCountResponse pResponseStatus_ =
  UpdateShardCountResponse'
  { _uscrsTargetShardCount = Nothing
  , _uscrsStreamName = Nothing
  , _uscrsCurrentShardCount = Nothing
  , _uscrsResponseStatus = pResponseStatus_
  }


-- | The updated number of shards.
uscrsTargetShardCount :: Lens' UpdateShardCountResponse (Maybe Natural)
uscrsTargetShardCount = lens _uscrsTargetShardCount (\ s a -> s{_uscrsTargetShardCount = a}) . mapping _Nat;

-- | The name of the stream.
uscrsStreamName :: Lens' UpdateShardCountResponse (Maybe Text)
uscrsStreamName = lens _uscrsStreamName (\ s a -> s{_uscrsStreamName = a});

-- | The current number of shards.
uscrsCurrentShardCount :: Lens' UpdateShardCountResponse (Maybe Natural)
uscrsCurrentShardCount = lens _uscrsCurrentShardCount (\ s a -> s{_uscrsCurrentShardCount = a}) . mapping _Nat;

-- | -- | The response status code.
uscrsResponseStatus :: Lens' UpdateShardCountResponse Int
uscrsResponseStatus = lens _uscrsResponseStatus (\ s a -> s{_uscrsResponseStatus = a});

instance NFData UpdateShardCountResponse where