module Network.AWS.Pinpoint.GetImportJob
(
getImportJob
, GetImportJob
, gijApplicationId
, gijJobId
, getImportJobResponse
, GetImportJobResponse
, gijrsResponseStatus
, gijrsImportJobResponse
) where
import Network.AWS.Lens
import Network.AWS.Pinpoint.Types
import Network.AWS.Pinpoint.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data GetImportJob = GetImportJob'
{ _gijApplicationId :: !Text
, _gijJobId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getImportJob
:: Text
-> Text
-> GetImportJob
getImportJob pApplicationId_ pJobId_ =
GetImportJob' {_gijApplicationId = pApplicationId_, _gijJobId = pJobId_}
gijApplicationId :: Lens' GetImportJob Text
gijApplicationId = lens _gijApplicationId (\ s a -> s{_gijApplicationId = a});
gijJobId :: Lens' GetImportJob Text
gijJobId = lens _gijJobId (\ s a -> s{_gijJobId = a});
instance AWSRequest GetImportJob where
type Rs GetImportJob = GetImportJobResponse
request = get pinpoint
response
= receiveJSON
(\ s h x ->
GetImportJobResponse' <$>
(pure (fromEnum s)) <*> (eitherParseJSON x))
instance Hashable GetImportJob where
instance NFData GetImportJob where
instance ToHeaders GetImportJob where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToPath GetImportJob where
toPath GetImportJob'{..}
= mconcat
["/v1/apps/", toBS _gijApplicationId,
"/jobs/import/", toBS _gijJobId]
instance ToQuery GetImportJob where
toQuery = const mempty
data GetImportJobResponse = GetImportJobResponse'
{ _gijrsResponseStatus :: !Int
, _gijrsImportJobResponse :: !ImportJobResponse
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getImportJobResponse
:: Int
-> ImportJobResponse
-> GetImportJobResponse
getImportJobResponse pResponseStatus_ pImportJobResponse_ =
GetImportJobResponse'
{ _gijrsResponseStatus = pResponseStatus_
, _gijrsImportJobResponse = pImportJobResponse_
}
gijrsResponseStatus :: Lens' GetImportJobResponse Int
gijrsResponseStatus = lens _gijrsResponseStatus (\ s a -> s{_gijrsResponseStatus = a});
gijrsImportJobResponse :: Lens' GetImportJobResponse ImportJobResponse
gijrsImportJobResponse = lens _gijrsImportJobResponse (\ s a -> s{_gijrsImportJobResponse = a});
instance NFData GetImportJobResponse where