{-# 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.OpsWorks.DescribeMyUserProfile
(
describeMyUserProfile
, DescribeMyUserProfile
, describeMyUserProfileResponse
, DescribeMyUserProfileResponse
, dmuprsUserProfile
, dmuprsResponseStatus
) where
import Network.AWS.Lens
import Network.AWS.OpsWorks.Types
import Network.AWS.OpsWorks.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data DescribeMyUserProfile =
DescribeMyUserProfile'
deriving (Eq, Read, Show, Data, Typeable, Generic)
describeMyUserProfile
:: DescribeMyUserProfile
describeMyUserProfile = DescribeMyUserProfile'
instance AWSRequest DescribeMyUserProfile where
type Rs DescribeMyUserProfile =
DescribeMyUserProfileResponse
request = postJSON opsWorks
response
= receiveJSON
(\ s h x ->
DescribeMyUserProfileResponse' <$>
(x .?> "UserProfile") <*> (pure (fromEnum s)))
instance Hashable DescribeMyUserProfile where
instance NFData DescribeMyUserProfile where
instance ToHeaders DescribeMyUserProfile where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("OpsWorks_20130218.DescribeMyUserProfile" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribeMyUserProfile where
toJSON = const (Object mempty)
instance ToPath DescribeMyUserProfile where
toPath = const "/"
instance ToQuery DescribeMyUserProfile where
toQuery = const mempty
data DescribeMyUserProfileResponse = DescribeMyUserProfileResponse'
{ _dmuprsUserProfile :: !(Maybe SelfUserProfile)
, _dmuprsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeMyUserProfileResponse
:: Int
-> DescribeMyUserProfileResponse
describeMyUserProfileResponse pResponseStatus_ =
DescribeMyUserProfileResponse'
{_dmuprsUserProfile = Nothing, _dmuprsResponseStatus = pResponseStatus_}
dmuprsUserProfile :: Lens' DescribeMyUserProfileResponse (Maybe SelfUserProfile)
dmuprsUserProfile = lens _dmuprsUserProfile (\ s a -> s{_dmuprsUserProfile = a})
dmuprsResponseStatus :: Lens' DescribeMyUserProfileResponse Int
dmuprsResponseStatus = lens _dmuprsResponseStatus (\ s a -> s{_dmuprsResponseStatus = a})
instance NFData DescribeMyUserProfileResponse where