{-# 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.CloudDirectory.GetAppliedSchemaVersion
(
getAppliedSchemaVersion
, GetAppliedSchemaVersion
, gasvSchemaARN
, getAppliedSchemaVersionResponse
, GetAppliedSchemaVersionResponse
, gasvrsAppliedSchemaARN
, gasvrsResponseStatus
) where
import Network.AWS.CloudDirectory.Types
import Network.AWS.CloudDirectory.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype GetAppliedSchemaVersion = GetAppliedSchemaVersion'
{ _gasvSchemaARN :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getAppliedSchemaVersion
:: Text
-> GetAppliedSchemaVersion
getAppliedSchemaVersion pSchemaARN_ =
GetAppliedSchemaVersion' {_gasvSchemaARN = pSchemaARN_}
gasvSchemaARN :: Lens' GetAppliedSchemaVersion Text
gasvSchemaARN = lens _gasvSchemaARN (\ s a -> s{_gasvSchemaARN = a})
instance AWSRequest GetAppliedSchemaVersion where
type Rs GetAppliedSchemaVersion =
GetAppliedSchemaVersionResponse
request = postJSON cloudDirectory
response
= receiveJSON
(\ s h x ->
GetAppliedSchemaVersionResponse' <$>
(x .?> "AppliedSchemaArn") <*> (pure (fromEnum s)))
instance Hashable GetAppliedSchemaVersion where
instance NFData GetAppliedSchemaVersion where
instance ToHeaders GetAppliedSchemaVersion where
toHeaders = const mempty
instance ToJSON GetAppliedSchemaVersion where
toJSON GetAppliedSchemaVersion'{..}
= object
(catMaybes [Just ("SchemaArn" .= _gasvSchemaARN)])
instance ToPath GetAppliedSchemaVersion where
toPath
= const
"/amazonclouddirectory/2017-01-11/schema/getappliedschema"
instance ToQuery GetAppliedSchemaVersion where
toQuery = const mempty
data GetAppliedSchemaVersionResponse = GetAppliedSchemaVersionResponse'
{ _gasvrsAppliedSchemaARN :: !(Maybe Text)
, _gasvrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getAppliedSchemaVersionResponse
:: Int
-> GetAppliedSchemaVersionResponse
getAppliedSchemaVersionResponse pResponseStatus_ =
GetAppliedSchemaVersionResponse'
{ _gasvrsAppliedSchemaARN = Nothing
, _gasvrsResponseStatus = pResponseStatus_
}
gasvrsAppliedSchemaARN :: Lens' GetAppliedSchemaVersionResponse (Maybe Text)
gasvrsAppliedSchemaARN = lens _gasvrsAppliedSchemaARN (\ s a -> s{_gasvrsAppliedSchemaARN = a})
gasvrsResponseStatus :: Lens' GetAppliedSchemaVersionResponse Int
gasvrsResponseStatus = lens _gasvrsResponseStatus (\ s a -> s{_gasvrsResponseStatus = a})
instance NFData GetAppliedSchemaVersionResponse where