{-# 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.Greengrass.GetServiceRoleForAccount
(
getServiceRoleForAccount
, GetServiceRoleForAccount
, getServiceRoleForAccountResponse
, GetServiceRoleForAccountResponse
, gsrfarsAssociatedAt
, gsrfarsRoleARN
, gsrfarsResponseStatus
) where
import Network.AWS.Greengrass.Types
import Network.AWS.Greengrass.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data GetServiceRoleForAccount =
GetServiceRoleForAccount'
deriving (Eq, Read, Show, Data, Typeable, Generic)
getServiceRoleForAccount
:: GetServiceRoleForAccount
getServiceRoleForAccount = GetServiceRoleForAccount'
instance AWSRequest GetServiceRoleForAccount where
type Rs GetServiceRoleForAccount =
GetServiceRoleForAccountResponse
request = get greengrass
response
= receiveJSON
(\ s h x ->
GetServiceRoleForAccountResponse' <$>
(x .?> "AssociatedAt") <*> (x .?> "RoleArn") <*>
(pure (fromEnum s)))
instance Hashable GetServiceRoleForAccount where
instance NFData GetServiceRoleForAccount where
instance ToHeaders GetServiceRoleForAccount where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToPath GetServiceRoleForAccount where
toPath = const "/greengrass/servicerole"
instance ToQuery GetServiceRoleForAccount where
toQuery = const mempty
data GetServiceRoleForAccountResponse = GetServiceRoleForAccountResponse'
{ _gsrfarsAssociatedAt :: !(Maybe Text)
, _gsrfarsRoleARN :: !(Maybe Text)
, _gsrfarsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getServiceRoleForAccountResponse
:: Int
-> GetServiceRoleForAccountResponse
getServiceRoleForAccountResponse pResponseStatus_ =
GetServiceRoleForAccountResponse'
{ _gsrfarsAssociatedAt = Nothing
, _gsrfarsRoleARN = Nothing
, _gsrfarsResponseStatus = pResponseStatus_
}
gsrfarsAssociatedAt :: Lens' GetServiceRoleForAccountResponse (Maybe Text)
gsrfarsAssociatedAt = lens _gsrfarsAssociatedAt (\ s a -> s{_gsrfarsAssociatedAt = a})
gsrfarsRoleARN :: Lens' GetServiceRoleForAccountResponse (Maybe Text)
gsrfarsRoleARN = lens _gsrfarsRoleARN (\ s a -> s{_gsrfarsRoleARN = a})
gsrfarsResponseStatus :: Lens' GetServiceRoleForAccountResponse Int
gsrfarsResponseStatus = lens _gsrfarsResponseStatus (\ s a -> s{_gsrfarsResponseStatus = a})
instance NFData GetServiceRoleForAccountResponse
where