{-# 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.Lightsail.Types.LoadBalancerTlsCertificateSummary
-- Copyright   : (c) 2013-2021 Brendan Hay
-- License     : Mozilla Public License, v. 2.0.
-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability   : auto-generated
-- Portability : non-portable (GHC extensions)
module Amazonka.Lightsail.Types.LoadBalancerTlsCertificateSummary where

import qualified Amazonka.Core as Core
import qualified Amazonka.Lens as Lens
import qualified Amazonka.Prelude as Prelude

-- | Provides a summary of SSL\/TLS certificate metadata.
--
-- /See:/ 'newLoadBalancerTlsCertificateSummary' smart constructor.
data LoadBalancerTlsCertificateSummary = LoadBalancerTlsCertificateSummary'
  { -- | When @true@, the SSL\/TLS certificate is attached to the Lightsail load
    -- balancer.
    LoadBalancerTlsCertificateSummary -> Maybe Bool
isAttached :: Prelude.Maybe Prelude.Bool,
    -- | The name of the SSL\/TLS certificate.
    LoadBalancerTlsCertificateSummary -> Maybe Text
name :: Prelude.Maybe Prelude.Text
  }
  deriving (LoadBalancerTlsCertificateSummary
-> LoadBalancerTlsCertificateSummary -> Bool
(LoadBalancerTlsCertificateSummary
 -> LoadBalancerTlsCertificateSummary -> Bool)
-> (LoadBalancerTlsCertificateSummary
    -> LoadBalancerTlsCertificateSummary -> Bool)
-> Eq LoadBalancerTlsCertificateSummary
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: LoadBalancerTlsCertificateSummary
-> LoadBalancerTlsCertificateSummary -> Bool
$c/= :: LoadBalancerTlsCertificateSummary
-> LoadBalancerTlsCertificateSummary -> Bool
== :: LoadBalancerTlsCertificateSummary
-> LoadBalancerTlsCertificateSummary -> Bool
$c== :: LoadBalancerTlsCertificateSummary
-> LoadBalancerTlsCertificateSummary -> Bool
Prelude.Eq, ReadPrec [LoadBalancerTlsCertificateSummary]
ReadPrec LoadBalancerTlsCertificateSummary
Int -> ReadS LoadBalancerTlsCertificateSummary
ReadS [LoadBalancerTlsCertificateSummary]
(Int -> ReadS LoadBalancerTlsCertificateSummary)
-> ReadS [LoadBalancerTlsCertificateSummary]
-> ReadPrec LoadBalancerTlsCertificateSummary
-> ReadPrec [LoadBalancerTlsCertificateSummary]
-> Read LoadBalancerTlsCertificateSummary
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [LoadBalancerTlsCertificateSummary]
$creadListPrec :: ReadPrec [LoadBalancerTlsCertificateSummary]
readPrec :: ReadPrec LoadBalancerTlsCertificateSummary
$creadPrec :: ReadPrec LoadBalancerTlsCertificateSummary
readList :: ReadS [LoadBalancerTlsCertificateSummary]
$creadList :: ReadS [LoadBalancerTlsCertificateSummary]
readsPrec :: Int -> ReadS LoadBalancerTlsCertificateSummary
$creadsPrec :: Int -> ReadS LoadBalancerTlsCertificateSummary
Prelude.Read, Int -> LoadBalancerTlsCertificateSummary -> ShowS
[LoadBalancerTlsCertificateSummary] -> ShowS
LoadBalancerTlsCertificateSummary -> String
(Int -> LoadBalancerTlsCertificateSummary -> ShowS)
-> (LoadBalancerTlsCertificateSummary -> String)
-> ([LoadBalancerTlsCertificateSummary] -> ShowS)
-> Show LoadBalancerTlsCertificateSummary
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [LoadBalancerTlsCertificateSummary] -> ShowS
$cshowList :: [LoadBalancerTlsCertificateSummary] -> ShowS
show :: LoadBalancerTlsCertificateSummary -> String
$cshow :: LoadBalancerTlsCertificateSummary -> String
showsPrec :: Int -> LoadBalancerTlsCertificateSummary -> ShowS
$cshowsPrec :: Int -> LoadBalancerTlsCertificateSummary -> ShowS
Prelude.Show, (forall x.
 LoadBalancerTlsCertificateSummary
 -> Rep LoadBalancerTlsCertificateSummary x)
-> (forall x.
    Rep LoadBalancerTlsCertificateSummary x
    -> LoadBalancerTlsCertificateSummary)
-> Generic LoadBalancerTlsCertificateSummary
forall x.
Rep LoadBalancerTlsCertificateSummary x
-> LoadBalancerTlsCertificateSummary
forall x.
LoadBalancerTlsCertificateSummary
-> Rep LoadBalancerTlsCertificateSummary x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep LoadBalancerTlsCertificateSummary x
-> LoadBalancerTlsCertificateSummary
$cfrom :: forall x.
LoadBalancerTlsCertificateSummary
-> Rep LoadBalancerTlsCertificateSummary x
Prelude.Generic)

-- |
-- Create a value of 'LoadBalancerTlsCertificateSummary' 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:
--
-- 'isAttached', 'loadBalancerTlsCertificateSummary_isAttached' - When @true@, the SSL\/TLS certificate is attached to the Lightsail load
-- balancer.
--
-- 'name', 'loadBalancerTlsCertificateSummary_name' - The name of the SSL\/TLS certificate.
newLoadBalancerTlsCertificateSummary ::
  LoadBalancerTlsCertificateSummary
newLoadBalancerTlsCertificateSummary :: LoadBalancerTlsCertificateSummary
newLoadBalancerTlsCertificateSummary =
  LoadBalancerTlsCertificateSummary' :: Maybe Bool -> Maybe Text -> LoadBalancerTlsCertificateSummary
LoadBalancerTlsCertificateSummary'
    { $sel:isAttached:LoadBalancerTlsCertificateSummary' :: Maybe Bool
isAttached =
        Maybe Bool
forall a. Maybe a
Prelude.Nothing,
      $sel:name:LoadBalancerTlsCertificateSummary' :: Maybe Text
name = Maybe Text
forall a. Maybe a
Prelude.Nothing
    }

-- | When @true@, the SSL\/TLS certificate is attached to the Lightsail load
-- balancer.
loadBalancerTlsCertificateSummary_isAttached :: Lens.Lens' LoadBalancerTlsCertificateSummary (Prelude.Maybe Prelude.Bool)
loadBalancerTlsCertificateSummary_isAttached :: (Maybe Bool -> f (Maybe Bool))
-> LoadBalancerTlsCertificateSummary
-> f LoadBalancerTlsCertificateSummary
loadBalancerTlsCertificateSummary_isAttached = (LoadBalancerTlsCertificateSummary -> Maybe Bool)
-> (LoadBalancerTlsCertificateSummary
    -> Maybe Bool -> LoadBalancerTlsCertificateSummary)
-> Lens
     LoadBalancerTlsCertificateSummary
     LoadBalancerTlsCertificateSummary
     (Maybe Bool)
     (Maybe Bool)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\LoadBalancerTlsCertificateSummary' {Maybe Bool
isAttached :: Maybe Bool
$sel:isAttached:LoadBalancerTlsCertificateSummary' :: LoadBalancerTlsCertificateSummary -> Maybe Bool
isAttached} -> Maybe Bool
isAttached) (\s :: LoadBalancerTlsCertificateSummary
s@LoadBalancerTlsCertificateSummary' {} Maybe Bool
a -> LoadBalancerTlsCertificateSummary
s {$sel:isAttached:LoadBalancerTlsCertificateSummary' :: Maybe Bool
isAttached = Maybe Bool
a} :: LoadBalancerTlsCertificateSummary)

-- | The name of the SSL\/TLS certificate.
loadBalancerTlsCertificateSummary_name :: Lens.Lens' LoadBalancerTlsCertificateSummary (Prelude.Maybe Prelude.Text)
loadBalancerTlsCertificateSummary_name :: (Maybe Text -> f (Maybe Text))
-> LoadBalancerTlsCertificateSummary
-> f LoadBalancerTlsCertificateSummary
loadBalancerTlsCertificateSummary_name = (LoadBalancerTlsCertificateSummary -> Maybe Text)
-> (LoadBalancerTlsCertificateSummary
    -> Maybe Text -> LoadBalancerTlsCertificateSummary)
-> Lens
     LoadBalancerTlsCertificateSummary
     LoadBalancerTlsCertificateSummary
     (Maybe Text)
     (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\LoadBalancerTlsCertificateSummary' {Maybe Text
name :: Maybe Text
$sel:name:LoadBalancerTlsCertificateSummary' :: LoadBalancerTlsCertificateSummary -> Maybe Text
name} -> Maybe Text
name) (\s :: LoadBalancerTlsCertificateSummary
s@LoadBalancerTlsCertificateSummary' {} Maybe Text
a -> LoadBalancerTlsCertificateSummary
s {$sel:name:LoadBalancerTlsCertificateSummary' :: Maybe Text
name = Maybe Text
a} :: LoadBalancerTlsCertificateSummary)

instance
  Core.FromJSON
    LoadBalancerTlsCertificateSummary
  where
  parseJSON :: Value -> Parser LoadBalancerTlsCertificateSummary
parseJSON =
    String
-> (Object -> Parser LoadBalancerTlsCertificateSummary)
-> Value
-> Parser LoadBalancerTlsCertificateSummary
forall a. String -> (Object -> Parser a) -> Value -> Parser a
Core.withObject
      String
"LoadBalancerTlsCertificateSummary"
      ( \Object
x ->
          Maybe Bool -> Maybe Text -> LoadBalancerTlsCertificateSummary
LoadBalancerTlsCertificateSummary'
            (Maybe Bool -> Maybe Text -> LoadBalancerTlsCertificateSummary)
-> Parser (Maybe Bool)
-> Parser (Maybe Text -> LoadBalancerTlsCertificateSummary)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x Object -> Text -> Parser (Maybe Bool)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"isAttached")
            Parser (Maybe Text -> LoadBalancerTlsCertificateSummary)
-> Parser (Maybe Text) -> Parser LoadBalancerTlsCertificateSummary
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x Object -> Text -> Parser (Maybe Text)
forall a. FromJSON a => Object -> Text -> Parser (Maybe a)
Core..:? Text
"name")
      )

instance
  Prelude.Hashable
    LoadBalancerTlsCertificateSummary

instance
  Prelude.NFData
    LoadBalancerTlsCertificateSummary