{-# 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.DescribeOperatingSystems
(
describeOperatingSystems
, DescribeOperatingSystems
, describeOperatingSystemsResponse
, DescribeOperatingSystemsResponse
, dosrsOperatingSystems
, dosrsResponseStatus
) 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 DescribeOperatingSystems =
DescribeOperatingSystems'
deriving (Eq, Read, Show, Data, Typeable, Generic)
describeOperatingSystems
:: DescribeOperatingSystems
describeOperatingSystems = DescribeOperatingSystems'
instance AWSRequest DescribeOperatingSystems where
type Rs DescribeOperatingSystems =
DescribeOperatingSystemsResponse
request = postJSON opsWorks
response
= receiveJSON
(\ s h x ->
DescribeOperatingSystemsResponse' <$>
(x .?> "OperatingSystems" .!@ mempty) <*>
(pure (fromEnum s)))
instance Hashable DescribeOperatingSystems where
instance NFData DescribeOperatingSystems where
instance ToHeaders DescribeOperatingSystems where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("OpsWorks_20130218.DescribeOperatingSystems" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribeOperatingSystems where
toJSON = const (Object mempty)
instance ToPath DescribeOperatingSystems where
toPath = const "/"
instance ToQuery DescribeOperatingSystems where
toQuery = const mempty
data DescribeOperatingSystemsResponse = DescribeOperatingSystemsResponse'
{ _dosrsOperatingSystems :: !(Maybe [OperatingSystem])
, _dosrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeOperatingSystemsResponse
:: Int
-> DescribeOperatingSystemsResponse
describeOperatingSystemsResponse pResponseStatus_ =
DescribeOperatingSystemsResponse'
{_dosrsOperatingSystems = Nothing, _dosrsResponseStatus = pResponseStatus_}
dosrsOperatingSystems :: Lens' DescribeOperatingSystemsResponse [OperatingSystem]
dosrsOperatingSystems = lens _dosrsOperatingSystems (\ s a -> s{_dosrsOperatingSystems = a}) . _Default . _Coerce
dosrsResponseStatus :: Lens' DescribeOperatingSystemsResponse Int
dosrsResponseStatus = lens _dosrsResponseStatus (\ s a -> s{_dosrsResponseStatus = a})
instance NFData DescribeOperatingSystemsResponse
where