{-# 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.DMS.RebootReplicationInstance
(
rebootReplicationInstance
, RebootReplicationInstance
, rriForceFailover
, rriReplicationInstanceARN
, rebootReplicationInstanceResponse
, RebootReplicationInstanceResponse
, rrirsReplicationInstance
, rrirsResponseStatus
) where
import Network.AWS.DMS.Types
import Network.AWS.DMS.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data RebootReplicationInstance = RebootReplicationInstance'
{ _rriForceFailover :: !(Maybe Bool)
, _rriReplicationInstanceARN :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
rebootReplicationInstance
:: Text
-> RebootReplicationInstance
rebootReplicationInstance pReplicationInstanceARN_ =
RebootReplicationInstance'
{ _rriForceFailover = Nothing
, _rriReplicationInstanceARN = pReplicationInstanceARN_
}
rriForceFailover :: Lens' RebootReplicationInstance (Maybe Bool)
rriForceFailover = lens _rriForceFailover (\ s a -> s{_rriForceFailover = a})
rriReplicationInstanceARN :: Lens' RebootReplicationInstance Text
rriReplicationInstanceARN = lens _rriReplicationInstanceARN (\ s a -> s{_rriReplicationInstanceARN = a})
instance AWSRequest RebootReplicationInstance where
type Rs RebootReplicationInstance =
RebootReplicationInstanceResponse
request = postJSON dms
response
= receiveJSON
(\ s h x ->
RebootReplicationInstanceResponse' <$>
(x .?> "ReplicationInstance") <*>
(pure (fromEnum s)))
instance Hashable RebootReplicationInstance where
instance NFData RebootReplicationInstance where
instance ToHeaders RebootReplicationInstance where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AmazonDMSv20160101.RebootReplicationInstance" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON RebootReplicationInstance where
toJSON RebootReplicationInstance'{..}
= object
(catMaybes
[("ForceFailover" .=) <$> _rriForceFailover,
Just
("ReplicationInstanceArn" .=
_rriReplicationInstanceARN)])
instance ToPath RebootReplicationInstance where
toPath = const "/"
instance ToQuery RebootReplicationInstance where
toQuery = const mempty
data RebootReplicationInstanceResponse = RebootReplicationInstanceResponse'
{ _rrirsReplicationInstance :: !(Maybe ReplicationInstance)
, _rrirsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
rebootReplicationInstanceResponse
:: Int
-> RebootReplicationInstanceResponse
rebootReplicationInstanceResponse pResponseStatus_ =
RebootReplicationInstanceResponse'
{ _rrirsReplicationInstance = Nothing
, _rrirsResponseStatus = pResponseStatus_
}
rrirsReplicationInstance :: Lens' RebootReplicationInstanceResponse (Maybe ReplicationInstance)
rrirsReplicationInstance = lens _rrirsReplicationInstance (\ s a -> s{_rrirsReplicationInstance = a})
rrirsResponseStatus :: Lens' RebootReplicationInstanceResponse Int
rrirsResponseStatus = lens _rrirsResponseStatus (\ s a -> s{_rrirsResponseStatus = a})
instance NFData RebootReplicationInstanceResponse
where