{-# 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.Backup.DescribeFramework
(
DescribeFramework (..),
newDescribeFramework,
describeFramework_frameworkName,
DescribeFrameworkResponse (..),
newDescribeFrameworkResponse,
describeFrameworkResponse_creationTime,
describeFrameworkResponse_deploymentStatus,
describeFrameworkResponse_frameworkArn,
describeFrameworkResponse_frameworkControls,
describeFrameworkResponse_frameworkDescription,
describeFrameworkResponse_frameworkName,
describeFrameworkResponse_frameworkStatus,
describeFrameworkResponse_idempotencyToken,
describeFrameworkResponse_httpStatus,
)
where
import Amazonka.Backup.Types
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data DescribeFramework = DescribeFramework'
{
DescribeFramework -> Text
frameworkName :: Prelude.Text
}
deriving (DescribeFramework -> DescribeFramework -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeFramework -> DescribeFramework -> Bool
$c/= :: DescribeFramework -> DescribeFramework -> Bool
== :: DescribeFramework -> DescribeFramework -> Bool
$c== :: DescribeFramework -> DescribeFramework -> Bool
Prelude.Eq, ReadPrec [DescribeFramework]
ReadPrec DescribeFramework
Int -> ReadS DescribeFramework
ReadS [DescribeFramework]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeFramework]
$creadListPrec :: ReadPrec [DescribeFramework]
readPrec :: ReadPrec DescribeFramework
$creadPrec :: ReadPrec DescribeFramework
readList :: ReadS [DescribeFramework]
$creadList :: ReadS [DescribeFramework]
readsPrec :: Int -> ReadS DescribeFramework
$creadsPrec :: Int -> ReadS DescribeFramework
Prelude.Read, Int -> DescribeFramework -> ShowS
[DescribeFramework] -> ShowS
DescribeFramework -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeFramework] -> ShowS
$cshowList :: [DescribeFramework] -> ShowS
show :: DescribeFramework -> String
$cshow :: DescribeFramework -> String
showsPrec :: Int -> DescribeFramework -> ShowS
$cshowsPrec :: Int -> DescribeFramework -> ShowS
Prelude.Show, forall x. Rep DescribeFramework x -> DescribeFramework
forall x. DescribeFramework -> Rep DescribeFramework x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DescribeFramework x -> DescribeFramework
$cfrom :: forall x. DescribeFramework -> Rep DescribeFramework x
Prelude.Generic)
newDescribeFramework ::
Prelude.Text ->
DescribeFramework
newDescribeFramework :: Text -> DescribeFramework
newDescribeFramework Text
pFrameworkName_ =
DescribeFramework' {$sel:frameworkName:DescribeFramework' :: Text
frameworkName = Text
pFrameworkName_}
describeFramework_frameworkName :: Lens.Lens' DescribeFramework Prelude.Text
describeFramework_frameworkName :: Lens' DescribeFramework Text
describeFramework_frameworkName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeFramework' {Text
frameworkName :: Text
$sel:frameworkName:DescribeFramework' :: DescribeFramework -> Text
frameworkName} -> Text
frameworkName) (\s :: DescribeFramework
s@DescribeFramework' {} Text
a -> DescribeFramework
s {$sel:frameworkName:DescribeFramework' :: Text
frameworkName = Text
a} :: DescribeFramework)
instance Core.AWSRequest DescribeFramework where
type
AWSResponse DescribeFramework =
DescribeFrameworkResponse
request :: (Service -> Service)
-> DescribeFramework -> Request DescribeFramework
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 DescribeFramework
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DescribeFramework)))
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 POSIX
-> Maybe Text
-> Maybe Text
-> Maybe [FrameworkControl]
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Int
-> DescribeFrameworkResponse
DescribeFrameworkResponse'
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
"CreationTime")
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
"DeploymentStatus")
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
"FrameworkArn")
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
"FrameworkControls"
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
"FrameworkDescription")
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
"FrameworkName")
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
"FrameworkStatus")
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
"IdempotencyToken")
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 DescribeFramework where
hashWithSalt :: Int -> DescribeFramework -> Int
hashWithSalt Int
_salt DescribeFramework' {Text
frameworkName :: Text
$sel:frameworkName:DescribeFramework' :: DescribeFramework -> Text
..} =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
frameworkName
instance Prelude.NFData DescribeFramework where
rnf :: DescribeFramework -> ()
rnf DescribeFramework' {Text
frameworkName :: Text
$sel:frameworkName:DescribeFramework' :: DescribeFramework -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
frameworkName
instance Data.ToHeaders DescribeFramework where
toHeaders :: DescribeFramework -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToPath DescribeFramework where
toPath :: DescribeFramework -> ByteString
toPath DescribeFramework' {Text
frameworkName :: Text
$sel:frameworkName:DescribeFramework' :: DescribeFramework -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ByteString
"/audit/frameworks/", forall a. ToByteString a => a -> ByteString
Data.toBS Text
frameworkName]
instance Data.ToQuery DescribeFramework where
toQuery :: DescribeFramework -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DescribeFrameworkResponse = DescribeFrameworkResponse'
{
DescribeFrameworkResponse -> Maybe POSIX
creationTime :: Prelude.Maybe Data.POSIX,
DescribeFrameworkResponse -> Maybe Text
deploymentStatus :: Prelude.Maybe Prelude.Text,
DescribeFrameworkResponse -> Maybe Text
frameworkArn :: Prelude.Maybe Prelude.Text,
DescribeFrameworkResponse -> Maybe [FrameworkControl]
frameworkControls :: Prelude.Maybe [FrameworkControl],
DescribeFrameworkResponse -> Maybe Text
frameworkDescription :: Prelude.Maybe Prelude.Text,
DescribeFrameworkResponse -> Maybe Text
frameworkName :: Prelude.Maybe Prelude.Text,
DescribeFrameworkResponse -> Maybe Text
frameworkStatus :: Prelude.Maybe Prelude.Text,
DescribeFrameworkResponse -> Maybe Text
idempotencyToken :: Prelude.Maybe Prelude.Text,
DescribeFrameworkResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DescribeFrameworkResponse -> DescribeFrameworkResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeFrameworkResponse -> DescribeFrameworkResponse -> Bool
$c/= :: DescribeFrameworkResponse -> DescribeFrameworkResponse -> Bool
== :: DescribeFrameworkResponse -> DescribeFrameworkResponse -> Bool
$c== :: DescribeFrameworkResponse -> DescribeFrameworkResponse -> Bool
Prelude.Eq, ReadPrec [DescribeFrameworkResponse]
ReadPrec DescribeFrameworkResponse
Int -> ReadS DescribeFrameworkResponse
ReadS [DescribeFrameworkResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeFrameworkResponse]
$creadListPrec :: ReadPrec [DescribeFrameworkResponse]
readPrec :: ReadPrec DescribeFrameworkResponse
$creadPrec :: ReadPrec DescribeFrameworkResponse
readList :: ReadS [DescribeFrameworkResponse]
$creadList :: ReadS [DescribeFrameworkResponse]
readsPrec :: Int -> ReadS DescribeFrameworkResponse
$creadsPrec :: Int -> ReadS DescribeFrameworkResponse
Prelude.Read, Int -> DescribeFrameworkResponse -> ShowS
[DescribeFrameworkResponse] -> ShowS
DescribeFrameworkResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeFrameworkResponse] -> ShowS
$cshowList :: [DescribeFrameworkResponse] -> ShowS
show :: DescribeFrameworkResponse -> String
$cshow :: DescribeFrameworkResponse -> String
showsPrec :: Int -> DescribeFrameworkResponse -> ShowS
$cshowsPrec :: Int -> DescribeFrameworkResponse -> ShowS
Prelude.Show, forall x.
Rep DescribeFrameworkResponse x -> DescribeFrameworkResponse
forall x.
DescribeFrameworkResponse -> Rep DescribeFrameworkResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeFrameworkResponse x -> DescribeFrameworkResponse
$cfrom :: forall x.
DescribeFrameworkResponse -> Rep DescribeFrameworkResponse x
Prelude.Generic)
newDescribeFrameworkResponse ::
Prelude.Int ->
DescribeFrameworkResponse
newDescribeFrameworkResponse :: Int -> DescribeFrameworkResponse
newDescribeFrameworkResponse Int
pHttpStatus_ =
DescribeFrameworkResponse'
{ $sel:creationTime:DescribeFrameworkResponse' :: Maybe POSIX
creationTime =
forall a. Maybe a
Prelude.Nothing,
$sel:deploymentStatus:DescribeFrameworkResponse' :: Maybe Text
deploymentStatus = forall a. Maybe a
Prelude.Nothing,
$sel:frameworkArn:DescribeFrameworkResponse' :: Maybe Text
frameworkArn = forall a. Maybe a
Prelude.Nothing,
$sel:frameworkControls:DescribeFrameworkResponse' :: Maybe [FrameworkControl]
frameworkControls = forall a. Maybe a
Prelude.Nothing,
$sel:frameworkDescription:DescribeFrameworkResponse' :: Maybe Text
frameworkDescription = forall a. Maybe a
Prelude.Nothing,
$sel:frameworkName:DescribeFrameworkResponse' :: Maybe Text
frameworkName = forall a. Maybe a
Prelude.Nothing,
$sel:frameworkStatus:DescribeFrameworkResponse' :: Maybe Text
frameworkStatus = forall a. Maybe a
Prelude.Nothing,
$sel:idempotencyToken:DescribeFrameworkResponse' :: Maybe Text
idempotencyToken = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DescribeFrameworkResponse' :: Int
httpStatus = Int
pHttpStatus_
}
describeFrameworkResponse_creationTime :: Lens.Lens' DescribeFrameworkResponse (Prelude.Maybe Prelude.UTCTime)
describeFrameworkResponse_creationTime :: Lens' DescribeFrameworkResponse (Maybe UTCTime)
describeFrameworkResponse_creationTime = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeFrameworkResponse' {Maybe POSIX
creationTime :: Maybe POSIX
$sel:creationTime:DescribeFrameworkResponse' :: DescribeFrameworkResponse -> Maybe POSIX
creationTime} -> Maybe POSIX
creationTime) (\s :: DescribeFrameworkResponse
s@DescribeFrameworkResponse' {} Maybe POSIX
a -> DescribeFrameworkResponse
s {$sel:creationTime:DescribeFrameworkResponse' :: Maybe POSIX
creationTime = Maybe POSIX
a} :: DescribeFrameworkResponse) 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 (a :: Format). Iso' (Time a) UTCTime
Data._Time
describeFrameworkResponse_deploymentStatus :: Lens.Lens' DescribeFrameworkResponse (Prelude.Maybe Prelude.Text)
describeFrameworkResponse_deploymentStatus :: Lens' DescribeFrameworkResponse (Maybe Text)
describeFrameworkResponse_deploymentStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeFrameworkResponse' {Maybe Text
deploymentStatus :: Maybe Text
$sel:deploymentStatus:DescribeFrameworkResponse' :: DescribeFrameworkResponse -> Maybe Text
deploymentStatus} -> Maybe Text
deploymentStatus) (\s :: DescribeFrameworkResponse
s@DescribeFrameworkResponse' {} Maybe Text
a -> DescribeFrameworkResponse
s {$sel:deploymentStatus:DescribeFrameworkResponse' :: Maybe Text
deploymentStatus = Maybe Text
a} :: DescribeFrameworkResponse)
describeFrameworkResponse_frameworkArn :: Lens.Lens' DescribeFrameworkResponse (Prelude.Maybe Prelude.Text)
describeFrameworkResponse_frameworkArn :: Lens' DescribeFrameworkResponse (Maybe Text)
describeFrameworkResponse_frameworkArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeFrameworkResponse' {Maybe Text
frameworkArn :: Maybe Text
$sel:frameworkArn:DescribeFrameworkResponse' :: DescribeFrameworkResponse -> Maybe Text
frameworkArn} -> Maybe Text
frameworkArn) (\s :: DescribeFrameworkResponse
s@DescribeFrameworkResponse' {} Maybe Text
a -> DescribeFrameworkResponse
s {$sel:frameworkArn:DescribeFrameworkResponse' :: Maybe Text
frameworkArn = Maybe Text
a} :: DescribeFrameworkResponse)
describeFrameworkResponse_frameworkControls :: Lens.Lens' DescribeFrameworkResponse (Prelude.Maybe [FrameworkControl])
describeFrameworkResponse_frameworkControls :: Lens' DescribeFrameworkResponse (Maybe [FrameworkControl])
describeFrameworkResponse_frameworkControls = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeFrameworkResponse' {Maybe [FrameworkControl]
frameworkControls :: Maybe [FrameworkControl]
$sel:frameworkControls:DescribeFrameworkResponse' :: DescribeFrameworkResponse -> Maybe [FrameworkControl]
frameworkControls} -> Maybe [FrameworkControl]
frameworkControls) (\s :: DescribeFrameworkResponse
s@DescribeFrameworkResponse' {} Maybe [FrameworkControl]
a -> DescribeFrameworkResponse
s {$sel:frameworkControls:DescribeFrameworkResponse' :: Maybe [FrameworkControl]
frameworkControls = Maybe [FrameworkControl]
a} :: DescribeFrameworkResponse) 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
describeFrameworkResponse_frameworkDescription :: Lens.Lens' DescribeFrameworkResponse (Prelude.Maybe Prelude.Text)
describeFrameworkResponse_frameworkDescription :: Lens' DescribeFrameworkResponse (Maybe Text)
describeFrameworkResponse_frameworkDescription = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeFrameworkResponse' {Maybe Text
frameworkDescription :: Maybe Text
$sel:frameworkDescription:DescribeFrameworkResponse' :: DescribeFrameworkResponse -> Maybe Text
frameworkDescription} -> Maybe Text
frameworkDescription) (\s :: DescribeFrameworkResponse
s@DescribeFrameworkResponse' {} Maybe Text
a -> DescribeFrameworkResponse
s {$sel:frameworkDescription:DescribeFrameworkResponse' :: Maybe Text
frameworkDescription = Maybe Text
a} :: DescribeFrameworkResponse)
describeFrameworkResponse_frameworkName :: Lens.Lens' DescribeFrameworkResponse (Prelude.Maybe Prelude.Text)
describeFrameworkResponse_frameworkName :: Lens' DescribeFrameworkResponse (Maybe Text)
describeFrameworkResponse_frameworkName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeFrameworkResponse' {Maybe Text
frameworkName :: Maybe Text
$sel:frameworkName:DescribeFrameworkResponse' :: DescribeFrameworkResponse -> Maybe Text
frameworkName} -> Maybe Text
frameworkName) (\s :: DescribeFrameworkResponse
s@DescribeFrameworkResponse' {} Maybe Text
a -> DescribeFrameworkResponse
s {$sel:frameworkName:DescribeFrameworkResponse' :: Maybe Text
frameworkName = Maybe Text
a} :: DescribeFrameworkResponse)
describeFrameworkResponse_frameworkStatus :: Lens.Lens' DescribeFrameworkResponse (Prelude.Maybe Prelude.Text)
describeFrameworkResponse_frameworkStatus :: Lens' DescribeFrameworkResponse (Maybe Text)
describeFrameworkResponse_frameworkStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeFrameworkResponse' {Maybe Text
frameworkStatus :: Maybe Text
$sel:frameworkStatus:DescribeFrameworkResponse' :: DescribeFrameworkResponse -> Maybe Text
frameworkStatus} -> Maybe Text
frameworkStatus) (\s :: DescribeFrameworkResponse
s@DescribeFrameworkResponse' {} Maybe Text
a -> DescribeFrameworkResponse
s {$sel:frameworkStatus:DescribeFrameworkResponse' :: Maybe Text
frameworkStatus = Maybe Text
a} :: DescribeFrameworkResponse)
describeFrameworkResponse_idempotencyToken :: Lens.Lens' DescribeFrameworkResponse (Prelude.Maybe Prelude.Text)
describeFrameworkResponse_idempotencyToken :: Lens' DescribeFrameworkResponse (Maybe Text)
describeFrameworkResponse_idempotencyToken = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeFrameworkResponse' {Maybe Text
idempotencyToken :: Maybe Text
$sel:idempotencyToken:DescribeFrameworkResponse' :: DescribeFrameworkResponse -> Maybe Text
idempotencyToken} -> Maybe Text
idempotencyToken) (\s :: DescribeFrameworkResponse
s@DescribeFrameworkResponse' {} Maybe Text
a -> DescribeFrameworkResponse
s {$sel:idempotencyToken:DescribeFrameworkResponse' :: Maybe Text
idempotencyToken = Maybe Text
a} :: DescribeFrameworkResponse)
describeFrameworkResponse_httpStatus :: Lens.Lens' DescribeFrameworkResponse Prelude.Int
describeFrameworkResponse_httpStatus :: Lens' DescribeFrameworkResponse Int
describeFrameworkResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeFrameworkResponse' {Int
httpStatus :: Int
$sel:httpStatus:DescribeFrameworkResponse' :: DescribeFrameworkResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DescribeFrameworkResponse
s@DescribeFrameworkResponse' {} Int
a -> DescribeFrameworkResponse
s {$sel:httpStatus:DescribeFrameworkResponse' :: Int
httpStatus = Int
a} :: DescribeFrameworkResponse)
instance Prelude.NFData DescribeFrameworkResponse where
rnf :: DescribeFrameworkResponse -> ()
rnf DescribeFrameworkResponse' {Int
Maybe [FrameworkControl]
Maybe Text
Maybe POSIX
httpStatus :: Int
idempotencyToken :: Maybe Text
frameworkStatus :: Maybe Text
frameworkName :: Maybe Text
frameworkDescription :: Maybe Text
frameworkControls :: Maybe [FrameworkControl]
frameworkArn :: Maybe Text
deploymentStatus :: Maybe Text
creationTime :: Maybe POSIX
$sel:httpStatus:DescribeFrameworkResponse' :: DescribeFrameworkResponse -> Int
$sel:idempotencyToken:DescribeFrameworkResponse' :: DescribeFrameworkResponse -> Maybe Text
$sel:frameworkStatus:DescribeFrameworkResponse' :: DescribeFrameworkResponse -> Maybe Text
$sel:frameworkName:DescribeFrameworkResponse' :: DescribeFrameworkResponse -> Maybe Text
$sel:frameworkDescription:DescribeFrameworkResponse' :: DescribeFrameworkResponse -> Maybe Text
$sel:frameworkControls:DescribeFrameworkResponse' :: DescribeFrameworkResponse -> Maybe [FrameworkControl]
$sel:frameworkArn:DescribeFrameworkResponse' :: DescribeFrameworkResponse -> Maybe Text
$sel:deploymentStatus:DescribeFrameworkResponse' :: DescribeFrameworkResponse -> Maybe Text
$sel:creationTime:DescribeFrameworkResponse' :: DescribeFrameworkResponse -> Maybe POSIX
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe POSIX
creationTime
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
deploymentStatus
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
frameworkArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [FrameworkControl]
frameworkControls
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
frameworkDescription
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
frameworkName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
frameworkStatus
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
idempotencyToken
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus