{-# 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.EMR.GetBlockPublicAccessConfiguration
(
GetBlockPublicAccessConfiguration (..),
newGetBlockPublicAccessConfiguration,
GetBlockPublicAccessConfigurationResponse (..),
newGetBlockPublicAccessConfigurationResponse,
getBlockPublicAccessConfigurationResponse_httpStatus,
getBlockPublicAccessConfigurationResponse_blockPublicAccessConfiguration,
getBlockPublicAccessConfigurationResponse_blockPublicAccessConfigurationMetadata,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.EMR.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data GetBlockPublicAccessConfiguration = GetBlockPublicAccessConfiguration'
{
}
deriving (GetBlockPublicAccessConfiguration
-> GetBlockPublicAccessConfiguration -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetBlockPublicAccessConfiguration
-> GetBlockPublicAccessConfiguration -> Bool
$c/= :: GetBlockPublicAccessConfiguration
-> GetBlockPublicAccessConfiguration -> Bool
== :: GetBlockPublicAccessConfiguration
-> GetBlockPublicAccessConfiguration -> Bool
$c== :: GetBlockPublicAccessConfiguration
-> GetBlockPublicAccessConfiguration -> Bool
Prelude.Eq, ReadPrec [GetBlockPublicAccessConfiguration]
ReadPrec GetBlockPublicAccessConfiguration
Int -> ReadS GetBlockPublicAccessConfiguration
ReadS [GetBlockPublicAccessConfiguration]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetBlockPublicAccessConfiguration]
$creadListPrec :: ReadPrec [GetBlockPublicAccessConfiguration]
readPrec :: ReadPrec GetBlockPublicAccessConfiguration
$creadPrec :: ReadPrec GetBlockPublicAccessConfiguration
readList :: ReadS [GetBlockPublicAccessConfiguration]
$creadList :: ReadS [GetBlockPublicAccessConfiguration]
readsPrec :: Int -> ReadS GetBlockPublicAccessConfiguration
$creadsPrec :: Int -> ReadS GetBlockPublicAccessConfiguration
Prelude.Read, Int -> GetBlockPublicAccessConfiguration -> ShowS
[GetBlockPublicAccessConfiguration] -> ShowS
GetBlockPublicAccessConfiguration -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetBlockPublicAccessConfiguration] -> ShowS
$cshowList :: [GetBlockPublicAccessConfiguration] -> ShowS
show :: GetBlockPublicAccessConfiguration -> String
$cshow :: GetBlockPublicAccessConfiguration -> String
showsPrec :: Int -> GetBlockPublicAccessConfiguration -> ShowS
$cshowsPrec :: Int -> GetBlockPublicAccessConfiguration -> ShowS
Prelude.Show, forall x.
Rep GetBlockPublicAccessConfiguration x
-> GetBlockPublicAccessConfiguration
forall x.
GetBlockPublicAccessConfiguration
-> Rep GetBlockPublicAccessConfiguration x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep GetBlockPublicAccessConfiguration x
-> GetBlockPublicAccessConfiguration
$cfrom :: forall x.
GetBlockPublicAccessConfiguration
-> Rep GetBlockPublicAccessConfiguration x
Prelude.Generic)
newGetBlockPublicAccessConfiguration ::
GetBlockPublicAccessConfiguration
newGetBlockPublicAccessConfiguration :: GetBlockPublicAccessConfiguration
newGetBlockPublicAccessConfiguration =
GetBlockPublicAccessConfiguration
GetBlockPublicAccessConfiguration'
instance
Core.AWSRequest
GetBlockPublicAccessConfiguration
where
type
AWSResponse GetBlockPublicAccessConfiguration =
GetBlockPublicAccessConfigurationResponse
request :: (Service -> Service)
-> GetBlockPublicAccessConfiguration
-> Request GetBlockPublicAccessConfiguration
request Service -> Service
overrides =
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.postJSON (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy GetBlockPublicAccessConfiguration
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse GetBlockPublicAccessConfiguration)))
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 ->
Int
-> BlockPublicAccessConfiguration
-> BlockPublicAccessConfigurationMetadata
-> GetBlockPublicAccessConfigurationResponse
GetBlockPublicAccessConfigurationResponse'
forall (f :: * -> *) a b. Functor 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.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String a
Data..:> Key
"BlockPublicAccessConfiguration")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ( Object
x
forall a. FromJSON a => Object -> Key -> Either String a
Data..:> Key
"BlockPublicAccessConfigurationMetadata"
)
)
instance
Prelude.Hashable
GetBlockPublicAccessConfiguration
where
hashWithSalt :: Int -> GetBlockPublicAccessConfiguration -> Int
hashWithSalt Int
_salt GetBlockPublicAccessConfiguration
_ =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` ()
instance
Prelude.NFData
GetBlockPublicAccessConfiguration
where
rnf :: GetBlockPublicAccessConfiguration -> ()
rnf GetBlockPublicAccessConfiguration
_ = ()
instance
Data.ToHeaders
GetBlockPublicAccessConfiguration
where
toHeaders :: GetBlockPublicAccessConfiguration -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"X-Amz-Target"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"ElasticMapReduce.GetBlockPublicAccessConfiguration" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance
Data.ToJSON
GetBlockPublicAccessConfiguration
where
toJSON :: GetBlockPublicAccessConfiguration -> Value
toJSON = forall a b. a -> b -> a
Prelude.const (Object -> Value
Data.Object forall a. Monoid a => a
Prelude.mempty)
instance
Data.ToPath
GetBlockPublicAccessConfiguration
where
toPath :: GetBlockPublicAccessConfiguration -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance
Data.ToQuery
GetBlockPublicAccessConfiguration
where
toQuery :: GetBlockPublicAccessConfiguration -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data GetBlockPublicAccessConfigurationResponse = GetBlockPublicAccessConfigurationResponse'
{
GetBlockPublicAccessConfigurationResponse -> Int
httpStatus :: Prelude.Int,
GetBlockPublicAccessConfigurationResponse
-> BlockPublicAccessConfiguration
blockPublicAccessConfiguration :: BlockPublicAccessConfiguration,
GetBlockPublicAccessConfigurationResponse
-> BlockPublicAccessConfigurationMetadata
blockPublicAccessConfigurationMetadata :: BlockPublicAccessConfigurationMetadata
}
deriving (GetBlockPublicAccessConfigurationResponse
-> GetBlockPublicAccessConfigurationResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetBlockPublicAccessConfigurationResponse
-> GetBlockPublicAccessConfigurationResponse -> Bool
$c/= :: GetBlockPublicAccessConfigurationResponse
-> GetBlockPublicAccessConfigurationResponse -> Bool
== :: GetBlockPublicAccessConfigurationResponse
-> GetBlockPublicAccessConfigurationResponse -> Bool
$c== :: GetBlockPublicAccessConfigurationResponse
-> GetBlockPublicAccessConfigurationResponse -> Bool
Prelude.Eq, ReadPrec [GetBlockPublicAccessConfigurationResponse]
ReadPrec GetBlockPublicAccessConfigurationResponse
Int -> ReadS GetBlockPublicAccessConfigurationResponse
ReadS [GetBlockPublicAccessConfigurationResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetBlockPublicAccessConfigurationResponse]
$creadListPrec :: ReadPrec [GetBlockPublicAccessConfigurationResponse]
readPrec :: ReadPrec GetBlockPublicAccessConfigurationResponse
$creadPrec :: ReadPrec GetBlockPublicAccessConfigurationResponse
readList :: ReadS [GetBlockPublicAccessConfigurationResponse]
$creadList :: ReadS [GetBlockPublicAccessConfigurationResponse]
readsPrec :: Int -> ReadS GetBlockPublicAccessConfigurationResponse
$creadsPrec :: Int -> ReadS GetBlockPublicAccessConfigurationResponse
Prelude.Read, Int -> GetBlockPublicAccessConfigurationResponse -> ShowS
[GetBlockPublicAccessConfigurationResponse] -> ShowS
GetBlockPublicAccessConfigurationResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetBlockPublicAccessConfigurationResponse] -> ShowS
$cshowList :: [GetBlockPublicAccessConfigurationResponse] -> ShowS
show :: GetBlockPublicAccessConfigurationResponse -> String
$cshow :: GetBlockPublicAccessConfigurationResponse -> String
showsPrec :: Int -> GetBlockPublicAccessConfigurationResponse -> ShowS
$cshowsPrec :: Int -> GetBlockPublicAccessConfigurationResponse -> ShowS
Prelude.Show, forall x.
Rep GetBlockPublicAccessConfigurationResponse x
-> GetBlockPublicAccessConfigurationResponse
forall x.
GetBlockPublicAccessConfigurationResponse
-> Rep GetBlockPublicAccessConfigurationResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep GetBlockPublicAccessConfigurationResponse x
-> GetBlockPublicAccessConfigurationResponse
$cfrom :: forall x.
GetBlockPublicAccessConfigurationResponse
-> Rep GetBlockPublicAccessConfigurationResponse x
Prelude.Generic)
newGetBlockPublicAccessConfigurationResponse ::
Prelude.Int ->
BlockPublicAccessConfiguration ->
BlockPublicAccessConfigurationMetadata ->
GetBlockPublicAccessConfigurationResponse
newGetBlockPublicAccessConfigurationResponse :: Int
-> BlockPublicAccessConfiguration
-> BlockPublicAccessConfigurationMetadata
-> GetBlockPublicAccessConfigurationResponse
newGetBlockPublicAccessConfigurationResponse
Int
pHttpStatus_
BlockPublicAccessConfiguration
pBlockPublicAccessConfiguration_
BlockPublicAccessConfigurationMetadata
pBlockPublicAccessConfigurationMetadata_ =
GetBlockPublicAccessConfigurationResponse'
{ $sel:httpStatus:GetBlockPublicAccessConfigurationResponse' :: Int
httpStatus =
Int
pHttpStatus_,
$sel:blockPublicAccessConfiguration:GetBlockPublicAccessConfigurationResponse' :: BlockPublicAccessConfiguration
blockPublicAccessConfiguration =
BlockPublicAccessConfiguration
pBlockPublicAccessConfiguration_,
$sel:blockPublicAccessConfigurationMetadata:GetBlockPublicAccessConfigurationResponse' :: BlockPublicAccessConfigurationMetadata
blockPublicAccessConfigurationMetadata =
BlockPublicAccessConfigurationMetadata
pBlockPublicAccessConfigurationMetadata_
}
getBlockPublicAccessConfigurationResponse_httpStatus :: Lens.Lens' GetBlockPublicAccessConfigurationResponse Prelude.Int
getBlockPublicAccessConfigurationResponse_httpStatus :: Lens' GetBlockPublicAccessConfigurationResponse Int
getBlockPublicAccessConfigurationResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetBlockPublicAccessConfigurationResponse' {Int
httpStatus :: Int
$sel:httpStatus:GetBlockPublicAccessConfigurationResponse' :: GetBlockPublicAccessConfigurationResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: GetBlockPublicAccessConfigurationResponse
s@GetBlockPublicAccessConfigurationResponse' {} Int
a -> GetBlockPublicAccessConfigurationResponse
s {$sel:httpStatus:GetBlockPublicAccessConfigurationResponse' :: Int
httpStatus = Int
a} :: GetBlockPublicAccessConfigurationResponse)
getBlockPublicAccessConfigurationResponse_blockPublicAccessConfiguration :: Lens.Lens' GetBlockPublicAccessConfigurationResponse BlockPublicAccessConfiguration
getBlockPublicAccessConfigurationResponse_blockPublicAccessConfiguration :: Lens'
GetBlockPublicAccessConfigurationResponse
BlockPublicAccessConfiguration
getBlockPublicAccessConfigurationResponse_blockPublicAccessConfiguration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetBlockPublicAccessConfigurationResponse' {BlockPublicAccessConfiguration
blockPublicAccessConfiguration :: BlockPublicAccessConfiguration
$sel:blockPublicAccessConfiguration:GetBlockPublicAccessConfigurationResponse' :: GetBlockPublicAccessConfigurationResponse
-> BlockPublicAccessConfiguration
blockPublicAccessConfiguration} -> BlockPublicAccessConfiguration
blockPublicAccessConfiguration) (\s :: GetBlockPublicAccessConfigurationResponse
s@GetBlockPublicAccessConfigurationResponse' {} BlockPublicAccessConfiguration
a -> GetBlockPublicAccessConfigurationResponse
s {$sel:blockPublicAccessConfiguration:GetBlockPublicAccessConfigurationResponse' :: BlockPublicAccessConfiguration
blockPublicAccessConfiguration = BlockPublicAccessConfiguration
a} :: GetBlockPublicAccessConfigurationResponse)
getBlockPublicAccessConfigurationResponse_blockPublicAccessConfigurationMetadata :: Lens.Lens' GetBlockPublicAccessConfigurationResponse BlockPublicAccessConfigurationMetadata
getBlockPublicAccessConfigurationResponse_blockPublicAccessConfigurationMetadata :: Lens'
GetBlockPublicAccessConfigurationResponse
BlockPublicAccessConfigurationMetadata
getBlockPublicAccessConfigurationResponse_blockPublicAccessConfigurationMetadata = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetBlockPublicAccessConfigurationResponse' {BlockPublicAccessConfigurationMetadata
blockPublicAccessConfigurationMetadata :: BlockPublicAccessConfigurationMetadata
$sel:blockPublicAccessConfigurationMetadata:GetBlockPublicAccessConfigurationResponse' :: GetBlockPublicAccessConfigurationResponse
-> BlockPublicAccessConfigurationMetadata
blockPublicAccessConfigurationMetadata} -> BlockPublicAccessConfigurationMetadata
blockPublicAccessConfigurationMetadata) (\s :: GetBlockPublicAccessConfigurationResponse
s@GetBlockPublicAccessConfigurationResponse' {} BlockPublicAccessConfigurationMetadata
a -> GetBlockPublicAccessConfigurationResponse
s {$sel:blockPublicAccessConfigurationMetadata:GetBlockPublicAccessConfigurationResponse' :: BlockPublicAccessConfigurationMetadata
blockPublicAccessConfigurationMetadata = BlockPublicAccessConfigurationMetadata
a} :: GetBlockPublicAccessConfigurationResponse)
instance
Prelude.NFData
GetBlockPublicAccessConfigurationResponse
where
rnf :: GetBlockPublicAccessConfigurationResponse -> ()
rnf GetBlockPublicAccessConfigurationResponse' {Int
BlockPublicAccessConfigurationMetadata
BlockPublicAccessConfiguration
blockPublicAccessConfigurationMetadata :: BlockPublicAccessConfigurationMetadata
blockPublicAccessConfiguration :: BlockPublicAccessConfiguration
httpStatus :: Int
$sel:blockPublicAccessConfigurationMetadata:GetBlockPublicAccessConfigurationResponse' :: GetBlockPublicAccessConfigurationResponse
-> BlockPublicAccessConfigurationMetadata
$sel:blockPublicAccessConfiguration:GetBlockPublicAccessConfigurationResponse' :: GetBlockPublicAccessConfigurationResponse
-> BlockPublicAccessConfiguration
$sel:httpStatus:GetBlockPublicAccessConfigurationResponse' :: GetBlockPublicAccessConfigurationResponse -> Int
..} =
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 BlockPublicAccessConfiguration
blockPublicAccessConfiguration
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf BlockPublicAccessConfigurationMetadata
blockPublicAccessConfigurationMetadata