module Network.AWS.CognitoSync.GetBulkPublishDetails
(
GetBulkPublishDetails
, getBulkPublishDetails
, gbpdIdentityPoolId
, GetBulkPublishDetailsResponse
, getBulkPublishDetailsResponse
, gbpdrBulkPublishCompleteTime
, gbpdrBulkPublishStartTime
, gbpdrBulkPublishStatus
, gbpdrFailureMessage
, gbpdrIdentityPoolId
) where
import Network.AWS.Data (Object)
import Network.AWS.Prelude
import Network.AWS.Request.RestJSON
import Network.AWS.CognitoSync.Types
import qualified GHC.Exts
newtype GetBulkPublishDetails = GetBulkPublishDetails
{ _gbpdIdentityPoolId :: Text
} deriving (Eq, Ord, Read, Show, Monoid, IsString)
getBulkPublishDetails :: Text
-> GetBulkPublishDetails
getBulkPublishDetails p1 = GetBulkPublishDetails
{ _gbpdIdentityPoolId = p1
}
gbpdIdentityPoolId :: Lens' GetBulkPublishDetails Text
gbpdIdentityPoolId =
lens _gbpdIdentityPoolId (\s a -> s { _gbpdIdentityPoolId = a })
data GetBulkPublishDetailsResponse = GetBulkPublishDetailsResponse
{ _gbpdrBulkPublishCompleteTime :: Maybe POSIX
, _gbpdrBulkPublishStartTime :: Maybe POSIX
, _gbpdrBulkPublishStatus :: Maybe BulkPublishStatus
, _gbpdrFailureMessage :: Maybe Text
, _gbpdrIdentityPoolId :: Maybe Text
} deriving (Eq, Read, Show)
getBulkPublishDetailsResponse :: GetBulkPublishDetailsResponse
getBulkPublishDetailsResponse = GetBulkPublishDetailsResponse
{ _gbpdrIdentityPoolId = Nothing
, _gbpdrBulkPublishStartTime = Nothing
, _gbpdrBulkPublishCompleteTime = Nothing
, _gbpdrBulkPublishStatus = Nothing
, _gbpdrFailureMessage = Nothing
}
gbpdrBulkPublishCompleteTime :: Lens' GetBulkPublishDetailsResponse (Maybe UTCTime)
gbpdrBulkPublishCompleteTime =
lens _gbpdrBulkPublishCompleteTime
(\s a -> s { _gbpdrBulkPublishCompleteTime = a })
. mapping _Time
gbpdrBulkPublishStartTime :: Lens' GetBulkPublishDetailsResponse (Maybe UTCTime)
gbpdrBulkPublishStartTime =
lens _gbpdrBulkPublishStartTime
(\s a -> s { _gbpdrBulkPublishStartTime = a })
. mapping _Time
gbpdrBulkPublishStatus :: Lens' GetBulkPublishDetailsResponse (Maybe BulkPublishStatus)
gbpdrBulkPublishStatus =
lens _gbpdrBulkPublishStatus (\s a -> s { _gbpdrBulkPublishStatus = a })
gbpdrFailureMessage :: Lens' GetBulkPublishDetailsResponse (Maybe Text)
gbpdrFailureMessage =
lens _gbpdrFailureMessage (\s a -> s { _gbpdrFailureMessage = a })
gbpdrIdentityPoolId :: Lens' GetBulkPublishDetailsResponse (Maybe Text)
gbpdrIdentityPoolId =
lens _gbpdrIdentityPoolId (\s a -> s { _gbpdrIdentityPoolId = a })
instance ToPath GetBulkPublishDetails where
toPath GetBulkPublishDetails{..} = mconcat
[ "/identitypools/"
, toText _gbpdIdentityPoolId
, "/getBulkPublishDetails"
]
instance ToQuery GetBulkPublishDetails where
toQuery = const mempty
instance ToHeaders GetBulkPublishDetails
instance ToJSON GetBulkPublishDetails where
toJSON = const (toJSON Empty)
instance AWSRequest GetBulkPublishDetails where
type Sv GetBulkPublishDetails = CognitoSync
type Rs GetBulkPublishDetails = GetBulkPublishDetailsResponse
request = post
response = jsonResponse
instance FromJSON GetBulkPublishDetailsResponse where
parseJSON = withObject "GetBulkPublishDetailsResponse" $ \o -> GetBulkPublishDetailsResponse
<$> o .:? "BulkPublishCompleteTime"
<*> o .:? "BulkPublishStartTime"
<*> o .:? "BulkPublishStatus"
<*> o .:? "FailureMessage"
<*> o .:? "IdentityPoolId"