{-# 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 #-}
module Network.AWS.MigrationHub.DisassociateCreatedArtifact
(
disassociateCreatedArtifact
, DisassociateCreatedArtifact
, dcaDryRun
, dcaProgressUpdateStream
, dcaMigrationTaskName
, dcaCreatedArtifactName
, disassociateCreatedArtifactResponse
, DisassociateCreatedArtifactResponse
, dcarsResponseStatus
) where
import Network.AWS.Lens
import Network.AWS.MigrationHub.Types
import Network.AWS.MigrationHub.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data DisassociateCreatedArtifact = DisassociateCreatedArtifact'
{ _dcaDryRun :: !(Maybe Bool)
, _dcaProgressUpdateStream :: !Text
, _dcaMigrationTaskName :: !Text
, _dcaCreatedArtifactName :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
disassociateCreatedArtifact
:: Text
-> Text
-> Text
-> DisassociateCreatedArtifact
disassociateCreatedArtifact pProgressUpdateStream_ pMigrationTaskName_ pCreatedArtifactName_ =
DisassociateCreatedArtifact'
{ _dcaDryRun = Nothing
, _dcaProgressUpdateStream = pProgressUpdateStream_
, _dcaMigrationTaskName = pMigrationTaskName_
, _dcaCreatedArtifactName = pCreatedArtifactName_
}
dcaDryRun :: Lens' DisassociateCreatedArtifact (Maybe Bool)
dcaDryRun = lens _dcaDryRun (\ s a -> s{_dcaDryRun = a})
dcaProgressUpdateStream :: Lens' DisassociateCreatedArtifact Text
dcaProgressUpdateStream = lens _dcaProgressUpdateStream (\ s a -> s{_dcaProgressUpdateStream = a})
dcaMigrationTaskName :: Lens' DisassociateCreatedArtifact Text
dcaMigrationTaskName = lens _dcaMigrationTaskName (\ s a -> s{_dcaMigrationTaskName = a})
dcaCreatedArtifactName :: Lens' DisassociateCreatedArtifact Text
dcaCreatedArtifactName = lens _dcaCreatedArtifactName (\ s a -> s{_dcaCreatedArtifactName = a})
instance AWSRequest DisassociateCreatedArtifact where
type Rs DisassociateCreatedArtifact =
DisassociateCreatedArtifactResponse
request = postJSON migrationHub
response
= receiveEmpty
(\ s h x ->
DisassociateCreatedArtifactResponse' <$>
(pure (fromEnum s)))
instance Hashable DisassociateCreatedArtifact where
instance NFData DisassociateCreatedArtifact where
instance ToHeaders DisassociateCreatedArtifact where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWSMigrationHub.DisassociateCreatedArtifact" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DisassociateCreatedArtifact where
toJSON DisassociateCreatedArtifact'{..}
= object
(catMaybes
[("DryRun" .=) <$> _dcaDryRun,
Just
("ProgressUpdateStream" .= _dcaProgressUpdateStream),
Just ("MigrationTaskName" .= _dcaMigrationTaskName),
Just
("CreatedArtifactName" .= _dcaCreatedArtifactName)])
instance ToPath DisassociateCreatedArtifact where
toPath = const "/"
instance ToQuery DisassociateCreatedArtifact where
toQuery = const mempty
newtype DisassociateCreatedArtifactResponse = DisassociateCreatedArtifactResponse'
{ _dcarsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
disassociateCreatedArtifactResponse
:: Int
-> DisassociateCreatedArtifactResponse
disassociateCreatedArtifactResponse pResponseStatus_ =
DisassociateCreatedArtifactResponse' {_dcarsResponseStatus = pResponseStatus_}
dcarsResponseStatus :: Lens' DisassociateCreatedArtifactResponse Int
dcarsResponseStatus = lens _dcarsResponseStatus (\ s a -> s{_dcarsResponseStatus = a})
instance NFData DisassociateCreatedArtifactResponse
where