{-# 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 #-}
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
data SearchInsightsFilters = SearchInsightsFilters'
{ SearchInsightsFilters -> Maybe ResourceCollection
resourceCollection :: Prelude.Maybe ResourceCollection,
SearchInsightsFilters -> Maybe ServiceCollection
serviceCollection :: Prelude.Maybe ServiceCollection,
SearchInsightsFilters -> Maybe [InsightSeverity]
severities :: Prelude.Maybe [InsightSeverity],
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)
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
}
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)
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)
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
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
]
)