{-# 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.Comprehend.BatchDetectEntities
(
batchDetectEntities
, BatchDetectEntities
, bdeTextList
, bdeLanguageCode
, batchDetectEntitiesResponse
, BatchDetectEntitiesResponse
, bdersResponseStatus
, bdersResultList
, bdersErrorList
) where
import Network.AWS.Comprehend.Types
import Network.AWS.Comprehend.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data BatchDetectEntities = BatchDetectEntities'
{ _bdeTextList :: ![Text]
, _bdeLanguageCode :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
batchDetectEntities
:: Text
-> BatchDetectEntities
batchDetectEntities pLanguageCode_ =
BatchDetectEntities'
{_bdeTextList = mempty, _bdeLanguageCode = pLanguageCode_}
bdeTextList :: Lens' BatchDetectEntities [Text]
bdeTextList = lens _bdeTextList (\ s a -> s{_bdeTextList = a}) . _Coerce
bdeLanguageCode :: Lens' BatchDetectEntities Text
bdeLanguageCode = lens _bdeLanguageCode (\ s a -> s{_bdeLanguageCode = a})
instance AWSRequest BatchDetectEntities where
type Rs BatchDetectEntities =
BatchDetectEntitiesResponse
request = postJSON comprehend
response
= receiveJSON
(\ s h x ->
BatchDetectEntitiesResponse' <$>
(pure (fromEnum s)) <*>
(x .?> "ResultList" .!@ mempty)
<*> (x .?> "ErrorList" .!@ mempty))
instance Hashable BatchDetectEntities where
instance NFData BatchDetectEntities where
instance ToHeaders BatchDetectEntities where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("Comprehend_20171127.BatchDetectEntities" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON BatchDetectEntities where
toJSON BatchDetectEntities'{..}
= object
(catMaybes
[Just ("TextList" .= _bdeTextList),
Just ("LanguageCode" .= _bdeLanguageCode)])
instance ToPath BatchDetectEntities where
toPath = const "/"
instance ToQuery BatchDetectEntities where
toQuery = const mempty
data BatchDetectEntitiesResponse = BatchDetectEntitiesResponse'
{ _bdersResponseStatus :: !Int
, _bdersResultList :: ![BatchDetectEntitiesItemResult]
, _bdersErrorList :: ![BatchItemError]
} deriving (Eq, Read, Show, Data, Typeable, Generic)
batchDetectEntitiesResponse
:: Int
-> BatchDetectEntitiesResponse
batchDetectEntitiesResponse pResponseStatus_ =
BatchDetectEntitiesResponse'
{ _bdersResponseStatus = pResponseStatus_
, _bdersResultList = mempty
, _bdersErrorList = mempty
}
bdersResponseStatus :: Lens' BatchDetectEntitiesResponse Int
bdersResponseStatus = lens _bdersResponseStatus (\ s a -> s{_bdersResponseStatus = a})
bdersResultList :: Lens' BatchDetectEntitiesResponse [BatchDetectEntitiesItemResult]
bdersResultList = lens _bdersResultList (\ s a -> s{_bdersResultList = a}) . _Coerce
bdersErrorList :: Lens' BatchDetectEntitiesResponse [BatchItemError]
bdersErrorList = lens _bdersErrorList (\ s a -> s{_bdersErrorList = a}) . _Coerce
instance NFData BatchDetectEntitiesResponse where