{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Network.AWS.EC2.ImportKeyPair
(
importKeyPair
, ImportKeyPair
, ikpDryRun
, ikpKeyName
, ikpPublicKeyMaterial
, importKeyPairResponse
, ImportKeyPairResponse
, ikprsKeyFingerprint
, ikprsKeyName
, ikprsResponseStatus
) where
import Network.AWS.EC2.Types
import Network.AWS.EC2.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data ImportKeyPair = ImportKeyPair'
{ _ikpDryRun :: !(Maybe Bool)
, _ikpKeyName :: !Text
, _ikpPublicKeyMaterial :: !Base64
} deriving (Eq,Read,Show,Data,Typeable,Generic)
importKeyPair
:: Text
-> ByteString
-> ImportKeyPair
importKeyPair pKeyName_ pPublicKeyMaterial_ =
ImportKeyPair'
{ _ikpDryRun = Nothing
, _ikpKeyName = pKeyName_
, _ikpPublicKeyMaterial = _Base64 # pPublicKeyMaterial_
}
ikpDryRun :: Lens' ImportKeyPair (Maybe Bool)
ikpDryRun = lens _ikpDryRun (\ s a -> s{_ikpDryRun = a});
ikpKeyName :: Lens' ImportKeyPair Text
ikpKeyName = lens _ikpKeyName (\ s a -> s{_ikpKeyName = a});
ikpPublicKeyMaterial :: Lens' ImportKeyPair ByteString
ikpPublicKeyMaterial = lens _ikpPublicKeyMaterial (\ s a -> s{_ikpPublicKeyMaterial = a}) . _Base64;
instance AWSRequest ImportKeyPair where
type Rs ImportKeyPair = ImportKeyPairResponse
request = postQuery ec2
response
= receiveXML
(\ s h x ->
ImportKeyPairResponse' <$>
(x .@? "keyFingerprint") <*> (x .@? "keyName") <*>
(pure (fromEnum s)))
instance Hashable ImportKeyPair
instance NFData ImportKeyPair
instance ToHeaders ImportKeyPair where
toHeaders = const mempty
instance ToPath ImportKeyPair where
toPath = const "/"
instance ToQuery ImportKeyPair where
toQuery ImportKeyPair'{..}
= mconcat
["Action" =: ("ImportKeyPair" :: ByteString),
"Version" =: ("2016-04-01" :: ByteString),
"DryRun" =: _ikpDryRun, "KeyName" =: _ikpKeyName,
"PublicKeyMaterial" =: _ikpPublicKeyMaterial]
data ImportKeyPairResponse = ImportKeyPairResponse'
{ _ikprsKeyFingerprint :: !(Maybe Text)
, _ikprsKeyName :: !(Maybe Text)
, _ikprsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
importKeyPairResponse
:: Int
-> ImportKeyPairResponse
importKeyPairResponse pResponseStatus_ =
ImportKeyPairResponse'
{ _ikprsKeyFingerprint = Nothing
, _ikprsKeyName = Nothing
, _ikprsResponseStatus = pResponseStatus_
}
ikprsKeyFingerprint :: Lens' ImportKeyPairResponse (Maybe Text)
ikprsKeyFingerprint = lens _ikprsKeyFingerprint (\ s a -> s{_ikprsKeyFingerprint = a});
ikprsKeyName :: Lens' ImportKeyPairResponse (Maybe Text)
ikprsKeyName = lens _ikprsKeyName (\ s a -> s{_ikprsKeyName = a});
ikprsResponseStatus :: Lens' ImportKeyPairResponse Int
ikprsResponseStatus = lens _ikprsResponseStatus (\ s a -> s{_ikprsResponseStatus = a});
instance NFData ImportKeyPairResponse