amazonka-polly 1.5.0 → 1.6.0

raw patch · 17 files changed

+143/−122 lines, 17 filesdep ~amazonka-coredep ~amazonka-testPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: amazonka-core, amazonka-test

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-polly.cabal +5/−5
• gen/Network/AWS/Polly.hs +2/−2
• gen/Network/AWS/Polly/DeleteLexicon.hs +3/−3
• gen/Network/AWS/Polly/DescribeVoices.hs +20/−10
• gen/Network/AWS/Polly/GetLexicon.hs +9/−9
• gen/Network/AWS/Polly/ListLexicons.hs +9/−9
• gen/Network/AWS/Polly/PutLexicon.hs +4/−4
• gen/Network/AWS/Polly/SynthesizeSpeech.hs +25/−25
• gen/Network/AWS/Polly/Types.hs +18/−16
• gen/Network/AWS/Polly/Types/Product.hs +29/−29
• gen/Network/AWS/Polly/Types/Sum.hs +13/−4
• gen/Network/AWS/Polly/Waiters.hs +1/−1
• test/Main.hs +1/−1
• test/Test/AWS/Gen/Polly.hs +1/−1
• test/Test/AWS/Polly.hs +1/−1
• test/Test/AWS/Polly/Internal.hs +1/−1

@@ -8,7 +8,7 @@  ## Version -`1.5.0`+`1.6.0`   ## Description

@@ -1,5 +1,5 @@ name:                  amazonka-polly-version:               1.5.0+version:               1.6.0 synopsis:              Amazon Polly SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -7,7 +7,7 @@ license-file:          LICENSE author:                Brendan Hay maintainer:            Brendan Hay <brendan.g.hay+amazonka@gmail.com>-copyright:             Copyright (c) 2013-2017 Brendan Hay+copyright:             Copyright (c) 2013-2018 Brendan Hay category:              Network, AWS, Cloud, Distributed Computing build-type:            Simple cabal-version:         >= 1.10@@ -59,7 +59,7 @@         , Network.AWS.Polly.Types.Sum      build-depends:-          amazonka-core == 1.5.0.*+          amazonka-core == 1.6.0.*         , base          >= 4.7     && < 5  test-suite amazonka-polly-test@@ -79,8 +79,8 @@         , Test.AWS.Polly.Internal      build-depends:-          amazonka-core == 1.5.0.*-        , amazonka-test == 1.5.0.*+          amazonka-core == 1.6.0.*+        , amazonka-test == 1.6.0.*         , amazonka-polly         , base         , bytestring

@@ -5,7 +5,7 @@  -- | -- Module      : Network.AWS.Polly--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -75,7 +75,7 @@     -- ** GetLexicon     , module Network.AWS.Polly.GetLexicon -    -- ** DescribeVoices+    -- ** DescribeVoices (Paginated)     , module Network.AWS.Polly.DescribeVoices      -- ** ListLexicons

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Polly.DeleteLexicon--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -64,7 +64,7 @@  -- | The name of the lexicon to delete. Must be an existing lexicon in the region. dlName :: Lens' DeleteLexicon Text-dlName = lens _dlName (\ s a -> s{_dlName = a}) . _Sensitive;+dlName = lens _dlName (\ s a -> s{_dlName = a}) . _Sensitive  instance AWSRequest DeleteLexicon where         type Rs DeleteLexicon = DeleteLexiconResponse@@ -108,6 +108,6 @@  -- | -- | The response status code. dlrsResponseStatus :: Lens' DeleteLexiconResponse Int-dlrsResponseStatus = lens _dlrsResponseStatus (\ s a -> s{_dlrsResponseStatus = a});+dlrsResponseStatus = lens _dlrsResponseStatus (\ s a -> s{_dlrsResponseStatus = a})  instance NFData DeleteLexiconResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Polly.DescribeVoices--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -29,6 +29,8 @@ -- -- This operation requires permissions to perform the @polly:DescribeVoices@ action. --+--+-- This operation returns paginated results. module Network.AWS.Polly.DescribeVoices     (     -- * Creating a Request@@ -48,6 +50,7 @@     ) where  import Network.AWS.Lens+import Network.AWS.Pager import Network.AWS.Polly.Types import Network.AWS.Polly.Types.Product import Network.AWS.Prelude@@ -76,12 +79,19 @@  -- | The language identification tag (ISO 639 code for the language name-ISO 3166 country code) for filtering the list of voices returned. If you don't specify this optional parameter, all available voices are returned. dvLanguageCode :: Lens' DescribeVoices (Maybe LanguageCode)-dvLanguageCode = lens _dvLanguageCode (\ s a -> s{_dvLanguageCode = a});+dvLanguageCode = lens _dvLanguageCode (\ s a -> s{_dvLanguageCode = a})  -- | An opaque pagination token returned from the previous @DescribeVoices@ operation. If present, this indicates where to continue the listing. dvNextToken :: Lens' DescribeVoices (Maybe Text)-dvNextToken = lens _dvNextToken (\ s a -> s{_dvNextToken = a});+dvNextToken = lens _dvNextToken (\ s a -> s{_dvNextToken = a}) +instance AWSPager DescribeVoices where+        page rq rs+          | stop (rs ^. dvrsNextToken) = Nothing+          | stop (rs ^. dvrsVoices) = Nothing+          | otherwise =+            Just $ rq & dvNextToken .~ rs ^. dvrsNextToken+ instance AWSRequest DescribeVoices where         type Rs DescribeVoices = DescribeVoicesResponse         request = get polly@@ -130,22 +140,22 @@     -> DescribeVoicesResponse describeVoicesResponse pResponseStatus_ =   DescribeVoicesResponse'-  { _dvrsNextToken = Nothing-  , _dvrsVoices = Nothing-  , _dvrsResponseStatus = pResponseStatus_-  }+    { _dvrsNextToken = Nothing+    , _dvrsVoices = Nothing+    , _dvrsResponseStatus = pResponseStatus_+    }   -- | The pagination token to use in the next request to continue the listing of voices. @NextToken@ is returned only if the response is truncated. dvrsNextToken :: Lens' DescribeVoicesResponse (Maybe Text)-dvrsNextToken = lens _dvrsNextToken (\ s a -> s{_dvrsNextToken = a});+dvrsNextToken = lens _dvrsNextToken (\ s a -> s{_dvrsNextToken = a})  -- | A list of voices with their properties. dvrsVoices :: Lens' DescribeVoicesResponse [Voice]-dvrsVoices = lens _dvrsVoices (\ s a -> s{_dvrsVoices = a}) . _Default . _Coerce;+dvrsVoices = lens _dvrsVoices (\ s a -> s{_dvrsVoices = a}) . _Default . _Coerce  -- | -- | The response status code. dvrsResponseStatus :: Lens' DescribeVoicesResponse Int-dvrsResponseStatus = lens _dvrsResponseStatus (\ s a -> s{_dvrsResponseStatus = a});+dvrsResponseStatus = lens _dvrsResponseStatus (\ s a -> s{_dvrsResponseStatus = a})  instance NFData DescribeVoicesResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Polly.GetLexicon--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -64,7 +64,7 @@  -- | Name of the lexicon. glName :: Lens' GetLexicon Text-glName = lens _glName (\ s a -> s{_glName = a}) . _Sensitive;+glName = lens _glName (\ s a -> s{_glName = a}) . _Sensitive  instance AWSRequest GetLexicon where         type Rs GetLexicon = GetLexiconResponse@@ -112,22 +112,22 @@     -> GetLexiconResponse getLexiconResponse pResponseStatus_ =   GetLexiconResponse'-  { _glrsLexiconAttributes = Nothing-  , _glrsLexicon = Nothing-  , _glrsResponseStatus = pResponseStatus_-  }+    { _glrsLexiconAttributes = Nothing+    , _glrsLexicon = Nothing+    , _glrsResponseStatus = pResponseStatus_+    }   -- | Metadata of the lexicon, including phonetic alphabetic used, language code, lexicon ARN, number of lexemes defined in the lexicon, and size of lexicon in bytes. glrsLexiconAttributes :: Lens' GetLexiconResponse (Maybe LexiconAttributes)-glrsLexiconAttributes = lens _glrsLexiconAttributes (\ s a -> s{_glrsLexiconAttributes = a});+glrsLexiconAttributes = lens _glrsLexiconAttributes (\ s a -> s{_glrsLexiconAttributes = a})  -- | Lexicon object that provides name and the string content of the lexicon. glrsLexicon :: Lens' GetLexiconResponse (Maybe Lexicon)-glrsLexicon = lens _glrsLexicon (\ s a -> s{_glrsLexicon = a});+glrsLexicon = lens _glrsLexicon (\ s a -> s{_glrsLexicon = a})  -- | -- | The response status code. glrsResponseStatus :: Lens' GetLexiconResponse Int-glrsResponseStatus = lens _glrsResponseStatus (\ s a -> s{_glrsResponseStatus = a});+glrsResponseStatus = lens _glrsResponseStatus (\ s a -> s{_glrsResponseStatus = a})  instance NFData GetLexiconResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Polly.ListLexicons--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -63,7 +63,7 @@  -- | An opaque pagination token returned from previous @ListLexicons@ operation. If present, indicates where to continue the list of lexicons. llNextToken :: Lens' ListLexicons (Maybe Text)-llNextToken = lens _llNextToken (\ s a -> s{_llNextToken = a});+llNextToken = lens _llNextToken (\ s a -> s{_llNextToken = a})  instance AWSRequest ListLexicons where         type Rs ListLexicons = ListLexiconsResponse@@ -111,22 +111,22 @@     -> ListLexiconsResponse listLexiconsResponse pResponseStatus_ =   ListLexiconsResponse'-  { _llrsLexicons = Nothing-  , _llrsNextToken = Nothing-  , _llrsResponseStatus = pResponseStatus_-  }+    { _llrsLexicons = Nothing+    , _llrsNextToken = Nothing+    , _llrsResponseStatus = pResponseStatus_+    }   -- | A list of lexicon names and attributes. llrsLexicons :: Lens' ListLexiconsResponse [LexiconDescription]-llrsLexicons = lens _llrsLexicons (\ s a -> s{_llrsLexicons = a}) . _Default . _Coerce;+llrsLexicons = lens _llrsLexicons (\ s a -> s{_llrsLexicons = a}) . _Default . _Coerce  -- | The pagination token to use in the next request to continue the listing of lexicons. @NextToken@ is returned only if the response is truncated. llrsNextToken :: Lens' ListLexiconsResponse (Maybe Text)-llrsNextToken = lens _llrsNextToken (\ s a -> s{_llrsNextToken = a});+llrsNextToken = lens _llrsNextToken (\ s a -> s{_llrsNextToken = a})  -- | -- | The response status code. llrsResponseStatus :: Lens' ListLexiconsResponse Int-llrsResponseStatus = lens _llrsResponseStatus (\ s a -> s{_llrsResponseStatus = a});+llrsResponseStatus = lens _llrsResponseStatus (\ s a -> s{_llrsResponseStatus = a})  instance NFData ListLexiconsResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Polly.PutLexicon--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -70,11 +70,11 @@  -- | Name of the lexicon. The name must follow the regular express format [0-9A-Za-z]{1,20}. That is, the name is a case-sensitive alphanumeric string up to 20 characters long. plName :: Lens' PutLexicon Text-plName = lens _plName (\ s a -> s{_plName = a}) . _Sensitive;+plName = lens _plName (\ s a -> s{_plName = a}) . _Sensitive  -- | Content of the PLS lexicon as string data. plContent :: Lens' PutLexicon Text-plContent = lens _plContent (\ s a -> s{_plContent = a});+plContent = lens _plContent (\ s a -> s{_plContent = a})  instance AWSRequest PutLexicon where         type Rs PutLexicon = PutLexiconResponse@@ -122,6 +122,6 @@  -- | -- | The response status code. plrsResponseStatus :: Lens' PutLexiconResponse Int-plrsResponseStatus = lens _plrsResponseStatus (\ s a -> s{_plrsResponseStatus = a});+plrsResponseStatus = lens _plrsResponseStatus (\ s a -> s{_plrsResponseStatus = a})  instance NFData PutLexiconResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.Polly.SynthesizeSpeech--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -88,43 +88,43 @@     -> SynthesizeSpeech synthesizeSpeech pOutputFormat_ pText_ pVoiceId_ =   SynthesizeSpeech'-  { _ssSpeechMarkTypes = Nothing-  , _ssSampleRate = Nothing-  , _ssTextType = Nothing-  , _ssLexiconNames = Nothing-  , _ssOutputFormat = pOutputFormat_-  , _ssText = pText_-  , _ssVoiceId = pVoiceId_-  }+    { _ssSpeechMarkTypes = Nothing+    , _ssSampleRate = Nothing+    , _ssTextType = Nothing+    , _ssLexiconNames = Nothing+    , _ssOutputFormat = pOutputFormat_+    , _ssText = pText_+    , _ssVoiceId = pVoiceId_+    }   -- | The type of speech marks returned for the input text. ssSpeechMarkTypes :: Lens' SynthesizeSpeech [SpeechMarkType]-ssSpeechMarkTypes = lens _ssSpeechMarkTypes (\ s a -> s{_ssSpeechMarkTypes = a}) . _Default . _Coerce;+ssSpeechMarkTypes = lens _ssSpeechMarkTypes (\ s a -> s{_ssSpeechMarkTypes = a}) . _Default . _Coerce  -- | The audio frequency specified in Hz.  The valid values for @mp3@ and @ogg_vorbis@ are "8000", "16000", and "22050". The default value is "22050".  Valid values for @pcm@ are "8000" and "16000" The default value is "16000". ssSampleRate :: Lens' SynthesizeSpeech (Maybe Text)-ssSampleRate = lens _ssSampleRate (\ s a -> s{_ssSampleRate = a});+ssSampleRate = lens _ssSampleRate (\ s a -> s{_ssSampleRate = a})  -- | Specifies whether the input text is plain text or SSML. The default value is plain text. For more information, see <http://docs.aws.amazon.com/polly/latest/dg/ssml.html Using SSML> . ssTextType :: Lens' SynthesizeSpeech (Maybe TextType)-ssTextType = lens _ssTextType (\ s a -> s{_ssTextType = a});+ssTextType = lens _ssTextType (\ s a -> s{_ssTextType = a})  -- | List of one or more pronunciation lexicon names you want the service to apply during synthesis. Lexicons are applied only if the language of the lexicon is the same as the language of the voice. For information about storing lexicons, see <http://docs.aws.amazon.com/polly/latest/dg/API_PutLexicon.html PutLexicon> . ssLexiconNames :: Lens' SynthesizeSpeech [Text]-ssLexiconNames = lens _ssLexiconNames (\ s a -> s{_ssLexiconNames = a}) . _Default . _Coerce;+ssLexiconNames = lens _ssLexiconNames (\ s a -> s{_ssLexiconNames = a}) . _Default . _Coerce  -- | The format in which the returned output will be encoded. For audio stream, this will be mp3, ogg_vorbis, or pcm. For speech marks, this will be json. ssOutputFormat :: Lens' SynthesizeSpeech OutputFormat-ssOutputFormat = lens _ssOutputFormat (\ s a -> s{_ssOutputFormat = a});+ssOutputFormat = lens _ssOutputFormat (\ s a -> s{_ssOutputFormat = a})  -- | Input text to synthesize. If you specify @ssml@ as the @TextType@ , follow the SSML format for the input text. ssText :: Lens' SynthesizeSpeech Text-ssText = lens _ssText (\ s a -> s{_ssText = a});+ssText = lens _ssText (\ s a -> s{_ssText = a})  -- | Voice ID to use for the synthesis. You can get a list of available voice IDs by calling the <http://docs.aws.amazon.com/polly/latest/dg/API_DescribeVoices.html DescribeVoices> operation. ssVoiceId :: Lens' SynthesizeSpeech VoiceId-ssVoiceId = lens _ssVoiceId (\ s a -> s{_ssVoiceId = a});+ssVoiceId = lens _ssVoiceId (\ s a -> s{_ssVoiceId = a})  instance AWSRequest SynthesizeSpeech where         type Rs SynthesizeSpeech = SynthesizeSpeechResponse@@ -189,25 +189,25 @@     -> SynthesizeSpeechResponse synthesizeSpeechResponse pResponseStatus_ pAudioStream_ =   SynthesizeSpeechResponse'-  { _ssrsRequestCharacters = Nothing-  , _ssrsContentType = Nothing-  , _ssrsResponseStatus = pResponseStatus_-  , _ssrsAudioStream = pAudioStream_-  }+    { _ssrsRequestCharacters = Nothing+    , _ssrsContentType = Nothing+    , _ssrsResponseStatus = pResponseStatus_+    , _ssrsAudioStream = pAudioStream_+    }   -- | Number of characters synthesized. ssrsRequestCharacters :: Lens' SynthesizeSpeechResponse (Maybe Int)-ssrsRequestCharacters = lens _ssrsRequestCharacters (\ s a -> s{_ssrsRequestCharacters = a});+ssrsRequestCharacters = lens _ssrsRequestCharacters (\ s a -> s{_ssrsRequestCharacters = a})  -- | Specifies the type audio stream. This should reflect the @OutputFormat@ parameter in your request.      * If you request @mp3@ as the @OutputFormat@ , the @ContentType@ returned is audio/mpeg.      * If you request @ogg_vorbis@ as the @OutputFormat@ , the @ContentType@ returned is audio/ogg.      * If you request @pcm@ as the @OutputFormat@ , the @ContentType@ returned is audio/pcm in a signed 16-bit, 1 channel (mono), little-endian format.      * If you request @json@ as the @OutputFormat@ , the @ContentType@ returned is audio/json. ssrsContentType :: Lens' SynthesizeSpeechResponse (Maybe Text)-ssrsContentType = lens _ssrsContentType (\ s a -> s{_ssrsContentType = a});+ssrsContentType = lens _ssrsContentType (\ s a -> s{_ssrsContentType = a})  -- | -- | The response status code. ssrsResponseStatus :: Lens' SynthesizeSpeechResponse Int-ssrsResponseStatus = lens _ssrsResponseStatus (\ s a -> s{_ssrsResponseStatus = a});+ssrsResponseStatus = lens _ssrsResponseStatus (\ s a -> s{_ssrsResponseStatus = a})  -- | Stream containing the synthesized speech. ssrsAudioStream :: Lens' SynthesizeSpeechResponse RsBody-ssrsAudioStream = lens _ssrsAudioStream (\ s a -> s{_ssrsAudioStream = a});+ssrsAudioStream = lens _ssrsAudioStream (\ s a -> s{_ssrsAudioStream = a})

@@ -4,7 +4,7 @@  -- | -- Module      : Network.AWS.Polly.Types--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -91,24 +91,24 @@ polly :: Service polly =   Service-  { _svcAbbrev = "Polly"-  , _svcSigner = v4-  , _svcPrefix = "polly"-  , _svcVersion = "2016-06-10"-  , _svcEndpoint = defaultEndpoint polly-  , _svcTimeout = Just 70-  , _svcCheck = statusSuccess-  , _svcError = parseJSONError "Polly"-  , _svcRetry = retry-  }+    { _svcAbbrev = "Polly"+    , _svcSigner = v4+    , _svcPrefix = "polly"+    , _svcVersion = "2016-06-10"+    , _svcEndpoint = defaultEndpoint polly+    , _svcTimeout = Just 70+    , _svcCheck = statusSuccess+    , _svcError = parseJSONError "Polly"+    , _svcRetry = retry+    }   where     retry =       Exponential-      { _retryBase = 5.0e-2-      , _retryGrowth = 2-      , _retryAttempts = 5-      , _retryCheck = check-      }+        { _retryBase = 5.0e-2+        , _retryGrowth = 2+        , _retryAttempts = 5+        , _retryCheck = check+        }     check e       | has (hasCode "ThrottledException" . hasStatus 400) e =         Just "throttled_exception"@@ -117,6 +117,8 @@         Just "throttling_exception"       | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"       | has (hasStatus 504) e = Just "gateway_timeout"+      | has (hasCode "RequestThrottledException" . hasStatus 400) e =+        Just "request_throttled_exception"       | has (hasStatus 502) e = Just "bad_gateway"       | has (hasStatus 503) e = Just "service_unavailable"       | has (hasStatus 500) e = Just "general_server_error"

@@ -9,7 +9,7 @@  -- | -- Module      : Network.AWS.Polly.Types.Product--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -46,11 +46,11 @@  -- | Lexicon content in string format. The content of a lexicon must be in PLS format. lContent :: Lens' Lexicon (Maybe Text)-lContent = lens _lContent (\ s a -> s{_lContent = a});+lContent = lens _lContent (\ s a -> s{_lContent = a})  -- | Name of the lexicon. lName :: Lens' Lexicon (Maybe Text)-lName = lens _lName (\ s a -> s{_lName = a}) . mapping _Sensitive;+lName = lens _lName (\ s a -> s{_lName = a}) . mapping _Sensitive  instance FromJSON Lexicon where         parseJSON@@ -96,38 +96,38 @@     :: LexiconAttributes lexiconAttributes =   LexiconAttributes'-  { _laLanguageCode = Nothing-  , _laSize = Nothing-  , _laLexemesCount = Nothing-  , _laLexiconARN = Nothing-  , _laAlphabet = Nothing-  , _laLastModified = Nothing-  }+    { _laLanguageCode = Nothing+    , _laSize = Nothing+    , _laLexemesCount = Nothing+    , _laLexiconARN = Nothing+    , _laAlphabet = Nothing+    , _laLastModified = Nothing+    }   -- | Language code that the lexicon applies to. A lexicon with a language code such as "en" would be applied to all English languages (en-GB, en-US, en-AUS, en-WLS, and so on. laLanguageCode :: Lens' LexiconAttributes (Maybe LanguageCode)-laLanguageCode = lens _laLanguageCode (\ s a -> s{_laLanguageCode = a});+laLanguageCode = lens _laLanguageCode (\ s a -> s{_laLanguageCode = a})  -- | Total size of the lexicon, in characters. laSize :: Lens' LexiconAttributes (Maybe Int)-laSize = lens _laSize (\ s a -> s{_laSize = a});+laSize = lens _laSize (\ s a -> s{_laSize = a})  -- | Number of lexemes in the lexicon. laLexemesCount :: Lens' LexiconAttributes (Maybe Int)-laLexemesCount = lens _laLexemesCount (\ s a -> s{_laLexemesCount = a});+laLexemesCount = lens _laLexemesCount (\ s a -> s{_laLexemesCount = a})  -- | Amazon Resource Name (ARN) of the lexicon. laLexiconARN :: Lens' LexiconAttributes (Maybe Text)-laLexiconARN = lens _laLexiconARN (\ s a -> s{_laLexiconARN = a});+laLexiconARN = lens _laLexiconARN (\ s a -> s{_laLexiconARN = a})  -- | Phonetic alphabet used in the lexicon. Valid values are @ipa@ and @x-sampa@ . laAlphabet :: Lens' LexiconAttributes (Maybe Text)-laAlphabet = lens _laAlphabet (\ s a -> s{_laAlphabet = a});+laAlphabet = lens _laAlphabet (\ s a -> s{_laAlphabet = a})  -- | Date lexicon was last modified (a timestamp value). laLastModified :: Lens' LexiconAttributes (Maybe UTCTime)-laLastModified = lens _laLastModified (\ s a -> s{_laLastModified = a}) . mapping _Time;+laLastModified = lens _laLastModified (\ s a -> s{_laLastModified = a}) . mapping _Time  instance FromJSON LexiconAttributes where         parseJSON@@ -170,11 +170,11 @@  -- | Provides lexicon metadata. ldAttributes :: Lens' LexiconDescription (Maybe LexiconAttributes)-ldAttributes = lens _ldAttributes (\ s a -> s{_ldAttributes = a});+ldAttributes = lens _ldAttributes (\ s a -> s{_ldAttributes = a})  -- | Name of the lexicon. ldName :: Lens' LexiconDescription (Maybe Text)-ldName = lens _ldName (\ s a -> s{_ldName = a}) . mapping _Sensitive;+ldName = lens _ldName (\ s a -> s{_ldName = a}) . mapping _Sensitive  instance FromJSON LexiconDescription where         parseJSON@@ -218,33 +218,33 @@     :: Voice voice =   Voice'-  { _vLanguageCode = Nothing-  , _vLanguageName = Nothing-  , _vGender = Nothing-  , _vName = Nothing-  , _vId = Nothing-  }+    { _vLanguageCode = Nothing+    , _vLanguageName = Nothing+    , _vGender = Nothing+    , _vName = Nothing+    , _vId = Nothing+    }   -- | Language code of the voice. vLanguageCode :: Lens' Voice (Maybe LanguageCode)-vLanguageCode = lens _vLanguageCode (\ s a -> s{_vLanguageCode = a});+vLanguageCode = lens _vLanguageCode (\ s a -> s{_vLanguageCode = a})  -- | Human readable name of the language in English. vLanguageName :: Lens' Voice (Maybe Text)-vLanguageName = lens _vLanguageName (\ s a -> s{_vLanguageName = a});+vLanguageName = lens _vLanguageName (\ s a -> s{_vLanguageName = a})  -- | Gender of the voice. vGender :: Lens' Voice (Maybe Gender)-vGender = lens _vGender (\ s a -> s{_vGender = a});+vGender = lens _vGender (\ s a -> s{_vGender = a})  -- | Name of the voice (for example, Salli, Kendra, etc.). This provides a human readable voice name that you might display in your application. vName :: Lens' Voice (Maybe Text)-vName = lens _vName (\ s a -> s{_vName = a});+vName = lens _vName (\ s a -> s{_vName = a})  -- | Amazon Polly assigned voice ID. This is the ID that you specify when calling the @SynthesizeSpeech@ operation. vId :: Lens' Voice (Maybe VoiceId)-vId = lens _vId (\ s a -> s{_vId = a});+vId = lens _vId (\ s a -> s{_vId = a})  instance FromJSON Voice where         parseJSON

@@ -9,7 +9,7 @@  -- | -- Module      : Network.AWS.Polly.Types.Sum--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -62,6 +62,7 @@   | IsIs   | ItIt   | JaJp+  | KoKr   | NbNo   | NlNl   | PlPl@@ -91,6 +92,7 @@         "is-is" -> pure IsIs         "it-it" -> pure ItIt         "ja-jp" -> pure JaJp+        "ko-kr" -> pure KoKr         "nb-no" -> pure NbNo         "nl-nl" -> pure NlNl         "pl-pl" -> pure PlPl@@ -101,7 +103,7 @@         "sv-se" -> pure SvSe         "tr-tr" -> pure TrTr         e -> fromTextError $ "Failure parsing LanguageCode from value: '" <> e-           <> "'. Accepted values: cy-gb, da-dk, de-de, en-au, en-gb, en-gb-wls, en-in, en-us, es-es, es-us, fr-ca, fr-fr, is-is, it-it, ja-jp, nb-no, nl-nl, pl-pl, pt-br, pt-pt, ro-ro, ru-ru, sv-se, tr-tr"+           <> "'. Accepted values: cy-gb, da-dk, de-de, en-au, en-gb, en-gb-wls, en-in, en-us, es-es, es-us, fr-ca, fr-fr, is-is, it-it, ja-jp, ko-kr, nb-no, nl-nl, pl-pl, pt-br, pt-pt, ro-ro, ru-ru, sv-se, tr-tr"  instance ToText LanguageCode where     toText = \case@@ -120,6 +122,7 @@         IsIs -> "is-IS"         ItIt -> "it-IT"         JaJp -> "ja-JP"+        KoKr -> "ko-KR"         NbNo -> "nb-NO"         NlNl -> "nl-NL"         PlPl -> "pl-PL"@@ -236,7 +239,8 @@     toJSON = toJSONText  data VoiceId-  = Amy+  = Aditi+  | Amy   | Astrid   | Brian   | Carla@@ -282,6 +286,7 @@   | Ruben   | Russell   | Salli+  | Seoyeon   | Takumi   | Tatyana   | Vicki@@ -291,6 +296,7 @@  instance FromText VoiceId where     parser = takeLowerText >>= \case+        "aditi" -> pure Aditi         "amy" -> pure Amy         "astrid" -> pure Astrid         "brian" -> pure Brian@@ -337,15 +343,17 @@         "ruben" -> pure Ruben         "russell" -> pure Russell         "salli" -> pure Salli+        "seoyeon" -> pure Seoyeon         "takumi" -> pure Takumi         "tatyana" -> pure Tatyana         "vicki" -> pure Vicki         "vitoria" -> pure Vitoria         e -> fromTextError $ "Failure parsing VoiceId from value: '" <> e-           <> "'. Accepted values: amy, astrid, brian, carla, carmen, celine, chantal, conchita, cristiano, dora, emma, enrique, ewa, filiz, geraint, giorgio, gwyneth, hans, ines, ivy, jacek, jan, joanna, joey, justin, karl, kendra, kimberly, liv, lotte, mads, maja, marlene, mathieu, matthew, maxim, miguel, mizuki, naja, nicole, penelope, raveena, ricardo, ruben, russell, salli, takumi, tatyana, vicki, vitoria"+           <> "'. Accepted values: aditi, amy, astrid, brian, carla, carmen, celine, chantal, conchita, cristiano, dora, emma, enrique, ewa, filiz, geraint, giorgio, gwyneth, hans, ines, ivy, jacek, jan, joanna, joey, justin, karl, kendra, kimberly, liv, lotte, mads, maja, marlene, mathieu, matthew, maxim, miguel, mizuki, naja, nicole, penelope, raveena, ricardo, ruben, russell, salli, seoyeon, takumi, tatyana, vicki, vitoria"  instance ToText VoiceId where     toText = \case+        Aditi -> "Aditi"         Amy -> "Amy"         Astrid -> "Astrid"         Brian -> "Brian"@@ -392,6 +400,7 @@         Ruben -> "Ruben"         Russell -> "Russell"         Salli -> "Salli"+        Seoyeon -> "Seoyeon"         Takumi -> "Takumi"         Tatyana -> "Tatyana"         Vicki -> "Vicki"

@@ -7,7 +7,7 @@  -- | -- Module      : Network.AWS.Polly.Waiters--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated

@@ -2,7 +2,7 @@  -- | -- Module      : Main--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated

@@ -5,7 +5,7 @@  -- | -- Module      : Test.AWS.Gen.Polly--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated

@@ -1,6 +1,6 @@ -- | -- Module      : Test.AWS.Polly--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated

@@ -1,6 +1,6 @@ -- | -- Module      : Test.AWS.Polly.Internal--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated