{-# 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.BatchDetectDominantLanguage
(
batchDetectDominantLanguage
, BatchDetectDominantLanguage
, bddlTextList
, batchDetectDominantLanguageResponse
, BatchDetectDominantLanguageResponse
, bddlrsResponseStatus
, bddlrsResultList
, bddlrsErrorList
) 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
newtype BatchDetectDominantLanguage = BatchDetectDominantLanguage'
{ _bddlTextList :: [Text]
} deriving (Eq, Read, Show, Data, Typeable, Generic)
batchDetectDominantLanguage
:: BatchDetectDominantLanguage
batchDetectDominantLanguage =
BatchDetectDominantLanguage' {_bddlTextList = mempty}
bddlTextList :: Lens' BatchDetectDominantLanguage [Text]
bddlTextList = lens _bddlTextList (\ s a -> s{_bddlTextList = a}) . _Coerce
instance AWSRequest BatchDetectDominantLanguage where
type Rs BatchDetectDominantLanguage =
BatchDetectDominantLanguageResponse
request = postJSON comprehend
response
= receiveJSON
(\ s h x ->
BatchDetectDominantLanguageResponse' <$>
(pure (fromEnum s)) <*>
(x .?> "ResultList" .!@ mempty)
<*> (x .?> "ErrorList" .!@ mempty))
instance Hashable BatchDetectDominantLanguage where
instance NFData BatchDetectDominantLanguage where
instance ToHeaders BatchDetectDominantLanguage where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("Comprehend_20171127.BatchDetectDominantLanguage" ::
ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON BatchDetectDominantLanguage where
toJSON BatchDetectDominantLanguage'{..}
= object
(catMaybes [Just ("TextList" .= _bddlTextList)])
instance ToPath BatchDetectDominantLanguage where
toPath = const "/"
instance ToQuery BatchDetectDominantLanguage where
toQuery = const mempty
data BatchDetectDominantLanguageResponse = BatchDetectDominantLanguageResponse'
{ _bddlrsResponseStatus :: !Int
, _bddlrsResultList :: ![BatchDetectDominantLanguageItemResult]
, _bddlrsErrorList :: ![BatchItemError]
} deriving (Eq, Read, Show, Data, Typeable, Generic)
batchDetectDominantLanguageResponse
:: Int
-> BatchDetectDominantLanguageResponse
batchDetectDominantLanguageResponse pResponseStatus_ =
BatchDetectDominantLanguageResponse'
{ _bddlrsResponseStatus = pResponseStatus_
, _bddlrsResultList = mempty
, _bddlrsErrorList = mempty
}
bddlrsResponseStatus :: Lens' BatchDetectDominantLanguageResponse Int
bddlrsResponseStatus = lens _bddlrsResponseStatus (\ s a -> s{_bddlrsResponseStatus = a})
bddlrsResultList :: Lens' BatchDetectDominantLanguageResponse [BatchDetectDominantLanguageItemResult]
bddlrsResultList = lens _bddlrsResultList (\ s a -> s{_bddlrsResultList = a}) . _Coerce
bddlrsErrorList :: Lens' BatchDetectDominantLanguageResponse [BatchItemError]
bddlrsErrorList = lens _bddlrsErrorList (\ s a -> s{_bddlrsErrorList = a}) . _Coerce
instance NFData BatchDetectDominantLanguageResponse
where