module Network.AWS.OpsWorks.DescribeUserProfiles
(
DescribeUserProfiles
, describeUserProfiles
, dupIamUserArns
, DescribeUserProfilesResponse
, describeUserProfilesResponse
, duprUserProfiles
) where
import Network.AWS.Prelude
import Network.AWS.Request.JSON
import Network.AWS.OpsWorks.Types
import qualified GHC.Exts
newtype DescribeUserProfiles = DescribeUserProfiles
{ _dupIamUserArns :: List "InstanceIds" Text
} deriving (Eq, Ord, Show, Monoid, Semigroup)
instance GHC.Exts.IsList DescribeUserProfiles where
type Item DescribeUserProfiles = Text
fromList = DescribeUserProfiles . GHC.Exts.fromList
toList = GHC.Exts.toList . _dupIamUserArns
describeUserProfiles :: DescribeUserProfiles
describeUserProfiles = DescribeUserProfiles
{ _dupIamUserArns = mempty
}
dupIamUserArns :: Lens' DescribeUserProfiles [Text]
dupIamUserArns = lens _dupIamUserArns (\s a -> s { _dupIamUserArns = a }) . _List
newtype DescribeUserProfilesResponse = DescribeUserProfilesResponse
{ _duprUserProfiles :: List "UserProfiles" UserProfile
} deriving (Eq, Show, Monoid, Semigroup)
instance GHC.Exts.IsList DescribeUserProfilesResponse where
type Item DescribeUserProfilesResponse = UserProfile
fromList = DescribeUserProfilesResponse . GHC.Exts.fromList
toList = GHC.Exts.toList . _duprUserProfiles
describeUserProfilesResponse :: DescribeUserProfilesResponse
describeUserProfilesResponse = DescribeUserProfilesResponse
{ _duprUserProfiles = mempty
}
duprUserProfiles :: Lens' DescribeUserProfilesResponse [UserProfile]
duprUserProfiles = lens _duprUserProfiles (\s a -> s { _duprUserProfiles = a }) . _List
instance ToPath DescribeUserProfiles where
toPath = const "/"
instance ToQuery DescribeUserProfiles where
toQuery = const mempty
instance ToHeaders DescribeUserProfiles
instance ToJSON DescribeUserProfiles where
toJSON DescribeUserProfiles{..} = object
[ "IamUserArns" .= _dupIamUserArns
]
instance AWSRequest DescribeUserProfiles where
type Sv DescribeUserProfiles = OpsWorks
type Rs DescribeUserProfiles = DescribeUserProfilesResponse
request = post "DescribeUserProfiles"
response = jsonResponse
instance FromJSON DescribeUserProfilesResponse where
parseJSON = withObject "DescribeUserProfilesResponse" $ \o -> DescribeUserProfilesResponse
<$> o .: "UserProfiles"