{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Amazonka.EC2.DeregisterImage
(
DeregisterImage (..),
newDeregisterImage,
deregisterImage_dryRun,
deregisterImage_imageId,
DeregisterImageResponse (..),
newDeregisterImageResponse,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.EC2.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data DeregisterImage = DeregisterImage'
{
DeregisterImage -> Maybe Bool
dryRun :: Prelude.Maybe Prelude.Bool,
DeregisterImage -> Text
imageId :: Prelude.Text
}
deriving (DeregisterImage -> DeregisterImage -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeregisterImage -> DeregisterImage -> Bool
$c/= :: DeregisterImage -> DeregisterImage -> Bool
== :: DeregisterImage -> DeregisterImage -> Bool
$c== :: DeregisterImage -> DeregisterImage -> Bool
Prelude.Eq, ReadPrec [DeregisterImage]
ReadPrec DeregisterImage
Int -> ReadS DeregisterImage
ReadS [DeregisterImage]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeregisterImage]
$creadListPrec :: ReadPrec [DeregisterImage]
readPrec :: ReadPrec DeregisterImage
$creadPrec :: ReadPrec DeregisterImage
readList :: ReadS [DeregisterImage]
$creadList :: ReadS [DeregisterImage]
readsPrec :: Int -> ReadS DeregisterImage
$creadsPrec :: Int -> ReadS DeregisterImage
Prelude.Read, Int -> DeregisterImage -> ShowS
[DeregisterImage] -> ShowS
DeregisterImage -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeregisterImage] -> ShowS
$cshowList :: [DeregisterImage] -> ShowS
show :: DeregisterImage -> String
$cshow :: DeregisterImage -> String
showsPrec :: Int -> DeregisterImage -> ShowS
$cshowsPrec :: Int -> DeregisterImage -> ShowS
Prelude.Show, forall x. Rep DeregisterImage x -> DeregisterImage
forall x. DeregisterImage -> Rep DeregisterImage x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DeregisterImage x -> DeregisterImage
$cfrom :: forall x. DeregisterImage -> Rep DeregisterImage x
Prelude.Generic)
newDeregisterImage ::
Prelude.Text ->
DeregisterImage
newDeregisterImage :: Text -> DeregisterImage
newDeregisterImage Text
pImageId_ =
DeregisterImage'
{ $sel:dryRun:DeregisterImage' :: Maybe Bool
dryRun = forall a. Maybe a
Prelude.Nothing,
$sel:imageId:DeregisterImage' :: Text
imageId = Text
pImageId_
}
deregisterImage_dryRun :: Lens.Lens' DeregisterImage (Prelude.Maybe Prelude.Bool)
deregisterImage_dryRun :: Lens' DeregisterImage (Maybe Bool)
deregisterImage_dryRun = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeregisterImage' {Maybe Bool
dryRun :: Maybe Bool
$sel:dryRun:DeregisterImage' :: DeregisterImage -> Maybe Bool
dryRun} -> Maybe Bool
dryRun) (\s :: DeregisterImage
s@DeregisterImage' {} Maybe Bool
a -> DeregisterImage
s {$sel:dryRun:DeregisterImage' :: Maybe Bool
dryRun = Maybe Bool
a} :: DeregisterImage)
deregisterImage_imageId :: Lens.Lens' DeregisterImage Prelude.Text
deregisterImage_imageId :: Lens' DeregisterImage Text
deregisterImage_imageId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DeregisterImage' {Text
imageId :: Text
$sel:imageId:DeregisterImage' :: DeregisterImage -> Text
imageId} -> Text
imageId) (\s :: DeregisterImage
s@DeregisterImage' {} Text
a -> DeregisterImage
s {$sel:imageId:DeregisterImage' :: Text
imageId = Text
a} :: DeregisterImage)
instance Core.AWSRequest DeregisterImage where
type
AWSResponse DeregisterImage =
DeregisterImageResponse
request :: (Service -> Service) -> DeregisterImage -> Request DeregisterImage
request Service -> Service
overrides =
forall a. ToRequest a => Service -> a -> Request a
Request.postQuery (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy DeregisterImage
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse DeregisterImage)))
response =
forall (m :: * -> *) a.
MonadResource m =>
AWSResponse a
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveNull DeregisterImageResponse
DeregisterImageResponse'
instance Prelude.Hashable DeregisterImage where
hashWithSalt :: Int -> DeregisterImage -> Int
hashWithSalt Int
_salt DeregisterImage' {Maybe Bool
Text
imageId :: Text
dryRun :: Maybe Bool
$sel:imageId:DeregisterImage' :: DeregisterImage -> Text
$sel:dryRun:DeregisterImage' :: DeregisterImage -> Maybe Bool
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
dryRun
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
imageId
instance Prelude.NFData DeregisterImage where
rnf :: DeregisterImage -> ()
rnf DeregisterImage' {Maybe Bool
Text
imageId :: Text
dryRun :: Maybe Bool
$sel:imageId:DeregisterImage' :: DeregisterImage -> Text
$sel:dryRun:DeregisterImage' :: DeregisterImage -> Maybe Bool
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
dryRun
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
imageId
instance Data.ToHeaders DeregisterImage where
toHeaders :: DeregisterImage -> [Header]
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath DeregisterImage where
toPath :: DeregisterImage -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DeregisterImage where
toQuery :: DeregisterImage -> QueryString
toQuery DeregisterImage' {Maybe Bool
Text
imageId :: Text
dryRun :: Maybe Bool
$sel:imageId:DeregisterImage' :: DeregisterImage -> Text
$sel:dryRun:DeregisterImage' :: DeregisterImage -> Maybe Bool
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"DeregisterImage" :: Prelude.ByteString),
ByteString
"Version"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2016-11-15" :: Prelude.ByteString),
ByteString
"DryRun" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Bool
dryRun,
ByteString
"ImageId" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
imageId
]
data DeregisterImageResponse = DeregisterImageResponse'
{
}
deriving (DeregisterImageResponse -> DeregisterImageResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DeregisterImageResponse -> DeregisterImageResponse -> Bool
$c/= :: DeregisterImageResponse -> DeregisterImageResponse -> Bool
== :: DeregisterImageResponse -> DeregisterImageResponse -> Bool
$c== :: DeregisterImageResponse -> DeregisterImageResponse -> Bool
Prelude.Eq, ReadPrec [DeregisterImageResponse]
ReadPrec DeregisterImageResponse
Int -> ReadS DeregisterImageResponse
ReadS [DeregisterImageResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DeregisterImageResponse]
$creadListPrec :: ReadPrec [DeregisterImageResponse]
readPrec :: ReadPrec DeregisterImageResponse
$creadPrec :: ReadPrec DeregisterImageResponse
readList :: ReadS [DeregisterImageResponse]
$creadList :: ReadS [DeregisterImageResponse]
readsPrec :: Int -> ReadS DeregisterImageResponse
$creadsPrec :: Int -> ReadS DeregisterImageResponse
Prelude.Read, Int -> DeregisterImageResponse -> ShowS
[DeregisterImageResponse] -> ShowS
DeregisterImageResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DeregisterImageResponse] -> ShowS
$cshowList :: [DeregisterImageResponse] -> ShowS
show :: DeregisterImageResponse -> String
$cshow :: DeregisterImageResponse -> String
showsPrec :: Int -> DeregisterImageResponse -> ShowS
$cshowsPrec :: Int -> DeregisterImageResponse -> ShowS
Prelude.Show, forall x. Rep DeregisterImageResponse x -> DeregisterImageResponse
forall x. DeregisterImageResponse -> Rep DeregisterImageResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DeregisterImageResponse x -> DeregisterImageResponse
$cfrom :: forall x. DeregisterImageResponse -> Rep DeregisterImageResponse x
Prelude.Generic)
newDeregisterImageResponse ::
DeregisterImageResponse
newDeregisterImageResponse :: DeregisterImageResponse
newDeregisterImageResponse = DeregisterImageResponse
DeregisterImageResponse'
instance Prelude.NFData DeregisterImageResponse where
rnf :: DeregisterImageResponse -> ()
rnf DeregisterImageResponse
_ = ()