module Network.AWS.EC2.AttachNetworkInterface
(
AttachNetworkInterface
, attachNetworkInterface
, aniDeviceIndex
, aniDryRun
, aniInstanceId
, aniNetworkInterfaceId
, AttachNetworkInterfaceResponse
, attachNetworkInterfaceResponse
, anirAttachmentId
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.EC2.Types
import qualified GHC.Exts
data AttachNetworkInterface = AttachNetworkInterface
{ _aniDeviceIndex :: Int
, _aniDryRun :: Maybe Bool
, _aniInstanceId :: Text
, _aniNetworkInterfaceId :: Text
} deriving (Eq, Ord, Show)
attachNetworkInterface :: Text
-> Text
-> Int
-> AttachNetworkInterface
attachNetworkInterface p1 p2 p3 = AttachNetworkInterface
{ _aniNetworkInterfaceId = p1
, _aniInstanceId = p2
, _aniDeviceIndex = p3
, _aniDryRun = Nothing
}
aniDeviceIndex :: Lens' AttachNetworkInterface Int
aniDeviceIndex = lens _aniDeviceIndex (\s a -> s { _aniDeviceIndex = a })
aniDryRun :: Lens' AttachNetworkInterface (Maybe Bool)
aniDryRun = lens _aniDryRun (\s a -> s { _aniDryRun = a })
aniInstanceId :: Lens' AttachNetworkInterface Text
aniInstanceId = lens _aniInstanceId (\s a -> s { _aniInstanceId = a })
aniNetworkInterfaceId :: Lens' AttachNetworkInterface Text
aniNetworkInterfaceId =
lens _aniNetworkInterfaceId (\s a -> s { _aniNetworkInterfaceId = a })
newtype AttachNetworkInterfaceResponse = AttachNetworkInterfaceResponse
{ _anirAttachmentId :: Maybe Text
} deriving (Eq, Ord, Show, Monoid)
attachNetworkInterfaceResponse :: AttachNetworkInterfaceResponse
attachNetworkInterfaceResponse = AttachNetworkInterfaceResponse
{ _anirAttachmentId = Nothing
}
anirAttachmentId :: Lens' AttachNetworkInterfaceResponse (Maybe Text)
anirAttachmentId = lens _anirAttachmentId (\s a -> s { _anirAttachmentId = a })
instance ToPath AttachNetworkInterface where
toPath = const "/"
instance ToQuery AttachNetworkInterface where
toQuery AttachNetworkInterface{..} = mconcat
[ "deviceIndex" =? _aniDeviceIndex
, "dryRun" =? _aniDryRun
, "instanceId" =? _aniInstanceId
, "networkInterfaceId" =? _aniNetworkInterfaceId
]
instance ToHeaders AttachNetworkInterface
instance AWSRequest AttachNetworkInterface where
type Sv AttachNetworkInterface = EC2
type Rs AttachNetworkInterface = AttachNetworkInterfaceResponse
request = post "AttachNetworkInterface"
response = xmlResponse
instance FromXML AttachNetworkInterfaceResponse where
parseXML x = AttachNetworkInterfaceResponse
<$> x .@? "attachmentId"