{-# 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.EC2.DeregisterImage
(
deregisterImage
, DeregisterImage
, diDryRun
, diImageId
, deregisterImageResponse
, DeregisterImageResponse
) where
import Network.AWS.EC2.Types
import Network.AWS.EC2.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data DeregisterImage = DeregisterImage'
{ _diDryRun :: !(Maybe Bool)
, _diImageId :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
deregisterImage
:: Text
-> DeregisterImage
deregisterImage pImageId_ =
DeregisterImage'
{ _diDryRun = Nothing
, _diImageId = pImageId_
}
diDryRun :: Lens' DeregisterImage (Maybe Bool)
diDryRun = lens _diDryRun (\ s a -> s{_diDryRun = a});
diImageId :: Lens' DeregisterImage Text
diImageId = lens _diImageId (\ s a -> s{_diImageId = a});
instance AWSRequest DeregisterImage where
type Rs DeregisterImage = DeregisterImageResponse
request = postQuery ec2
response = receiveNull DeregisterImageResponse'
instance Hashable DeregisterImage
instance NFData DeregisterImage
instance ToHeaders DeregisterImage where
toHeaders = const mempty
instance ToPath DeregisterImage where
toPath = const "/"
instance ToQuery DeregisterImage where
toQuery DeregisterImage'{..}
= mconcat
["Action" =: ("DeregisterImage" :: ByteString),
"Version" =: ("2016-04-01" :: ByteString),
"DryRun" =: _diDryRun, "ImageId" =: _diImageId]
data DeregisterImageResponse =
DeregisterImageResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
deregisterImageResponse
:: DeregisterImageResponse
deregisterImageResponse = DeregisterImageResponse'
instance NFData DeregisterImageResponse