{-# 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.IAM.PutUserPermissionsBoundary
(
PutUserPermissionsBoundary (..),
newPutUserPermissionsBoundary,
putUserPermissionsBoundary_userName,
putUserPermissionsBoundary_permissionsBoundary,
PutUserPermissionsBoundaryResponse (..),
newPutUserPermissionsBoundaryResponse,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.IAM.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data PutUserPermissionsBoundary = PutUserPermissionsBoundary'
{
PutUserPermissionsBoundary -> Text
userName :: Prelude.Text,
PutUserPermissionsBoundary -> Text
permissionsBoundary :: Prelude.Text
}
deriving (PutUserPermissionsBoundary -> PutUserPermissionsBoundary -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PutUserPermissionsBoundary -> PutUserPermissionsBoundary -> Bool
$c/= :: PutUserPermissionsBoundary -> PutUserPermissionsBoundary -> Bool
== :: PutUserPermissionsBoundary -> PutUserPermissionsBoundary -> Bool
$c== :: PutUserPermissionsBoundary -> PutUserPermissionsBoundary -> Bool
Prelude.Eq, ReadPrec [PutUserPermissionsBoundary]
ReadPrec PutUserPermissionsBoundary
Int -> ReadS PutUserPermissionsBoundary
ReadS [PutUserPermissionsBoundary]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [PutUserPermissionsBoundary]
$creadListPrec :: ReadPrec [PutUserPermissionsBoundary]
readPrec :: ReadPrec PutUserPermissionsBoundary
$creadPrec :: ReadPrec PutUserPermissionsBoundary
readList :: ReadS [PutUserPermissionsBoundary]
$creadList :: ReadS [PutUserPermissionsBoundary]
readsPrec :: Int -> ReadS PutUserPermissionsBoundary
$creadsPrec :: Int -> ReadS PutUserPermissionsBoundary
Prelude.Read, Int -> PutUserPermissionsBoundary -> ShowS
[PutUserPermissionsBoundary] -> ShowS
PutUserPermissionsBoundary -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PutUserPermissionsBoundary] -> ShowS
$cshowList :: [PutUserPermissionsBoundary] -> ShowS
show :: PutUserPermissionsBoundary -> String
$cshow :: PutUserPermissionsBoundary -> String
showsPrec :: Int -> PutUserPermissionsBoundary -> ShowS
$cshowsPrec :: Int -> PutUserPermissionsBoundary -> ShowS
Prelude.Show, forall x.
Rep PutUserPermissionsBoundary x -> PutUserPermissionsBoundary
forall x.
PutUserPermissionsBoundary -> Rep PutUserPermissionsBoundary x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep PutUserPermissionsBoundary x -> PutUserPermissionsBoundary
$cfrom :: forall x.
PutUserPermissionsBoundary -> Rep PutUserPermissionsBoundary x
Prelude.Generic)
newPutUserPermissionsBoundary ::
Prelude.Text ->
Prelude.Text ->
PutUserPermissionsBoundary
newPutUserPermissionsBoundary :: Text -> Text -> PutUserPermissionsBoundary
newPutUserPermissionsBoundary
Text
pUserName_
Text
pPermissionsBoundary_ =
PutUserPermissionsBoundary'
{ $sel:userName:PutUserPermissionsBoundary' :: Text
userName = Text
pUserName_,
$sel:permissionsBoundary:PutUserPermissionsBoundary' :: Text
permissionsBoundary = Text
pPermissionsBoundary_
}
putUserPermissionsBoundary_userName :: Lens.Lens' PutUserPermissionsBoundary Prelude.Text
putUserPermissionsBoundary_userName :: Lens' PutUserPermissionsBoundary Text
putUserPermissionsBoundary_userName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutUserPermissionsBoundary' {Text
userName :: Text
$sel:userName:PutUserPermissionsBoundary' :: PutUserPermissionsBoundary -> Text
userName} -> Text
userName) (\s :: PutUserPermissionsBoundary
s@PutUserPermissionsBoundary' {} Text
a -> PutUserPermissionsBoundary
s {$sel:userName:PutUserPermissionsBoundary' :: Text
userName = Text
a} :: PutUserPermissionsBoundary)
putUserPermissionsBoundary_permissionsBoundary :: Lens.Lens' PutUserPermissionsBoundary Prelude.Text
putUserPermissionsBoundary_permissionsBoundary :: Lens' PutUserPermissionsBoundary Text
putUserPermissionsBoundary_permissionsBoundary = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutUserPermissionsBoundary' {Text
permissionsBoundary :: Text
$sel:permissionsBoundary:PutUserPermissionsBoundary' :: PutUserPermissionsBoundary -> Text
permissionsBoundary} -> Text
permissionsBoundary) (\s :: PutUserPermissionsBoundary
s@PutUserPermissionsBoundary' {} Text
a -> PutUserPermissionsBoundary
s {$sel:permissionsBoundary:PutUserPermissionsBoundary' :: Text
permissionsBoundary = Text
a} :: PutUserPermissionsBoundary)
instance Core.AWSRequest PutUserPermissionsBoundary where
type
AWSResponse PutUserPermissionsBoundary =
PutUserPermissionsBoundaryResponse
request :: (Service -> Service)
-> PutUserPermissionsBoundary -> Request PutUserPermissionsBoundary
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 PutUserPermissionsBoundary
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse PutUserPermissionsBoundary)))
response =
forall (m :: * -> *) a.
MonadResource m =>
AWSResponse a
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveNull
PutUserPermissionsBoundaryResponse
PutUserPermissionsBoundaryResponse'
instance Prelude.Hashable PutUserPermissionsBoundary where
hashWithSalt :: Int -> PutUserPermissionsBoundary -> Int
hashWithSalt Int
_salt PutUserPermissionsBoundary' {Text
permissionsBoundary :: Text
userName :: Text
$sel:permissionsBoundary:PutUserPermissionsBoundary' :: PutUserPermissionsBoundary -> Text
$sel:userName:PutUserPermissionsBoundary' :: PutUserPermissionsBoundary -> Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
userName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
permissionsBoundary
instance Prelude.NFData PutUserPermissionsBoundary where
rnf :: PutUserPermissionsBoundary -> ()
rnf PutUserPermissionsBoundary' {Text
permissionsBoundary :: Text
userName :: Text
$sel:permissionsBoundary:PutUserPermissionsBoundary' :: PutUserPermissionsBoundary -> Text
$sel:userName:PutUserPermissionsBoundary' :: PutUserPermissionsBoundary -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
userName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
permissionsBoundary
instance Data.ToHeaders PutUserPermissionsBoundary where
toHeaders :: PutUserPermissionsBoundary -> [Header]
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath PutUserPermissionsBoundary where
toPath :: PutUserPermissionsBoundary -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery PutUserPermissionsBoundary where
toQuery :: PutUserPermissionsBoundary -> QueryString
toQuery PutUserPermissionsBoundary' {Text
permissionsBoundary :: Text
userName :: Text
$sel:permissionsBoundary:PutUserPermissionsBoundary' :: PutUserPermissionsBoundary -> Text
$sel:userName:PutUserPermissionsBoundary' :: PutUserPermissionsBoundary -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"PutUserPermissionsBoundary" :: Prelude.ByteString),
ByteString
"Version"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2010-05-08" :: Prelude.ByteString),
ByteString
"UserName" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
userName,
ByteString
"PermissionsBoundary" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
permissionsBoundary
]
data PutUserPermissionsBoundaryResponse = PutUserPermissionsBoundaryResponse'
{
}
deriving (PutUserPermissionsBoundaryResponse
-> PutUserPermissionsBoundaryResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PutUserPermissionsBoundaryResponse
-> PutUserPermissionsBoundaryResponse -> Bool
$c/= :: PutUserPermissionsBoundaryResponse
-> PutUserPermissionsBoundaryResponse -> Bool
== :: PutUserPermissionsBoundaryResponse
-> PutUserPermissionsBoundaryResponse -> Bool
$c== :: PutUserPermissionsBoundaryResponse
-> PutUserPermissionsBoundaryResponse -> Bool
Prelude.Eq, ReadPrec [PutUserPermissionsBoundaryResponse]
ReadPrec PutUserPermissionsBoundaryResponse
Int -> ReadS PutUserPermissionsBoundaryResponse
ReadS [PutUserPermissionsBoundaryResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [PutUserPermissionsBoundaryResponse]
$creadListPrec :: ReadPrec [PutUserPermissionsBoundaryResponse]
readPrec :: ReadPrec PutUserPermissionsBoundaryResponse
$creadPrec :: ReadPrec PutUserPermissionsBoundaryResponse
readList :: ReadS [PutUserPermissionsBoundaryResponse]
$creadList :: ReadS [PutUserPermissionsBoundaryResponse]
readsPrec :: Int -> ReadS PutUserPermissionsBoundaryResponse
$creadsPrec :: Int -> ReadS PutUserPermissionsBoundaryResponse
Prelude.Read, Int -> PutUserPermissionsBoundaryResponse -> ShowS
[PutUserPermissionsBoundaryResponse] -> ShowS
PutUserPermissionsBoundaryResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PutUserPermissionsBoundaryResponse] -> ShowS
$cshowList :: [PutUserPermissionsBoundaryResponse] -> ShowS
show :: PutUserPermissionsBoundaryResponse -> String
$cshow :: PutUserPermissionsBoundaryResponse -> String
showsPrec :: Int -> PutUserPermissionsBoundaryResponse -> ShowS
$cshowsPrec :: Int -> PutUserPermissionsBoundaryResponse -> ShowS
Prelude.Show, forall x.
Rep PutUserPermissionsBoundaryResponse x
-> PutUserPermissionsBoundaryResponse
forall x.
PutUserPermissionsBoundaryResponse
-> Rep PutUserPermissionsBoundaryResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep PutUserPermissionsBoundaryResponse x
-> PutUserPermissionsBoundaryResponse
$cfrom :: forall x.
PutUserPermissionsBoundaryResponse
-> Rep PutUserPermissionsBoundaryResponse x
Prelude.Generic)
newPutUserPermissionsBoundaryResponse ::
PutUserPermissionsBoundaryResponse
newPutUserPermissionsBoundaryResponse :: PutUserPermissionsBoundaryResponse
newPutUserPermissionsBoundaryResponse =
PutUserPermissionsBoundaryResponse
PutUserPermissionsBoundaryResponse'
instance
Prelude.NFData
PutUserPermissionsBoundaryResponse
where
rnf :: PutUserPermissionsBoundaryResponse -> ()
rnf PutUserPermissionsBoundaryResponse
_ = ()