{-# 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.CreateUserDefinedFunction
(
createUserDefinedFunction
, CreateUserDefinedFunction
, cudfCatalogId
, cudfDatabaseName
, cudfFunctionInput
, createUserDefinedFunctionResponse
, CreateUserDefinedFunctionResponse
, cudfrsResponseStatus
) 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 CreateUserDefinedFunction = CreateUserDefinedFunction'
{ _cudfCatalogId :: !(Maybe Text)
, _cudfDatabaseName :: !Text
, _cudfFunctionInput :: !UserDefinedFunctionInput
} deriving (Eq, Read, Show, Data, Typeable, Generic)
createUserDefinedFunction
:: Text
-> UserDefinedFunctionInput
-> CreateUserDefinedFunction
createUserDefinedFunction pDatabaseName_ pFunctionInput_ =
CreateUserDefinedFunction'
{ _cudfCatalogId = Nothing
, _cudfDatabaseName = pDatabaseName_
, _cudfFunctionInput = pFunctionInput_
}
cudfCatalogId :: Lens' CreateUserDefinedFunction (Maybe Text)
cudfCatalogId = lens _cudfCatalogId (\ s a -> s{_cudfCatalogId = a})
cudfDatabaseName :: Lens' CreateUserDefinedFunction Text
cudfDatabaseName = lens _cudfDatabaseName (\ s a -> s{_cudfDatabaseName = a})
cudfFunctionInput :: Lens' CreateUserDefinedFunction UserDefinedFunctionInput
cudfFunctionInput = lens _cudfFunctionInput (\ s a -> s{_cudfFunctionInput = a})
instance AWSRequest CreateUserDefinedFunction where
type Rs CreateUserDefinedFunction =
CreateUserDefinedFunctionResponse
request = postJSON glue
response
= receiveEmpty
(\ s h x ->
CreateUserDefinedFunctionResponse' <$>
(pure (fromEnum s)))
instance Hashable CreateUserDefinedFunction where
instance NFData CreateUserDefinedFunction where
instance ToHeaders CreateUserDefinedFunction where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AWSGlue.CreateUserDefinedFunction" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON CreateUserDefinedFunction where
toJSON CreateUserDefinedFunction'{..}
= object
(catMaybes
[("CatalogId" .=) <$> _cudfCatalogId,
Just ("DatabaseName" .= _cudfDatabaseName),
Just ("FunctionInput" .= _cudfFunctionInput)])
instance ToPath CreateUserDefinedFunction where
toPath = const "/"
instance ToQuery CreateUserDefinedFunction where
toQuery = const mempty
newtype CreateUserDefinedFunctionResponse = CreateUserDefinedFunctionResponse'
{ _cudfrsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
createUserDefinedFunctionResponse
:: Int
-> CreateUserDefinedFunctionResponse
createUserDefinedFunctionResponse pResponseStatus_ =
CreateUserDefinedFunctionResponse' {_cudfrsResponseStatus = pResponseStatus_}
cudfrsResponseStatus :: Lens' CreateUserDefinedFunctionResponse Int
cudfrsResponseStatus = lens _cudfrsResponseStatus (\ s a -> s{_cudfrsResponseStatus = a})
instance NFData CreateUserDefinedFunctionResponse
where