{-# 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.ELBV2.Types.Matcher
-- 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.ELBV2.Types.Matcher 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

-- | The codes to use when checking for a successful response from a target.
-- If the protocol version is gRPC, these are gRPC codes. Otherwise, these
-- are HTTP codes.
--
-- /See:/ 'newMatcher' smart constructor.
data Matcher = Matcher'
  { -- | You can specify values between 0 and 99. You can specify multiple values
    -- (for example, \"0,1\") or a range of values (for example, \"0-5\"). The
    -- default value is 12.
    grpcCode :: Prelude.Maybe Prelude.Text,
    -- | For Application Load Balancers, you can specify values between 200 and
    -- 499, with the default value being 200. You can specify multiple values
    -- (for example, \"200,202\") or a range of values (for example,
    -- \"200-299\").
    --
    -- For Network Load Balancers, you can specify values between 200 and 599,
    -- with the default value being 200-399. You can specify multiple values
    -- (for example, \"200,202\") or a range of values (for example,
    -- \"200-299\").
    --
    -- For Gateway Load Balancers, this must be \"200–399\".
    --
    -- Note that when using shorthand syntax, some values such as commas need
    -- to be escaped.
    httpCode :: Prelude.Maybe Prelude.Text
  }
  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)

-- |
-- Create a value of 'Matcher' 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:
--
-- 'grpcCode', 'matcher_grpcCode' - You can specify values between 0 and 99. You can specify multiple values
-- (for example, \"0,1\") or a range of values (for example, \"0-5\"). The
-- default value is 12.
--
-- 'httpCode', 'matcher_httpCode' - For Application Load Balancers, you can specify values between 200 and
-- 499, with the default value being 200. You can specify multiple values
-- (for example, \"200,202\") or a range of values (for example,
-- \"200-299\").
--
-- For Network Load Balancers, you can specify values between 200 and 599,
-- with the default value being 200-399. You can specify multiple values
-- (for example, \"200,202\") or a range of values (for example,
-- \"200-299\").
--
-- For Gateway Load Balancers, this must be \"200–399\".
--
-- Note that when using shorthand syntax, some values such as commas need
-- to be escaped.
newMatcher ::
  Matcher
newMatcher =
  Matcher'
    { grpcCode = Prelude.Nothing,
      httpCode = Prelude.Nothing
    }

-- | You can specify values between 0 and 99. You can specify multiple values
-- (for example, \"0,1\") or a range of values (for example, \"0-5\"). The
-- default value is 12.
matcher_grpcCode :: Lens.Lens' Matcher (Prelude.Maybe Prelude.Text)
matcher_grpcCode = Lens.lens (\Matcher' {grpcCode} -> grpcCode) (\s@Matcher' {} a -> s {grpcCode = a} :: Matcher)

-- | For Application Load Balancers, you can specify values between 200 and
-- 499, with the default value being 200. You can specify multiple values
-- (for example, \"200,202\") or a range of values (for example,
-- \"200-299\").
--
-- For Network Load Balancers, you can specify values between 200 and 599,
-- with the default value being 200-399. You can specify multiple values
-- (for example, \"200,202\") or a range of values (for example,
-- \"200-299\").
--
-- For Gateway Load Balancers, this must be \"200–399\".
--
-- Note that when using shorthand syntax, some values such as commas need
-- to be escaped.
matcher_httpCode :: Lens.Lens' Matcher (Prelude.Maybe Prelude.Text)
matcher_httpCode = Lens.lens (\Matcher' {httpCode} -> httpCode) (\s@Matcher' {} a -> s {httpCode = a} :: Matcher)

instance Data.FromXML Matcher where
  parseXML x =
    Matcher'
      Prelude.<$> (x Data..@? "GrpcCode")
      Prelude.<*> (x Data..@? "HttpCode")

instance Prelude.Hashable Matcher where
  hashWithSalt _salt Matcher' {..} =
    _salt
      `Prelude.hashWithSalt` grpcCode
      `Prelude.hashWithSalt` httpCode

instance Prelude.NFData Matcher where
  rnf Matcher' {..} =
    Prelude.rnf grpcCode
      `Prelude.seq` Prelude.rnf httpCode

instance Data.ToQuery Matcher where
  toQuery Matcher' {..} =
    Prelude.mconcat
      [ "GrpcCode" Data.=: grpcCode,
        "HttpCode" Data.=: httpCode
      ]