{-# 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.DisassociateDiscoveredResource
(
disassociateDiscoveredResource
, DisassociateDiscoveredResource
, ddrDryRun
, ddrProgressUpdateStream
, ddrMigrationTaskName
, ddrConfigurationId
, disassociateDiscoveredResourceResponse
, DisassociateDiscoveredResourceResponse
, ddrrsResponseStatus
) 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 DisassociateDiscoveredResource = DisassociateDiscoveredResource'
{ _ddrDryRun :: !(Maybe Bool)
, _ddrProgressUpdateStream :: !Text
, _ddrMigrationTaskName :: !Text
, _ddrConfigurationId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
disassociateDiscoveredResource
:: Text
-> Text
-> Text
-> DisassociateDiscoveredResource
disassociateDiscoveredResource pProgressUpdateStream_ pMigrationTaskName_ pConfigurationId_ =
DisassociateDiscoveredResource'
{ _ddrDryRun = Nothing
, _ddrProgressUpdateStream = pProgressUpdateStream_
, _ddrMigrationTaskName = pMigrationTaskName_
, _ddrConfigurationId = pConfigurationId_
}
ddrDryRun :: Lens' DisassociateDiscoveredResource (Maybe Bool)
ddrDryRun = lens _ddrDryRun (\ s a -> s{_ddrDryRun = a})
ddrProgressUpdateStream :: Lens' DisassociateDiscoveredResource Text
ddrProgressUpdateStream = lens _ddrProgressUpdateStream (\ s a -> s{_ddrProgressUpdateStream = a})
ddrMigrationTaskName :: Lens' DisassociateDiscoveredResource Text
ddrMigrationTaskName = lens _ddrMigrationTaskName (\ s a -> s{_ddrMigrationTaskName = a})
ddrConfigurationId :: Lens' DisassociateDiscoveredResource Text
ddrConfigurationId = lens _ddrConfigurationId (\ s a -> s{_ddrConfigurationId = a})
instance AWSRequest DisassociateDiscoveredResource
where
type Rs DisassociateDiscoveredResource =
DisassociateDiscoveredResourceResponse
request = postJSON migrationHub
response
= receiveEmpty
(\ s h x ->
DisassociateDiscoveredResourceResponse' <$>
(pure (fromEnum s)))
instance Hashable DisassociateDiscoveredResource
where
instance NFData DisassociateDiscoveredResource where
instance ToHeaders DisassociateDiscoveredResource
where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWSMigrationHub.DisassociateDiscoveredResource" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DisassociateDiscoveredResource where
toJSON DisassociateDiscoveredResource'{..}
= object
(catMaybes
[("DryRun" .=) <$> _ddrDryRun,
Just
("ProgressUpdateStream" .= _ddrProgressUpdateStream),
Just ("MigrationTaskName" .= _ddrMigrationTaskName),
Just ("ConfigurationId" .= _ddrConfigurationId)])
instance ToPath DisassociateDiscoveredResource where
toPath = const "/"
instance ToQuery DisassociateDiscoveredResource where
toQuery = const mempty
newtype DisassociateDiscoveredResourceResponse = DisassociateDiscoveredResourceResponse'
{ _ddrrsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
disassociateDiscoveredResourceResponse
:: Int
-> DisassociateDiscoveredResourceResponse
disassociateDiscoveredResourceResponse pResponseStatus_ =
DisassociateDiscoveredResourceResponse'
{_ddrrsResponseStatus = pResponseStatus_}
ddrrsResponseStatus :: Lens' DisassociateDiscoveredResourceResponse Int
ddrrsResponseStatus = lens _ddrrsResponseStatus (\ s a -> s{_ddrrsResponseStatus = a})
instance NFData
DisassociateDiscoveredResourceResponse
where