{-# 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.IAM.GetServiceLastAccessedDetails
(
GetServiceLastAccessedDetails (..),
newGetServiceLastAccessedDetails,
getServiceLastAccessedDetails_marker,
getServiceLastAccessedDetails_maxItems,
getServiceLastAccessedDetails_jobId,
GetServiceLastAccessedDetailsResponse (..),
newGetServiceLastAccessedDetailsResponse,
getServiceLastAccessedDetailsResponse_error,
getServiceLastAccessedDetailsResponse_isTruncated,
getServiceLastAccessedDetailsResponse_jobType,
getServiceLastAccessedDetailsResponse_marker,
getServiceLastAccessedDetailsResponse_httpStatus,
getServiceLastAccessedDetailsResponse_jobStatus,
getServiceLastAccessedDetailsResponse_jobCreationDate,
getServiceLastAccessedDetailsResponse_servicesLastAccessed,
getServiceLastAccessedDetailsResponse_jobCompletionDate,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.IAM.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data GetServiceLastAccessedDetails = GetServiceLastAccessedDetails'
{
GetServiceLastAccessedDetails -> Maybe Text
marker :: Prelude.Maybe Prelude.Text,
GetServiceLastAccessedDetails -> Maybe Natural
maxItems :: Prelude.Maybe Prelude.Natural,
GetServiceLastAccessedDetails -> Text
jobId :: Prelude.Text
}
deriving (GetServiceLastAccessedDetails
-> GetServiceLastAccessedDetails -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetServiceLastAccessedDetails
-> GetServiceLastAccessedDetails -> Bool
$c/= :: GetServiceLastAccessedDetails
-> GetServiceLastAccessedDetails -> Bool
== :: GetServiceLastAccessedDetails
-> GetServiceLastAccessedDetails -> Bool
$c== :: GetServiceLastAccessedDetails
-> GetServiceLastAccessedDetails -> Bool
Prelude.Eq, ReadPrec [GetServiceLastAccessedDetails]
ReadPrec GetServiceLastAccessedDetails
Int -> ReadS GetServiceLastAccessedDetails
ReadS [GetServiceLastAccessedDetails]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetServiceLastAccessedDetails]
$creadListPrec :: ReadPrec [GetServiceLastAccessedDetails]
readPrec :: ReadPrec GetServiceLastAccessedDetails
$creadPrec :: ReadPrec GetServiceLastAccessedDetails
readList :: ReadS [GetServiceLastAccessedDetails]
$creadList :: ReadS [GetServiceLastAccessedDetails]
readsPrec :: Int -> ReadS GetServiceLastAccessedDetails
$creadsPrec :: Int -> ReadS GetServiceLastAccessedDetails
Prelude.Read, Int -> GetServiceLastAccessedDetails -> ShowS
[GetServiceLastAccessedDetails] -> ShowS
GetServiceLastAccessedDetails -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetServiceLastAccessedDetails] -> ShowS
$cshowList :: [GetServiceLastAccessedDetails] -> ShowS
show :: GetServiceLastAccessedDetails -> String
$cshow :: GetServiceLastAccessedDetails -> String
showsPrec :: Int -> GetServiceLastAccessedDetails -> ShowS
$cshowsPrec :: Int -> GetServiceLastAccessedDetails -> ShowS
Prelude.Show, forall x.
Rep GetServiceLastAccessedDetails x
-> GetServiceLastAccessedDetails
forall x.
GetServiceLastAccessedDetails
-> Rep GetServiceLastAccessedDetails x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep GetServiceLastAccessedDetails x
-> GetServiceLastAccessedDetails
$cfrom :: forall x.
GetServiceLastAccessedDetails
-> Rep GetServiceLastAccessedDetails x
Prelude.Generic)
newGetServiceLastAccessedDetails ::
Prelude.Text ->
GetServiceLastAccessedDetails
newGetServiceLastAccessedDetails :: Text -> GetServiceLastAccessedDetails
newGetServiceLastAccessedDetails Text
pJobId_ =
GetServiceLastAccessedDetails'
{ $sel:marker:GetServiceLastAccessedDetails' :: Maybe Text
marker =
forall a. Maybe a
Prelude.Nothing,
$sel:maxItems:GetServiceLastAccessedDetails' :: Maybe Natural
maxItems = forall a. Maybe a
Prelude.Nothing,
$sel:jobId:GetServiceLastAccessedDetails' :: Text
jobId = Text
pJobId_
}
getServiceLastAccessedDetails_marker :: Lens.Lens' GetServiceLastAccessedDetails (Prelude.Maybe Prelude.Text)
getServiceLastAccessedDetails_marker :: Lens' GetServiceLastAccessedDetails (Maybe Text)
getServiceLastAccessedDetails_marker = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetServiceLastAccessedDetails' {Maybe Text
marker :: Maybe Text
$sel:marker:GetServiceLastAccessedDetails' :: GetServiceLastAccessedDetails -> Maybe Text
marker} -> Maybe Text
marker) (\s :: GetServiceLastAccessedDetails
s@GetServiceLastAccessedDetails' {} Maybe Text
a -> GetServiceLastAccessedDetails
s {$sel:marker:GetServiceLastAccessedDetails' :: Maybe Text
marker = Maybe Text
a} :: GetServiceLastAccessedDetails)
getServiceLastAccessedDetails_maxItems :: Lens.Lens' GetServiceLastAccessedDetails (Prelude.Maybe Prelude.Natural)
getServiceLastAccessedDetails_maxItems :: Lens' GetServiceLastAccessedDetails (Maybe Natural)
getServiceLastAccessedDetails_maxItems = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetServiceLastAccessedDetails' {Maybe Natural
maxItems :: Maybe Natural
$sel:maxItems:GetServiceLastAccessedDetails' :: GetServiceLastAccessedDetails -> Maybe Natural
maxItems} -> Maybe Natural
maxItems) (\s :: GetServiceLastAccessedDetails
s@GetServiceLastAccessedDetails' {} Maybe Natural
a -> GetServiceLastAccessedDetails
s {$sel:maxItems:GetServiceLastAccessedDetails' :: Maybe Natural
maxItems = Maybe Natural
a} :: GetServiceLastAccessedDetails)
getServiceLastAccessedDetails_jobId :: Lens.Lens' GetServiceLastAccessedDetails Prelude.Text
getServiceLastAccessedDetails_jobId :: Lens' GetServiceLastAccessedDetails Text
getServiceLastAccessedDetails_jobId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetServiceLastAccessedDetails' {Text
jobId :: Text
$sel:jobId:GetServiceLastAccessedDetails' :: GetServiceLastAccessedDetails -> Text
jobId} -> Text
jobId) (\s :: GetServiceLastAccessedDetails
s@GetServiceLastAccessedDetails' {} Text
a -> GetServiceLastAccessedDetails
s {$sel:jobId:GetServiceLastAccessedDetails' :: Text
jobId = Text
a} :: GetServiceLastAccessedDetails)
instance
Core.AWSRequest
GetServiceLastAccessedDetails
where
type
AWSResponse GetServiceLastAccessedDetails =
GetServiceLastAccessedDetailsResponse
request :: (Service -> Service)
-> GetServiceLastAccessedDetails
-> Request GetServiceLastAccessedDetails
request Service -> Service
overrides =
forall a. ToRequest a => Service -> a -> Request a
Request.postQuery (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy GetServiceLastAccessedDetails
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse GetServiceLastAccessedDetails)))
response =
forall (m :: * -> *) a.
MonadResource m =>
Text
-> (Int
-> ResponseHeaders -> [Node] -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveXMLWrapper
Text
"GetServiceLastAccessedDetailsResult"
( \Int
s ResponseHeaders
h [Node]
x ->
Maybe ErrorDetails
-> Maybe Bool
-> Maybe AccessAdvisorUsageGranularityType
-> Maybe Text
-> Int
-> JobStatusType
-> ISO8601
-> [ServiceLastAccessed]
-> ISO8601
-> GetServiceLastAccessedDetailsResponse
GetServiceLastAccessedDetailsResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"Error")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"IsTruncated")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"JobType")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"Marker")
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))
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String a
Data..@ Text
"JobStatus")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String a
Data..@ Text
"JobCreationDate")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ( [Node]
x
forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"ServicesLastAccessed"
forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ forall a. Monoid a => a
Prelude.mempty
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
Prelude.>>= forall a. FromXML a => Text -> [Node] -> Either String [a]
Data.parseXMLList Text
"member"
)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String a
Data..@ Text
"JobCompletionDate")
)
instance
Prelude.Hashable
GetServiceLastAccessedDetails
where
hashWithSalt :: Int -> GetServiceLastAccessedDetails -> Int
hashWithSalt Int
_salt GetServiceLastAccessedDetails' {Maybe Natural
Maybe Text
Text
jobId :: Text
maxItems :: Maybe Natural
marker :: Maybe Text
$sel:jobId:GetServiceLastAccessedDetails' :: GetServiceLastAccessedDetails -> Text
$sel:maxItems:GetServiceLastAccessedDetails' :: GetServiceLastAccessedDetails -> Maybe Natural
$sel:marker:GetServiceLastAccessedDetails' :: GetServiceLastAccessedDetails -> Maybe Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
marker
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
maxItems
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
jobId
instance Prelude.NFData GetServiceLastAccessedDetails where
rnf :: GetServiceLastAccessedDetails -> ()
rnf GetServiceLastAccessedDetails' {Maybe Natural
Maybe Text
Text
jobId :: Text
maxItems :: Maybe Natural
marker :: Maybe Text
$sel:jobId:GetServiceLastAccessedDetails' :: GetServiceLastAccessedDetails -> Text
$sel:maxItems:GetServiceLastAccessedDetails' :: GetServiceLastAccessedDetails -> Maybe Natural
$sel:marker:GetServiceLastAccessedDetails' :: GetServiceLastAccessedDetails -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
marker
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Natural
maxItems
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
jobId
instance Data.ToHeaders GetServiceLastAccessedDetails where
toHeaders :: GetServiceLastAccessedDetails -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath GetServiceLastAccessedDetails where
toPath :: GetServiceLastAccessedDetails -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery GetServiceLastAccessedDetails where
toQuery :: GetServiceLastAccessedDetails -> QueryString
toQuery GetServiceLastAccessedDetails' {Maybe Natural
Maybe Text
Text
jobId :: Text
maxItems :: Maybe Natural
marker :: Maybe Text
$sel:jobId:GetServiceLastAccessedDetails' :: GetServiceLastAccessedDetails -> Text
$sel:maxItems:GetServiceLastAccessedDetails' :: GetServiceLastAccessedDetails -> Maybe Natural
$sel:marker:GetServiceLastAccessedDetails' :: GetServiceLastAccessedDetails -> Maybe Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: ( ByteString
"GetServiceLastAccessedDetails" ::
Prelude.ByteString
),
ByteString
"Version"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2010-05-08" :: Prelude.ByteString),
ByteString
"Marker" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
marker,
ByteString
"MaxItems" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Natural
maxItems,
ByteString
"JobId" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
jobId
]
data GetServiceLastAccessedDetailsResponse = GetServiceLastAccessedDetailsResponse'
{
GetServiceLastAccessedDetailsResponse -> Maybe ErrorDetails
error :: Prelude.Maybe ErrorDetails,
GetServiceLastAccessedDetailsResponse -> Maybe Bool
isTruncated :: Prelude.Maybe Prelude.Bool,
GetServiceLastAccessedDetailsResponse
-> Maybe AccessAdvisorUsageGranularityType
jobType :: Prelude.Maybe AccessAdvisorUsageGranularityType,
GetServiceLastAccessedDetailsResponse -> Maybe Text
marker :: Prelude.Maybe Prelude.Text,
GetServiceLastAccessedDetailsResponse -> Int
httpStatus :: Prelude.Int,
GetServiceLastAccessedDetailsResponse -> JobStatusType
jobStatus :: JobStatusType,
GetServiceLastAccessedDetailsResponse -> ISO8601
jobCreationDate :: Data.ISO8601,
GetServiceLastAccessedDetailsResponse -> [ServiceLastAccessed]
servicesLastAccessed :: [ServiceLastAccessed],
GetServiceLastAccessedDetailsResponse -> ISO8601
jobCompletionDate :: Data.ISO8601
}
deriving (GetServiceLastAccessedDetailsResponse
-> GetServiceLastAccessedDetailsResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetServiceLastAccessedDetailsResponse
-> GetServiceLastAccessedDetailsResponse -> Bool
$c/= :: GetServiceLastAccessedDetailsResponse
-> GetServiceLastAccessedDetailsResponse -> Bool
== :: GetServiceLastAccessedDetailsResponse
-> GetServiceLastAccessedDetailsResponse -> Bool
$c== :: GetServiceLastAccessedDetailsResponse
-> GetServiceLastAccessedDetailsResponse -> Bool
Prelude.Eq, ReadPrec [GetServiceLastAccessedDetailsResponse]
ReadPrec GetServiceLastAccessedDetailsResponse
Int -> ReadS GetServiceLastAccessedDetailsResponse
ReadS [GetServiceLastAccessedDetailsResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetServiceLastAccessedDetailsResponse]
$creadListPrec :: ReadPrec [GetServiceLastAccessedDetailsResponse]
readPrec :: ReadPrec GetServiceLastAccessedDetailsResponse
$creadPrec :: ReadPrec GetServiceLastAccessedDetailsResponse
readList :: ReadS [GetServiceLastAccessedDetailsResponse]
$creadList :: ReadS [GetServiceLastAccessedDetailsResponse]
readsPrec :: Int -> ReadS GetServiceLastAccessedDetailsResponse
$creadsPrec :: Int -> ReadS GetServiceLastAccessedDetailsResponse
Prelude.Read, Int -> GetServiceLastAccessedDetailsResponse -> ShowS
[GetServiceLastAccessedDetailsResponse] -> ShowS
GetServiceLastAccessedDetailsResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetServiceLastAccessedDetailsResponse] -> ShowS
$cshowList :: [GetServiceLastAccessedDetailsResponse] -> ShowS
show :: GetServiceLastAccessedDetailsResponse -> String
$cshow :: GetServiceLastAccessedDetailsResponse -> String
showsPrec :: Int -> GetServiceLastAccessedDetailsResponse -> ShowS
$cshowsPrec :: Int -> GetServiceLastAccessedDetailsResponse -> ShowS
Prelude.Show, forall x.
Rep GetServiceLastAccessedDetailsResponse x
-> GetServiceLastAccessedDetailsResponse
forall x.
GetServiceLastAccessedDetailsResponse
-> Rep GetServiceLastAccessedDetailsResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep GetServiceLastAccessedDetailsResponse x
-> GetServiceLastAccessedDetailsResponse
$cfrom :: forall x.
GetServiceLastAccessedDetailsResponse
-> Rep GetServiceLastAccessedDetailsResponse x
Prelude.Generic)
newGetServiceLastAccessedDetailsResponse ::
Prelude.Int ->
JobStatusType ->
Prelude.UTCTime ->
Prelude.UTCTime ->
GetServiceLastAccessedDetailsResponse
newGetServiceLastAccessedDetailsResponse :: Int
-> JobStatusType
-> UTCTime
-> UTCTime
-> GetServiceLastAccessedDetailsResponse
newGetServiceLastAccessedDetailsResponse
Int
pHttpStatus_
JobStatusType
pJobStatus_
UTCTime
pJobCreationDate_
UTCTime
pJobCompletionDate_ =
GetServiceLastAccessedDetailsResponse'
{ $sel:error:GetServiceLastAccessedDetailsResponse' :: Maybe ErrorDetails
error =
forall a. Maybe a
Prelude.Nothing,
$sel:isTruncated:GetServiceLastAccessedDetailsResponse' :: Maybe Bool
isTruncated = forall a. Maybe a
Prelude.Nothing,
$sel:jobType:GetServiceLastAccessedDetailsResponse' :: Maybe AccessAdvisorUsageGranularityType
jobType = forall a. Maybe a
Prelude.Nothing,
$sel:marker:GetServiceLastAccessedDetailsResponse' :: Maybe Text
marker = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:GetServiceLastAccessedDetailsResponse' :: Int
httpStatus = Int
pHttpStatus_,
$sel:jobStatus:GetServiceLastAccessedDetailsResponse' :: JobStatusType
jobStatus = JobStatusType
pJobStatus_,
$sel:jobCreationDate:GetServiceLastAccessedDetailsResponse' :: ISO8601
jobCreationDate =
forall (a :: Format). Iso' (Time a) UTCTime
Data._Time
forall t b. AReview t b -> b -> t
Lens.# UTCTime
pJobCreationDate_,
$sel:servicesLastAccessed:GetServiceLastAccessedDetailsResponse' :: [ServiceLastAccessed]
servicesLastAccessed =
forall a. Monoid a => a
Prelude.mempty,
$sel:jobCompletionDate:GetServiceLastAccessedDetailsResponse' :: ISO8601
jobCompletionDate =
forall (a :: Format). Iso' (Time a) UTCTime
Data._Time
forall t b. AReview t b -> b -> t
Lens.# UTCTime
pJobCompletionDate_
}
getServiceLastAccessedDetailsResponse_error :: Lens.Lens' GetServiceLastAccessedDetailsResponse (Prelude.Maybe ErrorDetails)
getServiceLastAccessedDetailsResponse_error :: Lens' GetServiceLastAccessedDetailsResponse (Maybe ErrorDetails)
getServiceLastAccessedDetailsResponse_error = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetServiceLastAccessedDetailsResponse' {Maybe ErrorDetails
error :: Maybe ErrorDetails
$sel:error:GetServiceLastAccessedDetailsResponse' :: GetServiceLastAccessedDetailsResponse -> Maybe ErrorDetails
error} -> Maybe ErrorDetails
error) (\s :: GetServiceLastAccessedDetailsResponse
s@GetServiceLastAccessedDetailsResponse' {} Maybe ErrorDetails
a -> GetServiceLastAccessedDetailsResponse
s {$sel:error:GetServiceLastAccessedDetailsResponse' :: Maybe ErrorDetails
error = Maybe ErrorDetails
a} :: GetServiceLastAccessedDetailsResponse)
getServiceLastAccessedDetailsResponse_isTruncated :: Lens.Lens' GetServiceLastAccessedDetailsResponse (Prelude.Maybe Prelude.Bool)
getServiceLastAccessedDetailsResponse_isTruncated :: Lens' GetServiceLastAccessedDetailsResponse (Maybe Bool)
getServiceLastAccessedDetailsResponse_isTruncated = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetServiceLastAccessedDetailsResponse' {Maybe Bool
isTruncated :: Maybe Bool
$sel:isTruncated:GetServiceLastAccessedDetailsResponse' :: GetServiceLastAccessedDetailsResponse -> Maybe Bool
isTruncated} -> Maybe Bool
isTruncated) (\s :: GetServiceLastAccessedDetailsResponse
s@GetServiceLastAccessedDetailsResponse' {} Maybe Bool
a -> GetServiceLastAccessedDetailsResponse
s {$sel:isTruncated:GetServiceLastAccessedDetailsResponse' :: Maybe Bool
isTruncated = Maybe Bool
a} :: GetServiceLastAccessedDetailsResponse)
getServiceLastAccessedDetailsResponse_jobType :: Lens.Lens' GetServiceLastAccessedDetailsResponse (Prelude.Maybe AccessAdvisorUsageGranularityType)
getServiceLastAccessedDetailsResponse_jobType :: Lens'
GetServiceLastAccessedDetailsResponse
(Maybe AccessAdvisorUsageGranularityType)
getServiceLastAccessedDetailsResponse_jobType = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetServiceLastAccessedDetailsResponse' {Maybe AccessAdvisorUsageGranularityType
jobType :: Maybe AccessAdvisorUsageGranularityType
$sel:jobType:GetServiceLastAccessedDetailsResponse' :: GetServiceLastAccessedDetailsResponse
-> Maybe AccessAdvisorUsageGranularityType
jobType} -> Maybe AccessAdvisorUsageGranularityType
jobType) (\s :: GetServiceLastAccessedDetailsResponse
s@GetServiceLastAccessedDetailsResponse' {} Maybe AccessAdvisorUsageGranularityType
a -> GetServiceLastAccessedDetailsResponse
s {$sel:jobType:GetServiceLastAccessedDetailsResponse' :: Maybe AccessAdvisorUsageGranularityType
jobType = Maybe AccessAdvisorUsageGranularityType
a} :: GetServiceLastAccessedDetailsResponse)
getServiceLastAccessedDetailsResponse_marker :: Lens.Lens' GetServiceLastAccessedDetailsResponse (Prelude.Maybe Prelude.Text)
getServiceLastAccessedDetailsResponse_marker :: Lens' GetServiceLastAccessedDetailsResponse (Maybe Text)
getServiceLastAccessedDetailsResponse_marker = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetServiceLastAccessedDetailsResponse' {Maybe Text
marker :: Maybe Text
$sel:marker:GetServiceLastAccessedDetailsResponse' :: GetServiceLastAccessedDetailsResponse -> Maybe Text
marker} -> Maybe Text
marker) (\s :: GetServiceLastAccessedDetailsResponse
s@GetServiceLastAccessedDetailsResponse' {} Maybe Text
a -> GetServiceLastAccessedDetailsResponse
s {$sel:marker:GetServiceLastAccessedDetailsResponse' :: Maybe Text
marker = Maybe Text
a} :: GetServiceLastAccessedDetailsResponse)
getServiceLastAccessedDetailsResponse_httpStatus :: Lens.Lens' GetServiceLastAccessedDetailsResponse Prelude.Int
getServiceLastAccessedDetailsResponse_httpStatus :: Lens' GetServiceLastAccessedDetailsResponse Int
getServiceLastAccessedDetailsResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetServiceLastAccessedDetailsResponse' {Int
httpStatus :: Int
$sel:httpStatus:GetServiceLastAccessedDetailsResponse' :: GetServiceLastAccessedDetailsResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: GetServiceLastAccessedDetailsResponse
s@GetServiceLastAccessedDetailsResponse' {} Int
a -> GetServiceLastAccessedDetailsResponse
s {$sel:httpStatus:GetServiceLastAccessedDetailsResponse' :: Int
httpStatus = Int
a} :: GetServiceLastAccessedDetailsResponse)
getServiceLastAccessedDetailsResponse_jobStatus :: Lens.Lens' GetServiceLastAccessedDetailsResponse JobStatusType
getServiceLastAccessedDetailsResponse_jobStatus :: Lens' GetServiceLastAccessedDetailsResponse JobStatusType
getServiceLastAccessedDetailsResponse_jobStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetServiceLastAccessedDetailsResponse' {JobStatusType
jobStatus :: JobStatusType
$sel:jobStatus:GetServiceLastAccessedDetailsResponse' :: GetServiceLastAccessedDetailsResponse -> JobStatusType
jobStatus} -> JobStatusType
jobStatus) (\s :: GetServiceLastAccessedDetailsResponse
s@GetServiceLastAccessedDetailsResponse' {} JobStatusType
a -> GetServiceLastAccessedDetailsResponse
s {$sel:jobStatus:GetServiceLastAccessedDetailsResponse' :: JobStatusType
jobStatus = JobStatusType
a} :: GetServiceLastAccessedDetailsResponse)
getServiceLastAccessedDetailsResponse_jobCreationDate :: Lens.Lens' GetServiceLastAccessedDetailsResponse Prelude.UTCTime
getServiceLastAccessedDetailsResponse_jobCreationDate :: Lens' GetServiceLastAccessedDetailsResponse UTCTime
getServiceLastAccessedDetailsResponse_jobCreationDate = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetServiceLastAccessedDetailsResponse' {ISO8601
jobCreationDate :: ISO8601
$sel:jobCreationDate:GetServiceLastAccessedDetailsResponse' :: GetServiceLastAccessedDetailsResponse -> ISO8601
jobCreationDate} -> ISO8601
jobCreationDate) (\s :: GetServiceLastAccessedDetailsResponse
s@GetServiceLastAccessedDetailsResponse' {} ISO8601
a -> GetServiceLastAccessedDetailsResponse
s {$sel:jobCreationDate:GetServiceLastAccessedDetailsResponse' :: ISO8601
jobCreationDate = ISO8601
a} :: GetServiceLastAccessedDetailsResponse) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (a :: Format). Iso' (Time a) UTCTime
Data._Time
getServiceLastAccessedDetailsResponse_servicesLastAccessed :: Lens.Lens' GetServiceLastAccessedDetailsResponse [ServiceLastAccessed]
getServiceLastAccessedDetailsResponse_servicesLastAccessed :: Lens' GetServiceLastAccessedDetailsResponse [ServiceLastAccessed]
getServiceLastAccessedDetailsResponse_servicesLastAccessed = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetServiceLastAccessedDetailsResponse' {[ServiceLastAccessed]
servicesLastAccessed :: [ServiceLastAccessed]
$sel:servicesLastAccessed:GetServiceLastAccessedDetailsResponse' :: GetServiceLastAccessedDetailsResponse -> [ServiceLastAccessed]
servicesLastAccessed} -> [ServiceLastAccessed]
servicesLastAccessed) (\s :: GetServiceLastAccessedDetailsResponse
s@GetServiceLastAccessedDetailsResponse' {} [ServiceLastAccessed]
a -> GetServiceLastAccessedDetailsResponse
s {$sel:servicesLastAccessed:GetServiceLastAccessedDetailsResponse' :: [ServiceLastAccessed]
servicesLastAccessed = [ServiceLastAccessed]
a} :: GetServiceLastAccessedDetailsResponse) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
getServiceLastAccessedDetailsResponse_jobCompletionDate :: Lens.Lens' GetServiceLastAccessedDetailsResponse Prelude.UTCTime
getServiceLastAccessedDetailsResponse_jobCompletionDate :: Lens' GetServiceLastAccessedDetailsResponse UTCTime
getServiceLastAccessedDetailsResponse_jobCompletionDate = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetServiceLastAccessedDetailsResponse' {ISO8601
jobCompletionDate :: ISO8601
$sel:jobCompletionDate:GetServiceLastAccessedDetailsResponse' :: GetServiceLastAccessedDetailsResponse -> ISO8601
jobCompletionDate} -> ISO8601
jobCompletionDate) (\s :: GetServiceLastAccessedDetailsResponse
s@GetServiceLastAccessedDetailsResponse' {} ISO8601
a -> GetServiceLastAccessedDetailsResponse
s {$sel:jobCompletionDate:GetServiceLastAccessedDetailsResponse' :: ISO8601
jobCompletionDate = ISO8601
a} :: GetServiceLastAccessedDetailsResponse) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (a :: Format). Iso' (Time a) UTCTime
Data._Time
instance
Prelude.NFData
GetServiceLastAccessedDetailsResponse
where
rnf :: GetServiceLastAccessedDetailsResponse -> ()
rnf GetServiceLastAccessedDetailsResponse' {Int
[ServiceLastAccessed]
Maybe Bool
Maybe Text
Maybe AccessAdvisorUsageGranularityType
Maybe ErrorDetails
ISO8601
JobStatusType
jobCompletionDate :: ISO8601
servicesLastAccessed :: [ServiceLastAccessed]
jobCreationDate :: ISO8601
jobStatus :: JobStatusType
httpStatus :: Int
marker :: Maybe Text
jobType :: Maybe AccessAdvisorUsageGranularityType
isTruncated :: Maybe Bool
error :: Maybe ErrorDetails
$sel:jobCompletionDate:GetServiceLastAccessedDetailsResponse' :: GetServiceLastAccessedDetailsResponse -> ISO8601
$sel:servicesLastAccessed:GetServiceLastAccessedDetailsResponse' :: GetServiceLastAccessedDetailsResponse -> [ServiceLastAccessed]
$sel:jobCreationDate:GetServiceLastAccessedDetailsResponse' :: GetServiceLastAccessedDetailsResponse -> ISO8601
$sel:jobStatus:GetServiceLastAccessedDetailsResponse' :: GetServiceLastAccessedDetailsResponse -> JobStatusType
$sel:httpStatus:GetServiceLastAccessedDetailsResponse' :: GetServiceLastAccessedDetailsResponse -> Int
$sel:marker:GetServiceLastAccessedDetailsResponse' :: GetServiceLastAccessedDetailsResponse -> Maybe Text
$sel:jobType:GetServiceLastAccessedDetailsResponse' :: GetServiceLastAccessedDetailsResponse
-> Maybe AccessAdvisorUsageGranularityType
$sel:isTruncated:GetServiceLastAccessedDetailsResponse' :: GetServiceLastAccessedDetailsResponse -> Maybe Bool
$sel:error:GetServiceLastAccessedDetailsResponse' :: GetServiceLastAccessedDetailsResponse -> Maybe ErrorDetails
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe ErrorDetails
error
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
isTruncated
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe AccessAdvisorUsageGranularityType
jobType
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
marker
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf JobStatusType
jobStatus
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf ISO8601
jobCreationDate
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf [ServiceLastAccessed]
servicesLastAccessed
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf ISO8601
jobCompletionDate