{-# 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.Route53AutoNaming.GetService
(
getService
, GetService
, gsId
, getServiceResponse
, GetServiceResponse
, gsrsService
, gsrsResponseStatus
) where
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
import Network.AWS.Route53AutoNaming.Types
import Network.AWS.Route53AutoNaming.Types.Product
newtype GetService = GetService'
{ _gsId :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getService
:: Text
-> GetService
getService pId_ = GetService' {_gsId = pId_}
gsId :: Lens' GetService Text
gsId = lens _gsId (\ s a -> s{_gsId = a})
instance AWSRequest GetService where
type Rs GetService = GetServiceResponse
request = postJSON route53AutoNaming
response
= receiveJSON
(\ s h x ->
GetServiceResponse' <$>
(x .?> "Service") <*> (pure (fromEnum s)))
instance Hashable GetService where
instance NFData GetService where
instance ToHeaders GetService where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("Route53AutoNaming_v20170314.GetService" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON GetService where
toJSON GetService'{..}
= object (catMaybes [Just ("Id" .= _gsId)])
instance ToPath GetService where
toPath = const "/"
instance ToQuery GetService where
toQuery = const mempty
data GetServiceResponse = GetServiceResponse'
{ _gsrsService :: !(Maybe ServiceInfo)
, _gsrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getServiceResponse
:: Int
-> GetServiceResponse
getServiceResponse pResponseStatus_ =
GetServiceResponse'
{_gsrsService = Nothing, _gsrsResponseStatus = pResponseStatus_}
gsrsService :: Lens' GetServiceResponse (Maybe ServiceInfo)
gsrsService = lens _gsrsService (\ s a -> s{_gsrsService = a})
gsrsResponseStatus :: Lens' GetServiceResponse Int
gsrsResponseStatus = lens _gsrsResponseStatus (\ s a -> s{_gsrsResponseStatus = a})
instance NFData GetServiceResponse where