{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Amazonka.IoT.ListActiveViolations
(
ListActiveViolations (..),
newListActiveViolations,
listActiveViolations_behaviorCriteriaType,
listActiveViolations_listSuppressedAlerts,
listActiveViolations_maxResults,
listActiveViolations_nextToken,
listActiveViolations_securityProfileName,
listActiveViolations_thingName,
listActiveViolations_verificationState,
ListActiveViolationsResponse (..),
newListActiveViolationsResponse,
listActiveViolationsResponse_activeViolations,
listActiveViolationsResponse_nextToken,
listActiveViolationsResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.IoT.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data ListActiveViolations = ListActiveViolations'
{
ListActiveViolations -> Maybe BehaviorCriteriaType
behaviorCriteriaType :: Prelude.Maybe BehaviorCriteriaType,
ListActiveViolations -> Maybe Bool
listSuppressedAlerts :: Prelude.Maybe Prelude.Bool,
ListActiveViolations -> Maybe Natural
maxResults :: Prelude.Maybe Prelude.Natural,
ListActiveViolations -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
ListActiveViolations -> Maybe Text
securityProfileName :: Prelude.Maybe Prelude.Text,
ListActiveViolations -> Maybe Text
thingName :: Prelude.Maybe Prelude.Text,
ListActiveViolations -> Maybe VerificationState
verificationState :: Prelude.Maybe VerificationState
}
deriving (ListActiveViolations -> ListActiveViolations -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListActiveViolations -> ListActiveViolations -> Bool
$c/= :: ListActiveViolations -> ListActiveViolations -> Bool
== :: ListActiveViolations -> ListActiveViolations -> Bool
$c== :: ListActiveViolations -> ListActiveViolations -> Bool
Prelude.Eq, ReadPrec [ListActiveViolations]
ReadPrec ListActiveViolations
Int -> ReadS ListActiveViolations
ReadS [ListActiveViolations]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListActiveViolations]
$creadListPrec :: ReadPrec [ListActiveViolations]
readPrec :: ReadPrec ListActiveViolations
$creadPrec :: ReadPrec ListActiveViolations
readList :: ReadS [ListActiveViolations]
$creadList :: ReadS [ListActiveViolations]
readsPrec :: Int -> ReadS ListActiveViolations
$creadsPrec :: Int -> ReadS ListActiveViolations
Prelude.Read, Int -> ListActiveViolations -> ShowS
[ListActiveViolations] -> ShowS
ListActiveViolations -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListActiveViolations] -> ShowS
$cshowList :: [ListActiveViolations] -> ShowS
show :: ListActiveViolations -> String
$cshow :: ListActiveViolations -> String
showsPrec :: Int -> ListActiveViolations -> ShowS
$cshowsPrec :: Int -> ListActiveViolations -> ShowS
Prelude.Show, forall x. Rep ListActiveViolations x -> ListActiveViolations
forall x. ListActiveViolations -> Rep ListActiveViolations x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep ListActiveViolations x -> ListActiveViolations
$cfrom :: forall x. ListActiveViolations -> Rep ListActiveViolations x
Prelude.Generic)
newListActiveViolations ::
ListActiveViolations
newListActiveViolations :: ListActiveViolations
newListActiveViolations =
ListActiveViolations'
{ $sel:behaviorCriteriaType:ListActiveViolations' :: Maybe BehaviorCriteriaType
behaviorCriteriaType =
forall a. Maybe a
Prelude.Nothing,
$sel:listSuppressedAlerts:ListActiveViolations' :: Maybe Bool
listSuppressedAlerts = forall a. Maybe a
Prelude.Nothing,
$sel:maxResults:ListActiveViolations' :: Maybe Natural
maxResults = forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:ListActiveViolations' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:securityProfileName:ListActiveViolations' :: Maybe Text
securityProfileName = forall a. Maybe a
Prelude.Nothing,
$sel:thingName:ListActiveViolations' :: Maybe Text
thingName = forall a. Maybe a
Prelude.Nothing,
$sel:verificationState:ListActiveViolations' :: Maybe VerificationState
verificationState = forall a. Maybe a
Prelude.Nothing
}
listActiveViolations_behaviorCriteriaType :: Lens.Lens' ListActiveViolations (Prelude.Maybe BehaviorCriteriaType)
listActiveViolations_behaviorCriteriaType :: Lens' ListActiveViolations (Maybe BehaviorCriteriaType)
listActiveViolations_behaviorCriteriaType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListActiveViolations' {Maybe BehaviorCriteriaType
behaviorCriteriaType :: Maybe BehaviorCriteriaType
$sel:behaviorCriteriaType:ListActiveViolations' :: ListActiveViolations -> Maybe BehaviorCriteriaType
behaviorCriteriaType} -> Maybe BehaviorCriteriaType
behaviorCriteriaType) (\s :: ListActiveViolations
s@ListActiveViolations' {} Maybe BehaviorCriteriaType
a -> ListActiveViolations
s {$sel:behaviorCriteriaType:ListActiveViolations' :: Maybe BehaviorCriteriaType
behaviorCriteriaType = Maybe BehaviorCriteriaType
a} :: ListActiveViolations)
listActiveViolations_listSuppressedAlerts :: Lens.Lens' ListActiveViolations (Prelude.Maybe Prelude.Bool)
listActiveViolations_listSuppressedAlerts :: Lens' ListActiveViolations (Maybe Bool)
listActiveViolations_listSuppressedAlerts = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListActiveViolations' {Maybe Bool
listSuppressedAlerts :: Maybe Bool
$sel:listSuppressedAlerts:ListActiveViolations' :: ListActiveViolations -> Maybe Bool
listSuppressedAlerts} -> Maybe Bool
listSuppressedAlerts) (\s :: ListActiveViolations
s@ListActiveViolations' {} Maybe Bool
a -> ListActiveViolations
s {$sel:listSuppressedAlerts:ListActiveViolations' :: Maybe Bool
listSuppressedAlerts = Maybe Bool
a} :: ListActiveViolations)
listActiveViolations_maxResults :: Lens.Lens' ListActiveViolations (Prelude.Maybe Prelude.Natural)
listActiveViolations_maxResults :: Lens' ListActiveViolations (Maybe Natural)
listActiveViolations_maxResults = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListActiveViolations' {Maybe Natural
maxResults :: Maybe Natural
$sel:maxResults:ListActiveViolations' :: ListActiveViolations -> Maybe Natural
maxResults} -> Maybe Natural
maxResults) (\s :: ListActiveViolations
s@ListActiveViolations' {} Maybe Natural
a -> ListActiveViolations
s {$sel:maxResults:ListActiveViolations' :: Maybe Natural
maxResults = Maybe Natural
a} :: ListActiveViolations)
listActiveViolations_nextToken :: Lens.Lens' ListActiveViolations (Prelude.Maybe Prelude.Text)
listActiveViolations_nextToken :: Lens' ListActiveViolations (Maybe Text)
listActiveViolations_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListActiveViolations' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListActiveViolations' :: ListActiveViolations -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListActiveViolations
s@ListActiveViolations' {} Maybe Text
a -> ListActiveViolations
s {$sel:nextToken:ListActiveViolations' :: Maybe Text
nextToken = Maybe Text
a} :: ListActiveViolations)
listActiveViolations_securityProfileName :: Lens.Lens' ListActiveViolations (Prelude.Maybe Prelude.Text)
listActiveViolations_securityProfileName :: Lens' ListActiveViolations (Maybe Text)
listActiveViolations_securityProfileName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListActiveViolations' {Maybe Text
securityProfileName :: Maybe Text
$sel:securityProfileName:ListActiveViolations' :: ListActiveViolations -> Maybe Text
securityProfileName} -> Maybe Text
securityProfileName) (\s :: ListActiveViolations
s@ListActiveViolations' {} Maybe Text
a -> ListActiveViolations
s {$sel:securityProfileName:ListActiveViolations' :: Maybe Text
securityProfileName = Maybe Text
a} :: ListActiveViolations)
listActiveViolations_thingName :: Lens.Lens' ListActiveViolations (Prelude.Maybe Prelude.Text)
listActiveViolations_thingName :: Lens' ListActiveViolations (Maybe Text)
listActiveViolations_thingName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListActiveViolations' {Maybe Text
thingName :: Maybe Text
$sel:thingName:ListActiveViolations' :: ListActiveViolations -> Maybe Text
thingName} -> Maybe Text
thingName) (\s :: ListActiveViolations
s@ListActiveViolations' {} Maybe Text
a -> ListActiveViolations
s {$sel:thingName:ListActiveViolations' :: Maybe Text
thingName = Maybe Text
a} :: ListActiveViolations)
listActiveViolations_verificationState :: Lens.Lens' ListActiveViolations (Prelude.Maybe VerificationState)
listActiveViolations_verificationState :: Lens' ListActiveViolations (Maybe VerificationState)
listActiveViolations_verificationState = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListActiveViolations' {Maybe VerificationState
verificationState :: Maybe VerificationState
$sel:verificationState:ListActiveViolations' :: ListActiveViolations -> Maybe VerificationState
verificationState} -> Maybe VerificationState
verificationState) (\s :: ListActiveViolations
s@ListActiveViolations' {} Maybe VerificationState
a -> ListActiveViolations
s {$sel:verificationState:ListActiveViolations' :: Maybe VerificationState
verificationState = Maybe VerificationState
a} :: ListActiveViolations)
instance Core.AWSPager ListActiveViolations where
page :: ListActiveViolations
-> AWSResponse ListActiveViolations -> Maybe ListActiveViolations
page ListActiveViolations
rq AWSResponse ListActiveViolations
rs
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse ListActiveViolations
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListActiveViolationsResponse (Maybe Text)
listActiveViolationsResponse_nextToken
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
) =
forall a. Maybe a
Prelude.Nothing
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse ListActiveViolations
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListActiveViolationsResponse (Maybe [ActiveViolation])
listActiveViolationsResponse_activeViolations
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
) =
forall a. Maybe a
Prelude.Nothing
| Bool
Prelude.otherwise =
forall a. a -> Maybe a
Prelude.Just
forall a b. (a -> b) -> a -> b
Prelude.$ ListActiveViolations
rq
forall a b. a -> (a -> b) -> b
Prelude.& Lens' ListActiveViolations (Maybe Text)
listActiveViolations_nextToken
forall s t a b. ASetter s t a b -> b -> s -> t
Lens..~ AWSResponse ListActiveViolations
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListActiveViolationsResponse (Maybe Text)
listActiveViolationsResponse_nextToken
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall a b. Prism (Maybe a) (Maybe b) a b
Lens._Just
instance Core.AWSRequest ListActiveViolations where
type
AWSResponse ListActiveViolations =
ListActiveViolationsResponse
request :: (Service -> Service)
-> ListActiveViolations -> Request ListActiveViolations
request Service -> Service
overrides =
forall a. ToRequest a => Service -> a -> Request a
Request.get (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy ListActiveViolations
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse ListActiveViolations)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> Object -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveJSON
( \Int
s ResponseHeaders
h Object
x ->
Maybe [ActiveViolation]
-> Maybe Text -> Int -> ListActiveViolationsResponse
ListActiveViolationsResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> ( Object
x
forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"activeViolations"
forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ forall a. Monoid a => a
Prelude.mempty
)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"nextToken")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
)
instance Prelude.Hashable ListActiveViolations where
hashWithSalt :: Int -> ListActiveViolations -> Int
hashWithSalt Int
_salt ListActiveViolations' {Maybe Bool
Maybe Natural
Maybe Text
Maybe BehaviorCriteriaType
Maybe VerificationState
verificationState :: Maybe VerificationState
thingName :: Maybe Text
securityProfileName :: Maybe Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
listSuppressedAlerts :: Maybe Bool
behaviorCriteriaType :: Maybe BehaviorCriteriaType
$sel:verificationState:ListActiveViolations' :: ListActiveViolations -> Maybe VerificationState
$sel:thingName:ListActiveViolations' :: ListActiveViolations -> Maybe Text
$sel:securityProfileName:ListActiveViolations' :: ListActiveViolations -> Maybe Text
$sel:nextToken:ListActiveViolations' :: ListActiveViolations -> Maybe Text
$sel:maxResults:ListActiveViolations' :: ListActiveViolations -> Maybe Natural
$sel:listSuppressedAlerts:ListActiveViolations' :: ListActiveViolations -> Maybe Bool
$sel:behaviorCriteriaType:ListActiveViolations' :: ListActiveViolations -> Maybe BehaviorCriteriaType
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe BehaviorCriteriaType
behaviorCriteriaType
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
listSuppressedAlerts
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
maxResults
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
nextToken
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
securityProfileName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
thingName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe VerificationState
verificationState
instance Prelude.NFData ListActiveViolations where
rnf :: ListActiveViolations -> ()
rnf ListActiveViolations' {Maybe Bool
Maybe Natural
Maybe Text
Maybe BehaviorCriteriaType
Maybe VerificationState
verificationState :: Maybe VerificationState
thingName :: Maybe Text
securityProfileName :: Maybe Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
listSuppressedAlerts :: Maybe Bool
behaviorCriteriaType :: Maybe BehaviorCriteriaType
$sel:verificationState:ListActiveViolations' :: ListActiveViolations -> Maybe VerificationState
$sel:thingName:ListActiveViolations' :: ListActiveViolations -> Maybe Text
$sel:securityProfileName:ListActiveViolations' :: ListActiveViolations -> Maybe Text
$sel:nextToken:ListActiveViolations' :: ListActiveViolations -> Maybe Text
$sel:maxResults:ListActiveViolations' :: ListActiveViolations -> Maybe Natural
$sel:listSuppressedAlerts:ListActiveViolations' :: ListActiveViolations -> Maybe Bool
$sel:behaviorCriteriaType:ListActiveViolations' :: ListActiveViolations -> Maybe BehaviorCriteriaType
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe BehaviorCriteriaType
behaviorCriteriaType
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
listSuppressedAlerts
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Natural
maxResults
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
nextToken
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
securityProfileName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
thingName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe VerificationState
verificationState
instance Data.ToHeaders ListActiveViolations where
toHeaders :: ListActiveViolations -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath ListActiveViolations where
toPath :: ListActiveViolations -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/active-violations"
instance Data.ToQuery ListActiveViolations where
toQuery :: ListActiveViolations -> QueryString
toQuery ListActiveViolations' {Maybe Bool
Maybe Natural
Maybe Text
Maybe BehaviorCriteriaType
Maybe VerificationState
verificationState :: Maybe VerificationState
thingName :: Maybe Text
securityProfileName :: Maybe Text
nextToken :: Maybe Text
maxResults :: Maybe Natural
listSuppressedAlerts :: Maybe Bool
behaviorCriteriaType :: Maybe BehaviorCriteriaType
$sel:verificationState:ListActiveViolations' :: ListActiveViolations -> Maybe VerificationState
$sel:thingName:ListActiveViolations' :: ListActiveViolations -> Maybe Text
$sel:securityProfileName:ListActiveViolations' :: ListActiveViolations -> Maybe Text
$sel:nextToken:ListActiveViolations' :: ListActiveViolations -> Maybe Text
$sel:maxResults:ListActiveViolations' :: ListActiveViolations -> Maybe Natural
$sel:listSuppressedAlerts:ListActiveViolations' :: ListActiveViolations -> Maybe Bool
$sel:behaviorCriteriaType:ListActiveViolations' :: ListActiveViolations -> Maybe BehaviorCriteriaType
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"behaviorCriteriaType" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe BehaviorCriteriaType
behaviorCriteriaType,
ByteString
"listSuppressedAlerts" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Bool
listSuppressedAlerts,
ByteString
"maxResults" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Natural
maxResults,
ByteString
"nextToken" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
nextToken,
ByteString
"securityProfileName" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
securityProfileName,
ByteString
"thingName" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
thingName,
ByteString
"verificationState" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe VerificationState
verificationState
]
data ListActiveViolationsResponse = ListActiveViolationsResponse'
{
ListActiveViolationsResponse -> Maybe [ActiveViolation]
activeViolations :: Prelude.Maybe [ActiveViolation],
ListActiveViolationsResponse -> Maybe Text
nextToken :: Prelude.Maybe Prelude.Text,
ListActiveViolationsResponse -> Int
httpStatus :: Prelude.Int
}
deriving (ListActiveViolationsResponse
-> ListActiveViolationsResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListActiveViolationsResponse
-> ListActiveViolationsResponse -> Bool
$c/= :: ListActiveViolationsResponse
-> ListActiveViolationsResponse -> Bool
== :: ListActiveViolationsResponse
-> ListActiveViolationsResponse -> Bool
$c== :: ListActiveViolationsResponse
-> ListActiveViolationsResponse -> Bool
Prelude.Eq, ReadPrec [ListActiveViolationsResponse]
ReadPrec ListActiveViolationsResponse
Int -> ReadS ListActiveViolationsResponse
ReadS [ListActiveViolationsResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListActiveViolationsResponse]
$creadListPrec :: ReadPrec [ListActiveViolationsResponse]
readPrec :: ReadPrec ListActiveViolationsResponse
$creadPrec :: ReadPrec ListActiveViolationsResponse
readList :: ReadS [ListActiveViolationsResponse]
$creadList :: ReadS [ListActiveViolationsResponse]
readsPrec :: Int -> ReadS ListActiveViolationsResponse
$creadsPrec :: Int -> ReadS ListActiveViolationsResponse
Prelude.Read, Int -> ListActiveViolationsResponse -> ShowS
[ListActiveViolationsResponse] -> ShowS
ListActiveViolationsResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListActiveViolationsResponse] -> ShowS
$cshowList :: [ListActiveViolationsResponse] -> ShowS
show :: ListActiveViolationsResponse -> String
$cshow :: ListActiveViolationsResponse -> String
showsPrec :: Int -> ListActiveViolationsResponse -> ShowS
$cshowsPrec :: Int -> ListActiveViolationsResponse -> ShowS
Prelude.Show, forall x.
Rep ListActiveViolationsResponse x -> ListActiveViolationsResponse
forall x.
ListActiveViolationsResponse -> Rep ListActiveViolationsResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ListActiveViolationsResponse x -> ListActiveViolationsResponse
$cfrom :: forall x.
ListActiveViolationsResponse -> Rep ListActiveViolationsResponse x
Prelude.Generic)
newListActiveViolationsResponse ::
Prelude.Int ->
ListActiveViolationsResponse
newListActiveViolationsResponse :: Int -> ListActiveViolationsResponse
newListActiveViolationsResponse Int
pHttpStatus_ =
ListActiveViolationsResponse'
{ $sel:activeViolations:ListActiveViolationsResponse' :: Maybe [ActiveViolation]
activeViolations =
forall a. Maybe a
Prelude.Nothing,
$sel:nextToken:ListActiveViolationsResponse' :: Maybe Text
nextToken = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:ListActiveViolationsResponse' :: Int
httpStatus = Int
pHttpStatus_
}
listActiveViolationsResponse_activeViolations :: Lens.Lens' ListActiveViolationsResponse (Prelude.Maybe [ActiveViolation])
listActiveViolationsResponse_activeViolations :: Lens' ListActiveViolationsResponse (Maybe [ActiveViolation])
listActiveViolationsResponse_activeViolations = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListActiveViolationsResponse' {Maybe [ActiveViolation]
activeViolations :: Maybe [ActiveViolation]
$sel:activeViolations:ListActiveViolationsResponse' :: ListActiveViolationsResponse -> Maybe [ActiveViolation]
activeViolations} -> Maybe [ActiveViolation]
activeViolations) (\s :: ListActiveViolationsResponse
s@ListActiveViolationsResponse' {} Maybe [ActiveViolation]
a -> ListActiveViolationsResponse
s {$sel:activeViolations:ListActiveViolationsResponse' :: Maybe [ActiveViolation]
activeViolations = Maybe [ActiveViolation]
a} :: ListActiveViolationsResponse) 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
listActiveViolationsResponse_nextToken :: Lens.Lens' ListActiveViolationsResponse (Prelude.Maybe Prelude.Text)
listActiveViolationsResponse_nextToken :: Lens' ListActiveViolationsResponse (Maybe Text)
listActiveViolationsResponse_nextToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListActiveViolationsResponse' {Maybe Text
nextToken :: Maybe Text
$sel:nextToken:ListActiveViolationsResponse' :: ListActiveViolationsResponse -> Maybe Text
nextToken} -> Maybe Text
nextToken) (\s :: ListActiveViolationsResponse
s@ListActiveViolationsResponse' {} Maybe Text
a -> ListActiveViolationsResponse
s {$sel:nextToken:ListActiveViolationsResponse' :: Maybe Text
nextToken = Maybe Text
a} :: ListActiveViolationsResponse)
listActiveViolationsResponse_httpStatus :: Lens.Lens' ListActiveViolationsResponse Prelude.Int
listActiveViolationsResponse_httpStatus :: Lens' ListActiveViolationsResponse Int
listActiveViolationsResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListActiveViolationsResponse' {Int
httpStatus :: Int
$sel:httpStatus:ListActiveViolationsResponse' :: ListActiveViolationsResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: ListActiveViolationsResponse
s@ListActiveViolationsResponse' {} Int
a -> ListActiveViolationsResponse
s {$sel:httpStatus:ListActiveViolationsResponse' :: Int
httpStatus = Int
a} :: ListActiveViolationsResponse)
instance Prelude.NFData ListActiveViolationsResponse where
rnf :: ListActiveViolationsResponse -> ()
rnf ListActiveViolationsResponse' {Int
Maybe [ActiveViolation]
Maybe Text
httpStatus :: Int
nextToken :: Maybe Text
activeViolations :: Maybe [ActiveViolation]
$sel:httpStatus:ListActiveViolationsResponse' :: ListActiveViolationsResponse -> Int
$sel:nextToken:ListActiveViolationsResponse' :: ListActiveViolationsResponse -> Maybe Text
$sel:activeViolations:ListActiveViolationsResponse' :: ListActiveViolationsResponse -> Maybe [ActiveViolation]
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe [ActiveViolation]
activeViolations
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
nextToken
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus