{-# 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.CodeStar.CreateProject
(
createProject
, CreateProject
, cpClientRequestToken
, cpDescription
, cpName
, cpId
, createProjectResponse
, CreateProjectResponse
, cprsProjectTemplateId
, cprsClientRequestToken
, cprsResponseStatus
, cprsId
, cprsArn
) where
import Network.AWS.CodeStar.Types
import Network.AWS.CodeStar.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data CreateProject = CreateProject'
{ _cpClientRequestToken :: !(Maybe Text)
, _cpDescription :: !(Maybe (Sensitive Text))
, _cpName :: !(Sensitive Text)
, _cpId :: !Text
} deriving (Eq, Show, Data, Typeable, Generic)
createProject
:: Text
-> Text
-> CreateProject
createProject pName_ pId_ =
CreateProject'
{ _cpClientRequestToken = Nothing
, _cpDescription = Nothing
, _cpName = _Sensitive # pName_
, _cpId = pId_
}
cpClientRequestToken :: Lens' CreateProject (Maybe Text)
cpClientRequestToken = lens _cpClientRequestToken (\ s a -> s{_cpClientRequestToken = a})
cpDescription :: Lens' CreateProject (Maybe Text)
cpDescription = lens _cpDescription (\ s a -> s{_cpDescription = a}) . mapping _Sensitive
cpName :: Lens' CreateProject Text
cpName = lens _cpName (\ s a -> s{_cpName = a}) . _Sensitive
cpId :: Lens' CreateProject Text
cpId = lens _cpId (\ s a -> s{_cpId = a})
instance AWSRequest CreateProject where
type Rs CreateProject = CreateProjectResponse
request = postJSON codeStar
response
= receiveJSON
(\ s h x ->
CreateProjectResponse' <$>
(x .?> "projectTemplateId") <*>
(x .?> "clientRequestToken")
<*> (pure (fromEnum s))
<*> (x .:> "id")
<*> (x .:> "arn"))
instance Hashable CreateProject where
instance NFData CreateProject where
instance ToHeaders CreateProject where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("CodeStar_20170419.CreateProject" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON CreateProject where
toJSON CreateProject'{..}
= object
(catMaybes
[("clientRequestToken" .=) <$> _cpClientRequestToken,
("description" .=) <$> _cpDescription,
Just ("name" .= _cpName), Just ("id" .= _cpId)])
instance ToPath CreateProject where
toPath = const "/"
instance ToQuery CreateProject where
toQuery = const mempty
data CreateProjectResponse = CreateProjectResponse'
{ _cprsProjectTemplateId :: !(Maybe Text)
, _cprsClientRequestToken :: !(Maybe Text)
, _cprsResponseStatus :: !Int
, _cprsId :: !Text
, _cprsArn :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
createProjectResponse
:: Int
-> Text
-> Text
-> CreateProjectResponse
createProjectResponse pResponseStatus_ pId_ pArn_ =
CreateProjectResponse'
{ _cprsProjectTemplateId = Nothing
, _cprsClientRequestToken = Nothing
, _cprsResponseStatus = pResponseStatus_
, _cprsId = pId_
, _cprsArn = pArn_
}
cprsProjectTemplateId :: Lens' CreateProjectResponse (Maybe Text)
cprsProjectTemplateId = lens _cprsProjectTemplateId (\ s a -> s{_cprsProjectTemplateId = a})
cprsClientRequestToken :: Lens' CreateProjectResponse (Maybe Text)
cprsClientRequestToken = lens _cprsClientRequestToken (\ s a -> s{_cprsClientRequestToken = a})
cprsResponseStatus :: Lens' CreateProjectResponse Int
cprsResponseStatus = lens _cprsResponseStatus (\ s a -> s{_cprsResponseStatus = a})
cprsId :: Lens' CreateProjectResponse Text
cprsId = lens _cprsId (\ s a -> s{_cprsId = a})
cprsArn :: Lens' CreateProjectResponse Text
cprsArn = lens _cprsArn (\ s a -> s{_cprsArn = a})
instance NFData CreateProjectResponse where