{-# 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.Glue.CreateScript
(
createScript
, CreateScript
, csDagEdges
, csLanguage
, csDagNodes
, createScriptResponse
, CreateScriptResponse
, csrsPythonScript
, csrsScalaCode
, 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])
, _csLanguage :: !(Maybe Language)
, _csDagNodes :: !(Maybe [CodeGenNode])
} deriving (Eq, Read, Show, Data, Typeable, Generic)
createScript
:: CreateScript
createScript =
CreateScript'
{_csDagEdges = Nothing, _csLanguage = Nothing, _csDagNodes = Nothing}
csDagEdges :: Lens' CreateScript [CodeGenEdge]
csDagEdges = lens _csDagEdges (\ s a -> s{_csDagEdges = a}) . _Default . _Coerce
csLanguage :: Lens' CreateScript (Maybe Language)
csLanguage = lens _csLanguage (\ s a -> s{_csLanguage = a})
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") <*> (x .?> "ScalaCode") <*>
(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,
("Language" .=) <$> _csLanguage,
("DagNodes" .=) <$> _csDagNodes])
instance ToPath CreateScript where
toPath = const "/"
instance ToQuery CreateScript where
toQuery = const mempty
data CreateScriptResponse = CreateScriptResponse'
{ _csrsPythonScript :: !(Maybe Text)
, _csrsScalaCode :: !(Maybe Text)
, _csrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
createScriptResponse
:: Int
-> CreateScriptResponse
createScriptResponse pResponseStatus_ =
CreateScriptResponse'
{ _csrsPythonScript = Nothing
, _csrsScalaCode = Nothing
, _csrsResponseStatus = pResponseStatus_
}
csrsPythonScript :: Lens' CreateScriptResponse (Maybe Text)
csrsPythonScript = lens _csrsPythonScript (\ s a -> s{_csrsPythonScript = a})
csrsScalaCode :: Lens' CreateScriptResponse (Maybe Text)
csrsScalaCode = lens _csrsScalaCode (\ s a -> s{_csrsScalaCode = a})
csrsResponseStatus :: Lens' CreateScriptResponse Int
csrsResponseStatus = lens _csrsResponseStatus (\ s a -> s{_csrsResponseStatus = a})
instance NFData CreateScriptResponse where