{-# 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 #-}

-- Derived from AWS service descriptions, licensed under Apache 2.0.

-- |
-- Module      : Amazonka.EC2.DeregisterImage
-- Copyright   : (c) 2013-2023 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Deregisters the specified AMI. After you deregister an AMI, it can\'t be
-- used to launch new instances.
--
-- If you deregister an AMI that matches a Recycle Bin retention rule, the
-- AMI is retained in the Recycle Bin for the specified retention period.
-- For more information, see
-- <https://docs.aws.amazon.com/AWSEC2/latest/UserGuide/recycle-bin.html Recycle Bin>
-- in the /Amazon EC2 User Guide/.
--
-- When you deregister an AMI, it doesn\'t affect any instances that
-- you\'ve already launched from the AMI. You\'ll continue to incur usage
-- costs for those instances until you terminate them.
--
-- When you deregister an Amazon EBS-backed AMI, it doesn\'t affect the
-- snapshot that was created for the root volume of the instance during the
-- AMI creation process. When you deregister an instance store-backed AMI,
-- it doesn\'t affect the files that you uploaded to Amazon S3 when you
-- created the AMI.
module Amazonka.EC2.DeregisterImage
  ( -- * Creating a Request
    DeregisterImage (..),
    newDeregisterImage,

    -- * Request Lenses
    deregisterImage_dryRun,
    deregisterImage_imageId,

    -- * Destructuring the Response
    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

-- | Contains the parameters for DeregisterImage.
--
-- /See:/ 'newDeregisterImage' smart constructor.
data DeregisterImage = DeregisterImage'
  { -- | Checks whether you have the required permissions for the action, without
    -- actually making the request, and provides an error response. If you have
    -- the required permissions, the error response is @DryRunOperation@.
    -- Otherwise, it is @UnauthorizedOperation@.
    DeregisterImage -> Maybe Bool
dryRun :: Prelude.Maybe Prelude.Bool,
    -- | The ID of the AMI.
    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)

-- |
-- Create a value of 'DeregisterImage' with all optional fields omitted.
--
-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.
--
-- The following record fields are available, with the corresponding lenses provided
-- for backwards compatibility:
--
-- 'dryRun', 'deregisterImage_dryRun' - Checks whether you have the required permissions for the action, without
-- actually making the request, and provides an error response. If you have
-- the required permissions, the error response is @DryRunOperation@.
-- Otherwise, it is @UnauthorizedOperation@.
--
-- 'imageId', 'deregisterImage_imageId' - The ID of the AMI.
newDeregisterImage ::
  -- | 'imageId'
  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_
    }

-- | Checks whether you have the required permissions for the action, without
-- actually making the request, and provides an error response. If you have
-- the required permissions, the error response is @DryRunOperation@.
-- Otherwise, it is @UnauthorizedOperation@.
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)

-- | The ID of the AMI.
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
      ]

-- | /See:/ 'newDeregisterImageResponse' smart constructor.
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)

-- |
-- Create a value of 'DeregisterImageResponse' with all optional fields omitted.
--
-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.
newDeregisterImageResponse ::
  DeregisterImageResponse
newDeregisterImageResponse :: DeregisterImageResponse
newDeregisterImageResponse = DeregisterImageResponse
DeregisterImageResponse'

instance Prelude.NFData DeregisterImageResponse where
  rnf :: DeregisterImageResponse -> ()
rnf DeregisterImageResponse
_ = ()