{-# 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.SMS.DeleteReplicationJob
-- 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)
--
-- The DeleteReplicationJob API is used to delete a ReplicationJob, resulting in no further ReplicationRuns. This will delete the contents of the S3 bucket used to store SMS artifacts, but will not delete any AMIs created by the SMS service.
module Network.AWS.SMS.DeleteReplicationJob
    (
    -- * Creating a Request
      deleteReplicationJob
    , DeleteReplicationJob
    -- * Request Lenses
    , drjReplicationJobId

    -- * Destructuring the Response
    , deleteReplicationJobResponse
    , DeleteReplicationJobResponse
    -- * Response Lenses
    , drjrsResponseStatus
    ) where

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

-- | /See:/ 'deleteReplicationJob' smart constructor.
newtype DeleteReplicationJob = DeleteReplicationJob'
    { _drjReplicationJobId :: Text
    } deriving (Eq,Read,Show,Data,Typeable,Generic)

-- | Creates a value of 'DeleteReplicationJob' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
-- * 'drjReplicationJobId' - Undocumented member.
deleteReplicationJob
    :: Text -- ^ 'drjReplicationJobId'
    -> DeleteReplicationJob
deleteReplicationJob pReplicationJobId_ =
    DeleteReplicationJob'
    { _drjReplicationJobId = pReplicationJobId_
    }

-- | Undocumented member.
drjReplicationJobId :: Lens' DeleteReplicationJob Text
drjReplicationJobId = lens _drjReplicationJobId (\ s a -> s{_drjReplicationJobId = a});

instance AWSRequest DeleteReplicationJob where
        type Rs DeleteReplicationJob =
             DeleteReplicationJobResponse
        request = postJSON sms
        response
          = receiveEmpty
              (\ s h x ->
                 DeleteReplicationJobResponse' <$>
                   (pure (fromEnum s)))

instance Hashable DeleteReplicationJob

instance NFData DeleteReplicationJob

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

instance ToJSON DeleteReplicationJob where
        toJSON DeleteReplicationJob'{..}
          = object
              (catMaybes
                 [Just ("replicationJobId" .= _drjReplicationJobId)])

instance ToPath DeleteReplicationJob where
        toPath = const "/"

instance ToQuery DeleteReplicationJob where
        toQuery = const mempty

-- | /See:/ 'deleteReplicationJobResponse' smart constructor.
newtype DeleteReplicationJobResponse = DeleteReplicationJobResponse'
    { _drjrsResponseStatus :: Int
    } deriving (Eq,Read,Show,Data,Typeable,Generic)

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

-- | -- | The response status code.
drjrsResponseStatus :: Lens' DeleteReplicationJobResponse Int
drjrsResponseStatus = lens _drjrsResponseStatus (\ s a -> s{_drjrsResponseStatus = a});

instance NFData DeleteReplicationJobResponse