{-# 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.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 where
instance NFData GetBulkPublishDetails where
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 where