{-# 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.GetCSVHeader
(
getCSVHeader
, GetCSVHeader
, gchUserPoolId
, getCSVHeaderResponse
, GetCSVHeaderResponse
, gchrsUserPoolId
, gchrsCSVHeader
, gchrsResponseStatus
) 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
newtype GetCSVHeader = GetCSVHeader'
{ _gchUserPoolId :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getCSVHeader
:: Text
-> GetCSVHeader
getCSVHeader pUserPoolId_ = GetCSVHeader' {_gchUserPoolId = pUserPoolId_}
gchUserPoolId :: Lens' GetCSVHeader Text
gchUserPoolId = lens _gchUserPoolId (\ s a -> s{_gchUserPoolId = a})
instance AWSRequest GetCSVHeader where
type Rs GetCSVHeader = GetCSVHeaderResponse
request = postJSON cognitoIdentityProvider
response
= receiveJSON
(\ s h x ->
GetCSVHeaderResponse' <$>
(x .?> "UserPoolId") <*>
(x .?> "CSVHeader" .!@ mempty)
<*> (pure (fromEnum s)))
instance Hashable GetCSVHeader where
instance NFData GetCSVHeader where
instance ToHeaders GetCSVHeader where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWSCognitoIdentityProviderService.GetCSVHeader" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON GetCSVHeader where
toJSON GetCSVHeader'{..}
= object
(catMaybes [Just ("UserPoolId" .= _gchUserPoolId)])
instance ToPath GetCSVHeader where
toPath = const "/"
instance ToQuery GetCSVHeader where
toQuery = const mempty
data GetCSVHeaderResponse = GetCSVHeaderResponse'
{ _gchrsUserPoolId :: !(Maybe Text)
, _gchrsCSVHeader :: !(Maybe [Text])
, _gchrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getCSVHeaderResponse
:: Int
-> GetCSVHeaderResponse
getCSVHeaderResponse pResponseStatus_ =
GetCSVHeaderResponse'
{ _gchrsUserPoolId = Nothing
, _gchrsCSVHeader = Nothing
, _gchrsResponseStatus = pResponseStatus_
}
gchrsUserPoolId :: Lens' GetCSVHeaderResponse (Maybe Text)
gchrsUserPoolId = lens _gchrsUserPoolId (\ s a -> s{_gchrsUserPoolId = a})
gchrsCSVHeader :: Lens' GetCSVHeaderResponse [Text]
gchrsCSVHeader = lens _gchrsCSVHeader (\ s a -> s{_gchrsCSVHeader = a}) . _Default . _Coerce
gchrsResponseStatus :: Lens' GetCSVHeaderResponse Int
gchrsResponseStatus = lens _gchrsResponseStatus (\ s a -> s{_gchrsResponseStatus = a})
instance NFData GetCSVHeaderResponse where