{-# 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.CognitoIdentityProvider.DescribeUserImportJob
(
describeUserImportJob
, DescribeUserImportJob
, duijUserPoolId
, duijJobId
, describeUserImportJobResponse
, DescribeUserImportJobResponse
, duijrsUserImportJob
, duijrsResponseStatus
) where
import Network.AWS.CognitoIdentityProvider.Types
import Network.AWS.CognitoIdentityProvider.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data DescribeUserImportJob = DescribeUserImportJob'
{ _duijUserPoolId :: !Text
, _duijJobId :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeUserImportJob
:: Text
-> Text
-> DescribeUserImportJob
describeUserImportJob pUserPoolId_ pJobId_ =
DescribeUserImportJob' {_duijUserPoolId = pUserPoolId_, _duijJobId = pJobId_}
duijUserPoolId :: Lens' DescribeUserImportJob Text
duijUserPoolId = lens _duijUserPoolId (\ s a -> s{_duijUserPoolId = a})
duijJobId :: Lens' DescribeUserImportJob Text
duijJobId = lens _duijJobId (\ s a -> s{_duijJobId = a})
instance AWSRequest DescribeUserImportJob where
type Rs DescribeUserImportJob =
DescribeUserImportJobResponse
request = postJSON cognitoIdentityProvider
response
= receiveJSON
(\ s h x ->
DescribeUserImportJobResponse' <$>
(x .?> "UserImportJob") <*> (pure (fromEnum s)))
instance Hashable DescribeUserImportJob where
instance NFData DescribeUserImportJob where
instance ToHeaders DescribeUserImportJob where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWSCognitoIdentityProviderService.DescribeUserImportJob"
:: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribeUserImportJob where
toJSON DescribeUserImportJob'{..}
= object
(catMaybes
[Just ("UserPoolId" .= _duijUserPoolId),
Just ("JobId" .= _duijJobId)])
instance ToPath DescribeUserImportJob where
toPath = const "/"
instance ToQuery DescribeUserImportJob where
toQuery = const mempty
data DescribeUserImportJobResponse = DescribeUserImportJobResponse'
{ _duijrsUserImportJob :: !(Maybe UserImportJobType)
, _duijrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeUserImportJobResponse
:: Int
-> DescribeUserImportJobResponse
describeUserImportJobResponse pResponseStatus_ =
DescribeUserImportJobResponse'
{_duijrsUserImportJob = Nothing, _duijrsResponseStatus = pResponseStatus_}
duijrsUserImportJob :: Lens' DescribeUserImportJobResponse (Maybe UserImportJobType)
duijrsUserImportJob = lens _duijrsUserImportJob (\ s a -> s{_duijrsUserImportJob = a})
duijrsResponseStatus :: Lens' DescribeUserImportJobResponse Int
duijrsResponseStatus = lens _duijrsResponseStatus (\ s a -> s{_duijrsResponseStatus = a})
instance NFData DescribeUserImportJobResponse where