module Network.AWS.DeviceFarm.UpdateProject
(
updateProject
, UpdateProject
, upName
, upDefaultJobTimeoutMinutes
, upArn
, updateProjectResponse
, UpdateProjectResponse
, uprsProject
, uprsResponseStatus
) where
import Network.AWS.DeviceFarm.Types
import Network.AWS.DeviceFarm.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data UpdateProject = UpdateProject'
{ _upName :: !(Maybe Text)
, _upDefaultJobTimeoutMinutes :: !(Maybe Int)
, _upArn :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
updateProject
:: Text
-> UpdateProject
updateProject pArn_ =
UpdateProject'
{_upName = Nothing, _upDefaultJobTimeoutMinutes = Nothing, _upArn = pArn_}
upName :: Lens' UpdateProject (Maybe Text)
upName = lens _upName (\ s a -> s{_upName = a});
upDefaultJobTimeoutMinutes :: Lens' UpdateProject (Maybe Int)
upDefaultJobTimeoutMinutes = lens _upDefaultJobTimeoutMinutes (\ s a -> s{_upDefaultJobTimeoutMinutes = a});
upArn :: Lens' UpdateProject Text
upArn = lens _upArn (\ s a -> s{_upArn = a});
instance AWSRequest UpdateProject where
type Rs UpdateProject = UpdateProjectResponse
request = postJSON deviceFarm
response
= receiveJSON
(\ s h x ->
UpdateProjectResponse' <$>
(x .?> "project") <*> (pure (fromEnum s)))
instance Hashable UpdateProject where
instance NFData UpdateProject where
instance ToHeaders UpdateProject where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("DeviceFarm_20150623.UpdateProject" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON UpdateProject where
toJSON UpdateProject'{..}
= object
(catMaybes
[("name" .=) <$> _upName,
("defaultJobTimeoutMinutes" .=) <$>
_upDefaultJobTimeoutMinutes,
Just ("arn" .= _upArn)])
instance ToPath UpdateProject where
toPath = const "/"
instance ToQuery UpdateProject where
toQuery = const mempty
data UpdateProjectResponse = UpdateProjectResponse'
{ _uprsProject :: !(Maybe Project)
, _uprsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
updateProjectResponse
:: Int
-> UpdateProjectResponse
updateProjectResponse pResponseStatus_ =
UpdateProjectResponse'
{_uprsProject = Nothing, _uprsResponseStatus = pResponseStatus_}
uprsProject :: Lens' UpdateProjectResponse (Maybe Project)
uprsProject = lens _uprsProject (\ s a -> s{_uprsProject = a});
uprsResponseStatus :: Lens' UpdateProjectResponse Int
uprsResponseStatus = lens _uprsResponseStatus (\ s a -> s{_uprsResponseStatus = a});
instance NFData UpdateProjectResponse where