{-# 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.AppSync.GetResolver
(
getResolver
, GetResolver
, grApiId
, grTypeName
, grFieldName
, getResolverResponse
, GetResolverResponse
, grrsResolver
, grrsResponseStatus
) where
import Network.AWS.AppSync.Types
import Network.AWS.AppSync.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data GetResolver = GetResolver'
{ _grApiId :: !Text
, _grTypeName :: !Text
, _grFieldName :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getResolver
:: Text
-> Text
-> Text
-> GetResolver
getResolver pApiId_ pTypeName_ pFieldName_ =
GetResolver'
{_grApiId = pApiId_, _grTypeName = pTypeName_, _grFieldName = pFieldName_}
grApiId :: Lens' GetResolver Text
grApiId = lens _grApiId (\ s a -> s{_grApiId = a})
grTypeName :: Lens' GetResolver Text
grTypeName = lens _grTypeName (\ s a -> s{_grTypeName = a})
grFieldName :: Lens' GetResolver Text
grFieldName = lens _grFieldName (\ s a -> s{_grFieldName = a})
instance AWSRequest GetResolver where
type Rs GetResolver = GetResolverResponse
request = get appSync
response
= receiveJSON
(\ s h x ->
GetResolverResponse' <$>
(x .?> "resolver") <*> (pure (fromEnum s)))
instance Hashable GetResolver where
instance NFData GetResolver where
instance ToHeaders GetResolver where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToPath GetResolver where
toPath GetResolver'{..}
= mconcat
["/v1/apis/", toBS _grApiId, "/types/",
toBS _grTypeName, "/resolvers/", toBS _grFieldName]
instance ToQuery GetResolver where
toQuery = const mempty
data GetResolverResponse = GetResolverResponse'
{ _grrsResolver :: !(Maybe Resolver)
, _grrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getResolverResponse
:: Int
-> GetResolverResponse
getResolverResponse pResponseStatus_ =
GetResolverResponse'
{_grrsResolver = Nothing, _grrsResponseStatus = pResponseStatus_}
grrsResolver :: Lens' GetResolverResponse (Maybe Resolver)
grrsResolver = lens _grrsResolver (\ s a -> s{_grrsResolver = a})
grrsResponseStatus :: Lens' GetResolverResponse Int
grrsResponseStatus = lens _grrsResponseStatus (\ s a -> s{_grrsResponseStatus = a})
instance NFData GetResolverResponse where