{-# 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.Lightsail.CreateInstances
(
createInstances
, CreateInstances
, ciCustomImageName
, ciUserData
, ciKeyPairName
, ciInstanceNames
, ciAvailabilityZone
, ciBlueprintId
, ciBundleId
, createInstancesResponse
, CreateInstancesResponse
, cirsOperations
, cirsResponseStatus
) where
import Network.AWS.Lens
import Network.AWS.Lightsail.Types
import Network.AWS.Lightsail.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data CreateInstances = CreateInstances'
{ _ciCustomImageName :: !(Maybe Text)
, _ciUserData :: !(Maybe Text)
, _ciKeyPairName :: !(Maybe Text)
, _ciInstanceNames :: ![Text]
, _ciAvailabilityZone :: !Text
, _ciBlueprintId :: !Text
, _ciBundleId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
createInstances
:: Text
-> Text
-> Text
-> CreateInstances
createInstances pAvailabilityZone_ pBlueprintId_ pBundleId_ =
CreateInstances'
{ _ciCustomImageName = Nothing
, _ciUserData = Nothing
, _ciKeyPairName = Nothing
, _ciInstanceNames = mempty
, _ciAvailabilityZone = pAvailabilityZone_
, _ciBlueprintId = pBlueprintId_
, _ciBundleId = pBundleId_
}
ciCustomImageName :: Lens' CreateInstances (Maybe Text)
ciCustomImageName = lens _ciCustomImageName (\ s a -> s{_ciCustomImageName = a})
ciUserData :: Lens' CreateInstances (Maybe Text)
ciUserData = lens _ciUserData (\ s a -> s{_ciUserData = a})
ciKeyPairName :: Lens' CreateInstances (Maybe Text)
ciKeyPairName = lens _ciKeyPairName (\ s a -> s{_ciKeyPairName = a})
ciInstanceNames :: Lens' CreateInstances [Text]
ciInstanceNames = lens _ciInstanceNames (\ s a -> s{_ciInstanceNames = a}) . _Coerce
ciAvailabilityZone :: Lens' CreateInstances Text
ciAvailabilityZone = lens _ciAvailabilityZone (\ s a -> s{_ciAvailabilityZone = a})
ciBlueprintId :: Lens' CreateInstances Text
ciBlueprintId = lens _ciBlueprintId (\ s a -> s{_ciBlueprintId = a})
ciBundleId :: Lens' CreateInstances Text
ciBundleId = lens _ciBundleId (\ s a -> s{_ciBundleId = a})
instance AWSRequest CreateInstances where
type Rs CreateInstances = CreateInstancesResponse
request = postJSON lightsail
response
= receiveJSON
(\ s h x ->
CreateInstancesResponse' <$>
(x .?> "operations" .!@ mempty) <*>
(pure (fromEnum s)))
instance Hashable CreateInstances where
instance NFData CreateInstances where
instance ToHeaders CreateInstances where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("Lightsail_20161128.CreateInstances" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON CreateInstances where
toJSON CreateInstances'{..}
= object
(catMaybes
[("customImageName" .=) <$> _ciCustomImageName,
("userData" .=) <$> _ciUserData,
("keyPairName" .=) <$> _ciKeyPairName,
Just ("instanceNames" .= _ciInstanceNames),
Just ("availabilityZone" .= _ciAvailabilityZone),
Just ("blueprintId" .= _ciBlueprintId),
Just ("bundleId" .= _ciBundleId)])
instance ToPath CreateInstances where
toPath = const "/"
instance ToQuery CreateInstances where
toQuery = const mempty
data CreateInstancesResponse = CreateInstancesResponse'
{ _cirsOperations :: !(Maybe [Operation])
, _cirsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
createInstancesResponse
:: Int
-> CreateInstancesResponse
createInstancesResponse pResponseStatus_ =
CreateInstancesResponse'
{_cirsOperations = Nothing, _cirsResponseStatus = pResponseStatus_}
cirsOperations :: Lens' CreateInstancesResponse [Operation]
cirsOperations = lens _cirsOperations (\ s a -> s{_cirsOperations = a}) . _Default . _Coerce
cirsResponseStatus :: Lens' CreateInstancesResponse Int
cirsResponseStatus = lens _cirsResponseStatus (\ s a -> s{_cirsResponseStatus = a})
instance NFData CreateInstancesResponse where