module Network.AWS.Glue.CreateScript
(
createScript
, CreateScript
, csDagEdges
, csDagNodes
, createScriptResponse
, CreateScriptResponse
, csrsPythonScript
, csrsResponseStatus
) where
import Network.AWS.Glue.Types
import Network.AWS.Glue.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data CreateScript = CreateScript'
{ _csDagEdges :: !(Maybe [CodeGenEdge])
, _csDagNodes :: !(Maybe [CodeGenNode])
} deriving (Eq, Read, Show, Data, Typeable, Generic)
createScript
:: CreateScript
createScript = CreateScript' {_csDagEdges = Nothing, _csDagNodes = Nothing}
csDagEdges :: Lens' CreateScript [CodeGenEdge]
csDagEdges = lens _csDagEdges (\ s a -> s{_csDagEdges = a}) . _Default . _Coerce;
csDagNodes :: Lens' CreateScript [CodeGenNode]
csDagNodes = lens _csDagNodes (\ s a -> s{_csDagNodes = a}) . _Default . _Coerce;
instance AWSRequest CreateScript where
type Rs CreateScript = CreateScriptResponse
request = postJSON glue
response
= receiveJSON
(\ s h x ->
CreateScriptResponse' <$>
(x .?> "PythonScript") <*> (pure (fromEnum s)))
instance Hashable CreateScript where
instance NFData CreateScript where
instance ToHeaders CreateScript where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWSGlue.CreateScript" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON CreateScript where
toJSON CreateScript'{..}
= object
(catMaybes
[("DagEdges" .=) <$> _csDagEdges,
("DagNodes" .=) <$> _csDagNodes])
instance ToPath CreateScript where
toPath = const "/"
instance ToQuery CreateScript where
toQuery = const mempty
data CreateScriptResponse = CreateScriptResponse'
{ _csrsPythonScript :: !(Maybe Text)
, _csrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
createScriptResponse
:: Int
-> CreateScriptResponse
createScriptResponse pResponseStatus_ =
CreateScriptResponse'
{_csrsPythonScript = Nothing, _csrsResponseStatus = pResponseStatus_}
csrsPythonScript :: Lens' CreateScriptResponse (Maybe Text)
csrsPythonScript = lens _csrsPythonScript (\ s a -> s{_csrsPythonScript = a});
csrsResponseStatus :: Lens' CreateScriptResponse Int
csrsResponseStatus = lens _csrsResponseStatus (\ s a -> s{_csrsResponseStatus = a});
instance NFData CreateScriptResponse where