{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# 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.Types.EbsInfo
-- Copyright   : (c) 2013-2023 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
module Amazonka.EC2.Types.EbsInfo where

import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.EC2.Internal
import Amazonka.EC2.Types.EbsEncryptionSupport
import Amazonka.EC2.Types.EbsNvmeSupport
import Amazonka.EC2.Types.EbsOptimizedInfo
import Amazonka.EC2.Types.EbsOptimizedSupport
import qualified Amazonka.Prelude as Prelude

-- | Describes the Amazon EBS features supported by the instance type.
--
-- /See:/ 'newEbsInfo' smart constructor.
data EbsInfo = EbsInfo'
  { -- | Describes the optimized EBS performance for the instance type.
    ebsOptimizedInfo :: Prelude.Maybe EbsOptimizedInfo,
    -- | Indicates whether the instance type is Amazon EBS-optimized. For more
    -- information, see
    -- <https://docs.aws.amazon.com/AWSEC2/latest/UserGuide/EBSOptimized.html Amazon EBS-optimized instances>
    -- in /Amazon EC2 User Guide/.
    ebsOptimizedSupport :: Prelude.Maybe EbsOptimizedSupport,
    -- | Indicates whether Amazon EBS encryption is supported.
    encryptionSupport :: Prelude.Maybe EbsEncryptionSupport,
    -- | Indicates whether non-volatile memory express (NVMe) is supported.
    nvmeSupport :: Prelude.Maybe EbsNvmeSupport
  }
  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)

-- |
-- Create a value of 'EbsInfo' 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:
--
-- 'ebsOptimizedInfo', 'ebsInfo_ebsOptimizedInfo' - Describes the optimized EBS performance for the instance type.
--
-- 'ebsOptimizedSupport', 'ebsInfo_ebsOptimizedSupport' - Indicates whether the instance type is Amazon EBS-optimized. For more
-- information, see
-- <https://docs.aws.amazon.com/AWSEC2/latest/UserGuide/EBSOptimized.html Amazon EBS-optimized instances>
-- in /Amazon EC2 User Guide/.
--
-- 'encryptionSupport', 'ebsInfo_encryptionSupport' - Indicates whether Amazon EBS encryption is supported.
--
-- 'nvmeSupport', 'ebsInfo_nvmeSupport' - Indicates whether non-volatile memory express (NVMe) is supported.
newEbsInfo ::
  EbsInfo
newEbsInfo =
  EbsInfo'
    { ebsOptimizedInfo = Prelude.Nothing,
      ebsOptimizedSupport = Prelude.Nothing,
      encryptionSupport = Prelude.Nothing,
      nvmeSupport = Prelude.Nothing
    }

-- | Describes the optimized EBS performance for the instance type.
ebsInfo_ebsOptimizedInfo :: Lens.Lens' EbsInfo (Prelude.Maybe EbsOptimizedInfo)
ebsInfo_ebsOptimizedInfo = Lens.lens (\EbsInfo' {ebsOptimizedInfo} -> ebsOptimizedInfo) (\s@EbsInfo' {} a -> s {ebsOptimizedInfo = a} :: EbsInfo)

-- | Indicates whether the instance type is Amazon EBS-optimized. For more
-- information, see
-- <https://docs.aws.amazon.com/AWSEC2/latest/UserGuide/EBSOptimized.html Amazon EBS-optimized instances>
-- in /Amazon EC2 User Guide/.
ebsInfo_ebsOptimizedSupport :: Lens.Lens' EbsInfo (Prelude.Maybe EbsOptimizedSupport)
ebsInfo_ebsOptimizedSupport = Lens.lens (\EbsInfo' {ebsOptimizedSupport} -> ebsOptimizedSupport) (\s@EbsInfo' {} a -> s {ebsOptimizedSupport = a} :: EbsInfo)

-- | Indicates whether Amazon EBS encryption is supported.
ebsInfo_encryptionSupport :: Lens.Lens' EbsInfo (Prelude.Maybe EbsEncryptionSupport)
ebsInfo_encryptionSupport = Lens.lens (\EbsInfo' {encryptionSupport} -> encryptionSupport) (\s@EbsInfo' {} a -> s {encryptionSupport = a} :: EbsInfo)

-- | Indicates whether non-volatile memory express (NVMe) is supported.
ebsInfo_nvmeSupport :: Lens.Lens' EbsInfo (Prelude.Maybe EbsNvmeSupport)
ebsInfo_nvmeSupport = Lens.lens (\EbsInfo' {nvmeSupport} -> nvmeSupport) (\s@EbsInfo' {} a -> s {nvmeSupport = a} :: EbsInfo)

instance Data.FromXML EbsInfo where
  parseXML x =
    EbsInfo'
      Prelude.<$> (x Data..@? "ebsOptimizedInfo")
      Prelude.<*> (x Data..@? "ebsOptimizedSupport")
      Prelude.<*> (x Data..@? "encryptionSupport")
      Prelude.<*> (x Data..@? "nvmeSupport")

instance Prelude.Hashable EbsInfo where
  hashWithSalt _salt EbsInfo' {..} =
    _salt
      `Prelude.hashWithSalt` ebsOptimizedInfo
      `Prelude.hashWithSalt` ebsOptimizedSupport
      `Prelude.hashWithSalt` encryptionSupport
      `Prelude.hashWithSalt` nvmeSupport

instance Prelude.NFData EbsInfo where
  rnf EbsInfo' {..} =
    Prelude.rnf ebsOptimizedInfo
      `Prelude.seq` Prelude.rnf ebsOptimizedSupport
      `Prelude.seq` Prelude.rnf encryptionSupport
      `Prelude.seq` Prelude.rnf nvmeSupport