{-# 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.DirectConnect.Types.BGPPeer
-- 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.DirectConnect.Types.BGPPeer where

import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.DirectConnect.Types.AddressFamily
import Amazonka.DirectConnect.Types.BGPPeerState
import Amazonka.DirectConnect.Types.BGPStatus
import qualified Amazonka.Prelude as Prelude

-- | Information about a BGP peer.
--
-- /See:/ 'newBGPPeer' smart constructor.
data BGPPeer = BGPPeer'
  { -- | The address family for the BGP peer.
    BGPPeer -> Maybe AddressFamily
addressFamily :: Prelude.Maybe AddressFamily,
    -- | The IP address assigned to the Amazon interface.
    BGPPeer -> Maybe Text
amazonAddress :: Prelude.Maybe Prelude.Text,
    -- | The autonomous system (AS) number for Border Gateway Protocol (BGP)
    -- configuration.
    BGPPeer -> Maybe Int
asn :: Prelude.Maybe Prelude.Int,
    -- | The authentication key for BGP configuration. This string has a minimum
    -- length of 6 characters and and a maximun lenth of 80 characters.
    BGPPeer -> Maybe Text
authKey :: Prelude.Maybe Prelude.Text,
    -- | The Direct Connect endpoint that terminates the BGP peer.
    BGPPeer -> Maybe Text
awsDeviceV2 :: Prelude.Maybe Prelude.Text,
    -- | The Direct Connect endpoint that terminates the logical connection. This
    -- device might be different than the device that terminates the physical
    -- connection.
    BGPPeer -> Maybe Text
awsLogicalDeviceId :: Prelude.Maybe Prelude.Text,
    -- | The ID of the BGP peer.
    BGPPeer -> Maybe Text
bgpPeerId :: Prelude.Maybe Prelude.Text,
    -- | The state of the BGP peer. The following are the possible values:
    --
    -- -   @verifying@: The BGP peering addresses or ASN require validation
    --     before the BGP peer can be created. This state applies only to
    --     public virtual interfaces.
    --
    -- -   @pending@: The BGP peer is created, and remains in this state until
    --     it is ready to be established.
    --
    -- -   @available@: The BGP peer is ready to be established.
    --
    -- -   @deleting@: The BGP peer is being deleted.
    --
    -- -   @deleted@: The BGP peer is deleted and cannot be established.
    BGPPeer -> Maybe BGPPeerState
bgpPeerState :: Prelude.Maybe BGPPeerState,
    -- | The status of the BGP peer. The following are the possible values:
    --
    -- -   @up@: The BGP peer is established. This state does not indicate the
    --     state of the routing function. Ensure that you are receiving routes
    --     over the BGP session.
    --
    -- -   @down@: The BGP peer is down.
    --
    -- -   @unknown@: The BGP peer status is not available.
    BGPPeer -> Maybe BGPStatus
bgpStatus :: Prelude.Maybe BGPStatus,
    -- | The IP address assigned to the customer interface.
    BGPPeer -> Maybe Text
customerAddress :: Prelude.Maybe Prelude.Text
  }
  deriving (BGPPeer -> BGPPeer -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: BGPPeer -> BGPPeer -> Bool
$c/= :: BGPPeer -> BGPPeer -> Bool
== :: BGPPeer -> BGPPeer -> Bool
$c== :: BGPPeer -> BGPPeer -> Bool
Prelude.Eq, ReadPrec [BGPPeer]
ReadPrec BGPPeer
Int -> ReadS BGPPeer
ReadS [BGPPeer]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [BGPPeer]
$creadListPrec :: ReadPrec [BGPPeer]
readPrec :: ReadPrec BGPPeer
$creadPrec :: ReadPrec BGPPeer
readList :: ReadS [BGPPeer]
$creadList :: ReadS [BGPPeer]
readsPrec :: Int -> ReadS BGPPeer
$creadsPrec :: Int -> ReadS BGPPeer
Prelude.Read, Int -> BGPPeer -> ShowS
[BGPPeer] -> ShowS
BGPPeer -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [BGPPeer] -> ShowS
$cshowList :: [BGPPeer] -> ShowS
show :: BGPPeer -> String
$cshow :: BGPPeer -> String
showsPrec :: Int -> BGPPeer -> ShowS
$cshowsPrec :: Int -> BGPPeer -> ShowS
Prelude.Show, forall x. Rep BGPPeer x -> BGPPeer
forall x. BGPPeer -> Rep BGPPeer x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep BGPPeer x -> BGPPeer
$cfrom :: forall x. BGPPeer -> Rep BGPPeer x
Prelude.Generic)

-- |
-- Create a value of 'BGPPeer' 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:
--
-- 'addressFamily', 'bGPPeer_addressFamily' - The address family for the BGP peer.
--
-- 'amazonAddress', 'bGPPeer_amazonAddress' - The IP address assigned to the Amazon interface.
--
-- 'asn', 'bGPPeer_asn' - The autonomous system (AS) number for Border Gateway Protocol (BGP)
-- configuration.
--
-- 'authKey', 'bGPPeer_authKey' - The authentication key for BGP configuration. This string has a minimum
-- length of 6 characters and and a maximun lenth of 80 characters.
--
-- 'awsDeviceV2', 'bGPPeer_awsDeviceV2' - The Direct Connect endpoint that terminates the BGP peer.
--
-- 'awsLogicalDeviceId', 'bGPPeer_awsLogicalDeviceId' - The Direct Connect endpoint that terminates the logical connection. This
-- device might be different than the device that terminates the physical
-- connection.
--
-- 'bgpPeerId', 'bGPPeer_bgpPeerId' - The ID of the BGP peer.
--
-- 'bgpPeerState', 'bGPPeer_bgpPeerState' - The state of the BGP peer. The following are the possible values:
--
-- -   @verifying@: The BGP peering addresses or ASN require validation
--     before the BGP peer can be created. This state applies only to
--     public virtual interfaces.
--
-- -   @pending@: The BGP peer is created, and remains in this state until
--     it is ready to be established.
--
-- -   @available@: The BGP peer is ready to be established.
--
-- -   @deleting@: The BGP peer is being deleted.
--
-- -   @deleted@: The BGP peer is deleted and cannot be established.
--
-- 'bgpStatus', 'bGPPeer_bgpStatus' - The status of the BGP peer. The following are the possible values:
--
-- -   @up@: The BGP peer is established. This state does not indicate the
--     state of the routing function. Ensure that you are receiving routes
--     over the BGP session.
--
-- -   @down@: The BGP peer is down.
--
-- -   @unknown@: The BGP peer status is not available.
--
-- 'customerAddress', 'bGPPeer_customerAddress' - The IP address assigned to the customer interface.
newBGPPeer ::
  BGPPeer
newBGPPeer :: BGPPeer
newBGPPeer =
  BGPPeer'
    { $sel:addressFamily:BGPPeer' :: Maybe AddressFamily
addressFamily = forall a. Maybe a
Prelude.Nothing,
      $sel:amazonAddress:BGPPeer' :: Maybe Text
amazonAddress = forall a. Maybe a
Prelude.Nothing,
      $sel:asn:BGPPeer' :: Maybe Int
asn = forall a. Maybe a
Prelude.Nothing,
      $sel:authKey:BGPPeer' :: Maybe Text
authKey = forall a. Maybe a
Prelude.Nothing,
      $sel:awsDeviceV2:BGPPeer' :: Maybe Text
awsDeviceV2 = forall a. Maybe a
Prelude.Nothing,
      $sel:awsLogicalDeviceId:BGPPeer' :: Maybe Text
awsLogicalDeviceId = forall a. Maybe a
Prelude.Nothing,
      $sel:bgpPeerId:BGPPeer' :: Maybe Text
bgpPeerId = forall a. Maybe a
Prelude.Nothing,
      $sel:bgpPeerState:BGPPeer' :: Maybe BGPPeerState
bgpPeerState = forall a. Maybe a
Prelude.Nothing,
      $sel:bgpStatus:BGPPeer' :: Maybe BGPStatus
bgpStatus = forall a. Maybe a
Prelude.Nothing,
      $sel:customerAddress:BGPPeer' :: Maybe Text
customerAddress = forall a. Maybe a
Prelude.Nothing
    }

-- | The address family for the BGP peer.
bGPPeer_addressFamily :: Lens.Lens' BGPPeer (Prelude.Maybe AddressFamily)
bGPPeer_addressFamily :: Lens' BGPPeer (Maybe AddressFamily)
bGPPeer_addressFamily = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\BGPPeer' {Maybe AddressFamily
addressFamily :: Maybe AddressFamily
$sel:addressFamily:BGPPeer' :: BGPPeer -> Maybe AddressFamily
addressFamily} -> Maybe AddressFamily
addressFamily) (\s :: BGPPeer
s@BGPPeer' {} Maybe AddressFamily
a -> BGPPeer
s {$sel:addressFamily:BGPPeer' :: Maybe AddressFamily
addressFamily = Maybe AddressFamily
a} :: BGPPeer)

-- | The IP address assigned to the Amazon interface.
bGPPeer_amazonAddress :: Lens.Lens' BGPPeer (Prelude.Maybe Prelude.Text)
bGPPeer_amazonAddress :: Lens' BGPPeer (Maybe Text)
bGPPeer_amazonAddress = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\BGPPeer' {Maybe Text
amazonAddress :: Maybe Text
$sel:amazonAddress:BGPPeer' :: BGPPeer -> Maybe Text
amazonAddress} -> Maybe Text
amazonAddress) (\s :: BGPPeer
s@BGPPeer' {} Maybe Text
a -> BGPPeer
s {$sel:amazonAddress:BGPPeer' :: Maybe Text
amazonAddress = Maybe Text
a} :: BGPPeer)

-- | The autonomous system (AS) number for Border Gateway Protocol (BGP)
-- configuration.
bGPPeer_asn :: Lens.Lens' BGPPeer (Prelude.Maybe Prelude.Int)
bGPPeer_asn :: Lens' BGPPeer (Maybe Int)
bGPPeer_asn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\BGPPeer' {Maybe Int
asn :: Maybe Int
$sel:asn:BGPPeer' :: BGPPeer -> Maybe Int
asn} -> Maybe Int
asn) (\s :: BGPPeer
s@BGPPeer' {} Maybe Int
a -> BGPPeer
s {$sel:asn:BGPPeer' :: Maybe Int
asn = Maybe Int
a} :: BGPPeer)

-- | The authentication key for BGP configuration. This string has a minimum
-- length of 6 characters and and a maximun lenth of 80 characters.
bGPPeer_authKey :: Lens.Lens' BGPPeer (Prelude.Maybe Prelude.Text)
bGPPeer_authKey :: Lens' BGPPeer (Maybe Text)
bGPPeer_authKey = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\BGPPeer' {Maybe Text
authKey :: Maybe Text
$sel:authKey:BGPPeer' :: BGPPeer -> Maybe Text
authKey} -> Maybe Text
authKey) (\s :: BGPPeer
s@BGPPeer' {} Maybe Text
a -> BGPPeer
s {$sel:authKey:BGPPeer' :: Maybe Text
authKey = Maybe Text
a} :: BGPPeer)

-- | The Direct Connect endpoint that terminates the BGP peer.
bGPPeer_awsDeviceV2 :: Lens.Lens' BGPPeer (Prelude.Maybe Prelude.Text)
bGPPeer_awsDeviceV2 :: Lens' BGPPeer (Maybe Text)
bGPPeer_awsDeviceV2 = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\BGPPeer' {Maybe Text
awsDeviceV2 :: Maybe Text
$sel:awsDeviceV2:BGPPeer' :: BGPPeer -> Maybe Text
awsDeviceV2} -> Maybe Text
awsDeviceV2) (\s :: BGPPeer
s@BGPPeer' {} Maybe Text
a -> BGPPeer
s {$sel:awsDeviceV2:BGPPeer' :: Maybe Text
awsDeviceV2 = Maybe Text
a} :: BGPPeer)

-- | The Direct Connect endpoint that terminates the logical connection. This
-- device might be different than the device that terminates the physical
-- connection.
bGPPeer_awsLogicalDeviceId :: Lens.Lens' BGPPeer (Prelude.Maybe Prelude.Text)
bGPPeer_awsLogicalDeviceId :: Lens' BGPPeer (Maybe Text)
bGPPeer_awsLogicalDeviceId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\BGPPeer' {Maybe Text
awsLogicalDeviceId :: Maybe Text
$sel:awsLogicalDeviceId:BGPPeer' :: BGPPeer -> Maybe Text
awsLogicalDeviceId} -> Maybe Text
awsLogicalDeviceId) (\s :: BGPPeer
s@BGPPeer' {} Maybe Text
a -> BGPPeer
s {$sel:awsLogicalDeviceId:BGPPeer' :: Maybe Text
awsLogicalDeviceId = Maybe Text
a} :: BGPPeer)

-- | The ID of the BGP peer.
bGPPeer_bgpPeerId :: Lens.Lens' BGPPeer (Prelude.Maybe Prelude.Text)
bGPPeer_bgpPeerId :: Lens' BGPPeer (Maybe Text)
bGPPeer_bgpPeerId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\BGPPeer' {Maybe Text
bgpPeerId :: Maybe Text
$sel:bgpPeerId:BGPPeer' :: BGPPeer -> Maybe Text
bgpPeerId} -> Maybe Text
bgpPeerId) (\s :: BGPPeer
s@BGPPeer' {} Maybe Text
a -> BGPPeer
s {$sel:bgpPeerId:BGPPeer' :: Maybe Text
bgpPeerId = Maybe Text
a} :: BGPPeer)

-- | The state of the BGP peer. The following are the possible values:
--
-- -   @verifying@: The BGP peering addresses or ASN require validation
--     before the BGP peer can be created. This state applies only to
--     public virtual interfaces.
--
-- -   @pending@: The BGP peer is created, and remains in this state until
--     it is ready to be established.
--
-- -   @available@: The BGP peer is ready to be established.
--
-- -   @deleting@: The BGP peer is being deleted.
--
-- -   @deleted@: The BGP peer is deleted and cannot be established.
bGPPeer_bgpPeerState :: Lens.Lens' BGPPeer (Prelude.Maybe BGPPeerState)
bGPPeer_bgpPeerState :: Lens' BGPPeer (Maybe BGPPeerState)
bGPPeer_bgpPeerState = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\BGPPeer' {Maybe BGPPeerState
bgpPeerState :: Maybe BGPPeerState
$sel:bgpPeerState:BGPPeer' :: BGPPeer -> Maybe BGPPeerState
bgpPeerState} -> Maybe BGPPeerState
bgpPeerState) (\s :: BGPPeer
s@BGPPeer' {} Maybe BGPPeerState
a -> BGPPeer
s {$sel:bgpPeerState:BGPPeer' :: Maybe BGPPeerState
bgpPeerState = Maybe BGPPeerState
a} :: BGPPeer)

-- | The status of the BGP peer. The following are the possible values:
--
-- -   @up@: The BGP peer is established. This state does not indicate the
--     state of the routing function. Ensure that you are receiving routes
--     over the BGP session.
--
-- -   @down@: The BGP peer is down.
--
-- -   @unknown@: The BGP peer status is not available.
bGPPeer_bgpStatus :: Lens.Lens' BGPPeer (Prelude.Maybe BGPStatus)
bGPPeer_bgpStatus :: Lens' BGPPeer (Maybe BGPStatus)
bGPPeer_bgpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\BGPPeer' {Maybe BGPStatus
bgpStatus :: Maybe BGPStatus
$sel:bgpStatus:BGPPeer' :: BGPPeer -> Maybe BGPStatus
bgpStatus} -> Maybe BGPStatus
bgpStatus) (\s :: BGPPeer
s@BGPPeer' {} Maybe BGPStatus
a -> BGPPeer
s {$sel:bgpStatus:BGPPeer' :: Maybe BGPStatus
bgpStatus = Maybe BGPStatus
a} :: BGPPeer)

-- | The IP address assigned to the customer interface.
bGPPeer_customerAddress :: Lens.Lens' BGPPeer (Prelude.Maybe Prelude.Text)
bGPPeer_customerAddress :: Lens' BGPPeer (Maybe Text)
bGPPeer_customerAddress = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\BGPPeer' {Maybe Text
customerAddress :: Maybe Text
$sel:customerAddress:BGPPeer' :: BGPPeer -> Maybe Text
customerAddress} -> Maybe Text
customerAddress) (\s :: BGPPeer
s@BGPPeer' {} Maybe Text
a -> BGPPeer
s {$sel:customerAddress:BGPPeer' :: Maybe Text
customerAddress = Maybe Text
a} :: BGPPeer)

instance Data.FromJSON BGPPeer where
  parseJSON :: Value -> Parser BGPPeer
parseJSON =
    forall a. String -> (Object -> Parser a) -> Value -> Parser a
Data.withObject
      String
"BGPPeer"
      ( \Object
x ->
          Maybe AddressFamily
-> Maybe Text
-> Maybe Int
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe BGPPeerState
-> Maybe BGPStatus
-> Maybe Text
-> BGPPeer
BGPPeer'
            forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"addressFamily")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"amazonAddress")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"asn")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"authKey")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"awsDeviceV2")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"awsLogicalDeviceId")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"bgpPeerId")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"bgpPeerState")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"bgpStatus")
            forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Parser (Maybe a)
Data..:? Key
"customerAddress")
      )

instance Prelude.Hashable BGPPeer where
  hashWithSalt :: Int -> BGPPeer -> Int
hashWithSalt Int
_salt BGPPeer' {Maybe Int
Maybe Text
Maybe AddressFamily
Maybe BGPPeerState
Maybe BGPStatus
customerAddress :: Maybe Text
bgpStatus :: Maybe BGPStatus
bgpPeerState :: Maybe BGPPeerState
bgpPeerId :: Maybe Text
awsLogicalDeviceId :: Maybe Text
awsDeviceV2 :: Maybe Text
authKey :: Maybe Text
asn :: Maybe Int
amazonAddress :: Maybe Text
addressFamily :: Maybe AddressFamily
$sel:customerAddress:BGPPeer' :: BGPPeer -> Maybe Text
$sel:bgpStatus:BGPPeer' :: BGPPeer -> Maybe BGPStatus
$sel:bgpPeerState:BGPPeer' :: BGPPeer -> Maybe BGPPeerState
$sel:bgpPeerId:BGPPeer' :: BGPPeer -> Maybe Text
$sel:awsLogicalDeviceId:BGPPeer' :: BGPPeer -> Maybe Text
$sel:awsDeviceV2:BGPPeer' :: BGPPeer -> Maybe Text
$sel:authKey:BGPPeer' :: BGPPeer -> Maybe Text
$sel:asn:BGPPeer' :: BGPPeer -> Maybe Int
$sel:amazonAddress:BGPPeer' :: BGPPeer -> Maybe Text
$sel:addressFamily:BGPPeer' :: BGPPeer -> Maybe AddressFamily
..} =
    Int
_salt
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe AddressFamily
addressFamily
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
amazonAddress
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Int
asn
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
authKey
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
awsDeviceV2
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
awsLogicalDeviceId
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
bgpPeerId
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe BGPPeerState
bgpPeerState
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe BGPStatus
bgpStatus
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
customerAddress

instance Prelude.NFData BGPPeer where
  rnf :: BGPPeer -> ()
rnf BGPPeer' {Maybe Int
Maybe Text
Maybe AddressFamily
Maybe BGPPeerState
Maybe BGPStatus
customerAddress :: Maybe Text
bgpStatus :: Maybe BGPStatus
bgpPeerState :: Maybe BGPPeerState
bgpPeerId :: Maybe Text
awsLogicalDeviceId :: Maybe Text
awsDeviceV2 :: Maybe Text
authKey :: Maybe Text
asn :: Maybe Int
amazonAddress :: Maybe Text
addressFamily :: Maybe AddressFamily
$sel:customerAddress:BGPPeer' :: BGPPeer -> Maybe Text
$sel:bgpStatus:BGPPeer' :: BGPPeer -> Maybe BGPStatus
$sel:bgpPeerState:BGPPeer' :: BGPPeer -> Maybe BGPPeerState
$sel:bgpPeerId:BGPPeer' :: BGPPeer -> Maybe Text
$sel:awsLogicalDeviceId:BGPPeer' :: BGPPeer -> Maybe Text
$sel:awsDeviceV2:BGPPeer' :: BGPPeer -> Maybe Text
$sel:authKey:BGPPeer' :: BGPPeer -> Maybe Text
$sel:asn:BGPPeer' :: BGPPeer -> Maybe Int
$sel:amazonAddress:BGPPeer' :: BGPPeer -> Maybe Text
$sel:addressFamily:BGPPeer' :: BGPPeer -> Maybe AddressFamily
..} =
    forall a. NFData a => a -> ()
Prelude.rnf Maybe AddressFamily
addressFamily
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
amazonAddress
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
asn
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
authKey
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
awsDeviceV2
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
awsLogicalDeviceId
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
bgpPeerId
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe BGPPeerState
bgpPeerState
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe BGPStatus
bgpStatus
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
customerAddress