{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module Network.AWS.Polly.Types.Product where
import Network.AWS.Lens
import Network.AWS.Polly.Types.Sum
import Network.AWS.Prelude
data Lexicon = Lexicon'
{ _lContent :: !(Maybe Text)
, _lName :: !(Maybe (Sensitive Text))
} deriving (Eq,Read,Show,Data,Typeable,Generic)
lexicon
:: Lexicon
lexicon =
Lexicon'
{ _lContent = Nothing
, _lName = Nothing
}
lContent :: Lens' Lexicon (Maybe Text)
lContent = lens _lContent (\ s a -> s{_lContent = a});
lName :: Lens' Lexicon (Maybe Text)
lName = lens _lName (\ s a -> s{_lName = a}) . mapping _Sensitive;
instance FromJSON Lexicon where
parseJSON
= withObject "Lexicon"
(\ x ->
Lexicon' <$> (x .:? "Content") <*> (x .:? "Name"))
instance Hashable Lexicon
instance NFData Lexicon
data LexiconAttributes = LexiconAttributes'
{ _laLanguageCode :: !(Maybe LanguageCode)
, _laSize :: !(Maybe Int)
, _laLexemesCount :: !(Maybe Int)
, _laLexiconARN :: !(Maybe Text)
, _laAlphabet :: !(Maybe Text)
, _laLastModified :: !(Maybe POSIX)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
lexiconAttributes
:: LexiconAttributes
lexiconAttributes =
LexiconAttributes'
{ _laLanguageCode = Nothing
, _laSize = Nothing
, _laLexemesCount = Nothing
, _laLexiconARN = Nothing
, _laAlphabet = Nothing
, _laLastModified = Nothing
}
laLanguageCode :: Lens' LexiconAttributes (Maybe LanguageCode)
laLanguageCode = lens _laLanguageCode (\ s a -> s{_laLanguageCode = a});
laSize :: Lens' LexiconAttributes (Maybe Int)
laSize = lens _laSize (\ s a -> s{_laSize = a});
laLexemesCount :: Lens' LexiconAttributes (Maybe Int)
laLexemesCount = lens _laLexemesCount (\ s a -> s{_laLexemesCount = a});
laLexiconARN :: Lens' LexiconAttributes (Maybe Text)
laLexiconARN = lens _laLexiconARN (\ s a -> s{_laLexiconARN = a});
laAlphabet :: Lens' LexiconAttributes (Maybe Text)
laAlphabet = lens _laAlphabet (\ s a -> s{_laAlphabet = a});
laLastModified :: Lens' LexiconAttributes (Maybe UTCTime)
laLastModified = lens _laLastModified (\ s a -> s{_laLastModified = a}) . mapping _Time;
instance FromJSON LexiconAttributes where
parseJSON
= withObject "LexiconAttributes"
(\ x ->
LexiconAttributes' <$>
(x .:? "LanguageCode") <*> (x .:? "Size") <*>
(x .:? "LexemesCount")
<*> (x .:? "LexiconArn")
<*> (x .:? "Alphabet")
<*> (x .:? "LastModified"))
instance Hashable LexiconAttributes
instance NFData LexiconAttributes
data LexiconDescription = LexiconDescription'
{ _ldAttributes :: !(Maybe LexiconAttributes)
, _ldName :: !(Maybe (Sensitive Text))
} deriving (Eq,Read,Show,Data,Typeable,Generic)
lexiconDescription
:: LexiconDescription
lexiconDescription =
LexiconDescription'
{ _ldAttributes = Nothing
, _ldName = Nothing
}
ldAttributes :: Lens' LexiconDescription (Maybe LexiconAttributes)
ldAttributes = lens _ldAttributes (\ s a -> s{_ldAttributes = a});
ldName :: Lens' LexiconDescription (Maybe Text)
ldName = lens _ldName (\ s a -> s{_ldName = a}) . mapping _Sensitive;
instance FromJSON LexiconDescription where
parseJSON
= withObject "LexiconDescription"
(\ x ->
LexiconDescription' <$>
(x .:? "Attributes") <*> (x .:? "Name"))
instance Hashable LexiconDescription
instance NFData LexiconDescription
data Voice = Voice'
{ _vLanguageCode :: !(Maybe LanguageCode)
, _vLanguageName :: !(Maybe Text)
, _vGender :: !(Maybe Gender)
, _vName :: !(Maybe Text)
, _vId :: !(Maybe VoiceId)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
voice
:: Voice
voice =
Voice'
{ _vLanguageCode = Nothing
, _vLanguageName = Nothing
, _vGender = Nothing
, _vName = Nothing
, _vId = Nothing
}
vLanguageCode :: Lens' Voice (Maybe LanguageCode)
vLanguageCode = lens _vLanguageCode (\ s a -> s{_vLanguageCode = a});
vLanguageName :: Lens' Voice (Maybe Text)
vLanguageName = lens _vLanguageName (\ s a -> s{_vLanguageName = a});
vGender :: Lens' Voice (Maybe Gender)
vGender = lens _vGender (\ s a -> s{_vGender = a});
vName :: Lens' Voice (Maybe Text)
vName = lens _vName (\ s a -> s{_vName = a});
vId :: Lens' Voice (Maybe VoiceId)
vId = lens _vId (\ s a -> s{_vId = a});
instance FromJSON Voice where
parseJSON
= withObject "Voice"
(\ x ->
Voice' <$>
(x .:? "LanguageCode") <*> (x .:? "LanguageName") <*>
(x .:? "Gender")
<*> (x .:? "Name")
<*> (x .:? "Id"))
instance Hashable Voice
instance NFData Voice