{-# 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.CloudSearch.DefineIndexField
(
defineIndexField
, DefineIndexField
, defeDomainName
, defeIndexField
, defineIndexFieldResponse
, DefineIndexFieldResponse
, defrsResponseStatus
, defrsIndexField
) where
import Network.AWS.CloudSearch.Types
import Network.AWS.CloudSearch.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data DefineIndexField = DefineIndexField'
{ _defeDomainName :: !Text
, _defeIndexField :: !IndexField
} deriving (Eq, Read, Show, Data, Typeable, Generic)
defineIndexField
:: Text
-> IndexField
-> DefineIndexField
defineIndexField pDomainName_ pIndexField_ =
DefineIndexField'
{_defeDomainName = pDomainName_, _defeIndexField = pIndexField_}
defeDomainName :: Lens' DefineIndexField Text
defeDomainName = lens _defeDomainName (\ s a -> s{_defeDomainName = a})
defeIndexField :: Lens' DefineIndexField IndexField
defeIndexField = lens _defeIndexField (\ s a -> s{_defeIndexField = a})
instance AWSRequest DefineIndexField where
type Rs DefineIndexField = DefineIndexFieldResponse
request = postQuery cloudSearch
response
= receiveXMLWrapper "DefineIndexFieldResult"
(\ s h x ->
DefineIndexFieldResponse' <$>
(pure (fromEnum s)) <*> (x .@ "IndexField"))
instance Hashable DefineIndexField where
instance NFData DefineIndexField where
instance ToHeaders DefineIndexField where
toHeaders = const mempty
instance ToPath DefineIndexField where
toPath = const "/"
instance ToQuery DefineIndexField where
toQuery DefineIndexField'{..}
= mconcat
["Action" =: ("DefineIndexField" :: ByteString),
"Version" =: ("2013-01-01" :: ByteString),
"DomainName" =: _defeDomainName,
"IndexField" =: _defeIndexField]
data DefineIndexFieldResponse = DefineIndexFieldResponse'
{ _defrsResponseStatus :: !Int
, _defrsIndexField :: !IndexFieldStatus
} deriving (Eq, Read, Show, Data, Typeable, Generic)
defineIndexFieldResponse
:: Int
-> IndexFieldStatus
-> DefineIndexFieldResponse
defineIndexFieldResponse pResponseStatus_ pIndexField_ =
DefineIndexFieldResponse'
{_defrsResponseStatus = pResponseStatus_, _defrsIndexField = pIndexField_}
defrsResponseStatus :: Lens' DefineIndexFieldResponse Int
defrsResponseStatus = lens _defrsResponseStatus (\ s a -> s{_defrsResponseStatus = a})
defrsIndexField :: Lens' DefineIndexFieldResponse IndexFieldStatus
defrsIndexField = lens _defrsIndexField (\ s a -> s{_defrsIndexField = a})
instance NFData DefineIndexFieldResponse where