{-# 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.CodePipeline.CreatePipeline
(
createPipeline
, CreatePipeline
, cpPipeline
, createPipelineResponse
, CreatePipelineResponse
, cprsPipeline
, cprsResponseStatus
) where
import Network.AWS.CodePipeline.Types
import Network.AWS.CodePipeline.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype CreatePipeline = CreatePipeline'
{ _cpPipeline :: PipelineDeclaration
} deriving (Eq, Read, Show, Data, Typeable, Generic)
createPipeline
:: PipelineDeclaration
-> CreatePipeline
createPipeline pPipeline_ = CreatePipeline' {_cpPipeline = pPipeline_}
cpPipeline :: Lens' CreatePipeline PipelineDeclaration
cpPipeline = lens _cpPipeline (\ s a -> s{_cpPipeline = a})
instance AWSRequest CreatePipeline where
type Rs CreatePipeline = CreatePipelineResponse
request = postJSON codePipeline
response
= receiveJSON
(\ s h x ->
CreatePipelineResponse' <$>
(x .?> "pipeline") <*> (pure (fromEnum s)))
instance Hashable CreatePipeline where
instance NFData CreatePipeline where
instance ToHeaders CreatePipeline where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("CodePipeline_20150709.CreatePipeline" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON CreatePipeline where
toJSON CreatePipeline'{..}
= object
(catMaybes [Just ("pipeline" .= _cpPipeline)])
instance ToPath CreatePipeline where
toPath = const "/"
instance ToQuery CreatePipeline where
toQuery = const mempty
data CreatePipelineResponse = CreatePipelineResponse'
{ _cprsPipeline :: !(Maybe PipelineDeclaration)
, _cprsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
createPipelineResponse
:: Int
-> CreatePipelineResponse
createPipelineResponse pResponseStatus_ =
CreatePipelineResponse'
{_cprsPipeline = Nothing, _cprsResponseStatus = pResponseStatus_}
cprsPipeline :: Lens' CreatePipelineResponse (Maybe PipelineDeclaration)
cprsPipeline = lens _cprsPipeline (\ s a -> s{_cprsPipeline = a})
cprsResponseStatus :: Lens' CreatePipelineResponse Int
cprsResponseStatus = lens _cprsResponseStatus (\ s a -> s{_cprsResponseStatus = a})
instance NFData CreatePipelineResponse where