{-# 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.GetFacet
(
getFacet
, GetFacet
, gfSchemaARN
, gfName
, getFacetResponse
, GetFacetResponse
, gfrsFacet
, gfrsResponseStatus
) 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
data GetFacet = GetFacet'
{ _gfSchemaARN :: !Text
, _gfName :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getFacet
:: Text
-> Text
-> GetFacet
getFacet pSchemaARN_ pName_ =
GetFacet' {_gfSchemaARN = pSchemaARN_, _gfName = pName_}
gfSchemaARN :: Lens' GetFacet Text
gfSchemaARN = lens _gfSchemaARN (\ s a -> s{_gfSchemaARN = a})
gfName :: Lens' GetFacet Text
gfName = lens _gfName (\ s a -> s{_gfName = a})
instance AWSRequest GetFacet where
type Rs GetFacet = GetFacetResponse
request = postJSON cloudDirectory
response
= receiveJSON
(\ s h x ->
GetFacetResponse' <$>
(x .?> "Facet") <*> (pure (fromEnum s)))
instance Hashable GetFacet where
instance NFData GetFacet where
instance ToHeaders GetFacet where
toHeaders GetFacet'{..}
= mconcat ["x-amz-data-partition" =# _gfSchemaARN]
instance ToJSON GetFacet where
toJSON GetFacet'{..}
= object (catMaybes [Just ("Name" .= _gfName)])
instance ToPath GetFacet where
toPath
= const "/amazonclouddirectory/2017-01-11/facet"
instance ToQuery GetFacet where
toQuery = const mempty
data GetFacetResponse = GetFacetResponse'
{ _gfrsFacet :: !(Maybe Facet)
, _gfrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getFacetResponse
:: Int
-> GetFacetResponse
getFacetResponse pResponseStatus_ =
GetFacetResponse'
{_gfrsFacet = Nothing, _gfrsResponseStatus = pResponseStatus_}
gfrsFacet :: Lens' GetFacetResponse (Maybe Facet)
gfrsFacet = lens _gfrsFacet (\ s a -> s{_gfrsFacet = a})
gfrsResponseStatus :: Lens' GetFacetResponse Int
gfrsResponseStatus = lens _gfrsResponseStatus (\ s a -> s{_gfrsResponseStatus = a})
instance NFData GetFacetResponse where