{-# 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.ListVirtualMFADevices
(
ListVirtualMFADevices (..),
newListVirtualMFADevices,
listVirtualMFADevices_assignmentStatus,
listVirtualMFADevices_marker,
listVirtualMFADevices_maxItems,
ListVirtualMFADevicesResponse (..),
newListVirtualMFADevicesResponse,
listVirtualMFADevicesResponse_isTruncated,
listVirtualMFADevicesResponse_marker,
listVirtualMFADevicesResponse_httpStatus,
listVirtualMFADevicesResponse_virtualMFADevices,
)
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 ListVirtualMFADevices = ListVirtualMFADevices'
{
ListVirtualMFADevices -> Maybe AssignmentStatusType
assignmentStatus :: Prelude.Maybe AssignmentStatusType,
ListVirtualMFADevices -> Maybe Text
marker :: Prelude.Maybe Prelude.Text,
ListVirtualMFADevices -> Maybe Natural
maxItems :: Prelude.Maybe Prelude.Natural
}
deriving (ListVirtualMFADevices -> ListVirtualMFADevices -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListVirtualMFADevices -> ListVirtualMFADevices -> Bool
$c/= :: ListVirtualMFADevices -> ListVirtualMFADevices -> Bool
== :: ListVirtualMFADevices -> ListVirtualMFADevices -> Bool
$c== :: ListVirtualMFADevices -> ListVirtualMFADevices -> Bool
Prelude.Eq, ReadPrec [ListVirtualMFADevices]
ReadPrec ListVirtualMFADevices
Int -> ReadS ListVirtualMFADevices
ReadS [ListVirtualMFADevices]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [ListVirtualMFADevices]
$creadListPrec :: ReadPrec [ListVirtualMFADevices]
readPrec :: ReadPrec ListVirtualMFADevices
$creadPrec :: ReadPrec ListVirtualMFADevices
readList :: ReadS [ListVirtualMFADevices]
$creadList :: ReadS [ListVirtualMFADevices]
readsPrec :: Int -> ReadS ListVirtualMFADevices
$creadsPrec :: Int -> ReadS ListVirtualMFADevices
Prelude.Read, Int -> ListVirtualMFADevices -> ShowS
[ListVirtualMFADevices] -> ShowS
ListVirtualMFADevices -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListVirtualMFADevices] -> ShowS
$cshowList :: [ListVirtualMFADevices] -> ShowS
show :: ListVirtualMFADevices -> String
$cshow :: ListVirtualMFADevices -> String
showsPrec :: Int -> ListVirtualMFADevices -> ShowS
$cshowsPrec :: Int -> ListVirtualMFADevices -> ShowS
Prelude.Show, forall x. Rep ListVirtualMFADevices x -> ListVirtualMFADevices
forall x. ListVirtualMFADevices -> Rep ListVirtualMFADevices x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep ListVirtualMFADevices x -> ListVirtualMFADevices
$cfrom :: forall x. ListVirtualMFADevices -> Rep ListVirtualMFADevices x
Prelude.Generic)
newListVirtualMFADevices ::
ListVirtualMFADevices
newListVirtualMFADevices :: ListVirtualMFADevices
newListVirtualMFADevices =
ListVirtualMFADevices'
{ $sel:assignmentStatus:ListVirtualMFADevices' :: Maybe AssignmentStatusType
assignmentStatus =
forall a. Maybe a
Prelude.Nothing,
$sel:marker:ListVirtualMFADevices' :: Maybe Text
marker = forall a. Maybe a
Prelude.Nothing,
$sel:maxItems:ListVirtualMFADevices' :: Maybe Natural
maxItems = forall a. Maybe a
Prelude.Nothing
}
listVirtualMFADevices_assignmentStatus :: Lens.Lens' ListVirtualMFADevices (Prelude.Maybe AssignmentStatusType)
listVirtualMFADevices_assignmentStatus :: Lens' ListVirtualMFADevices (Maybe AssignmentStatusType)
listVirtualMFADevices_assignmentStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListVirtualMFADevices' {Maybe AssignmentStatusType
assignmentStatus :: Maybe AssignmentStatusType
$sel:assignmentStatus:ListVirtualMFADevices' :: ListVirtualMFADevices -> Maybe AssignmentStatusType
assignmentStatus} -> Maybe AssignmentStatusType
assignmentStatus) (\s :: ListVirtualMFADevices
s@ListVirtualMFADevices' {} Maybe AssignmentStatusType
a -> ListVirtualMFADevices
s {$sel:assignmentStatus:ListVirtualMFADevices' :: Maybe AssignmentStatusType
assignmentStatus = Maybe AssignmentStatusType
a} :: ListVirtualMFADevices)
listVirtualMFADevices_marker :: Lens.Lens' ListVirtualMFADevices (Prelude.Maybe Prelude.Text)
listVirtualMFADevices_marker :: Lens' ListVirtualMFADevices (Maybe Text)
listVirtualMFADevices_marker = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListVirtualMFADevices' {Maybe Text
marker :: Maybe Text
$sel:marker:ListVirtualMFADevices' :: ListVirtualMFADevices -> Maybe Text
marker} -> Maybe Text
marker) (\s :: ListVirtualMFADevices
s@ListVirtualMFADevices' {} Maybe Text
a -> ListVirtualMFADevices
s {$sel:marker:ListVirtualMFADevices' :: Maybe Text
marker = Maybe Text
a} :: ListVirtualMFADevices)
listVirtualMFADevices_maxItems :: Lens.Lens' ListVirtualMFADevices (Prelude.Maybe Prelude.Natural)
listVirtualMFADevices_maxItems :: Lens' ListVirtualMFADevices (Maybe Natural)
listVirtualMFADevices_maxItems = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListVirtualMFADevices' {Maybe Natural
maxItems :: Maybe Natural
$sel:maxItems:ListVirtualMFADevices' :: ListVirtualMFADevices -> Maybe Natural
maxItems} -> Maybe Natural
maxItems) (\s :: ListVirtualMFADevices
s@ListVirtualMFADevices' {} Maybe Natural
a -> ListVirtualMFADevices
s {$sel:maxItems:ListVirtualMFADevices' :: Maybe Natural
maxItems = Maybe Natural
a} :: ListVirtualMFADevices)
instance Core.AWSPager ListVirtualMFADevices where
page :: ListVirtualMFADevices
-> AWSResponse ListVirtualMFADevices -> Maybe ListVirtualMFADevices
page ListVirtualMFADevices
rq AWSResponse ListVirtualMFADevices
rs
| forall a. AWSTruncated a => a -> Bool
Core.stop
( AWSResponse ListVirtualMFADevices
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListVirtualMFADevicesResponse (Maybe Bool)
listVirtualMFADevicesResponse_isTruncated
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. Maybe a -> Bool
Prelude.isNothing
( AWSResponse ListVirtualMFADevices
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListVirtualMFADevicesResponse (Maybe Text)
listVirtualMFADevicesResponse_marker
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.$ ListVirtualMFADevices
rq
forall a b. a -> (a -> b) -> b
Prelude.& Lens' ListVirtualMFADevices (Maybe Text)
listVirtualMFADevices_marker
forall s t a b. ASetter s t a b -> b -> s -> t
Lens..~ AWSResponse ListVirtualMFADevices
rs
forall s a. s -> Getting (First a) s a -> Maybe a
Lens.^? Lens' ListVirtualMFADevicesResponse (Maybe Text)
listVirtualMFADevicesResponse_marker
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 ListVirtualMFADevices where
type
AWSResponse ListVirtualMFADevices =
ListVirtualMFADevicesResponse
request :: (Service -> Service)
-> ListVirtualMFADevices -> Request ListVirtualMFADevices
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 ListVirtualMFADevices
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse ListVirtualMFADevices)))
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
"ListVirtualMFADevicesResult"
( \Int
s ResponseHeaders
h [Node]
x ->
Maybe Bool
-> Maybe Text
-> Int
-> [VirtualMFADevice]
-> ListVirtualMFADevicesResponse
ListVirtualMFADevicesResponse'
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
"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
"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 (Maybe a)
Data..@? Text
"VirtualMFADevices"
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"
)
)
instance Prelude.Hashable ListVirtualMFADevices where
hashWithSalt :: Int -> ListVirtualMFADevices -> Int
hashWithSalt Int
_salt ListVirtualMFADevices' {Maybe Natural
Maybe Text
Maybe AssignmentStatusType
maxItems :: Maybe Natural
marker :: Maybe Text
assignmentStatus :: Maybe AssignmentStatusType
$sel:maxItems:ListVirtualMFADevices' :: ListVirtualMFADevices -> Maybe Natural
$sel:marker:ListVirtualMFADevices' :: ListVirtualMFADevices -> Maybe Text
$sel:assignmentStatus:ListVirtualMFADevices' :: ListVirtualMFADevices -> Maybe AssignmentStatusType
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe AssignmentStatusType
assignmentStatus
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
marker
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
maxItems
instance Prelude.NFData ListVirtualMFADevices where
rnf :: ListVirtualMFADevices -> ()
rnf ListVirtualMFADevices' {Maybe Natural
Maybe Text
Maybe AssignmentStatusType
maxItems :: Maybe Natural
marker :: Maybe Text
assignmentStatus :: Maybe AssignmentStatusType
$sel:maxItems:ListVirtualMFADevices' :: ListVirtualMFADevices -> Maybe Natural
$sel:marker:ListVirtualMFADevices' :: ListVirtualMFADevices -> Maybe Text
$sel:assignmentStatus:ListVirtualMFADevices' :: ListVirtualMFADevices -> Maybe AssignmentStatusType
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe AssignmentStatusType
assignmentStatus
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 Maybe Natural
maxItems
instance Data.ToHeaders ListVirtualMFADevices where
toHeaders :: ListVirtualMFADevices -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath ListVirtualMFADevices where
toPath :: ListVirtualMFADevices -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery ListVirtualMFADevices where
toQuery :: ListVirtualMFADevices -> QueryString
toQuery ListVirtualMFADevices' {Maybe Natural
Maybe Text
Maybe AssignmentStatusType
maxItems :: Maybe Natural
marker :: Maybe Text
assignmentStatus :: Maybe AssignmentStatusType
$sel:maxItems:ListVirtualMFADevices' :: ListVirtualMFADevices -> Maybe Natural
$sel:marker:ListVirtualMFADevices' :: ListVirtualMFADevices -> Maybe Text
$sel:assignmentStatus:ListVirtualMFADevices' :: ListVirtualMFADevices -> Maybe AssignmentStatusType
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"ListVirtualMFADevices" :: Prelude.ByteString),
ByteString
"Version"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2010-05-08" :: Prelude.ByteString),
ByteString
"AssignmentStatus" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe AssignmentStatusType
assignmentStatus,
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
]
data ListVirtualMFADevicesResponse = ListVirtualMFADevicesResponse'
{
ListVirtualMFADevicesResponse -> Maybe Bool
isTruncated :: Prelude.Maybe Prelude.Bool,
ListVirtualMFADevicesResponse -> Maybe Text
marker :: Prelude.Maybe Prelude.Text,
ListVirtualMFADevicesResponse -> Int
httpStatus :: Prelude.Int,
ListVirtualMFADevicesResponse -> [VirtualMFADevice]
virtualMFADevices :: [VirtualMFADevice]
}
deriving (ListVirtualMFADevicesResponse
-> ListVirtualMFADevicesResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: ListVirtualMFADevicesResponse
-> ListVirtualMFADevicesResponse -> Bool
$c/= :: ListVirtualMFADevicesResponse
-> ListVirtualMFADevicesResponse -> Bool
== :: ListVirtualMFADevicesResponse
-> ListVirtualMFADevicesResponse -> Bool
$c== :: ListVirtualMFADevicesResponse
-> ListVirtualMFADevicesResponse -> Bool
Prelude.Eq, Int -> ListVirtualMFADevicesResponse -> ShowS
[ListVirtualMFADevicesResponse] -> ShowS
ListVirtualMFADevicesResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [ListVirtualMFADevicesResponse] -> ShowS
$cshowList :: [ListVirtualMFADevicesResponse] -> ShowS
show :: ListVirtualMFADevicesResponse -> String
$cshow :: ListVirtualMFADevicesResponse -> String
showsPrec :: Int -> ListVirtualMFADevicesResponse -> ShowS
$cshowsPrec :: Int -> ListVirtualMFADevicesResponse -> ShowS
Prelude.Show, forall x.
Rep ListVirtualMFADevicesResponse x
-> ListVirtualMFADevicesResponse
forall x.
ListVirtualMFADevicesResponse
-> Rep ListVirtualMFADevicesResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep ListVirtualMFADevicesResponse x
-> ListVirtualMFADevicesResponse
$cfrom :: forall x.
ListVirtualMFADevicesResponse
-> Rep ListVirtualMFADevicesResponse x
Prelude.Generic)
newListVirtualMFADevicesResponse ::
Prelude.Int ->
ListVirtualMFADevicesResponse
newListVirtualMFADevicesResponse :: Int -> ListVirtualMFADevicesResponse
newListVirtualMFADevicesResponse Int
pHttpStatus_ =
ListVirtualMFADevicesResponse'
{ $sel:isTruncated:ListVirtualMFADevicesResponse' :: Maybe Bool
isTruncated =
forall a. Maybe a
Prelude.Nothing,
$sel:marker:ListVirtualMFADevicesResponse' :: Maybe Text
marker = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:ListVirtualMFADevicesResponse' :: Int
httpStatus = Int
pHttpStatus_,
$sel:virtualMFADevices:ListVirtualMFADevicesResponse' :: [VirtualMFADevice]
virtualMFADevices = forall a. Monoid a => a
Prelude.mempty
}
listVirtualMFADevicesResponse_isTruncated :: Lens.Lens' ListVirtualMFADevicesResponse (Prelude.Maybe Prelude.Bool)
listVirtualMFADevicesResponse_isTruncated :: Lens' ListVirtualMFADevicesResponse (Maybe Bool)
listVirtualMFADevicesResponse_isTruncated = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListVirtualMFADevicesResponse' {Maybe Bool
isTruncated :: Maybe Bool
$sel:isTruncated:ListVirtualMFADevicesResponse' :: ListVirtualMFADevicesResponse -> Maybe Bool
isTruncated} -> Maybe Bool
isTruncated) (\s :: ListVirtualMFADevicesResponse
s@ListVirtualMFADevicesResponse' {} Maybe Bool
a -> ListVirtualMFADevicesResponse
s {$sel:isTruncated:ListVirtualMFADevicesResponse' :: Maybe Bool
isTruncated = Maybe Bool
a} :: ListVirtualMFADevicesResponse)
listVirtualMFADevicesResponse_marker :: Lens.Lens' ListVirtualMFADevicesResponse (Prelude.Maybe Prelude.Text)
listVirtualMFADevicesResponse_marker :: Lens' ListVirtualMFADevicesResponse (Maybe Text)
listVirtualMFADevicesResponse_marker = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListVirtualMFADevicesResponse' {Maybe Text
marker :: Maybe Text
$sel:marker:ListVirtualMFADevicesResponse' :: ListVirtualMFADevicesResponse -> Maybe Text
marker} -> Maybe Text
marker) (\s :: ListVirtualMFADevicesResponse
s@ListVirtualMFADevicesResponse' {} Maybe Text
a -> ListVirtualMFADevicesResponse
s {$sel:marker:ListVirtualMFADevicesResponse' :: Maybe Text
marker = Maybe Text
a} :: ListVirtualMFADevicesResponse)
listVirtualMFADevicesResponse_httpStatus :: Lens.Lens' ListVirtualMFADevicesResponse Prelude.Int
listVirtualMFADevicesResponse_httpStatus :: Lens' ListVirtualMFADevicesResponse Int
listVirtualMFADevicesResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListVirtualMFADevicesResponse' {Int
httpStatus :: Int
$sel:httpStatus:ListVirtualMFADevicesResponse' :: ListVirtualMFADevicesResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: ListVirtualMFADevicesResponse
s@ListVirtualMFADevicesResponse' {} Int
a -> ListVirtualMFADevicesResponse
s {$sel:httpStatus:ListVirtualMFADevicesResponse' :: Int
httpStatus = Int
a} :: ListVirtualMFADevicesResponse)
listVirtualMFADevicesResponse_virtualMFADevices :: Lens.Lens' ListVirtualMFADevicesResponse [VirtualMFADevice]
listVirtualMFADevicesResponse_virtualMFADevices :: Lens' ListVirtualMFADevicesResponse [VirtualMFADevice]
listVirtualMFADevicesResponse_virtualMFADevices = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\ListVirtualMFADevicesResponse' {[VirtualMFADevice]
virtualMFADevices :: [VirtualMFADevice]
$sel:virtualMFADevices:ListVirtualMFADevicesResponse' :: ListVirtualMFADevicesResponse -> [VirtualMFADevice]
virtualMFADevices} -> [VirtualMFADevice]
virtualMFADevices) (\s :: ListVirtualMFADevicesResponse
s@ListVirtualMFADevicesResponse' {} [VirtualMFADevice]
a -> ListVirtualMFADevicesResponse
s {$sel:virtualMFADevices:ListVirtualMFADevicesResponse' :: [VirtualMFADevice]
virtualMFADevices = [VirtualMFADevice]
a} :: ListVirtualMFADevicesResponse) 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
instance Prelude.NFData ListVirtualMFADevicesResponse where
rnf :: ListVirtualMFADevicesResponse -> ()
rnf ListVirtualMFADevicesResponse' {Int
[VirtualMFADevice]
Maybe Bool
Maybe Text
virtualMFADevices :: [VirtualMFADevice]
httpStatus :: Int
marker :: Maybe Text
isTruncated :: Maybe Bool
$sel:virtualMFADevices:ListVirtualMFADevicesResponse' :: ListVirtualMFADevicesResponse -> [VirtualMFADevice]
$sel:httpStatus:ListVirtualMFADevicesResponse' :: ListVirtualMFADevicesResponse -> Int
$sel:marker:ListVirtualMFADevicesResponse' :: ListVirtualMFADevicesResponse -> Maybe Text
$sel:isTruncated:ListVirtualMFADevicesResponse' :: ListVirtualMFADevicesResponse -> Maybe Bool
..} =
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 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 [VirtualMFADevice]
virtualMFADevices