Network.AWS.MediaStore.PutCORSPolicy

Sets the cross-origin resource sharing (CORS) configuration on a container so that the container can service cross-origin requests. For example, you might want to enable a request whose origin is http://www.example.com to access your AWS Elemental MediaStore container at my.example.container.com by using the browser's XMLHttpRequest capability.

To enable CORS on a container, you attach a CORS policy to the container. In the CORS policy, you configure rules that identify origins and the HTTP methods that can be executed on your container. The policy can contain up to 398,000 characters. You can add up to 100 rules to a CORS policy. If more than one rule applies, the service uses the first applicable rule listed.

Creating a Request

putCORSPolicy

Arguments

:: Text

pcpContainerName

-> NonEmpty CORSRule

pcpCORSPolicy

-> PutCORSPolicy

Creates a value of PutCORSPolicy with the minimum fields required to make a request.

Use one of the following lenses to modify other fields as desired:

• pcpContainerName - The name of the container that you want to assign the CORS policy to.
• pcpCORSPolicy - The CORS policy to apply to the container.

data PutCORSPolicy

See: putCORSPolicy smart constructor.

Instances

Eq PutCORSPolicy

Methods

(==) :: PutCORSPolicy -> PutCORSPolicy -> Bool

(/=) :: PutCORSPolicy -> PutCORSPolicy -> Bool

Data PutCORSPolicy

Methods

gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> PutCORSPolicy -> c PutCORSPolicy

gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c PutCORSPolicy

toConstr :: PutCORSPolicy -> Constr

dataTypeOf :: PutCORSPolicy -> DataType

dataCast1 :: Typeable (* -> *) t => (forall d. Data d => c (t d)) -> Maybe (c PutCORSPolicy)

dataCast2 :: Typeable (* -> * -> *) t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c PutCORSPolicy)

gmapT :: (forall b. Data b => b -> b) -> PutCORSPolicy -> PutCORSPolicy

gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> PutCORSPolicy -> r

gmapQr :: (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> PutCORSPolicy -> r

gmapQ :: (forall d. Data d => d -> u) -> PutCORSPolicy -> [u]

gmapQi :: Int -> (forall d. Data d => d -> u) -> PutCORSPolicy -> u

gmapM :: Monad m => (forall d. Data d => d -> m d) -> PutCORSPolicy -> m PutCORSPolicy

gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> PutCORSPolicy -> m PutCORSPolicy

gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> PutCORSPolicy -> m PutCORSPolicy

Read PutCORSPolicy

Methods

readsPrec :: Int -> ReadS PutCORSPolicy

readList :: ReadS [PutCORSPolicy]

readPrec :: ReadPrec PutCORSPolicy

readListPrec :: ReadPrec [PutCORSPolicy]

Show PutCORSPolicy

Methods

showsPrec :: Int -> PutCORSPolicy -> ShowS

show :: PutCORSPolicy -> String

showList :: [PutCORSPolicy] -> ShowS

Generic PutCORSPolicy

Associated Types

type Rep PutCORSPolicy :: * -> *

Methods

from :: PutCORSPolicy -> Rep PutCORSPolicy x

to :: Rep PutCORSPolicy x -> PutCORSPolicy

Hashable PutCORSPolicy

Methods

hashWithSalt :: Int -> PutCORSPolicy -> Int

hash :: PutCORSPolicy -> Int

ToJSON PutCORSPolicy

Methods

toJSON :: PutCORSPolicy -> Value

toEncoding :: PutCORSPolicy -> Encoding

toJSONList :: [PutCORSPolicy] -> Value

toEncodingList :: [PutCORSPolicy] -> Encoding

NFData PutCORSPolicy

Methods

rnf :: PutCORSPolicy -> ()

AWSRequest PutCORSPolicy

Associated Types

type Rs PutCORSPolicy :: *

Methods

request :: PutCORSPolicy -> Request PutCORSPolicy

response :: (MonadResource m, MonadThrow m) => Logger -> Service -> Proxy * PutCORSPolicy -> ClientResponse -> m (Response PutCORSPolicy)

ToHeaders PutCORSPolicy

Methods

toHeaders :: PutCORSPolicy -> [Header]

ToPath PutCORSPolicy

Methods

toPath :: PutCORSPolicy -> ByteString

ToQuery PutCORSPolicy

Methods

toQuery :: PutCORSPolicy -> QueryString

type Rep PutCORSPolicy

type Rep PutCORSPolicy = D1 * (MetaData "PutCORSPolicy" "Network.AWS.MediaStore.PutCORSPolicy" "amazonka-mediastore-1.6.0-A5BXmXPQvTC35jIUjzEuvm" False) (C1 * (MetaCons "PutCORSPolicy'" PrefixI True) ((:*:) * (S1 * (MetaSel (Just Symbol "_pcpContainerName") NoSourceUnpackedness SourceStrict DecidedStrict) (Rec0 * Text)) (S1 * (MetaSel (Just Symbol "_pcpCORSPolicy") NoSourceUnpackedness SourceStrict DecidedStrict) (Rec0 * (List1 CORSRule)))))

type Rs PutCORSPolicy

type Rs PutCORSPolicy = PutCORSPolicyResponse

Request Lenses

pcpContainerName :: Lens' PutCORSPolicy Text

The name of the container that you want to assign the CORS policy to.

pcpCORSPolicy :: Lens' PutCORSPolicy (NonEmpty CORSRule)

The CORS policy to apply to the container.

Destructuring the Response

putCORSPolicyResponse

Arguments

:: Int

pcorsprsResponseStatus

-> PutCORSPolicyResponse

Creates a value of PutCORSPolicyResponse with the minimum fields required to make a request.

Use one of the following lenses to modify other fields as desired:

• pcorsprsResponseStatus - -- | The response status code.

data PutCORSPolicyResponse

See: putCORSPolicyResponse smart constructor.

Instances

Eq PutCORSPolicyResponse

Methods

(==) :: PutCORSPolicyResponse -> PutCORSPolicyResponse -> Bool

(/=) :: PutCORSPolicyResponse -> PutCORSPolicyResponse -> Bool

Data PutCORSPolicyResponse

Methods

gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> PutCORSPolicyResponse -> c PutCORSPolicyResponse

gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c PutCORSPolicyResponse

toConstr :: PutCORSPolicyResponse -> Constr

dataTypeOf :: PutCORSPolicyResponse -> DataType

dataCast1 :: Typeable (* -> *) t => (forall d. Data d => c (t d)) -> Maybe (c PutCORSPolicyResponse)

dataCast2 :: Typeable (* -> * -> *) t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c PutCORSPolicyResponse)

gmapT :: (forall b. Data b => b -> b) -> PutCORSPolicyResponse -> PutCORSPolicyResponse

gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> PutCORSPolicyResponse -> r

gmapQr :: (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> PutCORSPolicyResponse -> r

gmapQ :: (forall d. Data d => d -> u) -> PutCORSPolicyResponse -> [u]

gmapQi :: Int -> (forall d. Data d => d -> u) -> PutCORSPolicyResponse -> u

gmapM :: Monad m => (forall d. Data d => d -> m d) -> PutCORSPolicyResponse -> m PutCORSPolicyResponse

gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> PutCORSPolicyResponse -> m PutCORSPolicyResponse

gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> PutCORSPolicyResponse -> m PutCORSPolicyResponse

Read PutCORSPolicyResponse

Methods

readsPrec :: Int -> ReadS PutCORSPolicyResponse

readList :: ReadS [PutCORSPolicyResponse]

readPrec :: ReadPrec PutCORSPolicyResponse

readListPrec :: ReadPrec [PutCORSPolicyResponse]

Show PutCORSPolicyResponse

Methods

showsPrec :: Int -> PutCORSPolicyResponse -> ShowS

show :: PutCORSPolicyResponse -> String

showList :: [PutCORSPolicyResponse] -> ShowS

Generic PutCORSPolicyResponse

Associated Types

type Rep PutCORSPolicyResponse :: * -> *

Methods

from :: PutCORSPolicyResponse -> Rep PutCORSPolicyResponse x

to :: Rep PutCORSPolicyResponse x -> PutCORSPolicyResponse

NFData PutCORSPolicyResponse

Methods

rnf :: PutCORSPolicyResponse -> ()

type Rep PutCORSPolicyResponse

type Rep PutCORSPolicyResponse = D1 * (MetaData "PutCORSPolicyResponse" "Network.AWS.MediaStore.PutCORSPolicy" "amazonka-mediastore-1.6.0-A5BXmXPQvTC35jIUjzEuvm" True) (C1 * (MetaCons "PutCORSPolicyResponse'" PrefixI True) (S1 * (MetaSel (Just Symbol "_pcorsprsResponseStatus") NoSourceUnpackedness NoSourceStrictness DecidedLazy) (Rec0 * Int)))

Response Lenses

pcorsprsResponseStatus :: Lens' PutCORSPolicyResponse Int

• - | The response status code.