{-# 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.DevOpsGuru.Types.SearchInsightsFilters
-- 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.DevOpsGuru.Types.SearchInsightsFilters where

import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.DevOpsGuru.Types.InsightSeverity
import Amazonka.DevOpsGuru.Types.InsightStatus
import Amazonka.DevOpsGuru.Types.ResourceCollection
import Amazonka.DevOpsGuru.Types.ServiceCollection
import qualified Amazonka.Prelude as Prelude

-- | Specifies one or more severity values and one or more status values that
-- are used to search for insights.
--
-- /See:/ 'newSearchInsightsFilters' smart constructor.
data SearchInsightsFilters = SearchInsightsFilters'
  { SearchInsightsFilters -> Maybe ResourceCollection
resourceCollection :: Prelude.Maybe ResourceCollection,
    -- | A collection of the names of Amazon Web Services services.
    SearchInsightsFilters -> Maybe ServiceCollection
serviceCollection :: Prelude.Maybe ServiceCollection,
    -- | An array of severity values used to search for insights.
    SearchInsightsFilters -> Maybe [InsightSeverity]
severities :: Prelude.Maybe [InsightSeverity],
    -- | An array of status values used to search for insights.
    SearchInsightsFilters -> Maybe [InsightStatus]
statuses :: Prelude.Maybe [InsightStatus]
  }
  deriving (SearchInsightsFilters -> SearchInsightsFilters -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SearchInsightsFilters -> SearchInsightsFilters -> Bool
$c/= :: SearchInsightsFilters -> SearchInsightsFilters -> Bool
== :: SearchInsightsFilters -> SearchInsightsFilters -> Bool
$c== :: SearchInsightsFilters -> SearchInsightsFilters -> Bool
Prelude.Eq, ReadPrec [SearchInsightsFilters]
ReadPrec SearchInsightsFilters
Int -> ReadS SearchInsightsFilters
ReadS [SearchInsightsFilters]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [SearchInsightsFilters]
$creadListPrec :: ReadPrec [SearchInsightsFilters]
readPrec :: ReadPrec SearchInsightsFilters
$creadPrec :: ReadPrec SearchInsightsFilters
readList :: ReadS [SearchInsightsFilters]
$creadList :: ReadS [SearchInsightsFilters]
readsPrec :: Int -> ReadS SearchInsightsFilters
$creadsPrec :: Int -> ReadS SearchInsightsFilters
Prelude.Read, Int -> SearchInsightsFilters -> ShowS
[SearchInsightsFilters] -> ShowS
SearchInsightsFilters -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [SearchInsightsFilters] -> ShowS
$cshowList :: [SearchInsightsFilters] -> ShowS
show :: SearchInsightsFilters -> String
$cshow :: SearchInsightsFilters -> String
showsPrec :: Int -> SearchInsightsFilters -> ShowS
$cshowsPrec :: Int -> SearchInsightsFilters -> ShowS
Prelude.Show, forall x. Rep SearchInsightsFilters x -> SearchInsightsFilters
forall x. SearchInsightsFilters -> Rep SearchInsightsFilters x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep SearchInsightsFilters x -> SearchInsightsFilters
$cfrom :: forall x. SearchInsightsFilters -> Rep SearchInsightsFilters x
Prelude.Generic)

-- |
-- Create a value of 'SearchInsightsFilters' 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:
--
-- 'resourceCollection', 'searchInsightsFilters_resourceCollection' - Undocumented member.
--
-- 'serviceCollection', 'searchInsightsFilters_serviceCollection' - A collection of the names of Amazon Web Services services.
--
-- 'severities', 'searchInsightsFilters_severities' - An array of severity values used to search for insights.
--
-- 'statuses', 'searchInsightsFilters_statuses' - An array of status values used to search for insights.
newSearchInsightsFilters ::
  SearchInsightsFilters
newSearchInsightsFilters :: SearchInsightsFilters
newSearchInsightsFilters =
  SearchInsightsFilters'
    { $sel:resourceCollection:SearchInsightsFilters' :: Maybe ResourceCollection
resourceCollection =
        forall a. Maybe a
Prelude.Nothing,
      $sel:serviceCollection:SearchInsightsFilters' :: Maybe ServiceCollection
serviceCollection = forall a. Maybe a
Prelude.Nothing,
      $sel:severities:SearchInsightsFilters' :: Maybe [InsightSeverity]
severities = forall a. Maybe a
Prelude.Nothing,
      $sel:statuses:SearchInsightsFilters' :: Maybe [InsightStatus]
statuses = forall a. Maybe a
Prelude.Nothing
    }

-- | Undocumented member.
searchInsightsFilters_resourceCollection :: Lens.Lens' SearchInsightsFilters (Prelude.Maybe ResourceCollection)
searchInsightsFilters_resourceCollection :: Lens' SearchInsightsFilters (Maybe ResourceCollection)
searchInsightsFilters_resourceCollection = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SearchInsightsFilters' {Maybe ResourceCollection
resourceCollection :: Maybe ResourceCollection
$sel:resourceCollection:SearchInsightsFilters' :: SearchInsightsFilters -> Maybe ResourceCollection
resourceCollection} -> Maybe ResourceCollection
resourceCollection) (\s :: SearchInsightsFilters
s@SearchInsightsFilters' {} Maybe ResourceCollection
a -> SearchInsightsFilters
s {$sel:resourceCollection:SearchInsightsFilters' :: Maybe ResourceCollection
resourceCollection = Maybe ResourceCollection
a} :: SearchInsightsFilters)

-- | A collection of the names of Amazon Web Services services.
searchInsightsFilters_serviceCollection :: Lens.Lens' SearchInsightsFilters (Prelude.Maybe ServiceCollection)
searchInsightsFilters_serviceCollection :: Lens' SearchInsightsFilters (Maybe ServiceCollection)
searchInsightsFilters_serviceCollection = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SearchInsightsFilters' {Maybe ServiceCollection
serviceCollection :: Maybe ServiceCollection
$sel:serviceCollection:SearchInsightsFilters' :: SearchInsightsFilters -> Maybe ServiceCollection
serviceCollection} -> Maybe ServiceCollection
serviceCollection) (\s :: SearchInsightsFilters
s@SearchInsightsFilters' {} Maybe ServiceCollection
a -> SearchInsightsFilters
s {$sel:serviceCollection:SearchInsightsFilters' :: Maybe ServiceCollection
serviceCollection = Maybe ServiceCollection
a} :: SearchInsightsFilters)

-- | An array of severity values used to search for insights.
searchInsightsFilters_severities :: Lens.Lens' SearchInsightsFilters (Prelude.Maybe [InsightSeverity])
searchInsightsFilters_severities :: Lens' SearchInsightsFilters (Maybe [InsightSeverity])
searchInsightsFilters_severities = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SearchInsightsFilters' {Maybe [InsightSeverity]
severities :: Maybe [InsightSeverity]
$sel:severities:SearchInsightsFilters' :: SearchInsightsFilters -> Maybe [InsightSeverity]
severities} -> Maybe [InsightSeverity]
severities) (\s :: SearchInsightsFilters
s@SearchInsightsFilters' {} Maybe [InsightSeverity]
a -> SearchInsightsFilters
s {$sel:severities:SearchInsightsFilters' :: Maybe [InsightSeverity]
severities = Maybe [InsightSeverity]
a} :: SearchInsightsFilters) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced

-- | An array of status values used to search for insights.
searchInsightsFilters_statuses :: Lens.Lens' SearchInsightsFilters (Prelude.Maybe [InsightStatus])
searchInsightsFilters_statuses :: Lens' SearchInsightsFilters (Maybe [InsightStatus])
searchInsightsFilters_statuses = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SearchInsightsFilters' {Maybe [InsightStatus]
statuses :: Maybe [InsightStatus]
$sel:statuses:SearchInsightsFilters' :: SearchInsightsFilters -> Maybe [InsightStatus]
statuses} -> Maybe [InsightStatus]
statuses) (\s :: SearchInsightsFilters
s@SearchInsightsFilters' {} Maybe [InsightStatus]
a -> SearchInsightsFilters
s {$sel:statuses:SearchInsightsFilters' :: Maybe [InsightStatus]
statuses = Maybe [InsightStatus]
a} :: SearchInsightsFilters) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced

instance Prelude.Hashable SearchInsightsFilters where
  hashWithSalt :: Int -> SearchInsightsFilters -> Int
hashWithSalt Int
_salt SearchInsightsFilters' {Maybe [InsightSeverity]
Maybe [InsightStatus]
Maybe ServiceCollection
Maybe ResourceCollection
statuses :: Maybe [InsightStatus]
severities :: Maybe [InsightSeverity]
serviceCollection :: Maybe ServiceCollection
resourceCollection :: Maybe ResourceCollection
$sel:statuses:SearchInsightsFilters' :: SearchInsightsFilters -> Maybe [InsightStatus]
$sel:severities:SearchInsightsFilters' :: SearchInsightsFilters -> Maybe [InsightSeverity]
$sel:serviceCollection:SearchInsightsFilters' :: SearchInsightsFilters -> Maybe ServiceCollection
$sel:resourceCollection:SearchInsightsFilters' :: SearchInsightsFilters -> Maybe ResourceCollection
..} =
    Int
_salt
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe ResourceCollection
resourceCollection
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe ServiceCollection
serviceCollection
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [InsightSeverity]
severities
      forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [InsightStatus]
statuses

instance Prelude.NFData SearchInsightsFilters where
  rnf :: SearchInsightsFilters -> ()
rnf SearchInsightsFilters' {Maybe [InsightSeverity]
Maybe [InsightStatus]
Maybe ServiceCollection
Maybe ResourceCollection
statuses :: Maybe [InsightStatus]
severities :: Maybe [InsightSeverity]
serviceCollection :: Maybe ServiceCollection
resourceCollection :: Maybe ResourceCollection
$sel:statuses:SearchInsightsFilters' :: SearchInsightsFilters -> Maybe [InsightStatus]
$sel:severities:SearchInsightsFilters' :: SearchInsightsFilters -> Maybe [InsightSeverity]
$sel:serviceCollection:SearchInsightsFilters' :: SearchInsightsFilters -> Maybe ServiceCollection
$sel:resourceCollection:SearchInsightsFilters' :: SearchInsightsFilters -> Maybe ResourceCollection
..} =
    forall a. NFData a => a -> ()
Prelude.rnf Maybe ResourceCollection
resourceCollection
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe ServiceCollection
serviceCollection
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [InsightSeverity]
severities
      seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [InsightStatus]
statuses

instance Data.ToJSON SearchInsightsFilters where
  toJSON :: SearchInsightsFilters -> Value
toJSON SearchInsightsFilters' {Maybe [InsightSeverity]
Maybe [InsightStatus]
Maybe ServiceCollection
Maybe ResourceCollection
statuses :: Maybe [InsightStatus]
severities :: Maybe [InsightSeverity]
serviceCollection :: Maybe ServiceCollection
resourceCollection :: Maybe ResourceCollection
$sel:statuses:SearchInsightsFilters' :: SearchInsightsFilters -> Maybe [InsightStatus]
$sel:severities:SearchInsightsFilters' :: SearchInsightsFilters -> Maybe [InsightSeverity]
$sel:serviceCollection:SearchInsightsFilters' :: SearchInsightsFilters -> Maybe ServiceCollection
$sel:resourceCollection:SearchInsightsFilters' :: SearchInsightsFilters -> Maybe ResourceCollection
..} =
    [Pair] -> Value
Data.object
      ( forall a. [Maybe a] -> [a]
Prelude.catMaybes
          [ (Key
"ResourceCollection" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
              forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe ResourceCollection
resourceCollection,
            (Key
"ServiceCollection" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
              forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe ServiceCollection
serviceCollection,
            (Key
"Severities" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [InsightSeverity]
severities,
            (Key
"Statuses" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [InsightStatus]
statuses
          ]
      )