{-# 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.Polly.PutLexicon
(
putLexicon
, PutLexicon
, plName
, plContent
, putLexiconResponse
, PutLexiconResponse
, plrsResponseStatus
) where
import Network.AWS.Lens
import Network.AWS.Polly.Types
import Network.AWS.Polly.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data PutLexicon = PutLexicon'
{ _plName :: !(Sensitive Text)
, _plContent :: !Text
} deriving (Eq, Show, Data, Typeable, Generic)
putLexicon
:: Text
-> Text
-> PutLexicon
putLexicon pName_ pContent_ =
PutLexicon' {_plName = _Sensitive # pName_, _plContent = pContent_}
plName :: Lens' PutLexicon Text
plName = lens _plName (\ s a -> s{_plName = a}) . _Sensitive
plContent :: Lens' PutLexicon Text
plContent = lens _plContent (\ s a -> s{_plContent = a})
instance AWSRequest PutLexicon where
type Rs PutLexicon = PutLexiconResponse
request = putJSON polly
response
= receiveEmpty
(\ s h x ->
PutLexiconResponse' <$> (pure (fromEnum s)))
instance Hashable PutLexicon where
instance NFData PutLexicon where
instance ToHeaders PutLexicon where
toHeaders = const mempty
instance ToJSON PutLexicon where
toJSON PutLexicon'{..}
= object (catMaybes [Just ("Content" .= _plContent)])
instance ToPath PutLexicon where
toPath PutLexicon'{..}
= mconcat ["/v1/lexicons/", toBS _plName]
instance ToQuery PutLexicon where
toQuery = const mempty
newtype PutLexiconResponse = PutLexiconResponse'
{ _plrsResponseStatus :: Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
putLexiconResponse
:: Int
-> PutLexiconResponse
putLexiconResponse pResponseStatus_ =
PutLexiconResponse' {_plrsResponseStatus = pResponseStatus_}
plrsResponseStatus :: Lens' PutLexiconResponse Int
plrsResponseStatus = lens _plrsResponseStatus (\ s a -> s{_plrsResponseStatus = a})
instance NFData PutLexiconResponse where