{-# 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.OpsWorks.AssignVolume
(
assignVolume
, AssignVolume
, avInstanceId
, avVolumeId
, assignVolumeResponse
, AssignVolumeResponse
) where
import Network.AWS.Lens
import Network.AWS.OpsWorks.Types
import Network.AWS.OpsWorks.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data AssignVolume = AssignVolume'
{ _avInstanceId :: !(Maybe Text)
, _avVolumeId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
assignVolume
:: Text
-> AssignVolume
assignVolume pVolumeId_ =
AssignVolume' {_avInstanceId = Nothing, _avVolumeId = pVolumeId_}
avInstanceId :: Lens' AssignVolume (Maybe Text)
avInstanceId = lens _avInstanceId (\ s a -> s{_avInstanceId = a})
avVolumeId :: Lens' AssignVolume Text
avVolumeId = lens _avVolumeId (\ s a -> s{_avVolumeId = a})
instance AWSRequest AssignVolume where
type Rs AssignVolume = AssignVolumeResponse
request = postJSON opsWorks
response = receiveNull AssignVolumeResponse'
instance Hashable AssignVolume where
instance NFData AssignVolume where
instance ToHeaders AssignVolume where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("OpsWorks_20130218.AssignVolume" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON AssignVolume where
toJSON AssignVolume'{..}
= object
(catMaybes
[("InstanceId" .=) <$> _avInstanceId,
Just ("VolumeId" .= _avVolumeId)])
instance ToPath AssignVolume where
toPath = const "/"
instance ToQuery AssignVolume where
toQuery = const mempty
data AssignVolumeResponse =
AssignVolumeResponse'
deriving (Eq, Read, Show, Data, Typeable, Generic)
assignVolumeResponse
:: AssignVolumeResponse
assignVolumeResponse = AssignVolumeResponse'
instance NFData AssignVolumeResponse where