module Network.AWS.IAM.UploadServerCertificate
(
UploadServerCertificate
, uploadServerCertificate
, uscCertificateBody
, uscCertificateChain
, uscPath
, uscPrivateKey
, uscServerCertificateName
, UploadServerCertificateResponse
, uploadServerCertificateResponse
, uscrServerCertificateMetadata
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.IAM.Types
import qualified GHC.Exts
data UploadServerCertificate = UploadServerCertificate
{ _uscCertificateBody :: Text
, _uscCertificateChain :: Maybe Text
, _uscPath :: Maybe Text
, _uscPrivateKey :: Sensitive Text
, _uscServerCertificateName :: Text
} deriving (Eq, Ord, Show)
uploadServerCertificate :: Text
-> Text
-> Text
-> UploadServerCertificate
uploadServerCertificate p1 p2 p3 = UploadServerCertificate
{ _uscServerCertificateName = p1
, _uscCertificateBody = p2
, _uscPrivateKey = withIso _Sensitive (const id) p3
, _uscPath = Nothing
, _uscCertificateChain = Nothing
}
uscCertificateBody :: Lens' UploadServerCertificate Text
uscCertificateBody =
lens _uscCertificateBody (\s a -> s { _uscCertificateBody = a })
uscCertificateChain :: Lens' UploadServerCertificate (Maybe Text)
uscCertificateChain =
lens _uscCertificateChain (\s a -> s { _uscCertificateChain = a })
uscPath :: Lens' UploadServerCertificate (Maybe Text)
uscPath = lens _uscPath (\s a -> s { _uscPath = a })
uscPrivateKey :: Lens' UploadServerCertificate Text
uscPrivateKey = lens _uscPrivateKey (\s a -> s { _uscPrivateKey = a }) . _Sensitive
uscServerCertificateName :: Lens' UploadServerCertificate Text
uscServerCertificateName =
lens _uscServerCertificateName
(\s a -> s { _uscServerCertificateName = a })
newtype UploadServerCertificateResponse = UploadServerCertificateResponse
{ _uscrServerCertificateMetadata :: Maybe ServerCertificateMetadata
} deriving (Eq, Show)
uploadServerCertificateResponse :: UploadServerCertificateResponse
uploadServerCertificateResponse = UploadServerCertificateResponse
{ _uscrServerCertificateMetadata = Nothing
}
uscrServerCertificateMetadata :: Lens' UploadServerCertificateResponse (Maybe ServerCertificateMetadata)
uscrServerCertificateMetadata =
lens _uscrServerCertificateMetadata
(\s a -> s { _uscrServerCertificateMetadata = a })
instance ToPath UploadServerCertificate where
toPath = const "/"
instance ToQuery UploadServerCertificate where
toQuery UploadServerCertificate{..} = mconcat
[ "CertificateBody" =? _uscCertificateBody
, "CertificateChain" =? _uscCertificateChain
, "Path" =? _uscPath
, "PrivateKey" =? _uscPrivateKey
, "ServerCertificateName" =? _uscServerCertificateName
]
instance ToHeaders UploadServerCertificate
instance AWSRequest UploadServerCertificate where
type Sv UploadServerCertificate = IAM
type Rs UploadServerCertificate = UploadServerCertificateResponse
request = post "UploadServerCertificate"
response = xmlResponse
instance FromXML UploadServerCertificateResponse where
parseXML = withElement "UploadServerCertificateResult" $ \x -> UploadServerCertificateResponse
<$> x .@? "ServerCertificateMetadata"