module Network.AWS.StorageGateway.CreateCachediSCSIVolume
(
CreateCachediSCSIVolume
, createCachediSCSIVolume
, ccscsivClientToken
, ccscsivGatewayARN
, ccscsivNetworkInterfaceId
, ccscsivSnapshotId
, ccscsivTargetName
, ccscsivVolumeSizeInBytes
, CreateCachediSCSIVolumeResponse
, createCachediSCSIVolumeResponse
, ccscsivrTargetARN
, ccscsivrVolumeARN
) where
import Network.AWS.Prelude
import Network.AWS.Request.JSON
import Network.AWS.StorageGateway.Types
import qualified GHC.Exts
data CreateCachediSCSIVolume = CreateCachediSCSIVolume
{ _ccscsivClientToken :: Text
, _ccscsivGatewayARN :: Text
, _ccscsivNetworkInterfaceId :: Text
, _ccscsivSnapshotId :: Maybe Text
, _ccscsivTargetName :: Text
, _ccscsivVolumeSizeInBytes :: Integer
} deriving (Eq, Ord, Show)
createCachediSCSIVolume :: Text
-> Integer
-> Text
-> Text
-> Text
-> CreateCachediSCSIVolume
createCachediSCSIVolume p1 p2 p3 p4 p5 = CreateCachediSCSIVolume
{ _ccscsivGatewayARN = p1
, _ccscsivVolumeSizeInBytes = p2
, _ccscsivTargetName = p3
, _ccscsivNetworkInterfaceId = p4
, _ccscsivClientToken = p5
, _ccscsivSnapshotId = Nothing
}
ccscsivClientToken :: Lens' CreateCachediSCSIVolume Text
ccscsivClientToken =
lens _ccscsivClientToken (\s a -> s { _ccscsivClientToken = a })
ccscsivGatewayARN :: Lens' CreateCachediSCSIVolume Text
ccscsivGatewayARN =
lens _ccscsivGatewayARN (\s a -> s { _ccscsivGatewayARN = a })
ccscsivNetworkInterfaceId :: Lens' CreateCachediSCSIVolume Text
ccscsivNetworkInterfaceId =
lens _ccscsivNetworkInterfaceId
(\s a -> s { _ccscsivNetworkInterfaceId = a })
ccscsivSnapshotId :: Lens' CreateCachediSCSIVolume (Maybe Text)
ccscsivSnapshotId =
lens _ccscsivSnapshotId (\s a -> s { _ccscsivSnapshotId = a })
ccscsivTargetName :: Lens' CreateCachediSCSIVolume Text
ccscsivTargetName =
lens _ccscsivTargetName (\s a -> s { _ccscsivTargetName = a })
ccscsivVolumeSizeInBytes :: Lens' CreateCachediSCSIVolume Integer
ccscsivVolumeSizeInBytes =
lens _ccscsivVolumeSizeInBytes
(\s a -> s { _ccscsivVolumeSizeInBytes = a })
data CreateCachediSCSIVolumeResponse = CreateCachediSCSIVolumeResponse
{ _ccscsivrTargetARN :: Maybe Text
, _ccscsivrVolumeARN :: Maybe Text
} deriving (Eq, Ord, Show)
createCachediSCSIVolumeResponse :: CreateCachediSCSIVolumeResponse
createCachediSCSIVolumeResponse = CreateCachediSCSIVolumeResponse
{ _ccscsivrVolumeARN = Nothing
, _ccscsivrTargetARN = Nothing
}
ccscsivrTargetARN :: Lens' CreateCachediSCSIVolumeResponse (Maybe Text)
ccscsivrTargetARN =
lens _ccscsivrTargetARN (\s a -> s { _ccscsivrTargetARN = a })
ccscsivrVolumeARN :: Lens' CreateCachediSCSIVolumeResponse (Maybe Text)
ccscsivrVolumeARN =
lens _ccscsivrVolumeARN (\s a -> s { _ccscsivrVolumeARN = a })
instance ToPath CreateCachediSCSIVolume where
toPath = const "/"
instance ToQuery CreateCachediSCSIVolume where
toQuery = const mempty
instance ToHeaders CreateCachediSCSIVolume
instance ToJSON CreateCachediSCSIVolume where
toJSON CreateCachediSCSIVolume{..} = object
[ "GatewayARN" .= _ccscsivGatewayARN
, "VolumeSizeInBytes" .= _ccscsivVolumeSizeInBytes
, "SnapshotId" .= _ccscsivSnapshotId
, "TargetName" .= _ccscsivTargetName
, "NetworkInterfaceId" .= _ccscsivNetworkInterfaceId
, "ClientToken" .= _ccscsivClientToken
]
instance AWSRequest CreateCachediSCSIVolume where
type Sv CreateCachediSCSIVolume = StorageGateway
type Rs CreateCachediSCSIVolume = CreateCachediSCSIVolumeResponse
request = post "CreateCachediSCSIVolume"
response = jsonResponse
instance FromJSON CreateCachediSCSIVolumeResponse where
parseJSON = withObject "CreateCachediSCSIVolumeResponse" $ \o -> CreateCachediSCSIVolumeResponse
<$> o .:? "TargetARN"
<*> o .:? "VolumeARN"