{-# 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.Batch.DescribeJobs
(
describeJobs
, DescribeJobs
, djJobs
, describeJobsResponse
, DescribeJobsResponse
, djrsJobs
, djrsResponseStatus
) where
import Network.AWS.Batch.Types
import Network.AWS.Batch.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype DescribeJobs = DescribeJobs'
{ _djJobs :: [Text]
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeJobs
:: DescribeJobs
describeJobs = DescribeJobs' {_djJobs = mempty}
djJobs :: Lens' DescribeJobs [Text]
djJobs = lens _djJobs (\ s a -> s{_djJobs = a}) . _Coerce
instance AWSRequest DescribeJobs where
type Rs DescribeJobs = DescribeJobsResponse
request = postJSON batch
response
= receiveJSON
(\ s h x ->
DescribeJobsResponse' <$>
(x .?> "jobs" .!@ mempty) <*> (pure (fromEnum s)))
instance Hashable DescribeJobs where
instance NFData DescribeJobs where
instance ToHeaders DescribeJobs where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribeJobs where
toJSON DescribeJobs'{..}
= object (catMaybes [Just ("jobs" .= _djJobs)])
instance ToPath DescribeJobs where
toPath = const "/v1/describejobs"
instance ToQuery DescribeJobs where
toQuery = const mempty
data DescribeJobsResponse = DescribeJobsResponse'
{ _djrsJobs :: !(Maybe [JobDetail])
, _djrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeJobsResponse
:: Int
-> DescribeJobsResponse
describeJobsResponse pResponseStatus_ =
DescribeJobsResponse'
{_djrsJobs = Nothing, _djrsResponseStatus = pResponseStatus_}
djrsJobs :: Lens' DescribeJobsResponse [JobDetail]
djrsJobs = lens _djrsJobs (\ s a -> s{_djrsJobs = a}) . _Default . _Coerce
djrsResponseStatus :: Lens' DescribeJobsResponse Int
djrsResponseStatus = lens _djrsResponseStatus (\ s a -> s{_djrsResponseStatus = a})
instance NFData DescribeJobsResponse where