{-# 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.PutBlockPublicAccessConfiguration
(
PutBlockPublicAccessConfiguration (..),
newPutBlockPublicAccessConfiguration,
putBlockPublicAccessConfiguration_blockPublicAccessConfiguration,
PutBlockPublicAccessConfigurationResponse (..),
newPutBlockPublicAccessConfigurationResponse,
putBlockPublicAccessConfigurationResponse_httpStatus,
)
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 PutBlockPublicAccessConfiguration = PutBlockPublicAccessConfiguration'
{
PutBlockPublicAccessConfiguration -> BlockPublicAccessConfiguration
blockPublicAccessConfiguration :: BlockPublicAccessConfiguration
}
deriving (PutBlockPublicAccessConfiguration
-> PutBlockPublicAccessConfiguration -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PutBlockPublicAccessConfiguration
-> PutBlockPublicAccessConfiguration -> Bool
$c/= :: PutBlockPublicAccessConfiguration
-> PutBlockPublicAccessConfiguration -> Bool
== :: PutBlockPublicAccessConfiguration
-> PutBlockPublicAccessConfiguration -> Bool
$c== :: PutBlockPublicAccessConfiguration
-> PutBlockPublicAccessConfiguration -> Bool
Prelude.Eq, ReadPrec [PutBlockPublicAccessConfiguration]
ReadPrec PutBlockPublicAccessConfiguration
Int -> ReadS PutBlockPublicAccessConfiguration
ReadS [PutBlockPublicAccessConfiguration]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [PutBlockPublicAccessConfiguration]
$creadListPrec :: ReadPrec [PutBlockPublicAccessConfiguration]
readPrec :: ReadPrec PutBlockPublicAccessConfiguration
$creadPrec :: ReadPrec PutBlockPublicAccessConfiguration
readList :: ReadS [PutBlockPublicAccessConfiguration]
$creadList :: ReadS [PutBlockPublicAccessConfiguration]
readsPrec :: Int -> ReadS PutBlockPublicAccessConfiguration
$creadsPrec :: Int -> ReadS PutBlockPublicAccessConfiguration
Prelude.Read, Int -> PutBlockPublicAccessConfiguration -> ShowS
[PutBlockPublicAccessConfiguration] -> ShowS
PutBlockPublicAccessConfiguration -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PutBlockPublicAccessConfiguration] -> ShowS
$cshowList :: [PutBlockPublicAccessConfiguration] -> ShowS
show :: PutBlockPublicAccessConfiguration -> String
$cshow :: PutBlockPublicAccessConfiguration -> String
showsPrec :: Int -> PutBlockPublicAccessConfiguration -> ShowS
$cshowsPrec :: Int -> PutBlockPublicAccessConfiguration -> ShowS
Prelude.Show, forall x.
Rep PutBlockPublicAccessConfiguration x
-> PutBlockPublicAccessConfiguration
forall x.
PutBlockPublicAccessConfiguration
-> Rep PutBlockPublicAccessConfiguration x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep PutBlockPublicAccessConfiguration x
-> PutBlockPublicAccessConfiguration
$cfrom :: forall x.
PutBlockPublicAccessConfiguration
-> Rep PutBlockPublicAccessConfiguration x
Prelude.Generic)
newPutBlockPublicAccessConfiguration ::
BlockPublicAccessConfiguration ->
PutBlockPublicAccessConfiguration
newPutBlockPublicAccessConfiguration :: BlockPublicAccessConfiguration -> PutBlockPublicAccessConfiguration
newPutBlockPublicAccessConfiguration
BlockPublicAccessConfiguration
pBlockPublicAccessConfiguration_ =
PutBlockPublicAccessConfiguration'
{ $sel:blockPublicAccessConfiguration:PutBlockPublicAccessConfiguration' :: BlockPublicAccessConfiguration
blockPublicAccessConfiguration =
BlockPublicAccessConfiguration
pBlockPublicAccessConfiguration_
}
putBlockPublicAccessConfiguration_blockPublicAccessConfiguration :: Lens.Lens' PutBlockPublicAccessConfiguration BlockPublicAccessConfiguration
putBlockPublicAccessConfiguration_blockPublicAccessConfiguration :: Lens'
PutBlockPublicAccessConfiguration BlockPublicAccessConfiguration
putBlockPublicAccessConfiguration_blockPublicAccessConfiguration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutBlockPublicAccessConfiguration' {BlockPublicAccessConfiguration
blockPublicAccessConfiguration :: BlockPublicAccessConfiguration
$sel:blockPublicAccessConfiguration:PutBlockPublicAccessConfiguration' :: PutBlockPublicAccessConfiguration -> BlockPublicAccessConfiguration
blockPublicAccessConfiguration} -> BlockPublicAccessConfiguration
blockPublicAccessConfiguration) (\s :: PutBlockPublicAccessConfiguration
s@PutBlockPublicAccessConfiguration' {} BlockPublicAccessConfiguration
a -> PutBlockPublicAccessConfiguration
s {$sel:blockPublicAccessConfiguration:PutBlockPublicAccessConfiguration' :: BlockPublicAccessConfiguration
blockPublicAccessConfiguration = BlockPublicAccessConfiguration
a} :: PutBlockPublicAccessConfiguration)
instance
Core.AWSRequest
PutBlockPublicAccessConfiguration
where
type
AWSResponse PutBlockPublicAccessConfiguration =
PutBlockPublicAccessConfigurationResponse
request :: (Service -> Service)
-> PutBlockPublicAccessConfiguration
-> Request PutBlockPublicAccessConfiguration
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 PutBlockPublicAccessConfiguration
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse PutBlockPublicAccessConfiguration)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> () -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveEmpty
( \Int
s ResponseHeaders
h ()
x ->
Int -> PutBlockPublicAccessConfigurationResponse
PutBlockPublicAccessConfigurationResponse'
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))
)
instance
Prelude.Hashable
PutBlockPublicAccessConfiguration
where
hashWithSalt :: Int -> PutBlockPublicAccessConfiguration -> Int
hashWithSalt
Int
_salt
PutBlockPublicAccessConfiguration' {BlockPublicAccessConfiguration
blockPublicAccessConfiguration :: BlockPublicAccessConfiguration
$sel:blockPublicAccessConfiguration:PutBlockPublicAccessConfiguration' :: PutBlockPublicAccessConfiguration -> BlockPublicAccessConfiguration
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` BlockPublicAccessConfiguration
blockPublicAccessConfiguration
instance
Prelude.NFData
PutBlockPublicAccessConfiguration
where
rnf :: PutBlockPublicAccessConfiguration -> ()
rnf PutBlockPublicAccessConfiguration' {BlockPublicAccessConfiguration
blockPublicAccessConfiguration :: BlockPublicAccessConfiguration
$sel:blockPublicAccessConfiguration:PutBlockPublicAccessConfiguration' :: PutBlockPublicAccessConfiguration -> BlockPublicAccessConfiguration
..} =
forall a. NFData a => a -> ()
Prelude.rnf BlockPublicAccessConfiguration
blockPublicAccessConfiguration
instance
Data.ToHeaders
PutBlockPublicAccessConfiguration
where
toHeaders :: PutBlockPublicAccessConfiguration -> 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.PutBlockPublicAccessConfiguration" ::
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
PutBlockPublicAccessConfiguration
where
toJSON :: PutBlockPublicAccessConfiguration -> Value
toJSON PutBlockPublicAccessConfiguration' {BlockPublicAccessConfiguration
blockPublicAccessConfiguration :: BlockPublicAccessConfiguration
$sel:blockPublicAccessConfiguration:PutBlockPublicAccessConfiguration' :: PutBlockPublicAccessConfiguration -> BlockPublicAccessConfiguration
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ forall a. a -> Maybe a
Prelude.Just
( Key
"BlockPublicAccessConfiguration"
forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= BlockPublicAccessConfiguration
blockPublicAccessConfiguration
)
]
)
instance
Data.ToPath
PutBlockPublicAccessConfiguration
where
toPath :: PutBlockPublicAccessConfiguration -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance
Data.ToQuery
PutBlockPublicAccessConfiguration
where
toQuery :: PutBlockPublicAccessConfiguration -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data PutBlockPublicAccessConfigurationResponse = PutBlockPublicAccessConfigurationResponse'
{
PutBlockPublicAccessConfigurationResponse -> Int
httpStatus :: Prelude.Int
}
deriving (PutBlockPublicAccessConfigurationResponse
-> PutBlockPublicAccessConfigurationResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PutBlockPublicAccessConfigurationResponse
-> PutBlockPublicAccessConfigurationResponse -> Bool
$c/= :: PutBlockPublicAccessConfigurationResponse
-> PutBlockPublicAccessConfigurationResponse -> Bool
== :: PutBlockPublicAccessConfigurationResponse
-> PutBlockPublicAccessConfigurationResponse -> Bool
$c== :: PutBlockPublicAccessConfigurationResponse
-> PutBlockPublicAccessConfigurationResponse -> Bool
Prelude.Eq, ReadPrec [PutBlockPublicAccessConfigurationResponse]
ReadPrec PutBlockPublicAccessConfigurationResponse
Int -> ReadS PutBlockPublicAccessConfigurationResponse
ReadS [PutBlockPublicAccessConfigurationResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [PutBlockPublicAccessConfigurationResponse]
$creadListPrec :: ReadPrec [PutBlockPublicAccessConfigurationResponse]
readPrec :: ReadPrec PutBlockPublicAccessConfigurationResponse
$creadPrec :: ReadPrec PutBlockPublicAccessConfigurationResponse
readList :: ReadS [PutBlockPublicAccessConfigurationResponse]
$creadList :: ReadS [PutBlockPublicAccessConfigurationResponse]
readsPrec :: Int -> ReadS PutBlockPublicAccessConfigurationResponse
$creadsPrec :: Int -> ReadS PutBlockPublicAccessConfigurationResponse
Prelude.Read, Int -> PutBlockPublicAccessConfigurationResponse -> ShowS
[PutBlockPublicAccessConfigurationResponse] -> ShowS
PutBlockPublicAccessConfigurationResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PutBlockPublicAccessConfigurationResponse] -> ShowS
$cshowList :: [PutBlockPublicAccessConfigurationResponse] -> ShowS
show :: PutBlockPublicAccessConfigurationResponse -> String
$cshow :: PutBlockPublicAccessConfigurationResponse -> String
showsPrec :: Int -> PutBlockPublicAccessConfigurationResponse -> ShowS
$cshowsPrec :: Int -> PutBlockPublicAccessConfigurationResponse -> ShowS
Prelude.Show, forall x.
Rep PutBlockPublicAccessConfigurationResponse x
-> PutBlockPublicAccessConfigurationResponse
forall x.
PutBlockPublicAccessConfigurationResponse
-> Rep PutBlockPublicAccessConfigurationResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep PutBlockPublicAccessConfigurationResponse x
-> PutBlockPublicAccessConfigurationResponse
$cfrom :: forall x.
PutBlockPublicAccessConfigurationResponse
-> Rep PutBlockPublicAccessConfigurationResponse x
Prelude.Generic)
newPutBlockPublicAccessConfigurationResponse ::
Prelude.Int ->
PutBlockPublicAccessConfigurationResponse
newPutBlockPublicAccessConfigurationResponse :: Int -> PutBlockPublicAccessConfigurationResponse
newPutBlockPublicAccessConfigurationResponse
Int
pHttpStatus_ =
PutBlockPublicAccessConfigurationResponse'
{ $sel:httpStatus:PutBlockPublicAccessConfigurationResponse' :: Int
httpStatus =
Int
pHttpStatus_
}
putBlockPublicAccessConfigurationResponse_httpStatus :: Lens.Lens' PutBlockPublicAccessConfigurationResponse Prelude.Int
putBlockPublicAccessConfigurationResponse_httpStatus :: Lens' PutBlockPublicAccessConfigurationResponse Int
putBlockPublicAccessConfigurationResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutBlockPublicAccessConfigurationResponse' {Int
httpStatus :: Int
$sel:httpStatus:PutBlockPublicAccessConfigurationResponse' :: PutBlockPublicAccessConfigurationResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: PutBlockPublicAccessConfigurationResponse
s@PutBlockPublicAccessConfigurationResponse' {} Int
a -> PutBlockPublicAccessConfigurationResponse
s {$sel:httpStatus:PutBlockPublicAccessConfigurationResponse' :: Int
httpStatus = Int
a} :: PutBlockPublicAccessConfigurationResponse)
instance
Prelude.NFData
PutBlockPublicAccessConfigurationResponse
where
rnf :: PutBlockPublicAccessConfigurationResponse -> ()
rnf PutBlockPublicAccessConfigurationResponse' {Int
httpStatus :: Int
$sel:httpStatus:PutBlockPublicAccessConfigurationResponse' :: PutBlockPublicAccessConfigurationResponse -> Int
..} =
forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus