{-# 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.Lambda.CreateAlias
(
createAlias
, CreateAlias
, caDescription
, caFunctionName
, caName
, caFunctionVersion
, aliasConfiguration
, AliasConfiguration
, acName
, acFunctionVersion
, acAliasARN
, acDescription
) where
import Network.AWS.Lambda.Types
import Network.AWS.Lambda.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data CreateAlias = CreateAlias'
{ _caDescription :: !(Maybe Text)
, _caFunctionName :: !Text
, _caName :: !Text
, _caFunctionVersion :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
createAlias
:: Text
-> Text
-> Text
-> CreateAlias
createAlias pFunctionName_ pName_ pFunctionVersion_ =
CreateAlias'
{ _caDescription = Nothing
, _caFunctionName = pFunctionName_
, _caName = pName_
, _caFunctionVersion = pFunctionVersion_
}
caDescription :: Lens' CreateAlias (Maybe Text)
caDescription = lens _caDescription (\ s a -> s{_caDescription = a});
caFunctionName :: Lens' CreateAlias Text
caFunctionName = lens _caFunctionName (\ s a -> s{_caFunctionName = a});
caName :: Lens' CreateAlias Text
caName = lens _caName (\ s a -> s{_caName = a});
caFunctionVersion :: Lens' CreateAlias Text
caFunctionVersion = lens _caFunctionVersion (\ s a -> s{_caFunctionVersion = a});
instance AWSRequest CreateAlias where
type Rs CreateAlias = AliasConfiguration
request = postJSON lambda
response = receiveJSON (\ s h x -> eitherParseJSON x)
instance Hashable CreateAlias
instance NFData CreateAlias
instance ToHeaders CreateAlias where
toHeaders = const mempty
instance ToJSON CreateAlias where
toJSON CreateAlias'{..}
= object
(catMaybes
[("Description" .=) <$> _caDescription,
Just ("Name" .= _caName),
Just ("FunctionVersion" .= _caFunctionVersion)])
instance ToPath CreateAlias where
toPath CreateAlias'{..}
= mconcat
["/2015-03-31/functions/", toBS _caFunctionName,
"/aliases"]
instance ToQuery CreateAlias where
toQuery = const mempty