{-# 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.SecurityHub.Types.Network
-- 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.SecurityHub.Types.Network where

import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import qualified Amazonka.Prelude as Prelude
import Amazonka.SecurityHub.Types.NetworkDirection
import Amazonka.SecurityHub.Types.PortRange

-- | The details of network-related information about a finding.
--
-- /See:/ 'newNetwork' smart constructor.
data Network = Network'
  { -- | The destination domain of network-related information about a finding.
    destinationDomain :: Prelude.Maybe Prelude.Text,
    -- | The destination IPv4 address of network-related information about a
    -- finding.
    destinationIpV4 :: Prelude.Maybe Prelude.Text,
    -- | The destination IPv6 address of network-related information about a
    -- finding.
    destinationIpV6 :: Prelude.Maybe Prelude.Text,
    -- | The destination port of network-related information about a finding.
    destinationPort :: Prelude.Maybe Prelude.Int,
    -- | The direction of network traffic associated with a finding.
    direction :: Prelude.Maybe NetworkDirection,
    -- | The range of open ports that is present on the network.
    openPortRange :: Prelude.Maybe PortRange,
    -- | The protocol of network-related information about a finding.
    protocol :: Prelude.Maybe Prelude.Text,
    -- | The source domain of network-related information about a finding.
    sourceDomain :: Prelude.Maybe Prelude.Text,
    -- | The source IPv4 address of network-related information about a finding.
    sourceIpV4 :: Prelude.Maybe Prelude.Text,
    -- | The source IPv6 address of network-related information about a finding.
    sourceIpV6 :: Prelude.Maybe Prelude.Text,
    -- | The source media access control (MAC) address of network-related
    -- information about a finding.
    sourceMac :: Prelude.Maybe Prelude.Text,
    -- | The source port of network-related information about a finding.
    sourcePort :: Prelude.Maybe Prelude.Int
  }
  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)

-- |
-- Create a value of 'Network' 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:
--
-- 'destinationDomain', 'network_destinationDomain' - The destination domain of network-related information about a finding.
--
-- 'destinationIpV4', 'network_destinationIpV4' - The destination IPv4 address of network-related information about a
-- finding.
--
-- 'destinationIpV6', 'network_destinationIpV6' - The destination IPv6 address of network-related information about a
-- finding.
--
-- 'destinationPort', 'network_destinationPort' - The destination port of network-related information about a finding.
--
-- 'direction', 'network_direction' - The direction of network traffic associated with a finding.
--
-- 'openPortRange', 'network_openPortRange' - The range of open ports that is present on the network.
--
-- 'protocol', 'network_protocol' - The protocol of network-related information about a finding.
--
-- 'sourceDomain', 'network_sourceDomain' - The source domain of network-related information about a finding.
--
-- 'sourceIpV4', 'network_sourceIpV4' - The source IPv4 address of network-related information about a finding.
--
-- 'sourceIpV6', 'network_sourceIpV6' - The source IPv6 address of network-related information about a finding.
--
-- 'sourceMac', 'network_sourceMac' - The source media access control (MAC) address of network-related
-- information about a finding.
--
-- 'sourcePort', 'network_sourcePort' - The source port of network-related information about a finding.
newNetwork ::
  Network
newNetwork =
  Network'
    { destinationDomain = Prelude.Nothing,
      destinationIpV4 = Prelude.Nothing,
      destinationIpV6 = Prelude.Nothing,
      destinationPort = Prelude.Nothing,
      direction = Prelude.Nothing,
      openPortRange = Prelude.Nothing,
      protocol = Prelude.Nothing,
      sourceDomain = Prelude.Nothing,
      sourceIpV4 = Prelude.Nothing,
      sourceIpV6 = Prelude.Nothing,
      sourceMac = Prelude.Nothing,
      sourcePort = Prelude.Nothing
    }

-- | The destination domain of network-related information about a finding.
network_destinationDomain :: Lens.Lens' Network (Prelude.Maybe Prelude.Text)
network_destinationDomain = Lens.lens (\Network' {destinationDomain} -> destinationDomain) (\s@Network' {} a -> s {destinationDomain = a} :: Network)

-- | The destination IPv4 address of network-related information about a
-- finding.
network_destinationIpV4 :: Lens.Lens' Network (Prelude.Maybe Prelude.Text)
network_destinationIpV4 = Lens.lens (\Network' {destinationIpV4} -> destinationIpV4) (\s@Network' {} a -> s {destinationIpV4 = a} :: Network)

-- | The destination IPv6 address of network-related information about a
-- finding.
network_destinationIpV6 :: Lens.Lens' Network (Prelude.Maybe Prelude.Text)
network_destinationIpV6 = Lens.lens (\Network' {destinationIpV6} -> destinationIpV6) (\s@Network' {} a -> s {destinationIpV6 = a} :: Network)

-- | The destination port of network-related information about a finding.
network_destinationPort :: Lens.Lens' Network (Prelude.Maybe Prelude.Int)
network_destinationPort = Lens.lens (\Network' {destinationPort} -> destinationPort) (\s@Network' {} a -> s {destinationPort = a} :: Network)

-- | The direction of network traffic associated with a finding.
network_direction :: Lens.Lens' Network (Prelude.Maybe NetworkDirection)
network_direction = Lens.lens (\Network' {direction} -> direction) (\s@Network' {} a -> s {direction = a} :: Network)

-- | The range of open ports that is present on the network.
network_openPortRange :: Lens.Lens' Network (Prelude.Maybe PortRange)
network_openPortRange = Lens.lens (\Network' {openPortRange} -> openPortRange) (\s@Network' {} a -> s {openPortRange = a} :: Network)

-- | The protocol of network-related information about a finding.
network_protocol :: Lens.Lens' Network (Prelude.Maybe Prelude.Text)
network_protocol = Lens.lens (\Network' {protocol} -> protocol) (\s@Network' {} a -> s {protocol = a} :: Network)

-- | The source domain of network-related information about a finding.
network_sourceDomain :: Lens.Lens' Network (Prelude.Maybe Prelude.Text)
network_sourceDomain = Lens.lens (\Network' {sourceDomain} -> sourceDomain) (\s@Network' {} a -> s {sourceDomain = a} :: Network)

-- | The source IPv4 address of network-related information about a finding.
network_sourceIpV4 :: Lens.Lens' Network (Prelude.Maybe Prelude.Text)
network_sourceIpV4 = Lens.lens (\Network' {sourceIpV4} -> sourceIpV4) (\s@Network' {} a -> s {sourceIpV4 = a} :: Network)

-- | The source IPv6 address of network-related information about a finding.
network_sourceIpV6 :: Lens.Lens' Network (Prelude.Maybe Prelude.Text)
network_sourceIpV6 = Lens.lens (\Network' {sourceIpV6} -> sourceIpV6) (\s@Network' {} a -> s {sourceIpV6 = a} :: Network)

-- | The source media access control (MAC) address of network-related
-- information about a finding.
network_sourceMac :: Lens.Lens' Network (Prelude.Maybe Prelude.Text)
network_sourceMac = Lens.lens (\Network' {sourceMac} -> sourceMac) (\s@Network' {} a -> s {sourceMac = a} :: Network)

-- | The source port of network-related information about a finding.
network_sourcePort :: Lens.Lens' Network (Prelude.Maybe Prelude.Int)
network_sourcePort = Lens.lens (\Network' {sourcePort} -> sourcePort) (\s@Network' {} a -> s {sourcePort = a} :: Network)

instance Data.FromJSON Network where
  parseJSON =
    Data.withObject
      "Network"
      ( \x ->
          Network'
            Prelude.<$> (x Data..:? "DestinationDomain")
            Prelude.<*> (x Data..:? "DestinationIpV4")
            Prelude.<*> (x Data..:? "DestinationIpV6")
            Prelude.<*> (x Data..:? "DestinationPort")
            Prelude.<*> (x Data..:? "Direction")
            Prelude.<*> (x Data..:? "OpenPortRange")
            Prelude.<*> (x Data..:? "Protocol")
            Prelude.<*> (x Data..:? "SourceDomain")
            Prelude.<*> (x Data..:? "SourceIpV4")
            Prelude.<*> (x Data..:? "SourceIpV6")
            Prelude.<*> (x Data..:? "SourceMac")
            Prelude.<*> (x Data..:? "SourcePort")
      )

instance Prelude.Hashable Network where
  hashWithSalt _salt Network' {..} =
    _salt
      `Prelude.hashWithSalt` destinationDomain
      `Prelude.hashWithSalt` destinationIpV4
      `Prelude.hashWithSalt` destinationIpV6
      `Prelude.hashWithSalt` destinationPort
      `Prelude.hashWithSalt` direction
      `Prelude.hashWithSalt` openPortRange
      `Prelude.hashWithSalt` protocol
      `Prelude.hashWithSalt` sourceDomain
      `Prelude.hashWithSalt` sourceIpV4
      `Prelude.hashWithSalt` sourceIpV6
      `Prelude.hashWithSalt` sourceMac
      `Prelude.hashWithSalt` sourcePort

instance Prelude.NFData Network where
  rnf Network' {..} =
    Prelude.rnf destinationDomain
      `Prelude.seq` Prelude.rnf destinationIpV4
      `Prelude.seq` Prelude.rnf destinationIpV6
      `Prelude.seq` Prelude.rnf destinationPort
      `Prelude.seq` Prelude.rnf direction
      `Prelude.seq` Prelude.rnf openPortRange
      `Prelude.seq` Prelude.rnf protocol
      `Prelude.seq` Prelude.rnf sourceDomain
      `Prelude.seq` Prelude.rnf sourceIpV4
      `Prelude.seq` Prelude.rnf sourceIpV6
      `Prelude.seq` Prelude.rnf sourceMac
      `Prelude.seq` Prelude.rnf sourcePort

instance Data.ToJSON Network where
  toJSON Network' {..} =
    Data.object
      ( Prelude.catMaybes
          [ ("DestinationDomain" Data..=)
              Prelude.<$> destinationDomain,
            ("DestinationIpV4" Data..=)
              Prelude.<$> destinationIpV4,
            ("DestinationIpV6" Data..=)
              Prelude.<$> destinationIpV6,
            ("DestinationPort" Data..=)
              Prelude.<$> destinationPort,
            ("Direction" Data..=) Prelude.<$> direction,
            ("OpenPortRange" Data..=) Prelude.<$> openPortRange,
            ("Protocol" Data..=) Prelude.<$> protocol,
            ("SourceDomain" Data..=) Prelude.<$> sourceDomain,
            ("SourceIpV4" Data..=) Prelude.<$> sourceIpV4,
            ("SourceIpV6" Data..=) Prelude.<$> sourceIpV6,
            ("SourceMac" Data..=) Prelude.<$> sourceMac,
            ("SourcePort" Data..=) Prelude.<$> sourcePort
          ]
      )