{-# 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.EC2.DescribeKeyPairs
(
DescribeKeyPairs (..),
newDescribeKeyPairs,
describeKeyPairs_dryRun,
describeKeyPairs_filters,
describeKeyPairs_includePublicKey,
describeKeyPairs_keyNames,
describeKeyPairs_keyPairIds,
DescribeKeyPairsResponse (..),
newDescribeKeyPairsResponse,
describeKeyPairsResponse_keyPairs,
describeKeyPairsResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.EC2.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data DescribeKeyPairs = DescribeKeyPairs'
{
DescribeKeyPairs -> Maybe Bool
dryRun :: Prelude.Maybe Prelude.Bool,
DescribeKeyPairs -> Maybe [Filter]
filters :: Prelude.Maybe [Filter],
DescribeKeyPairs -> Maybe Bool
includePublicKey :: Prelude.Maybe Prelude.Bool,
DescribeKeyPairs -> Maybe [Text]
keyNames :: Prelude.Maybe [Prelude.Text],
DescribeKeyPairs -> Maybe [Text]
keyPairIds :: Prelude.Maybe [Prelude.Text]
}
deriving (DescribeKeyPairs -> DescribeKeyPairs -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeKeyPairs -> DescribeKeyPairs -> Bool
$c/= :: DescribeKeyPairs -> DescribeKeyPairs -> Bool
== :: DescribeKeyPairs -> DescribeKeyPairs -> Bool
$c== :: DescribeKeyPairs -> DescribeKeyPairs -> Bool
Prelude.Eq, ReadPrec [DescribeKeyPairs]
ReadPrec DescribeKeyPairs
Int -> ReadS DescribeKeyPairs
ReadS [DescribeKeyPairs]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeKeyPairs]
$creadListPrec :: ReadPrec [DescribeKeyPairs]
readPrec :: ReadPrec DescribeKeyPairs
$creadPrec :: ReadPrec DescribeKeyPairs
readList :: ReadS [DescribeKeyPairs]
$creadList :: ReadS [DescribeKeyPairs]
readsPrec :: Int -> ReadS DescribeKeyPairs
$creadsPrec :: Int -> ReadS DescribeKeyPairs
Prelude.Read, Int -> DescribeKeyPairs -> ShowS
[DescribeKeyPairs] -> ShowS
DescribeKeyPairs -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeKeyPairs] -> ShowS
$cshowList :: [DescribeKeyPairs] -> ShowS
show :: DescribeKeyPairs -> String
$cshow :: DescribeKeyPairs -> String
showsPrec :: Int -> DescribeKeyPairs -> ShowS
$cshowsPrec :: Int -> DescribeKeyPairs -> ShowS
Prelude.Show, forall x. Rep DescribeKeyPairs x -> DescribeKeyPairs
forall x. DescribeKeyPairs -> Rep DescribeKeyPairs x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DescribeKeyPairs x -> DescribeKeyPairs
$cfrom :: forall x. DescribeKeyPairs -> Rep DescribeKeyPairs x
Prelude.Generic)
newDescribeKeyPairs ::
DescribeKeyPairs
newDescribeKeyPairs :: DescribeKeyPairs
newDescribeKeyPairs =
DescribeKeyPairs'
{ $sel:dryRun:DescribeKeyPairs' :: Maybe Bool
dryRun = forall a. Maybe a
Prelude.Nothing,
$sel:filters:DescribeKeyPairs' :: Maybe [Filter]
filters = forall a. Maybe a
Prelude.Nothing,
$sel:includePublicKey:DescribeKeyPairs' :: Maybe Bool
includePublicKey = forall a. Maybe a
Prelude.Nothing,
$sel:keyNames:DescribeKeyPairs' :: Maybe [Text]
keyNames = forall a. Maybe a
Prelude.Nothing,
$sel:keyPairIds:DescribeKeyPairs' :: Maybe [Text]
keyPairIds = forall a. Maybe a
Prelude.Nothing
}
describeKeyPairs_dryRun :: Lens.Lens' DescribeKeyPairs (Prelude.Maybe Prelude.Bool)
describeKeyPairs_dryRun :: Lens' DescribeKeyPairs (Maybe Bool)
describeKeyPairs_dryRun = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeKeyPairs' {Maybe Bool
dryRun :: Maybe Bool
$sel:dryRun:DescribeKeyPairs' :: DescribeKeyPairs -> Maybe Bool
dryRun} -> Maybe Bool
dryRun) (\s :: DescribeKeyPairs
s@DescribeKeyPairs' {} Maybe Bool
a -> DescribeKeyPairs
s {$sel:dryRun:DescribeKeyPairs' :: Maybe Bool
dryRun = Maybe Bool
a} :: DescribeKeyPairs)
describeKeyPairs_filters :: Lens.Lens' DescribeKeyPairs (Prelude.Maybe [Filter])
describeKeyPairs_filters :: Lens' DescribeKeyPairs (Maybe [Filter])
describeKeyPairs_filters = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeKeyPairs' {Maybe [Filter]
filters :: Maybe [Filter]
$sel:filters:DescribeKeyPairs' :: DescribeKeyPairs -> Maybe [Filter]
filters} -> Maybe [Filter]
filters) (\s :: DescribeKeyPairs
s@DescribeKeyPairs' {} Maybe [Filter]
a -> DescribeKeyPairs
s {$sel:filters:DescribeKeyPairs' :: Maybe [Filter]
filters = Maybe [Filter]
a} :: DescribeKeyPairs) 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
describeKeyPairs_includePublicKey :: Lens.Lens' DescribeKeyPairs (Prelude.Maybe Prelude.Bool)
describeKeyPairs_includePublicKey :: Lens' DescribeKeyPairs (Maybe Bool)
describeKeyPairs_includePublicKey = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeKeyPairs' {Maybe Bool
includePublicKey :: Maybe Bool
$sel:includePublicKey:DescribeKeyPairs' :: DescribeKeyPairs -> Maybe Bool
includePublicKey} -> Maybe Bool
includePublicKey) (\s :: DescribeKeyPairs
s@DescribeKeyPairs' {} Maybe Bool
a -> DescribeKeyPairs
s {$sel:includePublicKey:DescribeKeyPairs' :: Maybe Bool
includePublicKey = Maybe Bool
a} :: DescribeKeyPairs)
describeKeyPairs_keyNames :: Lens.Lens' DescribeKeyPairs (Prelude.Maybe [Prelude.Text])
describeKeyPairs_keyNames :: Lens' DescribeKeyPairs (Maybe [Text])
describeKeyPairs_keyNames = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeKeyPairs' {Maybe [Text]
keyNames :: Maybe [Text]
$sel:keyNames:DescribeKeyPairs' :: DescribeKeyPairs -> Maybe [Text]
keyNames} -> Maybe [Text]
keyNames) (\s :: DescribeKeyPairs
s@DescribeKeyPairs' {} Maybe [Text]
a -> DescribeKeyPairs
s {$sel:keyNames:DescribeKeyPairs' :: Maybe [Text]
keyNames = Maybe [Text]
a} :: DescribeKeyPairs) 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
describeKeyPairs_keyPairIds :: Lens.Lens' DescribeKeyPairs (Prelude.Maybe [Prelude.Text])
describeKeyPairs_keyPairIds :: Lens' DescribeKeyPairs (Maybe [Text])
describeKeyPairs_keyPairIds = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeKeyPairs' {Maybe [Text]
keyPairIds :: Maybe [Text]
$sel:keyPairIds:DescribeKeyPairs' :: DescribeKeyPairs -> Maybe [Text]
keyPairIds} -> Maybe [Text]
keyPairIds) (\s :: DescribeKeyPairs
s@DescribeKeyPairs' {} Maybe [Text]
a -> DescribeKeyPairs
s {$sel:keyPairIds:DescribeKeyPairs' :: Maybe [Text]
keyPairIds = Maybe [Text]
a} :: DescribeKeyPairs) 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 Core.AWSRequest DescribeKeyPairs where
type
AWSResponse DescribeKeyPairs =
DescribeKeyPairsResponse
request :: (Service -> Service)
-> DescribeKeyPairs -> Request DescribeKeyPairs
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 DescribeKeyPairs
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse DescribeKeyPairs)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> [Node] -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveXML
( \Int
s ResponseHeaders
h [Node]
x ->
Maybe [KeyPairInfo] -> Int -> DescribeKeyPairsResponse
DescribeKeyPairsResponse'
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
"keySet"
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 (f :: * -> *) a b.
Applicative f =>
([a] -> f b) -> [a] -> f (Maybe b)
Core.may (forall a. FromXML a => Text -> [Node] -> Either String [a]
Data.parseXMLList Text
"item")
)
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 DescribeKeyPairs where
hashWithSalt :: Int -> DescribeKeyPairs -> Int
hashWithSalt Int
_salt DescribeKeyPairs' {Maybe Bool
Maybe [Text]
Maybe [Filter]
keyPairIds :: Maybe [Text]
keyNames :: Maybe [Text]
includePublicKey :: Maybe Bool
filters :: Maybe [Filter]
dryRun :: Maybe Bool
$sel:keyPairIds:DescribeKeyPairs' :: DescribeKeyPairs -> Maybe [Text]
$sel:keyNames:DescribeKeyPairs' :: DescribeKeyPairs -> Maybe [Text]
$sel:includePublicKey:DescribeKeyPairs' :: DescribeKeyPairs -> Maybe Bool
$sel:filters:DescribeKeyPairs' :: DescribeKeyPairs -> Maybe [Filter]
$sel:dryRun:DescribeKeyPairs' :: DescribeKeyPairs -> Maybe Bool
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
dryRun
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Filter]
filters
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
includePublicKey
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Text]
keyNames
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Text]
keyPairIds
instance Prelude.NFData DescribeKeyPairs where
rnf :: DescribeKeyPairs -> ()
rnf DescribeKeyPairs' {Maybe Bool
Maybe [Text]
Maybe [Filter]
keyPairIds :: Maybe [Text]
keyNames :: Maybe [Text]
includePublicKey :: Maybe Bool
filters :: Maybe [Filter]
dryRun :: Maybe Bool
$sel:keyPairIds:DescribeKeyPairs' :: DescribeKeyPairs -> Maybe [Text]
$sel:keyNames:DescribeKeyPairs' :: DescribeKeyPairs -> Maybe [Text]
$sel:includePublicKey:DescribeKeyPairs' :: DescribeKeyPairs -> Maybe Bool
$sel:filters:DescribeKeyPairs' :: DescribeKeyPairs -> Maybe [Filter]
$sel:dryRun:DescribeKeyPairs' :: DescribeKeyPairs -> Maybe Bool
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
dryRun
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Filter]
filters
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
includePublicKey
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Text]
keyNames
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Text]
keyPairIds
instance Data.ToHeaders DescribeKeyPairs where
toHeaders :: DescribeKeyPairs -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath DescribeKeyPairs where
toPath :: DescribeKeyPairs -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery DescribeKeyPairs where
toQuery :: DescribeKeyPairs -> QueryString
toQuery DescribeKeyPairs' {Maybe Bool
Maybe [Text]
Maybe [Filter]
keyPairIds :: Maybe [Text]
keyNames :: Maybe [Text]
includePublicKey :: Maybe Bool
filters :: Maybe [Filter]
dryRun :: Maybe Bool
$sel:keyPairIds:DescribeKeyPairs' :: DescribeKeyPairs -> Maybe [Text]
$sel:keyNames:DescribeKeyPairs' :: DescribeKeyPairs -> Maybe [Text]
$sel:includePublicKey:DescribeKeyPairs' :: DescribeKeyPairs -> Maybe Bool
$sel:filters:DescribeKeyPairs' :: DescribeKeyPairs -> Maybe [Filter]
$sel:dryRun:DescribeKeyPairs' :: DescribeKeyPairs -> Maybe Bool
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"DescribeKeyPairs" :: Prelude.ByteString),
ByteString
"Version"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2016-11-15" :: Prelude.ByteString),
ByteString
"DryRun" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Bool
dryRun,
forall a. ToQuery a => a -> QueryString
Data.toQuery
(forall a.
(IsList a, ToQuery (Item a)) =>
ByteString -> a -> QueryString
Data.toQueryList ByteString
"Filter" forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Filter]
filters),
ByteString
"IncludePublicKey" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Bool
includePublicKey,
forall a. ToQuery a => a -> QueryString
Data.toQuery
(forall a.
(IsList a, ToQuery (Item a)) =>
ByteString -> a -> QueryString
Data.toQueryList ByteString
"KeyName" forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Text]
keyNames),
forall a. ToQuery a => a -> QueryString
Data.toQuery
( forall a.
(IsList a, ToQuery (Item a)) =>
ByteString -> a -> QueryString
Data.toQueryList ByteString
"KeyPairId"
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Text]
keyPairIds
)
]
data DescribeKeyPairsResponse = DescribeKeyPairsResponse'
{
DescribeKeyPairsResponse -> Maybe [KeyPairInfo]
keyPairs :: Prelude.Maybe [KeyPairInfo],
DescribeKeyPairsResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DescribeKeyPairsResponse -> DescribeKeyPairsResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeKeyPairsResponse -> DescribeKeyPairsResponse -> Bool
$c/= :: DescribeKeyPairsResponse -> DescribeKeyPairsResponse -> Bool
== :: DescribeKeyPairsResponse -> DescribeKeyPairsResponse -> Bool
$c== :: DescribeKeyPairsResponse -> DescribeKeyPairsResponse -> Bool
Prelude.Eq, ReadPrec [DescribeKeyPairsResponse]
ReadPrec DescribeKeyPairsResponse
Int -> ReadS DescribeKeyPairsResponse
ReadS [DescribeKeyPairsResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeKeyPairsResponse]
$creadListPrec :: ReadPrec [DescribeKeyPairsResponse]
readPrec :: ReadPrec DescribeKeyPairsResponse
$creadPrec :: ReadPrec DescribeKeyPairsResponse
readList :: ReadS [DescribeKeyPairsResponse]
$creadList :: ReadS [DescribeKeyPairsResponse]
readsPrec :: Int -> ReadS DescribeKeyPairsResponse
$creadsPrec :: Int -> ReadS DescribeKeyPairsResponse
Prelude.Read, Int -> DescribeKeyPairsResponse -> ShowS
[DescribeKeyPairsResponse] -> ShowS
DescribeKeyPairsResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeKeyPairsResponse] -> ShowS
$cshowList :: [DescribeKeyPairsResponse] -> ShowS
show :: DescribeKeyPairsResponse -> String
$cshow :: DescribeKeyPairsResponse -> String
showsPrec :: Int -> DescribeKeyPairsResponse -> ShowS
$cshowsPrec :: Int -> DescribeKeyPairsResponse -> ShowS
Prelude.Show, forall x.
Rep DescribeKeyPairsResponse x -> DescribeKeyPairsResponse
forall x.
DescribeKeyPairsResponse -> Rep DescribeKeyPairsResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeKeyPairsResponse x -> DescribeKeyPairsResponse
$cfrom :: forall x.
DescribeKeyPairsResponse -> Rep DescribeKeyPairsResponse x
Prelude.Generic)
newDescribeKeyPairsResponse ::
Prelude.Int ->
DescribeKeyPairsResponse
newDescribeKeyPairsResponse :: Int -> DescribeKeyPairsResponse
newDescribeKeyPairsResponse Int
pHttpStatus_ =
DescribeKeyPairsResponse'
{ $sel:keyPairs:DescribeKeyPairsResponse' :: Maybe [KeyPairInfo]
keyPairs =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DescribeKeyPairsResponse' :: Int
httpStatus = Int
pHttpStatus_
}
describeKeyPairsResponse_keyPairs :: Lens.Lens' DescribeKeyPairsResponse (Prelude.Maybe [KeyPairInfo])
describeKeyPairsResponse_keyPairs :: Lens' DescribeKeyPairsResponse (Maybe [KeyPairInfo])
describeKeyPairsResponse_keyPairs = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeKeyPairsResponse' {Maybe [KeyPairInfo]
keyPairs :: Maybe [KeyPairInfo]
$sel:keyPairs:DescribeKeyPairsResponse' :: DescribeKeyPairsResponse -> Maybe [KeyPairInfo]
keyPairs} -> Maybe [KeyPairInfo]
keyPairs) (\s :: DescribeKeyPairsResponse
s@DescribeKeyPairsResponse' {} Maybe [KeyPairInfo]
a -> DescribeKeyPairsResponse
s {$sel:keyPairs:DescribeKeyPairsResponse' :: Maybe [KeyPairInfo]
keyPairs = Maybe [KeyPairInfo]
a} :: DescribeKeyPairsResponse) 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
describeKeyPairsResponse_httpStatus :: Lens.Lens' DescribeKeyPairsResponse Prelude.Int
describeKeyPairsResponse_httpStatus :: Lens' DescribeKeyPairsResponse Int
describeKeyPairsResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeKeyPairsResponse' {Int
httpStatus :: Int
$sel:httpStatus:DescribeKeyPairsResponse' :: DescribeKeyPairsResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DescribeKeyPairsResponse
s@DescribeKeyPairsResponse' {} Int
a -> DescribeKeyPairsResponse
s {$sel:httpStatus:DescribeKeyPairsResponse' :: Int
httpStatus = Int
a} :: DescribeKeyPairsResponse)
instance Prelude.NFData DescribeKeyPairsResponse where
rnf :: DescribeKeyPairsResponse -> ()
rnf DescribeKeyPairsResponse' {Int
Maybe [KeyPairInfo]
httpStatus :: Int
keyPairs :: Maybe [KeyPairInfo]
$sel:httpStatus:DescribeKeyPairsResponse' :: DescribeKeyPairsResponse -> Int
$sel:keyPairs:DescribeKeyPairsResponse' :: DescribeKeyPairsResponse -> Maybe [KeyPairInfo]
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe [KeyPairInfo]
keyPairs
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus