{-# 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.Cloud9.DescribeEnvironmentStatus
(
describeEnvironmentStatus
, DescribeEnvironmentStatus
, desEnvironmentId
, describeEnvironmentStatusResponse
, DescribeEnvironmentStatusResponse
, desrsStatus
, desrsMessage
, desrsResponseStatus
) where
import Network.AWS.Cloud9.Types
import Network.AWS.Cloud9.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype DescribeEnvironmentStatus = DescribeEnvironmentStatus'
{ _desEnvironmentId :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeEnvironmentStatus
:: Text
-> DescribeEnvironmentStatus
describeEnvironmentStatus pEnvironmentId_ =
DescribeEnvironmentStatus' {_desEnvironmentId = pEnvironmentId_}
desEnvironmentId :: Lens' DescribeEnvironmentStatus Text
desEnvironmentId = lens _desEnvironmentId (\ s a -> s{_desEnvironmentId = a})
instance AWSRequest DescribeEnvironmentStatus where
type Rs DescribeEnvironmentStatus =
DescribeEnvironmentStatusResponse
request = postJSON cloud9
response
= receiveJSON
(\ s h x ->
DescribeEnvironmentStatusResponse' <$>
(x .?> "status") <*> (x .?> "message") <*>
(pure (fromEnum s)))
instance Hashable DescribeEnvironmentStatus where
instance NFData DescribeEnvironmentStatus where
instance ToHeaders DescribeEnvironmentStatus where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWSCloud9WorkspaceManagementService.DescribeEnvironmentStatus"
:: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DescribeEnvironmentStatus where
toJSON DescribeEnvironmentStatus'{..}
= object
(catMaybes
[Just ("environmentId" .= _desEnvironmentId)])
instance ToPath DescribeEnvironmentStatus where
toPath = const "/"
instance ToQuery DescribeEnvironmentStatus where
toQuery = const mempty
data DescribeEnvironmentStatusResponse = DescribeEnvironmentStatusResponse'
{ _desrsStatus :: !(Maybe EnvironmentStatus)
, _desrsMessage :: !(Maybe Text)
, _desrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
describeEnvironmentStatusResponse
:: Int
-> DescribeEnvironmentStatusResponse
describeEnvironmentStatusResponse pResponseStatus_ =
DescribeEnvironmentStatusResponse'
{ _desrsStatus = Nothing
, _desrsMessage = Nothing
, _desrsResponseStatus = pResponseStatus_
}
desrsStatus :: Lens' DescribeEnvironmentStatusResponse (Maybe EnvironmentStatus)
desrsStatus = lens _desrsStatus (\ s a -> s{_desrsStatus = a})
desrsMessage :: Lens' DescribeEnvironmentStatusResponse (Maybe Text)
desrsMessage = lens _desrsMessage (\ s a -> s{_desrsMessage = a})
desrsResponseStatus :: Lens' DescribeEnvironmentStatusResponse Int
desrsResponseStatus = lens _desrsResponseStatus (\ s a -> s{_desrsResponseStatus = a})
instance NFData DescribeEnvironmentStatusResponse
where