{-# 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.GetSchemaCreationStatus
(
getSchemaCreationStatus
, GetSchemaCreationStatus
, gscsApiId
, getSchemaCreationStatusResponse
, GetSchemaCreationStatusResponse
, gscsrsStatus
, gscsrsDetails
, gscsrsResponseStatus
) 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
newtype GetSchemaCreationStatus = GetSchemaCreationStatus'
{ _gscsApiId :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getSchemaCreationStatus
:: Text
-> GetSchemaCreationStatus
getSchemaCreationStatus pApiId_ =
GetSchemaCreationStatus' {_gscsApiId = pApiId_}
gscsApiId :: Lens' GetSchemaCreationStatus Text
gscsApiId = lens _gscsApiId (\ s a -> s{_gscsApiId = a})
instance AWSRequest GetSchemaCreationStatus where
type Rs GetSchemaCreationStatus =
GetSchemaCreationStatusResponse
request = get appSync
response
= receiveJSON
(\ s h x ->
GetSchemaCreationStatusResponse' <$>
(x .?> "status") <*> (x .?> "details") <*>
(pure (fromEnum s)))
instance Hashable GetSchemaCreationStatus where
instance NFData GetSchemaCreationStatus where
instance ToHeaders GetSchemaCreationStatus where
toHeaders
= const
(mconcat
["Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToPath GetSchemaCreationStatus where
toPath GetSchemaCreationStatus'{..}
= mconcat
["/v1/apis/", toBS _gscsApiId, "/schemacreation"]
instance ToQuery GetSchemaCreationStatus where
toQuery = const mempty
data GetSchemaCreationStatusResponse = GetSchemaCreationStatusResponse'
{ _gscsrsStatus :: !(Maybe SchemaStatus)
, _gscsrsDetails :: !(Maybe Text)
, _gscsrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
getSchemaCreationStatusResponse
:: Int
-> GetSchemaCreationStatusResponse
getSchemaCreationStatusResponse pResponseStatus_ =
GetSchemaCreationStatusResponse'
{ _gscsrsStatus = Nothing
, _gscsrsDetails = Nothing
, _gscsrsResponseStatus = pResponseStatus_
}
gscsrsStatus :: Lens' GetSchemaCreationStatusResponse (Maybe SchemaStatus)
gscsrsStatus = lens _gscsrsStatus (\ s a -> s{_gscsrsStatus = a})
gscsrsDetails :: Lens' GetSchemaCreationStatusResponse (Maybe Text)
gscsrsDetails = lens _gscsrsDetails (\ s a -> s{_gscsrsDetails = a})
gscsrsResponseStatus :: Lens' GetSchemaCreationStatusResponse Int
gscsrsResponseStatus = lens _gscsrsResponseStatus (\ s a -> s{_gscsrsResponseStatus = a})
instance NFData GetSchemaCreationStatusResponse where