{-# 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.ImportMigrationTask
(
importMigrationTask
, ImportMigrationTask
, imtDryRun
, imtProgressUpdateStream
, imtMigrationTaskName
, importMigrationTaskResponse
, ImportMigrationTaskResponse
, imtrsResponseStatus
) 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 ImportMigrationTask = ImportMigrationTask'
{ _imtDryRun :: !(Maybe Bool)
, _imtProgressUpdateStream :: !Text
, _imtMigrationTaskName :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
importMigrationTask
:: Text
-> Text
-> ImportMigrationTask
importMigrationTask pProgressUpdateStream_ pMigrationTaskName_ =
ImportMigrationTask'
{ _imtDryRun = Nothing
, _imtProgressUpdateStream = pProgressUpdateStream_
, _imtMigrationTaskName = pMigrationTaskName_
}
imtDryRun :: Lens' ImportMigrationTask (Maybe Bool)
imtDryRun = lens _imtDryRun (\ s a -> s{_imtDryRun = a})
imtProgressUpdateStream :: Lens' ImportMigrationTask Text
imtProgressUpdateStream = lens _imtProgressUpdateStream (\ s a -> s{_imtProgressUpdateStream = a})
imtMigrationTaskName :: Lens' ImportMigrationTask Text
imtMigrationTaskName = lens _imtMigrationTaskName (\ s a -> s{_imtMigrationTaskName = a})
instance AWSRequest ImportMigrationTask where
type Rs ImportMigrationTask =
ImportMigrationTaskResponse
request = postJSON migrationHub
response
= receiveEmpty
(\ s h x ->
ImportMigrationTaskResponse' <$> (pure (fromEnum s)))
instance Hashable ImportMigrationTask where
instance NFData ImportMigrationTask where
instance ToHeaders ImportMigrationTask where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWSMigrationHub.ImportMigrationTask" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON ImportMigrationTask where
toJSON ImportMigrationTask'{..}
= object
(catMaybes
[("DryRun" .=) <$> _imtDryRun,
Just
("ProgressUpdateStream" .= _imtProgressUpdateStream),
Just ("MigrationTaskName" .= _imtMigrationTaskName)])
instance ToPath ImportMigrationTask where
toPath = const "/"
instance ToQuery ImportMigrationTask where
toQuery = const mempty
newtype ImportMigrationTaskResponse = ImportMigrationTaskResponse'
{ _imtrsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
importMigrationTaskResponse
:: Int
-> ImportMigrationTaskResponse
importMigrationTaskResponse pResponseStatus_ =
ImportMigrationTaskResponse' {_imtrsResponseStatus = pResponseStatus_}
imtrsResponseStatus :: Lens' ImportMigrationTaskResponse Int
imtrsResponseStatus = lens _imtrsResponseStatus (\ s a -> s{_imtrsResponseStatus = a})
instance NFData ImportMigrationTaskResponse where