{-# 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.PutInstancePublicPorts
(
putInstancePublicPorts
, PutInstancePublicPorts
, pippPortInfos
, pippInstanceName
, putInstancePublicPortsResponse
, PutInstancePublicPortsResponse
, pipprsOperation
, pipprsResponseStatus
) 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 PutInstancePublicPorts = PutInstancePublicPorts'
{ _pippPortInfos :: ![PortInfo]
, _pippInstanceName :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
putInstancePublicPorts
:: Text
-> PutInstancePublicPorts
putInstancePublicPorts pInstanceName_ =
PutInstancePublicPorts'
{_pippPortInfos = mempty, _pippInstanceName = pInstanceName_}
pippPortInfos :: Lens' PutInstancePublicPorts [PortInfo]
pippPortInfos = lens _pippPortInfos (\ s a -> s{_pippPortInfos = a}) . _Coerce
pippInstanceName :: Lens' PutInstancePublicPorts Text
pippInstanceName = lens _pippInstanceName (\ s a -> s{_pippInstanceName = a})
instance AWSRequest PutInstancePublicPorts where
type Rs PutInstancePublicPorts =
PutInstancePublicPortsResponse
request = postJSON lightsail
response
= receiveJSON
(\ s h x ->
PutInstancePublicPortsResponse' <$>
(x .?> "operation") <*> (pure (fromEnum s)))
instance Hashable PutInstancePublicPorts where
instance NFData PutInstancePublicPorts where
instance ToHeaders PutInstancePublicPorts where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("Lightsail_20161128.PutInstancePublicPorts" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON PutInstancePublicPorts where
toJSON PutInstancePublicPorts'{..}
= object
(catMaybes
[Just ("portInfos" .= _pippPortInfos),
Just ("instanceName" .= _pippInstanceName)])
instance ToPath PutInstancePublicPorts where
toPath = const "/"
instance ToQuery PutInstancePublicPorts where
toQuery = const mempty
data PutInstancePublicPortsResponse = PutInstancePublicPortsResponse'
{ _pipprsOperation :: !(Maybe Operation)
, _pipprsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
putInstancePublicPortsResponse
:: Int
-> PutInstancePublicPortsResponse
putInstancePublicPortsResponse pResponseStatus_ =
PutInstancePublicPortsResponse'
{_pipprsOperation = Nothing, _pipprsResponseStatus = pResponseStatus_}
pipprsOperation :: Lens' PutInstancePublicPortsResponse (Maybe Operation)
pipprsOperation = lens _pipprsOperation (\ s a -> s{_pipprsOperation = a})
pipprsResponseStatus :: Lens' PutInstancePublicPortsResponse Int
pipprsResponseStatus = lens _pipprsResponseStatus (\ s a -> s{_pipprsResponseStatus = a})
instance NFData PutInstancePublicPortsResponse where