module Network.AWS.CognitoSync.GetBulkPublishDetails
(
getBulkPublishDetails
, GetBulkPublishDetails
, gbpdIdentityPoolId
, getBulkPublishDetailsResponse
, GetBulkPublishDetailsResponse
, gbpdrsBulkPublishStartTime
, gbpdrsIdentityPoolId
, gbpdrsBulkPublishCompleteTime
, gbpdrsFailureMessage
, gbpdrsBulkPublishStatus
, gbpdrsResponseStatus
) where
import Network.AWS.CognitoSync.Types
import Network.AWS.CognitoSync.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype GetBulkPublishDetails = GetBulkPublishDetails'
{ _gbpdIdentityPoolId :: Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
getBulkPublishDetails
:: Text
-> GetBulkPublishDetails
getBulkPublishDetails pIdentityPoolId_ =
GetBulkPublishDetails'
{ _gbpdIdentityPoolId = pIdentityPoolId_
}
gbpdIdentityPoolId :: Lens' GetBulkPublishDetails Text
gbpdIdentityPoolId = lens _gbpdIdentityPoolId (\ s a -> s{_gbpdIdentityPoolId = a});
instance AWSRequest GetBulkPublishDetails where
type Rs GetBulkPublishDetails =
GetBulkPublishDetailsResponse
request = postJSON cognitoSync
response
= receiveJSON
(\ s h x ->
GetBulkPublishDetailsResponse' <$>
(x .?> "BulkPublishStartTime") <*>
(x .?> "IdentityPoolId")
<*> (x .?> "BulkPublishCompleteTime")
<*> (x .?> "FailureMessage")
<*> (x .?> "BulkPublishStatus")
<*> (pure (fromEnum s)))
instance Hashable GetBulkPublishDetails
instance NFData GetBulkPublishDetails
instance ToHeaders GetBulkPublishDetails where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON GetBulkPublishDetails where
toJSON = const (Object mempty)
instance ToPath GetBulkPublishDetails where
toPath GetBulkPublishDetails'{..}
= mconcat
["/identitypools/", toBS _gbpdIdentityPoolId,
"/getBulkPublishDetails"]
instance ToQuery GetBulkPublishDetails where
toQuery = const mempty
data GetBulkPublishDetailsResponse = GetBulkPublishDetailsResponse'
{ _gbpdrsBulkPublishStartTime :: !(Maybe POSIX)
, _gbpdrsIdentityPoolId :: !(Maybe Text)
, _gbpdrsBulkPublishCompleteTime :: !(Maybe POSIX)
, _gbpdrsFailureMessage :: !(Maybe Text)
, _gbpdrsBulkPublishStatus :: !(Maybe BulkPublishStatus)
, _gbpdrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
getBulkPublishDetailsResponse
:: Int
-> GetBulkPublishDetailsResponse
getBulkPublishDetailsResponse pResponseStatus_ =
GetBulkPublishDetailsResponse'
{ _gbpdrsBulkPublishStartTime = Nothing
, _gbpdrsIdentityPoolId = Nothing
, _gbpdrsBulkPublishCompleteTime = Nothing
, _gbpdrsFailureMessage = Nothing
, _gbpdrsBulkPublishStatus = Nothing
, _gbpdrsResponseStatus = pResponseStatus_
}
gbpdrsBulkPublishStartTime :: Lens' GetBulkPublishDetailsResponse (Maybe UTCTime)
gbpdrsBulkPublishStartTime = lens _gbpdrsBulkPublishStartTime (\ s a -> s{_gbpdrsBulkPublishStartTime = a}) . mapping _Time;
gbpdrsIdentityPoolId :: Lens' GetBulkPublishDetailsResponse (Maybe Text)
gbpdrsIdentityPoolId = lens _gbpdrsIdentityPoolId (\ s a -> s{_gbpdrsIdentityPoolId = a});
gbpdrsBulkPublishCompleteTime :: Lens' GetBulkPublishDetailsResponse (Maybe UTCTime)
gbpdrsBulkPublishCompleteTime = lens _gbpdrsBulkPublishCompleteTime (\ s a -> s{_gbpdrsBulkPublishCompleteTime = a}) . mapping _Time;
gbpdrsFailureMessage :: Lens' GetBulkPublishDetailsResponse (Maybe Text)
gbpdrsFailureMessage = lens _gbpdrsFailureMessage (\ s a -> s{_gbpdrsFailureMessage = a});
gbpdrsBulkPublishStatus :: Lens' GetBulkPublishDetailsResponse (Maybe BulkPublishStatus)
gbpdrsBulkPublishStatus = lens _gbpdrsBulkPublishStatus (\ s a -> s{_gbpdrsBulkPublishStatus = a});
gbpdrsResponseStatus :: Lens' GetBulkPublishDetailsResponse Int
gbpdrsResponseStatus = lens _gbpdrsResponseStatus (\ s a -> s{_gbpdrsResponseStatus = a});
instance NFData GetBulkPublishDetailsResponse