amazonka-pinpoint 1.4.5 → 1.5.0

raw patch · 129 files changed

+13822/−4072 lines, 129 filesdep ~amazonka-coredep ~amazonka-pinpointdep ~amazonka-testPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: amazonka-core, amazonka-pinpoint, amazonka-test

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-pinpoint.cabal +46/−11
• fixture/CreateApp.yaml +10/−0
• fixture/CreateAppResponse.proto +0/−0
• fixture/DeleteADMChannel.yaml +10/−0
• fixture/DeleteADMChannelResponse.proto +0/−0
• fixture/DeleteAPNSSandboxChannel.yaml +10/−0
• fixture/DeleteAPNSSandboxChannelResponse.proto +0/−0
• fixture/DeleteAPNSVoipChannel.yaml +10/−0
• fixture/DeleteAPNSVoipChannelResponse.proto +0/−0
• fixture/DeleteAPNSVoipSandboxChannel.yaml +10/−0
• fixture/DeleteAPNSVoipSandboxChannelResponse.proto +0/−0
• fixture/DeleteApp.yaml +10/−0
• fixture/DeleteAppResponse.proto +0/−0
• fixture/DeleteBaiduChannel.yaml +10/−0
• fixture/DeleteBaiduChannelResponse.proto +0/−0
• fixture/DeleteEmailChannel.yaml +10/−0
• fixture/DeleteEmailChannelResponse.proto +0/−0
• fixture/DeleteEventStream.yaml +10/−0
• fixture/DeleteEventStreamResponse.proto +0/−0
• fixture/DeleteSmsChannel.yaml +10/−0
• fixture/DeleteSmsChannelResponse.proto +0/−0
• fixture/GetADMChannel.yaml +10/−0
• fixture/GetADMChannelResponse.proto +0/−0
• fixture/GetAPNSSandboxChannel.yaml +10/−0
• fixture/GetAPNSSandboxChannelResponse.proto +0/−0
• fixture/GetAPNSVoipChannel.yaml +10/−0
• fixture/GetAPNSVoipChannelResponse.proto +0/−0
• fixture/GetAPNSVoipSandboxChannel.yaml +10/−0
• fixture/GetAPNSVoipSandboxChannelResponse.proto +0/−0
• fixture/GetApp.yaml +10/−0
• fixture/GetAppResponse.proto +0/−0
• fixture/GetApps.yaml +10/−0
• fixture/GetAppsResponse.proto +0/−0
• fixture/GetBaiduChannel.yaml +10/−0
• fixture/GetBaiduChannelResponse.proto +0/−0
• fixture/GetEmailChannel.yaml +10/−0
• fixture/GetEmailChannelResponse.proto +0/−0
• fixture/GetEventStream.yaml +10/−0
• fixture/GetEventStreamResponse.proto +0/−0
• fixture/GetSmsChannel.yaml +10/−0
• fixture/GetSmsChannelResponse.proto +0/−0
• fixture/PutEventStream.yaml +10/−0
• fixture/PutEventStreamResponse.proto +0/−0
• fixture/SendMessages.yaml +10/−0
• fixture/SendMessagesResponse.proto +0/−0
• fixture/SendUsersMessages.yaml +10/−0
• fixture/SendUsersMessagesResponse.proto +0/−0
• fixture/UpdateADMChannel.yaml +10/−0
• fixture/UpdateADMChannelResponse.proto +0/−0
• fixture/UpdateAPNSSandboxChannel.yaml +10/−0
• fixture/UpdateAPNSSandboxChannelResponse.proto +0/−0
• fixture/UpdateAPNSVoipChannel.yaml +10/−0
• fixture/UpdateAPNSVoipChannelResponse.proto +0/−0
• fixture/UpdateAPNSVoipSandboxChannel.yaml +10/−0
• fixture/UpdateAPNSVoipSandboxChannelResponse.proto +0/−0
• fixture/UpdateBaiduChannel.yaml +10/−0
• fixture/UpdateBaiduChannelResponse.proto +0/−0
• fixture/UpdateEmailChannel.yaml +10/−0
• fixture/UpdateEmailChannelResponse.proto +0/−0
• fixture/UpdateSmsChannel.yaml +10/−0
• fixture/UpdateSmsChannelResponse.proto +0/−0
• gen/Network/AWS/Pinpoint.hs +590/−35
• gen/Network/AWS/Pinpoint/CreateApp.hs +134/−0
• gen/Network/AWS/Pinpoint/CreateCampaign.hs +29/−25
• gen/Network/AWS/Pinpoint/CreateImportJob.hs +29/−25
• gen/Network/AWS/Pinpoint/CreateSegment.hs +29/−25
• gen/Network/AWS/Pinpoint/DeleteADMChannel.hs +129/−0
• gen/Network/AWS/Pinpoint/DeleteAPNSChannel.hs +25/−23
• gen/Network/AWS/Pinpoint/DeleteAPNSSandboxChannel.hs +131/−0
• gen/Network/AWS/Pinpoint/DeleteAPNSVoipChannel.hs +130/−0
• gen/Network/AWS/Pinpoint/DeleteAPNSVoipSandboxChannel.hs +132/−0
• gen/Network/AWS/Pinpoint/DeleteApp.hs +126/−0
• gen/Network/AWS/Pinpoint/DeleteBaiduChannel.hs +130/−0
• gen/Network/AWS/Pinpoint/DeleteCampaign.hs +27/−25
• gen/Network/AWS/Pinpoint/DeleteEmailChannel.hs +130/−0
• gen/Network/AWS/Pinpoint/DeleteEventStream.hs +128/−0
• gen/Network/AWS/Pinpoint/DeleteGCMChannel.hs +25/−23
• gen/Network/AWS/Pinpoint/DeleteSegment.hs +27/−25
• gen/Network/AWS/Pinpoint/DeleteSmsChannel.hs +129/−0
• gen/Network/AWS/Pinpoint/GetADMChannel.hs +129/−0
• gen/Network/AWS/Pinpoint/GetAPNSChannel.hs +25/−23
• gen/Network/AWS/Pinpoint/GetAPNSSandboxChannel.hs +130/−0
• gen/Network/AWS/Pinpoint/GetAPNSVoipChannel.hs +130/−0
• gen/Network/AWS/Pinpoint/GetAPNSVoipSandboxChannel.hs +131/−0
• gen/Network/AWS/Pinpoint/GetApp.hs +126/−0
• gen/Network/AWS/Pinpoint/GetApplicationSettings.hs +35/−33
• gen/Network/AWS/Pinpoint/GetApps.hs +134/−0
• gen/Network/AWS/Pinpoint/GetBaiduChannel.hs +129/−0
• gen/Network/AWS/Pinpoint/GetCampaign.hs +27/−25
• gen/Network/AWS/Pinpoint/GetCampaignActivities.hs +37/−33
• gen/Network/AWS/Pinpoint/GetCampaignVersion.hs +32/−28
• gen/Network/AWS/Pinpoint/GetCampaignVersions.hs +37/−33
• gen/Network/AWS/Pinpoint/GetCampaigns.hs +35/−31
• gen/Network/AWS/Pinpoint/GetEmailChannel.hs +129/−0
• gen/Network/AWS/Pinpoint/GetEndpoint.hs +27/−25
• gen/Network/AWS/Pinpoint/GetEventStream.hs +128/−0
• gen/Network/AWS/Pinpoint/GetGCMChannel.hs +25/−23
• gen/Network/AWS/Pinpoint/GetImportJob.hs +26/−25
• gen/Network/AWS/Pinpoint/GetImportJobs.hs +35/−31
• gen/Network/AWS/Pinpoint/GetSegment.hs +26/−25
• gen/Network/AWS/Pinpoint/GetSegmentImportJobs.hs +37/−33
• gen/Network/AWS/Pinpoint/GetSegmentVersion.hs +31/−27
• gen/Network/AWS/Pinpoint/GetSegmentVersions.hs +37/−33
• gen/Network/AWS/Pinpoint/GetSegments.hs +35/−31
• gen/Network/AWS/Pinpoint/GetSmsChannel.hs +129/−0
• gen/Network/AWS/Pinpoint/PutEventStream.hs +144/−0
• gen/Network/AWS/Pinpoint/SendMessages.hs +144/−0
• gen/Network/AWS/Pinpoint/SendUsersMessages.hs +149/−0
• gen/Network/AWS/Pinpoint/Types.hs +482/−38
• gen/Network/AWS/Pinpoint/Types/Product.hs +6714/−3113
• gen/Network/AWS/Pinpoint/Types/Sum.hs +155/−51
• gen/Network/AWS/Pinpoint/UpdateADMChannel.hs +148/−0
• gen/Network/AWS/Pinpoint/UpdateAPNSChannel.hs +29/−25
• gen/Network/AWS/Pinpoint/UpdateAPNSSandboxChannel.hs +151/−0
• gen/Network/AWS/Pinpoint/UpdateAPNSVoipChannel.hs +150/−0
• gen/Network/AWS/Pinpoint/UpdateAPNSVoipSandboxChannel.hs +152/−0
• gen/Network/AWS/Pinpoint/UpdateApplicationSettings.hs +29/−24
• gen/Network/AWS/Pinpoint/UpdateBaiduChannel.hs +149/−0
• gen/Network/AWS/Pinpoint/UpdateCampaign.hs +31/−27
• gen/Network/AWS/Pinpoint/UpdateEmailChannel.hs +149/−0
• gen/Network/AWS/Pinpoint/UpdateEndpoint.hs +29/−27
• gen/Network/AWS/Pinpoint/UpdateEndpointsBatch.hs +28/−26
• gen/Network/AWS/Pinpoint/UpdateGCMChannel.hs +29/−25
• gen/Network/AWS/Pinpoint/UpdateSegment.hs +31/−27
• gen/Network/AWS/Pinpoint/UpdateSmsChannel.hs +148/−0
• gen/Network/AWS/Pinpoint/Waiters.hs +6/−6
• test/Main.hs +2/−2
• test/Test/AWS/Gen/Pinpoint.hs +544/−4

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

@@ -1,13 +1,13 @@ name:                  amazonka-pinpoint-version:               1.4.5+version:               1.5.0 synopsis:              Amazon Pinpoint SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues-license:               OtherLicense+license:               MPL-2.0 license-file:          LICENSE author:                Brendan Hay-maintainer:            Brendan Hay <brendan.g.hay@gmail.com>-copyright:             Copyright (c) 2013-2016 Brendan Hay+maintainer:            Brendan Hay <brendan.g.hay+amazonka@gmail.com>+copyright:             Copyright (c) 2013-2017 Brendan Hay category:              Network, AWS, Cloud, Distributed Computing build-type:            Simple cabal-version:         >= 1.10@@ -29,32 +29,56 @@     to get started.  source-repository head-    type:     git-    location: git://github.com/brendanhay/amazonka.git+    type:              git+    location:          git://github.com/brendanhay/amazonka.git+    subdir:            amazonka-pinpoint  library     default-language:  Haskell2010     hs-source-dirs:    src gen -    ghc-options:       -Wall+    ghc-options:+        -Wall+        -fwarn-incomplete-uni-patterns+        -fwarn-incomplete-record-updates+        -funbox-strict-fields      exposed-modules:           Network.AWS.Pinpoint+        , Network.AWS.Pinpoint.CreateApp         , Network.AWS.Pinpoint.CreateCampaign         , Network.AWS.Pinpoint.CreateImportJob         , Network.AWS.Pinpoint.CreateSegment+        , Network.AWS.Pinpoint.DeleteADMChannel         , Network.AWS.Pinpoint.DeleteAPNSChannel+        , Network.AWS.Pinpoint.DeleteAPNSSandboxChannel+        , Network.AWS.Pinpoint.DeleteAPNSVoipChannel+        , Network.AWS.Pinpoint.DeleteAPNSVoipSandboxChannel+        , Network.AWS.Pinpoint.DeleteApp+        , Network.AWS.Pinpoint.DeleteBaiduChannel         , Network.AWS.Pinpoint.DeleteCampaign+        , Network.AWS.Pinpoint.DeleteEmailChannel+        , Network.AWS.Pinpoint.DeleteEventStream         , Network.AWS.Pinpoint.DeleteGCMChannel         , Network.AWS.Pinpoint.DeleteSegment+        , Network.AWS.Pinpoint.DeleteSmsChannel+        , Network.AWS.Pinpoint.GetADMChannel         , Network.AWS.Pinpoint.GetAPNSChannel+        , Network.AWS.Pinpoint.GetAPNSSandboxChannel+        , Network.AWS.Pinpoint.GetAPNSVoipChannel+        , Network.AWS.Pinpoint.GetAPNSVoipSandboxChannel+        , Network.AWS.Pinpoint.GetApp         , Network.AWS.Pinpoint.GetApplicationSettings+        , Network.AWS.Pinpoint.GetApps+        , Network.AWS.Pinpoint.GetBaiduChannel         , Network.AWS.Pinpoint.GetCampaign         , Network.AWS.Pinpoint.GetCampaignActivities         , Network.AWS.Pinpoint.GetCampaignVersion         , Network.AWS.Pinpoint.GetCampaignVersions         , Network.AWS.Pinpoint.GetCampaigns+        , Network.AWS.Pinpoint.GetEmailChannel         , Network.AWS.Pinpoint.GetEndpoint+        , Network.AWS.Pinpoint.GetEventStream         , Network.AWS.Pinpoint.GetGCMChannel         , Network.AWS.Pinpoint.GetImportJob         , Network.AWS.Pinpoint.GetImportJobs@@ -63,14 +87,25 @@         , Network.AWS.Pinpoint.GetSegmentVersion         , Network.AWS.Pinpoint.GetSegmentVersions         , Network.AWS.Pinpoint.GetSegments+        , Network.AWS.Pinpoint.GetSmsChannel+        , Network.AWS.Pinpoint.PutEventStream+        , Network.AWS.Pinpoint.SendMessages+        , Network.AWS.Pinpoint.SendUsersMessages         , Network.AWS.Pinpoint.Types+        , Network.AWS.Pinpoint.UpdateADMChannel         , Network.AWS.Pinpoint.UpdateAPNSChannel+        , Network.AWS.Pinpoint.UpdateAPNSSandboxChannel+        , Network.AWS.Pinpoint.UpdateAPNSVoipChannel+        , Network.AWS.Pinpoint.UpdateAPNSVoipSandboxChannel         , Network.AWS.Pinpoint.UpdateApplicationSettings+        , Network.AWS.Pinpoint.UpdateBaiduChannel         , Network.AWS.Pinpoint.UpdateCampaign+        , Network.AWS.Pinpoint.UpdateEmailChannel         , Network.AWS.Pinpoint.UpdateEndpoint         , Network.AWS.Pinpoint.UpdateEndpointsBatch         , Network.AWS.Pinpoint.UpdateGCMChannel         , Network.AWS.Pinpoint.UpdateSegment+        , Network.AWS.Pinpoint.UpdateSmsChannel         , Network.AWS.Pinpoint.Waiters      other-modules:@@ -78,7 +113,7 @@         , Network.AWS.Pinpoint.Types.Sum      build-depends:-          amazonka-core == 1.4.5.*+          amazonka-core == 1.5.0.*         , base          >= 4.7     && < 5  test-suite amazonka-pinpoint-test@@ -98,9 +133,9 @@         , Test.AWS.Pinpoint.Internal      build-depends:-          amazonka-core == 1.4.5.*-        , amazonka-test == 1.4.5.*-        , amazonka-pinpoint == 1.4.5.*+          amazonka-core == 1.5.0.*+        , amazonka-test == 1.5.0.*+        , amazonka-pinpoint         , base         , bytestring         , tasty

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/pinpoint/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  pinpoint.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: DELETE+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/pinpoint/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  pinpoint.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: DELETE+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/pinpoint/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  pinpoint.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: DELETE+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/pinpoint/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  pinpoint.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: DELETE+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/pinpoint/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  pinpoint.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: DELETE+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/pinpoint/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  pinpoint.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: DELETE+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/pinpoint/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  pinpoint.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: DELETE+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/pinpoint/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  pinpoint.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: DELETE+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/pinpoint/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  pinpoint.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: DELETE+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/pinpoint/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  pinpoint.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: GET+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/pinpoint/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  pinpoint.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: GET+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/pinpoint/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  pinpoint.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: GET+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/pinpoint/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  pinpoint.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: GET+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/pinpoint/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  pinpoint.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: GET+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/pinpoint/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  pinpoint.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: GET+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/pinpoint/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  pinpoint.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: GET+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/pinpoint/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  pinpoint.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: GET+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/pinpoint/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  pinpoint.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: GET+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/pinpoint/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  pinpoint.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: GET+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/pinpoint/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  pinpoint.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/pinpoint/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  pinpoint.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/pinpoint/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  pinpoint.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/pinpoint/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  pinpoint.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: PUT+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/pinpoint/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  pinpoint.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: PUT+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/pinpoint/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  pinpoint.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: PUT+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/pinpoint/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  pinpoint.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: PUT+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/pinpoint/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  pinpoint.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: PUT+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/pinpoint/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  pinpoint.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: PUT+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/pinpoint/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  pinpoint.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: PUT+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/pinpoint/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  pinpoint.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -5,9 +5,9 @@  -- | -- Module      : Network.AWS.Pinpoint--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -58,9 +58,15 @@     -- ** GetSegmentImportJobs     , module Network.AWS.Pinpoint.GetSegmentImportJobs +    -- ** SendMessages+    , module Network.AWS.Pinpoint.SendMessages+     -- ** GetImportJob     , module Network.AWS.Pinpoint.GetImportJob +    -- ** GetAPNSVoipSandboxChannel+    , module Network.AWS.Pinpoint.GetAPNSVoipSandboxChannel+     -- ** GetSegmentVersions     , module Network.AWS.Pinpoint.GetSegmentVersions @@ -76,6 +82,12 @@     -- ** CreateSegment     , module Network.AWS.Pinpoint.CreateSegment +    -- ** UpdateADMChannel+    , module Network.AWS.Pinpoint.UpdateADMChannel++    -- ** DeleteADMChannel+    , module Network.AWS.Pinpoint.DeleteADMChannel+     -- ** UpdateEndpoint     , module Network.AWS.Pinpoint.UpdateEndpoint @@ -91,9 +103,21 @@     -- ** UpdateEndpointsBatch     , module Network.AWS.Pinpoint.UpdateEndpointsBatch +    -- ** GetADMChannel+    , module Network.AWS.Pinpoint.GetADMChannel+     -- ** GetCampaign     , module Network.AWS.Pinpoint.GetCampaign +    -- ** DeleteApp+    , module Network.AWS.Pinpoint.DeleteApp++    -- ** UpdateAPNSVoipSandboxChannel+    , module Network.AWS.Pinpoint.UpdateAPNSVoipSandboxChannel++    -- ** DeleteAPNSVoipSandboxChannel+    , module Network.AWS.Pinpoint.DeleteAPNSVoipSandboxChannel+     -- ** UpdateGCMChannel     , module Network.AWS.Pinpoint.UpdateGCMChannel @@ -103,21 +127,54 @@     -- ** GetCampaignActivities     , module Network.AWS.Pinpoint.GetCampaignActivities +    -- ** GetEventStream+    , module Network.AWS.Pinpoint.GetEventStream++    -- ** DeleteEmailChannel+    , module Network.AWS.Pinpoint.DeleteEmailChannel++    -- ** UpdateEmailChannel+    , module Network.AWS.Pinpoint.UpdateEmailChannel++    -- ** GetBaiduChannel+    , module Network.AWS.Pinpoint.GetBaiduChannel+     -- ** DeleteAPNSChannel     , module Network.AWS.Pinpoint.DeleteAPNSChannel      -- ** UpdateAPNSChannel     , module Network.AWS.Pinpoint.UpdateAPNSChannel +    -- ** PutEventStream+    , module Network.AWS.Pinpoint.PutEventStream++    -- ** DeleteEventStream+    , module Network.AWS.Pinpoint.DeleteEventStream+     -- ** GetCampaignVersions     , module Network.AWS.Pinpoint.GetCampaignVersions      -- ** GetAPNSChannel     , module Network.AWS.Pinpoint.GetAPNSChannel +    -- ** GetApps+    , module Network.AWS.Pinpoint.GetApps++    -- ** GetAPNSSandboxChannel+    , module Network.AWS.Pinpoint.GetAPNSSandboxChannel+     -- ** GetImportJobs     , module Network.AWS.Pinpoint.GetImportJobs +    -- ** DeleteSmsChannel+    , module Network.AWS.Pinpoint.DeleteSmsChannel++    -- ** UpdateSmsChannel+    , module Network.AWS.Pinpoint.UpdateSmsChannel++    -- ** GetApp+    , module Network.AWS.Pinpoint.GetApp+     -- ** GetCampaignVersion     , module Network.AWS.Pinpoint.GetCampaignVersion @@ -127,6 +184,18 @@     -- ** UpdateSegment     , module Network.AWS.Pinpoint.UpdateSegment +    -- ** CreateApp+    , module Network.AWS.Pinpoint.CreateApp++    -- ** GetSmsChannel+    , module Network.AWS.Pinpoint.GetSmsChannel++    -- ** DeleteAPNSSandboxChannel+    , module Network.AWS.Pinpoint.DeleteAPNSSandboxChannel++    -- ** UpdateAPNSSandboxChannel+    , module Network.AWS.Pinpoint.UpdateAPNSSandboxChannel+     -- ** GetCampaigns     , module Network.AWS.Pinpoint.GetCampaigns @@ -139,9 +208,30 @@     -- ** CreateImportJob     , module Network.AWS.Pinpoint.CreateImportJob +    -- ** DeleteAPNSVoipChannel+    , module Network.AWS.Pinpoint.DeleteAPNSVoipChannel++    -- ** UpdateAPNSVoipChannel+    , module Network.AWS.Pinpoint.UpdateAPNSVoipChannel++    -- ** SendUsersMessages+    , module Network.AWS.Pinpoint.SendUsersMessages+     -- ** GetApplicationSettings     , module Network.AWS.Pinpoint.GetApplicationSettings +    -- ** DeleteBaiduChannel+    , module Network.AWS.Pinpoint.DeleteBaiduChannel++    -- ** UpdateBaiduChannel+    , module Network.AWS.Pinpoint.UpdateBaiduChannel++    -- ** GetAPNSVoipChannel+    , module Network.AWS.Pinpoint.GetAPNSVoipChannel++    -- ** GetEmailChannel+    , module Network.AWS.Pinpoint.GetEmailChannel+     -- * Types      -- ** Action@@ -159,6 +249,9 @@     -- ** DefinitionFormat     , DefinitionFormat (..) +    -- ** DeliveryStatus+    , DeliveryStatus (..)+     -- ** DimensionType     , DimensionType (..) @@ -171,30 +264,189 @@     -- ** JobStatus     , JobStatus (..) +    -- ** MessageType+    , MessageType (..)+     -- ** RecencyType     , RecencyType (..)      -- ** SegmentType     , SegmentType (..) +    -- ** ADMChannelRequest+    , ADMChannelRequest+    , aDMChannelRequest+    , admcrClientId+    , admcrClientSecret+    , admcrEnabled++    -- ** ADMChannelResponse+    , ADMChannelResponse+    , aDMChannelResponse+    , admcPlatform+    , admcLastModifiedDate+    , admcEnabled+    , admcIsArchived+    , admcApplicationId+    , admcVersion+    , admcId+    , admcCreationDate+    , admcLastModifiedBy+    , admcHasCredential++    -- ** ADMMessage+    , ADMMessage+    , aDMMessage+    , admmSubstitutions+    , admmExpiresAfter+    , admmMD5+    , admmSilentPush+    , admmImageIconURL+    , admmRawContent+    , admmData+    , admmSmallImageIconURL+    , admmBody+    , admmURL+    , admmSound+    , admmAction+    , admmImageURL+    , admmConsolidationKey+    , admmTitle+    , admmIconReference+     -- ** APNSChannelRequest     , APNSChannelRequest     , apnsChannelRequest+    , acrTokenKey     , acrPrivateKey+    , acrEnabled+    , acrTeamId+    , acrBundleId+    , acrDefaultAuthenticationMethod     , acrCertificate+    , acrTokenKeyId      -- ** APNSChannelResponse     , APNSChannelResponse     , apnsChannelResponse     , acPlatform     , acLastModifiedDate+    , acEnabled+    , acHasTokenKey+    , acDefaultAuthenticationMethod     , acIsArchived     , acApplicationId     , acVersion     , acId     , acCreationDate     , acLastModifiedBy+    , acHasCredential +    -- ** APNSMessage+    , APNSMessage+    , apnsMessage+    , amSubstitutions+    , amSilentPush+    , amPriority+    , amRawContent+    , amData+    , amBody+    , amCategory+    , amTimeToLive+    , amURL+    , amSound+    , amAction+    , amMediaURL+    , amPreferredAuthenticationMethod+    , amBadge+    , amTitle+    , amThreadId+    , amCollapseId++    -- ** APNSSandboxChannelRequest+    , APNSSandboxChannelRequest+    , apnsSandboxChannelRequest+    , ascrTokenKey+    , ascrPrivateKey+    , ascrEnabled+    , ascrTeamId+    , ascrBundleId+    , ascrDefaultAuthenticationMethod+    , ascrCertificate+    , ascrTokenKeyId++    -- ** APNSSandboxChannelResponse+    , APNSSandboxChannelResponse+    , apnsSandboxChannelResponse+    , ascPlatform+    , ascLastModifiedDate+    , ascEnabled+    , ascHasTokenKey+    , ascDefaultAuthenticationMethod+    , ascIsArchived+    , ascApplicationId+    , ascVersion+    , ascId+    , ascCreationDate+    , ascLastModifiedBy+    , ascHasCredential++    -- ** APNSVoipChannelRequest+    , APNSVoipChannelRequest+    , apnsVoipChannelRequest+    , avcrTokenKey+    , avcrPrivateKey+    , avcrEnabled+    , avcrTeamId+    , avcrBundleId+    , avcrDefaultAuthenticationMethod+    , avcrCertificate+    , avcrTokenKeyId++    -- ** APNSVoipChannelResponse+    , APNSVoipChannelResponse+    , apnsVoipChannelResponse+    , avcPlatform+    , avcLastModifiedDate+    , avcEnabled+    , avcHasTokenKey+    , avcDefaultAuthenticationMethod+    , avcIsArchived+    , avcApplicationId+    , avcVersion+    , avcId+    , avcCreationDate+    , avcLastModifiedBy+    , avcHasCredential++    -- ** APNSVoipSandboxChannelRequest+    , APNSVoipSandboxChannelRequest+    , apnsVoipSandboxChannelRequest+    , avscrTokenKey+    , avscrPrivateKey+    , avscrEnabled+    , avscrTeamId+    , avscrBundleId+    , avscrDefaultAuthenticationMethod+    , avscrCertificate+    , avscrTokenKeyId++    -- ** APNSVoipSandboxChannelResponse+    , APNSVoipSandboxChannelResponse+    , apnsVoipSandboxChannelResponse+    , avscPlatform+    , avscLastModifiedDate+    , avscEnabled+    , avscHasTokenKey+    , avscDefaultAuthenticationMethod+    , avscIsArchived+    , avscApplicationId+    , avscVersion+    , avscId+    , avscCreationDate+    , avscLastModifiedBy+    , avscHasCredential+     -- ** ActivitiesResponse     , ActivitiesResponse     , activitiesResponse@@ -206,6 +458,8 @@     , aState     , aStart     , aCampaignId+    , aTimezonesCompletedCount+    , aTimezonesTotalCount     , aResult     , aTreatmentId     , aSuccessfulEndpointCount@@ -215,6 +469,22 @@     , aId     , aScheduledStart +    -- ** AddressConfiguration+    , AddressConfiguration+    , addressConfiguration+    , acSubstitutions+    , acTitleOverride+    , acContext+    , acRawContent+    , acBodyOverride+    , acChannelType++    -- ** ApplicationResponse+    , ApplicationResponse+    , applicationResponse+    , appName+    , appId+     -- ** ApplicationSettingsResource     , ApplicationSettingsResource     , applicationSettingsResource@@ -223,17 +493,72 @@     , asrQuietTime     , asrApplicationId +    -- ** ApplicationsResponse+    , ApplicationsResponse+    , applicationsResponse+    , appNextToken+    , appItem+     -- ** AttributeDimension     , AttributeDimension     , attributeDimension     , adValues     , adAttributeType +    -- ** BaiduChannelRequest+    , BaiduChannelRequest+    , baiduChannelRequest+    , bcrAPIKey+    , bcrEnabled+    , bcrSecretKey++    -- ** BaiduChannelResponse+    , BaiduChannelResponse+    , baiduChannelResponse+    , bcPlatform+    , bcLastModifiedDate+    , bcEnabled+    , bcCredential+    , bcIsArchived+    , bcApplicationId+    , bcVersion+    , bcId+    , bcCreationDate+    , bcLastModifiedBy+    , bcHasCredential++    -- ** BaiduMessage+    , BaiduMessage+    , baiduMessage+    , bmSubstitutions+    , bmSilentPush+    , bmImageIconURL+    , bmRawContent+    , bmData+    , bmSmallImageIconURL+    , bmBody+    , bmURL+    , bmSound+    , bmAction+    , bmImageURL+    , bmTitle+    , bmIconReference++    -- ** CampaignEmailMessage+    , CampaignEmailMessage+    , campaignEmailMessage+    , cemBody+    , cemFromAddress+    , cemHTMLBody+    , cemTitle+     -- ** CampaignLimits     , CampaignLimits     , campaignLimits+    , clMessagesPerSecond     , clDaily     , clTotal+    , clMaximumDuration      -- ** CampaignResponse     , CampaignResponse@@ -258,6 +583,13 @@     , cAdditionalTreatments     , cSegmentVersion +    -- ** CampaignSmsMessage+    , CampaignSmsMessage+    , campaignSmsMessage+    , csmBody+    , csmMessageType+    , csmSenderId+     -- ** CampaignState     , CampaignState     , campaignState@@ -269,6 +601,64 @@     , cNextToken     , cItem +    -- ** CreateApplicationRequest+    , CreateApplicationRequest+    , createApplicationRequest+    , carName++    -- ** DefaultMessage+    , DefaultMessage+    , defaultMessage+    , dmSubstitutions+    , dmBody++    -- ** DefaultPushNotificationMessage+    , DefaultPushNotificationMessage+    , defaultPushNotificationMessage+    , dpnmSubstitutions+    , dpnmSilentPush+    , dpnmData+    , dpnmBody+    , dpnmURL+    , dpnmAction+    , dpnmTitle++    -- ** DirectMessageConfiguration+    , DirectMessageConfiguration+    , directMessageConfiguration+    , dmcAPNSMessage+    , dmcGCMMessage+    , dmcDefaultMessage+    , dmcADMMessage+    , dmcSMSMessage+    , dmcBaiduMessage+    , dmcDefaultPushNotificationMessage++    -- ** EmailChannelRequest+    , EmailChannelRequest+    , emailChannelRequest+    , ecrEnabled+    , ecrFromAddress+    , ecrIdentity+    , ecrRoleARN++    -- ** EmailChannelResponse+    , EmailChannelResponse+    , emailChannelResponse+    , ecPlatform+    , ecLastModifiedDate+    , ecEnabled+    , ecFromAddress+    , ecIsArchived+    , ecApplicationId+    , ecVersion+    , ecId+    , ecCreationDate+    , ecLastModifiedBy+    , ecIdentity+    , ecHasCredential+    , ecRoleARN+     -- ** EndpointBatchItem     , EndpointBatchItem     , endpointBatchItem@@ -312,6 +702,15 @@     , elRegion     , elLongitude +    -- ** EndpointMessageResult+    , EndpointMessageResult+    , endpointMessageResult+    , emrDeliveryStatus+    , emrAddress+    , emrStatusMessage+    , emrUpdatedToken+    , emrStatusCode+     -- ** EndpointRequest     , EndpointRequest     , endpointRequest@@ -345,24 +744,44 @@     , eId     , eCreationDate     , eChannelType-    , eShardId +    -- ** EndpointSendConfiguration+    , EndpointSendConfiguration+    , endpointSendConfiguration+    , escSubstitutions+    , escTitleOverride+    , escContext+    , escRawContent+    , escBodyOverride+     -- ** EndpointUser     , EndpointUser     , endpointUser     , euUserAttributes     , euUserId +    -- ** EventStream+    , EventStream+    , eventStream+    , esLastUpdatedBy+    , esLastModifiedDate+    , esDestinationStreamARN+    , esApplicationId+    , esExternalId+    , esRoleARN+     -- ** GCMChannelRequest     , GCMChannelRequest     , gcmChannelRequest     , gcrAPIKey+    , gcrEnabled      -- ** GCMChannelResponse     , GCMChannelResponse     , gcmChannelResponse     , gcPlatform     , gcLastModifiedDate+    , gcEnabled     , gcCredential     , gcIsArchived     , gcApplicationId@@ -370,7 +789,29 @@     , gcId     , gcCreationDate     , gcLastModifiedBy+    , gcHasCredential +    -- ** GCMMessage+    , GCMMessage+    , gcmMessage+    , gmSubstitutions+    , gmSilentPush+    , gmImageIconURL+    , gmPriority+    , gmRawContent+    , gmData+    , gmRestrictedPackageName+    , gmSmallImageIconURL+    , gmBody+    , gmTimeToLive+    , gmURL+    , gmSound+    , gmAction+    , gmCollapseKey+    , gmImageURL+    , gmTitle+    , gmIconReference+     -- ** ImportJobRequest     , ImportJobRequest     , importJobRequest@@ -423,7 +864,9 @@     , message     , mSilentPush     , mImageIconURL+    , mRawContent     , mBody+    , mImageSmallIconURL     , mJSONBody     , mURL     , mAction@@ -443,7 +886,35 @@     , mcAPNSMessage     , mcGCMMessage     , mcDefaultMessage+    , mcADMMessage+    , mcSMSMessage+    , mcEmailMessage+    , mcBaiduMessage +    -- ** MessageRequest+    , MessageRequest+    , messageRequest+    , mrContext+    , mrAddresses+    , mrEndpoints+    , mrMessageConfiguration++    -- ** MessageResponse+    , MessageResponse+    , messageResponse+    , mRequestId+    , mResult+    , mApplicationId+    , mEndpointResult++    -- ** MessageResult+    , MessageResult+    , messageResult+    , mrDeliveryStatus+    , mrStatusMessage+    , mrUpdatedToken+    , mrStatusCode+     -- ** QuietTime     , QuietTime     , quietTime@@ -456,6 +927,37 @@     , rdRecencyType     , rdDuration +    -- ** SMSChannelRequest+    , SMSChannelRequest+    , sMSChannelRequest+    , smscrShortCode+    , smscrEnabled+    , smscrSenderId++    -- ** SMSChannelResponse+    , SMSChannelResponse+    , sMSChannelResponse+    , smscPlatform+    , smscShortCode+    , smscLastModifiedDate+    , smscEnabled+    , smscSenderId+    , smscIsArchived+    , smscApplicationId+    , smscVersion+    , smscId+    , smscCreationDate+    , smscLastModifiedBy+    , smscHasCredential++    -- ** SMSMessage+    , SMSMessage+    , sMSMessage+    , smsmSubstitutions+    , smsmBody+    , smsmMessageType+    , smsmSenderId+     -- ** Schedule     , Schedule     , schedule@@ -476,6 +978,7 @@     , segmentDemographics     , sdPlatform     , sdAppVersion+    , sdChannel     , sdModel     , sdMake     , sdDeviceType@@ -485,6 +988,7 @@     , segmentDimensions     , sdLocation     , sdDemographic+    , sdUserAttributes     , sdBehavior     , sdAttributes @@ -493,6 +997,7 @@     , segmentImportResource     , sirSize     , sirFormat+    , sirChannelCounts     , sirExternalId     , sirS3URL     , sirRoleARN@@ -521,6 +1026,20 @@     , sNextToken     , sItem +    -- ** SendUsersMessageRequest+    , SendUsersMessageRequest+    , sendUsersMessageRequest+    , sumrContext+    , sumrUsers+    , sumrMessageConfiguration++    -- ** SendUsersMessageResponse+    , SendUsersMessageResponse+    , sendUsersMessageResponse+    , sumRequestId+    , sumResult+    , sumApplicationId+     -- ** SetDimension     , SetDimension     , setDimension@@ -560,6 +1079,12 @@     , wcrAdditionalTreatments     , wcrSegmentVersion +    -- ** WriteEventStream+    , WriteEventStream+    , writeEventStream+    , wesDestinationStreamARN+    , wesRoleARN+     -- ** WriteSegmentRequest     , WriteSegmentRequest     , writeSegmentRequest@@ -576,38 +1101,68 @@     , wtrMessageConfiguration     ) where -import           Network.AWS.Pinpoint.CreateCampaign-import           Network.AWS.Pinpoint.CreateImportJob-import           Network.AWS.Pinpoint.CreateSegment-import           Network.AWS.Pinpoint.DeleteAPNSChannel-import           Network.AWS.Pinpoint.DeleteCampaign-import           Network.AWS.Pinpoint.DeleteGCMChannel-import           Network.AWS.Pinpoint.DeleteSegment-import           Network.AWS.Pinpoint.GetAPNSChannel-import           Network.AWS.Pinpoint.GetApplicationSettings-import           Network.AWS.Pinpoint.GetCampaign-import           Network.AWS.Pinpoint.GetCampaignActivities-import           Network.AWS.Pinpoint.GetCampaigns-import           Network.AWS.Pinpoint.GetCampaignVersion-import           Network.AWS.Pinpoint.GetCampaignVersions-import           Network.AWS.Pinpoint.GetEndpoint-import           Network.AWS.Pinpoint.GetGCMChannel-import           Network.AWS.Pinpoint.GetImportJob-import           Network.AWS.Pinpoint.GetImportJobs-import           Network.AWS.Pinpoint.GetSegment-import           Network.AWS.Pinpoint.GetSegmentImportJobs-import           Network.AWS.Pinpoint.GetSegments-import           Network.AWS.Pinpoint.GetSegmentVersion-import           Network.AWS.Pinpoint.GetSegmentVersions-import           Network.AWS.Pinpoint.Types-import           Network.AWS.Pinpoint.UpdateAPNSChannel-import           Network.AWS.Pinpoint.UpdateApplicationSettings-import           Network.AWS.Pinpoint.UpdateCampaign-import           Network.AWS.Pinpoint.UpdateEndpoint-import           Network.AWS.Pinpoint.UpdateEndpointsBatch-import           Network.AWS.Pinpoint.UpdateGCMChannel-import           Network.AWS.Pinpoint.UpdateSegment-import           Network.AWS.Pinpoint.Waiters+import Network.AWS.Pinpoint.CreateApp+import Network.AWS.Pinpoint.CreateCampaign+import Network.AWS.Pinpoint.CreateImportJob+import Network.AWS.Pinpoint.CreateSegment+import Network.AWS.Pinpoint.DeleteADMChannel+import Network.AWS.Pinpoint.DeleteAPNSChannel+import Network.AWS.Pinpoint.DeleteAPNSSandboxChannel+import Network.AWS.Pinpoint.DeleteAPNSVoipChannel+import Network.AWS.Pinpoint.DeleteAPNSVoipSandboxChannel+import Network.AWS.Pinpoint.DeleteApp+import Network.AWS.Pinpoint.DeleteBaiduChannel+import Network.AWS.Pinpoint.DeleteCampaign+import Network.AWS.Pinpoint.DeleteEmailChannel+import Network.AWS.Pinpoint.DeleteEventStream+import Network.AWS.Pinpoint.DeleteGCMChannel+import Network.AWS.Pinpoint.DeleteSegment+import Network.AWS.Pinpoint.DeleteSmsChannel+import Network.AWS.Pinpoint.GetADMChannel+import Network.AWS.Pinpoint.GetAPNSChannel+import Network.AWS.Pinpoint.GetAPNSSandboxChannel+import Network.AWS.Pinpoint.GetAPNSVoipChannel+import Network.AWS.Pinpoint.GetAPNSVoipSandboxChannel+import Network.AWS.Pinpoint.GetApp+import Network.AWS.Pinpoint.GetApplicationSettings+import Network.AWS.Pinpoint.GetApps+import Network.AWS.Pinpoint.GetBaiduChannel+import Network.AWS.Pinpoint.GetCampaign+import Network.AWS.Pinpoint.GetCampaignActivities+import Network.AWS.Pinpoint.GetCampaigns+import Network.AWS.Pinpoint.GetCampaignVersion+import Network.AWS.Pinpoint.GetCampaignVersions+import Network.AWS.Pinpoint.GetEmailChannel+import Network.AWS.Pinpoint.GetEndpoint+import Network.AWS.Pinpoint.GetEventStream+import Network.AWS.Pinpoint.GetGCMChannel+import Network.AWS.Pinpoint.GetImportJob+import Network.AWS.Pinpoint.GetImportJobs+import Network.AWS.Pinpoint.GetSegment+import Network.AWS.Pinpoint.GetSegmentImportJobs+import Network.AWS.Pinpoint.GetSegments+import Network.AWS.Pinpoint.GetSegmentVersion+import Network.AWS.Pinpoint.GetSegmentVersions+import Network.AWS.Pinpoint.GetSmsChannel+import Network.AWS.Pinpoint.PutEventStream+import Network.AWS.Pinpoint.SendMessages+import Network.AWS.Pinpoint.SendUsersMessages+import Network.AWS.Pinpoint.Types+import Network.AWS.Pinpoint.UpdateADMChannel+import Network.AWS.Pinpoint.UpdateAPNSChannel+import Network.AWS.Pinpoint.UpdateAPNSSandboxChannel+import Network.AWS.Pinpoint.UpdateAPNSVoipChannel+import Network.AWS.Pinpoint.UpdateAPNSVoipSandboxChannel+import Network.AWS.Pinpoint.UpdateApplicationSettings+import Network.AWS.Pinpoint.UpdateBaiduChannel+import Network.AWS.Pinpoint.UpdateCampaign+import Network.AWS.Pinpoint.UpdateEmailChannel+import Network.AWS.Pinpoint.UpdateEndpoint+import Network.AWS.Pinpoint.UpdateEndpointsBatch+import Network.AWS.Pinpoint.UpdateGCMChannel+import Network.AWS.Pinpoint.UpdateSegment+import Network.AWS.Pinpoint.UpdateSmsChannel+import Network.AWS.Pinpoint.Waiters  {- $errors Error matchers are designed for use with the functions provided by

@@ -0,0 +1,134 @@+{-# 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 #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.Pinpoint.CreateApp+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates or updates an app.+module Network.AWS.Pinpoint.CreateApp+    (+    -- * Creating a Request+      createApp+    , CreateApp+    -- * Request Lenses+    , caCreateApplicationRequest++    -- * Destructuring the Response+    , createAppResponse+    , CreateAppResponse+    -- * Response Lenses+    , carsResponseStatus+    , carsApplicationResponse+    ) where++import Network.AWS.Lens+import Network.AWS.Pinpoint.Types+import Network.AWS.Pinpoint.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'createApp' smart constructor.+newtype CreateApp = CreateApp'+  { _caCreateApplicationRequest :: CreateApplicationRequest+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreateApp' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'caCreateApplicationRequest' - Undocumented member.+createApp+    :: CreateApplicationRequest -- ^ 'caCreateApplicationRequest'+    -> CreateApp+createApp pCreateApplicationRequest_ =+  CreateApp' {_caCreateApplicationRequest = pCreateApplicationRequest_}+++-- | Undocumented member.+caCreateApplicationRequest :: Lens' CreateApp CreateApplicationRequest+caCreateApplicationRequest = lens _caCreateApplicationRequest (\ s a -> s{_caCreateApplicationRequest = a});++instance AWSRequest CreateApp where+        type Rs CreateApp = CreateAppResponse+        request = postJSON pinpoint+        response+          = receiveJSON+              (\ s h x ->+                 CreateAppResponse' <$>+                   (pure (fromEnum s)) <*> (eitherParseJSON x))++instance Hashable CreateApp where++instance NFData CreateApp where++instance ToHeaders CreateApp where+        toHeaders+          = const+              (mconcat+                 ["Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON CreateApp where+        toJSON CreateApp'{..}+          = object+              (catMaybes+                 [Just+                    ("CreateApplicationRequest" .=+                       _caCreateApplicationRequest)])++instance ToPath CreateApp where+        toPath = const "/v1/apps"++instance ToQuery CreateApp where+        toQuery = const mempty++-- | /See:/ 'createAppResponse' smart constructor.+data CreateAppResponse = CreateAppResponse'+  { _carsResponseStatus      :: !Int+  , _carsApplicationResponse :: !ApplicationResponse+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreateAppResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'carsResponseStatus' - -- | The response status code.+--+-- * 'carsApplicationResponse' - Undocumented member.+createAppResponse+    :: Int -- ^ 'carsResponseStatus'+    -> ApplicationResponse -- ^ 'carsApplicationResponse'+    -> CreateAppResponse+createAppResponse pResponseStatus_ pApplicationResponse_ =+  CreateAppResponse'+  { _carsResponseStatus = pResponseStatus_+  , _carsApplicationResponse = pApplicationResponse_+  }+++-- | -- | The response status code.+carsResponseStatus :: Lens' CreateAppResponse Int+carsResponseStatus = lens _carsResponseStatus (\ s a -> s{_carsResponseStatus = a});++-- | Undocumented member.+carsApplicationResponse :: Lens' CreateAppResponse ApplicationResponse+carsApplicationResponse = lens _carsApplicationResponse (\ s a -> s{_carsApplicationResponse = a});++instance NFData CreateAppResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.Pinpoint.CreateCampaign--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -36,19 +36,20 @@     , ccrsCampaignResponse     ) where -import           Network.AWS.Lens-import           Network.AWS.Pinpoint.Types-import           Network.AWS.Pinpoint.Types.Product-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.Lens+import Network.AWS.Pinpoint.Types+import Network.AWS.Pinpoint.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'createCampaign' smart constructor. data CreateCampaign = CreateCampaign'-    { _ccApplicationId        :: !Text-    , _ccWriteCampaignRequest :: !WriteCampaignRequest-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ccApplicationId        :: !Text+  , _ccWriteCampaignRequest :: !WriteCampaignRequest+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateCampaign' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -61,11 +62,12 @@     -> WriteCampaignRequest -- ^ 'ccWriteCampaignRequest'     -> CreateCampaign createCampaign pApplicationId_ pWriteCampaignRequest_ =-    CreateCampaign'-    { _ccApplicationId = pApplicationId_-    , _ccWriteCampaignRequest = pWriteCampaignRequest_-    }+  CreateCampaign'+  { _ccApplicationId = pApplicationId_+  , _ccWriteCampaignRequest = pWriteCampaignRequest_+  } + -- | Undocumented member. ccApplicationId :: Lens' CreateCampaign Text ccApplicationId = lens _ccApplicationId (\ s a -> s{_ccApplicationId = a});@@ -83,9 +85,9 @@                  CreateCampaignResponse' <$>                    (pure (fromEnum s)) <*> (eitherParseJSON x)) -instance Hashable CreateCampaign+instance Hashable CreateCampaign where -instance NFData CreateCampaign+instance NFData CreateCampaign where  instance ToHeaders CreateCampaign where         toHeaders@@ -111,10 +113,11 @@  -- | /See:/ 'createCampaignResponse' smart constructor. data CreateCampaignResponse = CreateCampaignResponse'-    { _ccrsResponseStatus   :: !Int-    , _ccrsCampaignResponse :: !CampaignResponse-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ccrsResponseStatus   :: !Int+  , _ccrsCampaignResponse :: !CampaignResponse+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateCampaignResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -127,11 +130,12 @@     -> CampaignResponse -- ^ 'ccrsCampaignResponse'     -> CreateCampaignResponse createCampaignResponse pResponseStatus_ pCampaignResponse_ =-    CreateCampaignResponse'-    { _ccrsResponseStatus = pResponseStatus_-    , _ccrsCampaignResponse = pCampaignResponse_-    }+  CreateCampaignResponse'+  { _ccrsResponseStatus = pResponseStatus_+  , _ccrsCampaignResponse = pCampaignResponse_+  } + -- | -- | The response status code. ccrsResponseStatus :: Lens' CreateCampaignResponse Int ccrsResponseStatus = lens _ccrsResponseStatus (\ s a -> s{_ccrsResponseStatus = a});@@ -140,4 +144,4 @@ ccrsCampaignResponse :: Lens' CreateCampaignResponse CampaignResponse ccrsCampaignResponse = lens _ccrsCampaignResponse (\ s a -> s{_ccrsCampaignResponse = a}); -instance NFData CreateCampaignResponse+instance NFData CreateCampaignResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.Pinpoint.CreateImportJob--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -36,19 +36,20 @@     , cijrsImportJobResponse     ) where -import           Network.AWS.Lens-import           Network.AWS.Pinpoint.Types-import           Network.AWS.Pinpoint.Types.Product-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.Lens+import Network.AWS.Pinpoint.Types+import Network.AWS.Pinpoint.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'createImportJob' smart constructor. data CreateImportJob = CreateImportJob'-    { _cijApplicationId    :: !Text-    , _cijImportJobRequest :: !ImportJobRequest-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cijApplicationId    :: !Text+  , _cijImportJobRequest :: !ImportJobRequest+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateImportJob' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -61,11 +62,12 @@     -> ImportJobRequest -- ^ 'cijImportJobRequest'     -> CreateImportJob createImportJob pApplicationId_ pImportJobRequest_ =-    CreateImportJob'-    { _cijApplicationId = pApplicationId_-    , _cijImportJobRequest = pImportJobRequest_-    }+  CreateImportJob'+  { _cijApplicationId = pApplicationId_+  , _cijImportJobRequest = pImportJobRequest_+  } + -- | Undocumented member. cijApplicationId :: Lens' CreateImportJob Text cijApplicationId = lens _cijApplicationId (\ s a -> s{_cijApplicationId = a});@@ -83,9 +85,9 @@                  CreateImportJobResponse' <$>                    (pure (fromEnum s)) <*> (eitherParseJSON x)) -instance Hashable CreateImportJob+instance Hashable CreateImportJob where -instance NFData CreateImportJob+instance NFData CreateImportJob where  instance ToHeaders CreateImportJob where         toHeaders@@ -110,10 +112,11 @@  -- | /See:/ 'createImportJobResponse' smart constructor. data CreateImportJobResponse = CreateImportJobResponse'-    { _cijrsResponseStatus    :: !Int-    , _cijrsImportJobResponse :: !ImportJobResponse-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cijrsResponseStatus    :: !Int+  , _cijrsImportJobResponse :: !ImportJobResponse+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateImportJobResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -126,11 +129,12 @@     -> ImportJobResponse -- ^ 'cijrsImportJobResponse'     -> CreateImportJobResponse createImportJobResponse pResponseStatus_ pImportJobResponse_ =-    CreateImportJobResponse'-    { _cijrsResponseStatus = pResponseStatus_-    , _cijrsImportJobResponse = pImportJobResponse_-    }+  CreateImportJobResponse'+  { _cijrsResponseStatus = pResponseStatus_+  , _cijrsImportJobResponse = pImportJobResponse_+  } + -- | -- | The response status code. cijrsResponseStatus :: Lens' CreateImportJobResponse Int cijrsResponseStatus = lens _cijrsResponseStatus (\ s a -> s{_cijrsResponseStatus = a});@@ -139,4 +143,4 @@ cijrsImportJobResponse :: Lens' CreateImportJobResponse ImportJobResponse cijrsImportJobResponse = lens _cijrsImportJobResponse (\ s a -> s{_cijrsImportJobResponse = a}); -instance NFData CreateImportJobResponse+instance NFData CreateImportJobResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.Pinpoint.CreateSegment--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -36,19 +36,20 @@     , csrsSegmentResponse     ) where -import           Network.AWS.Lens-import           Network.AWS.Pinpoint.Types-import           Network.AWS.Pinpoint.Types.Product-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.Lens+import Network.AWS.Pinpoint.Types+import Network.AWS.Pinpoint.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'createSegment' smart constructor. data CreateSegment = CreateSegment'-    { _csApplicationId       :: !Text-    , _csWriteSegmentRequest :: !WriteSegmentRequest-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _csApplicationId       :: !Text+  , _csWriteSegmentRequest :: !WriteSegmentRequest+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateSegment' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -61,11 +62,12 @@     -> WriteSegmentRequest -- ^ 'csWriteSegmentRequest'     -> CreateSegment createSegment pApplicationId_ pWriteSegmentRequest_ =-    CreateSegment'-    { _csApplicationId = pApplicationId_-    , _csWriteSegmentRequest = pWriteSegmentRequest_-    }+  CreateSegment'+  { _csApplicationId = pApplicationId_+  , _csWriteSegmentRequest = pWriteSegmentRequest_+  } + -- | Undocumented member. csApplicationId :: Lens' CreateSegment Text csApplicationId = lens _csApplicationId (\ s a -> s{_csApplicationId = a});@@ -83,9 +85,9 @@                  CreateSegmentResponse' <$>                    (pure (fromEnum s)) <*> (eitherParseJSON x)) -instance Hashable CreateSegment+instance Hashable CreateSegment where -instance NFData CreateSegment+instance NFData CreateSegment where  instance ToHeaders CreateSegment where         toHeaders@@ -111,10 +113,11 @@  -- | /See:/ 'createSegmentResponse' smart constructor. data CreateSegmentResponse = CreateSegmentResponse'-    { _csrsResponseStatus  :: !Int-    , _csrsSegmentResponse :: !SegmentResponse-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _csrsResponseStatus  :: !Int+  , _csrsSegmentResponse :: !SegmentResponse+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateSegmentResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -127,11 +130,12 @@     -> SegmentResponse -- ^ 'csrsSegmentResponse'     -> CreateSegmentResponse createSegmentResponse pResponseStatus_ pSegmentResponse_ =-    CreateSegmentResponse'-    { _csrsResponseStatus = pResponseStatus_-    , _csrsSegmentResponse = pSegmentResponse_-    }+  CreateSegmentResponse'+  { _csrsResponseStatus = pResponseStatus_+  , _csrsSegmentResponse = pSegmentResponse_+  } + -- | -- | The response status code. csrsResponseStatus :: Lens' CreateSegmentResponse Int csrsResponseStatus = lens _csrsResponseStatus (\ s a -> s{_csrsResponseStatus = a});@@ -140,4 +144,4 @@ csrsSegmentResponse :: Lens' CreateSegmentResponse SegmentResponse csrsSegmentResponse = lens _csrsSegmentResponse (\ s a -> s{_csrsSegmentResponse = a}); -instance NFData CreateSegmentResponse+instance NFData CreateSegmentResponse where

@@ -0,0 +1,129 @@+{-# 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 #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.Pinpoint.DeleteADMChannel+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Delete an ADM channel+module Network.AWS.Pinpoint.DeleteADMChannel+    (+    -- * Creating a Request+      deleteADMChannel+    , DeleteADMChannel+    -- * Request Lenses+    , dadmcApplicationId++    -- * Destructuring the Response+    , deleteADMChannelResponse+    , DeleteADMChannelResponse+    -- * Response Lenses+    , dadmcrsResponseStatus+    , dadmcrsADMChannelResponse+    ) where++import Network.AWS.Lens+import Network.AWS.Pinpoint.Types+import Network.AWS.Pinpoint.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'deleteADMChannel' smart constructor.+newtype DeleteADMChannel = DeleteADMChannel'+  { _dadmcApplicationId :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteADMChannel' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dadmcApplicationId' - Undocumented member.+deleteADMChannel+    :: Text -- ^ 'dadmcApplicationId'+    -> DeleteADMChannel+deleteADMChannel pApplicationId_ =+  DeleteADMChannel' {_dadmcApplicationId = pApplicationId_}+++-- | Undocumented member.+dadmcApplicationId :: Lens' DeleteADMChannel Text+dadmcApplicationId = lens _dadmcApplicationId (\ s a -> s{_dadmcApplicationId = a});++instance AWSRequest DeleteADMChannel where+        type Rs DeleteADMChannel = DeleteADMChannelResponse+        request = delete pinpoint+        response+          = receiveJSON+              (\ s h x ->+                 DeleteADMChannelResponse' <$>+                   (pure (fromEnum s)) <*> (eitherParseJSON x))++instance Hashable DeleteADMChannel where++instance NFData DeleteADMChannel where++instance ToHeaders DeleteADMChannel where+        toHeaders+          = const+              (mconcat+                 ["Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToPath DeleteADMChannel where+        toPath DeleteADMChannel'{..}+          = mconcat+              ["/v1/apps/", toBS _dadmcApplicationId,+               "/channels/adm"]++instance ToQuery DeleteADMChannel where+        toQuery = const mempty++-- | /See:/ 'deleteADMChannelResponse' smart constructor.+data DeleteADMChannelResponse = DeleteADMChannelResponse'+  { _dadmcrsResponseStatus     :: !Int+  , _dadmcrsADMChannelResponse :: !ADMChannelResponse+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteADMChannelResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dadmcrsResponseStatus' - -- | The response status code.+--+-- * 'dadmcrsADMChannelResponse' - Undocumented member.+deleteADMChannelResponse+    :: Int -- ^ 'dadmcrsResponseStatus'+    -> ADMChannelResponse -- ^ 'dadmcrsADMChannelResponse'+    -> DeleteADMChannelResponse+deleteADMChannelResponse pResponseStatus_ pADMChannelResponse_ =+  DeleteADMChannelResponse'+  { _dadmcrsResponseStatus = pResponseStatus_+  , _dadmcrsADMChannelResponse = pADMChannelResponse_+  }+++-- | -- | The response status code.+dadmcrsResponseStatus :: Lens' DeleteADMChannelResponse Int+dadmcrsResponseStatus = lens _dadmcrsResponseStatus (\ s a -> s{_dadmcrsResponseStatus = a});++-- | Undocumented member.+dadmcrsADMChannelResponse :: Lens' DeleteADMChannelResponse ADMChannelResponse+dadmcrsADMChannelResponse = lens _dadmcrsADMChannelResponse (\ s a -> s{_dadmcrsADMChannelResponse = a});++instance NFData DeleteADMChannelResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.Pinpoint.DeleteAPNSChannel--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -35,18 +35,19 @@     , dacrsAPNSChannelResponse     ) where -import           Network.AWS.Lens-import           Network.AWS.Pinpoint.Types-import           Network.AWS.Pinpoint.Types.Product-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.Lens+import Network.AWS.Pinpoint.Types+import Network.AWS.Pinpoint.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'deleteAPNSChannel' smart constructor. newtype DeleteAPNSChannel = DeleteAPNSChannel'-    { _dacApplicationId :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dacApplicationId :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteAPNSChannel' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -56,10 +57,9 @@     :: Text -- ^ 'dacApplicationId'     -> DeleteAPNSChannel deleteAPNSChannel pApplicationId_ =-    DeleteAPNSChannel'-    { _dacApplicationId = pApplicationId_-    }+  DeleteAPNSChannel' {_dacApplicationId = pApplicationId_} + -- | Undocumented member. dacApplicationId :: Lens' DeleteAPNSChannel Text dacApplicationId = lens _dacApplicationId (\ s a -> s{_dacApplicationId = a});@@ -73,9 +73,9 @@                  DeleteAPNSChannelResponse' <$>                    (pure (fromEnum s)) <*> (eitherParseJSON x)) -instance Hashable DeleteAPNSChannel+instance Hashable DeleteAPNSChannel where -instance NFData DeleteAPNSChannel+instance NFData DeleteAPNSChannel where  instance ToHeaders DeleteAPNSChannel where         toHeaders@@ -95,10 +95,11 @@  -- | /See:/ 'deleteAPNSChannelResponse' smart constructor. data DeleteAPNSChannelResponse = DeleteAPNSChannelResponse'-    { _dacrsResponseStatus      :: !Int-    , _dacrsAPNSChannelResponse :: !APNSChannelResponse-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dacrsResponseStatus      :: !Int+  , _dacrsAPNSChannelResponse :: !APNSChannelResponse+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteAPNSChannelResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -111,11 +112,12 @@     -> APNSChannelResponse -- ^ 'dacrsAPNSChannelResponse'     -> DeleteAPNSChannelResponse deleteAPNSChannelResponse pResponseStatus_ pAPNSChannelResponse_ =-    DeleteAPNSChannelResponse'-    { _dacrsResponseStatus = pResponseStatus_-    , _dacrsAPNSChannelResponse = pAPNSChannelResponse_-    }+  DeleteAPNSChannelResponse'+  { _dacrsResponseStatus = pResponseStatus_+  , _dacrsAPNSChannelResponse = pAPNSChannelResponse_+  } + -- | -- | The response status code. dacrsResponseStatus :: Lens' DeleteAPNSChannelResponse Int dacrsResponseStatus = lens _dacrsResponseStatus (\ s a -> s{_dacrsResponseStatus = a});@@ -124,4 +126,4 @@ dacrsAPNSChannelResponse :: Lens' DeleteAPNSChannelResponse APNSChannelResponse dacrsAPNSChannelResponse = lens _dacrsAPNSChannelResponse (\ s a -> s{_dacrsAPNSChannelResponse = a}); -instance NFData DeleteAPNSChannelResponse+instance NFData DeleteAPNSChannelResponse where

@@ -0,0 +1,131 @@+{-# 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 #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.Pinpoint.DeleteAPNSSandboxChannel+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Delete an APNS sandbox channel+module Network.AWS.Pinpoint.DeleteAPNSSandboxChannel+    (+    -- * Creating a Request+      deleteAPNSSandboxChannel+    , DeleteAPNSSandboxChannel+    -- * Request Lenses+    , dascApplicationId++    -- * Destructuring the Response+    , deleteAPNSSandboxChannelResponse+    , DeleteAPNSSandboxChannelResponse+    -- * Response Lenses+    , dascrsResponseStatus+    , dascrsAPNSSandboxChannelResponse+    ) where++import Network.AWS.Lens+import Network.AWS.Pinpoint.Types+import Network.AWS.Pinpoint.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'deleteAPNSSandboxChannel' smart constructor.+newtype DeleteAPNSSandboxChannel = DeleteAPNSSandboxChannel'+  { _dascApplicationId :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteAPNSSandboxChannel' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dascApplicationId' - Undocumented member.+deleteAPNSSandboxChannel+    :: Text -- ^ 'dascApplicationId'+    -> DeleteAPNSSandboxChannel+deleteAPNSSandboxChannel pApplicationId_ =+  DeleteAPNSSandboxChannel' {_dascApplicationId = pApplicationId_}+++-- | Undocumented member.+dascApplicationId :: Lens' DeleteAPNSSandboxChannel Text+dascApplicationId = lens _dascApplicationId (\ s a -> s{_dascApplicationId = a});++instance AWSRequest DeleteAPNSSandboxChannel where+        type Rs DeleteAPNSSandboxChannel =+             DeleteAPNSSandboxChannelResponse+        request = delete pinpoint+        response+          = receiveJSON+              (\ s h x ->+                 DeleteAPNSSandboxChannelResponse' <$>+                   (pure (fromEnum s)) <*> (eitherParseJSON x))++instance Hashable DeleteAPNSSandboxChannel where++instance NFData DeleteAPNSSandboxChannel where++instance ToHeaders DeleteAPNSSandboxChannel where+        toHeaders+          = const+              (mconcat+                 ["Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToPath DeleteAPNSSandboxChannel where+        toPath DeleteAPNSSandboxChannel'{..}+          = mconcat+              ["/v1/apps/", toBS _dascApplicationId,+               "/channels/apns_sandbox"]++instance ToQuery DeleteAPNSSandboxChannel where+        toQuery = const mempty++-- | /See:/ 'deleteAPNSSandboxChannelResponse' smart constructor.+data DeleteAPNSSandboxChannelResponse = DeleteAPNSSandboxChannelResponse'+  { _dascrsResponseStatus             :: !Int+  , _dascrsAPNSSandboxChannelResponse :: !APNSSandboxChannelResponse+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteAPNSSandboxChannelResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dascrsResponseStatus' - -- | The response status code.+--+-- * 'dascrsAPNSSandboxChannelResponse' - Undocumented member.+deleteAPNSSandboxChannelResponse+    :: Int -- ^ 'dascrsResponseStatus'+    -> APNSSandboxChannelResponse -- ^ 'dascrsAPNSSandboxChannelResponse'+    -> DeleteAPNSSandboxChannelResponse+deleteAPNSSandboxChannelResponse pResponseStatus_ pAPNSSandboxChannelResponse_ =+  DeleteAPNSSandboxChannelResponse'+  { _dascrsResponseStatus = pResponseStatus_+  , _dascrsAPNSSandboxChannelResponse = pAPNSSandboxChannelResponse_+  }+++-- | -- | The response status code.+dascrsResponseStatus :: Lens' DeleteAPNSSandboxChannelResponse Int+dascrsResponseStatus = lens _dascrsResponseStatus (\ s a -> s{_dascrsResponseStatus = a});++-- | Undocumented member.+dascrsAPNSSandboxChannelResponse :: Lens' DeleteAPNSSandboxChannelResponse APNSSandboxChannelResponse+dascrsAPNSSandboxChannelResponse = lens _dascrsAPNSSandboxChannelResponse (\ s a -> s{_dascrsAPNSSandboxChannelResponse = a});++instance NFData DeleteAPNSSandboxChannelResponse+         where

@@ -0,0 +1,130 @@+{-# 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 #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.Pinpoint.DeleteAPNSVoipChannel+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Delete an APNS VoIP channel+module Network.AWS.Pinpoint.DeleteAPNSVoipChannel+    (+    -- * Creating a Request+      deleteAPNSVoipChannel+    , DeleteAPNSVoipChannel+    -- * Request Lenses+    , davcApplicationId++    -- * Destructuring the Response+    , deleteAPNSVoipChannelResponse+    , DeleteAPNSVoipChannelResponse+    -- * Response Lenses+    , davcrsResponseStatus+    , davcrsAPNSVoipChannelResponse+    ) where++import Network.AWS.Lens+import Network.AWS.Pinpoint.Types+import Network.AWS.Pinpoint.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'deleteAPNSVoipChannel' smart constructor.+newtype DeleteAPNSVoipChannel = DeleteAPNSVoipChannel'+  { _davcApplicationId :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteAPNSVoipChannel' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'davcApplicationId' - Undocumented member.+deleteAPNSVoipChannel+    :: Text -- ^ 'davcApplicationId'+    -> DeleteAPNSVoipChannel+deleteAPNSVoipChannel pApplicationId_ =+  DeleteAPNSVoipChannel' {_davcApplicationId = pApplicationId_}+++-- | Undocumented member.+davcApplicationId :: Lens' DeleteAPNSVoipChannel Text+davcApplicationId = lens _davcApplicationId (\ s a -> s{_davcApplicationId = a});++instance AWSRequest DeleteAPNSVoipChannel where+        type Rs DeleteAPNSVoipChannel =+             DeleteAPNSVoipChannelResponse+        request = delete pinpoint+        response+          = receiveJSON+              (\ s h x ->+                 DeleteAPNSVoipChannelResponse' <$>+                   (pure (fromEnum s)) <*> (eitherParseJSON x))++instance Hashable DeleteAPNSVoipChannel where++instance NFData DeleteAPNSVoipChannel where++instance ToHeaders DeleteAPNSVoipChannel where+        toHeaders+          = const+              (mconcat+                 ["Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToPath DeleteAPNSVoipChannel where+        toPath DeleteAPNSVoipChannel'{..}+          = mconcat+              ["/v1/apps/", toBS _davcApplicationId,+               "/channels/apns_voip"]++instance ToQuery DeleteAPNSVoipChannel where+        toQuery = const mempty++-- | /See:/ 'deleteAPNSVoipChannelResponse' smart constructor.+data DeleteAPNSVoipChannelResponse = DeleteAPNSVoipChannelResponse'+  { _davcrsResponseStatus          :: !Int+  , _davcrsAPNSVoipChannelResponse :: !APNSVoipChannelResponse+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteAPNSVoipChannelResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'davcrsResponseStatus' - -- | The response status code.+--+-- * 'davcrsAPNSVoipChannelResponse' - Undocumented member.+deleteAPNSVoipChannelResponse+    :: Int -- ^ 'davcrsResponseStatus'+    -> APNSVoipChannelResponse -- ^ 'davcrsAPNSVoipChannelResponse'+    -> DeleteAPNSVoipChannelResponse+deleteAPNSVoipChannelResponse pResponseStatus_ pAPNSVoipChannelResponse_ =+  DeleteAPNSVoipChannelResponse'+  { _davcrsResponseStatus = pResponseStatus_+  , _davcrsAPNSVoipChannelResponse = pAPNSVoipChannelResponse_+  }+++-- | -- | The response status code.+davcrsResponseStatus :: Lens' DeleteAPNSVoipChannelResponse Int+davcrsResponseStatus = lens _davcrsResponseStatus (\ s a -> s{_davcrsResponseStatus = a});++-- | Undocumented member.+davcrsAPNSVoipChannelResponse :: Lens' DeleteAPNSVoipChannelResponse APNSVoipChannelResponse+davcrsAPNSVoipChannelResponse = lens _davcrsAPNSVoipChannelResponse (\ s a -> s{_davcrsAPNSVoipChannelResponse = a});++instance NFData DeleteAPNSVoipChannelResponse where

@@ -0,0 +1,132 @@+{-# 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 #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.Pinpoint.DeleteAPNSVoipSandboxChannel+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Delete an APNS VoIP sandbox channel+module Network.AWS.Pinpoint.DeleteAPNSVoipSandboxChannel+    (+    -- * Creating a Request+      deleteAPNSVoipSandboxChannel+    , DeleteAPNSVoipSandboxChannel+    -- * Request Lenses+    , davscApplicationId++    -- * Destructuring the Response+    , deleteAPNSVoipSandboxChannelResponse+    , DeleteAPNSVoipSandboxChannelResponse+    -- * Response Lenses+    , davscrsResponseStatus+    , davscrsAPNSVoipSandboxChannelResponse+    ) where++import Network.AWS.Lens+import Network.AWS.Pinpoint.Types+import Network.AWS.Pinpoint.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'deleteAPNSVoipSandboxChannel' smart constructor.+newtype DeleteAPNSVoipSandboxChannel = DeleteAPNSVoipSandboxChannel'+  { _davscApplicationId :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteAPNSVoipSandboxChannel' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'davscApplicationId' - Undocumented member.+deleteAPNSVoipSandboxChannel+    :: Text -- ^ 'davscApplicationId'+    -> DeleteAPNSVoipSandboxChannel+deleteAPNSVoipSandboxChannel pApplicationId_ =+  DeleteAPNSVoipSandboxChannel' {_davscApplicationId = pApplicationId_}+++-- | Undocumented member.+davscApplicationId :: Lens' DeleteAPNSVoipSandboxChannel Text+davscApplicationId = lens _davscApplicationId (\ s a -> s{_davscApplicationId = a});++instance AWSRequest DeleteAPNSVoipSandboxChannel+         where+        type Rs DeleteAPNSVoipSandboxChannel =+             DeleteAPNSVoipSandboxChannelResponse+        request = delete pinpoint+        response+          = receiveJSON+              (\ s h x ->+                 DeleteAPNSVoipSandboxChannelResponse' <$>+                   (pure (fromEnum s)) <*> (eitherParseJSON x))++instance Hashable DeleteAPNSVoipSandboxChannel where++instance NFData DeleteAPNSVoipSandboxChannel where++instance ToHeaders DeleteAPNSVoipSandboxChannel where+        toHeaders+          = const+              (mconcat+                 ["Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToPath DeleteAPNSVoipSandboxChannel where+        toPath DeleteAPNSVoipSandboxChannel'{..}+          = mconcat+              ["/v1/apps/", toBS _davscApplicationId,+               "/channels/apns_voip_sandbox"]++instance ToQuery DeleteAPNSVoipSandboxChannel where+        toQuery = const mempty++-- | /See:/ 'deleteAPNSVoipSandboxChannelResponse' smart constructor.+data DeleteAPNSVoipSandboxChannelResponse = DeleteAPNSVoipSandboxChannelResponse'+  { _davscrsResponseStatus                 :: !Int+  , _davscrsAPNSVoipSandboxChannelResponse :: !APNSVoipSandboxChannelResponse+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteAPNSVoipSandboxChannelResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'davscrsResponseStatus' - -- | The response status code.+--+-- * 'davscrsAPNSVoipSandboxChannelResponse' - Undocumented member.+deleteAPNSVoipSandboxChannelResponse+    :: Int -- ^ 'davscrsResponseStatus'+    -> APNSVoipSandboxChannelResponse -- ^ 'davscrsAPNSVoipSandboxChannelResponse'+    -> DeleteAPNSVoipSandboxChannelResponse+deleteAPNSVoipSandboxChannelResponse pResponseStatus_ pAPNSVoipSandboxChannelResponse_ =+  DeleteAPNSVoipSandboxChannelResponse'+  { _davscrsResponseStatus = pResponseStatus_+  , _davscrsAPNSVoipSandboxChannelResponse = pAPNSVoipSandboxChannelResponse_+  }+++-- | -- | The response status code.+davscrsResponseStatus :: Lens' DeleteAPNSVoipSandboxChannelResponse Int+davscrsResponseStatus = lens _davscrsResponseStatus (\ s a -> s{_davscrsResponseStatus = a});++-- | Undocumented member.+davscrsAPNSVoipSandboxChannelResponse :: Lens' DeleteAPNSVoipSandboxChannelResponse APNSVoipSandboxChannelResponse+davscrsAPNSVoipSandboxChannelResponse = lens _davscrsAPNSVoipSandboxChannelResponse (\ s a -> s{_davscrsAPNSVoipSandboxChannelResponse = a});++instance NFData DeleteAPNSVoipSandboxChannelResponse+         where

@@ -0,0 +1,126 @@+{-# 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 #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.Pinpoint.DeleteApp+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes an app.+module Network.AWS.Pinpoint.DeleteApp+    (+    -- * Creating a Request+      deleteApp+    , DeleteApp+    -- * Request Lenses+    , daApplicationId++    -- * Destructuring the Response+    , deleteAppResponse+    , DeleteAppResponse+    -- * Response Lenses+    , darsResponseStatus+    , darsApplicationResponse+    ) where++import Network.AWS.Lens+import Network.AWS.Pinpoint.Types+import Network.AWS.Pinpoint.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'deleteApp' smart constructor.+newtype DeleteApp = DeleteApp'+  { _daApplicationId :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteApp' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'daApplicationId' - Undocumented member.+deleteApp+    :: Text -- ^ 'daApplicationId'+    -> DeleteApp+deleteApp pApplicationId_ = DeleteApp' {_daApplicationId = pApplicationId_}+++-- | Undocumented member.+daApplicationId :: Lens' DeleteApp Text+daApplicationId = lens _daApplicationId (\ s a -> s{_daApplicationId = a});++instance AWSRequest DeleteApp where+        type Rs DeleteApp = DeleteAppResponse+        request = delete pinpoint+        response+          = receiveJSON+              (\ s h x ->+                 DeleteAppResponse' <$>+                   (pure (fromEnum s)) <*> (eitherParseJSON x))++instance Hashable DeleteApp where++instance NFData DeleteApp where++instance ToHeaders DeleteApp where+        toHeaders+          = const+              (mconcat+                 ["Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToPath DeleteApp where+        toPath DeleteApp'{..}+          = mconcat ["/v1/apps/", toBS _daApplicationId]++instance ToQuery DeleteApp where+        toQuery = const mempty++-- | /See:/ 'deleteAppResponse' smart constructor.+data DeleteAppResponse = DeleteAppResponse'+  { _darsResponseStatus      :: !Int+  , _darsApplicationResponse :: !ApplicationResponse+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteAppResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'darsResponseStatus' - -- | The response status code.+--+-- * 'darsApplicationResponse' - Undocumented member.+deleteAppResponse+    :: Int -- ^ 'darsResponseStatus'+    -> ApplicationResponse -- ^ 'darsApplicationResponse'+    -> DeleteAppResponse+deleteAppResponse pResponseStatus_ pApplicationResponse_ =+  DeleteAppResponse'+  { _darsResponseStatus = pResponseStatus_+  , _darsApplicationResponse = pApplicationResponse_+  }+++-- | -- | The response status code.+darsResponseStatus :: Lens' DeleteAppResponse Int+darsResponseStatus = lens _darsResponseStatus (\ s a -> s{_darsResponseStatus = a});++-- | Undocumented member.+darsApplicationResponse :: Lens' DeleteAppResponse ApplicationResponse+darsApplicationResponse = lens _darsApplicationResponse (\ s a -> s{_darsApplicationResponse = a});++instance NFData DeleteAppResponse where

@@ -0,0 +1,130 @@+{-# 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 #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.Pinpoint.DeleteBaiduChannel+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Delete a BAIDU GCM channel+module Network.AWS.Pinpoint.DeleteBaiduChannel+    (+    -- * Creating a Request+      deleteBaiduChannel+    , DeleteBaiduChannel+    -- * Request Lenses+    , dbcApplicationId++    -- * Destructuring the Response+    , deleteBaiduChannelResponse+    , DeleteBaiduChannelResponse+    -- * Response Lenses+    , dbcrsResponseStatus+    , dbcrsBaiduChannelResponse+    ) where++import Network.AWS.Lens+import Network.AWS.Pinpoint.Types+import Network.AWS.Pinpoint.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'deleteBaiduChannel' smart constructor.+newtype DeleteBaiduChannel = DeleteBaiduChannel'+  { _dbcApplicationId :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteBaiduChannel' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dbcApplicationId' - Undocumented member.+deleteBaiduChannel+    :: Text -- ^ 'dbcApplicationId'+    -> DeleteBaiduChannel+deleteBaiduChannel pApplicationId_ =+  DeleteBaiduChannel' {_dbcApplicationId = pApplicationId_}+++-- | Undocumented member.+dbcApplicationId :: Lens' DeleteBaiduChannel Text+dbcApplicationId = lens _dbcApplicationId (\ s a -> s{_dbcApplicationId = a});++instance AWSRequest DeleteBaiduChannel where+        type Rs DeleteBaiduChannel =+             DeleteBaiduChannelResponse+        request = delete pinpoint+        response+          = receiveJSON+              (\ s h x ->+                 DeleteBaiduChannelResponse' <$>+                   (pure (fromEnum s)) <*> (eitherParseJSON x))++instance Hashable DeleteBaiduChannel where++instance NFData DeleteBaiduChannel where++instance ToHeaders DeleteBaiduChannel where+        toHeaders+          = const+              (mconcat+                 ["Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToPath DeleteBaiduChannel where+        toPath DeleteBaiduChannel'{..}+          = mconcat+              ["/v1/apps/", toBS _dbcApplicationId,+               "/channels/baidu"]++instance ToQuery DeleteBaiduChannel where+        toQuery = const mempty++-- | /See:/ 'deleteBaiduChannelResponse' smart constructor.+data DeleteBaiduChannelResponse = DeleteBaiduChannelResponse'+  { _dbcrsResponseStatus       :: !Int+  , _dbcrsBaiduChannelResponse :: !BaiduChannelResponse+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteBaiduChannelResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dbcrsResponseStatus' - -- | The response status code.+--+-- * 'dbcrsBaiduChannelResponse' - Undocumented member.+deleteBaiduChannelResponse+    :: Int -- ^ 'dbcrsResponseStatus'+    -> BaiduChannelResponse -- ^ 'dbcrsBaiduChannelResponse'+    -> DeleteBaiduChannelResponse+deleteBaiduChannelResponse pResponseStatus_ pBaiduChannelResponse_ =+  DeleteBaiduChannelResponse'+  { _dbcrsResponseStatus = pResponseStatus_+  , _dbcrsBaiduChannelResponse = pBaiduChannelResponse_+  }+++-- | -- | The response status code.+dbcrsResponseStatus :: Lens' DeleteBaiduChannelResponse Int+dbcrsResponseStatus = lens _dbcrsResponseStatus (\ s a -> s{_dbcrsResponseStatus = a});++-- | Undocumented member.+dbcrsBaiduChannelResponse :: Lens' DeleteBaiduChannelResponse BaiduChannelResponse+dbcrsBaiduChannelResponse = lens _dbcrsBaiduChannelResponse (\ s a -> s{_dbcrsBaiduChannelResponse = a});++instance NFData DeleteBaiduChannelResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.Pinpoint.DeleteCampaign--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -36,19 +36,20 @@     , dcrsCampaignResponse     ) where -import           Network.AWS.Lens-import           Network.AWS.Pinpoint.Types-import           Network.AWS.Pinpoint.Types.Product-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.Lens+import Network.AWS.Pinpoint.Types+import Network.AWS.Pinpoint.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'deleteCampaign' smart constructor. data DeleteCampaign = DeleteCampaign'-    { _dcCampaignId    :: !Text-    , _dcApplicationId :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dcCampaignId    :: !Text+  , _dcApplicationId :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteCampaign' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -61,11 +62,10 @@     -> Text -- ^ 'dcApplicationId'     -> DeleteCampaign deleteCampaign pCampaignId_ pApplicationId_ =-    DeleteCampaign'-    { _dcCampaignId = pCampaignId_-    , _dcApplicationId = pApplicationId_-    }+  DeleteCampaign'+  {_dcCampaignId = pCampaignId_, _dcApplicationId = pApplicationId_} + -- | Undocumented member. dcCampaignId :: Lens' DeleteCampaign Text dcCampaignId = lens _dcCampaignId (\ s a -> s{_dcCampaignId = a});@@ -83,9 +83,9 @@                  DeleteCampaignResponse' <$>                    (pure (fromEnum s)) <*> (eitherParseJSON x)) -instance Hashable DeleteCampaign+instance Hashable DeleteCampaign where -instance NFData DeleteCampaign+instance NFData DeleteCampaign where  instance ToHeaders DeleteCampaign where         toHeaders@@ -105,10 +105,11 @@  -- | /See:/ 'deleteCampaignResponse' smart constructor. data DeleteCampaignResponse = DeleteCampaignResponse'-    { _dcrsResponseStatus   :: !Int-    , _dcrsCampaignResponse :: !CampaignResponse-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dcrsResponseStatus   :: !Int+  , _dcrsCampaignResponse :: !CampaignResponse+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteCampaignResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -121,11 +122,12 @@     -> CampaignResponse -- ^ 'dcrsCampaignResponse'     -> DeleteCampaignResponse deleteCampaignResponse pResponseStatus_ pCampaignResponse_ =-    DeleteCampaignResponse'-    { _dcrsResponseStatus = pResponseStatus_-    , _dcrsCampaignResponse = pCampaignResponse_-    }+  DeleteCampaignResponse'+  { _dcrsResponseStatus = pResponseStatus_+  , _dcrsCampaignResponse = pCampaignResponse_+  } + -- | -- | The response status code. dcrsResponseStatus :: Lens' DeleteCampaignResponse Int dcrsResponseStatus = lens _dcrsResponseStatus (\ s a -> s{_dcrsResponseStatus = a});@@ -134,4 +136,4 @@ dcrsCampaignResponse :: Lens' DeleteCampaignResponse CampaignResponse dcrsCampaignResponse = lens _dcrsCampaignResponse (\ s a -> s{_dcrsCampaignResponse = a}); -instance NFData DeleteCampaignResponse+instance NFData DeleteCampaignResponse where

@@ -0,0 +1,130 @@+{-# 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 #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.Pinpoint.DeleteEmailChannel+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Delete an email channel+module Network.AWS.Pinpoint.DeleteEmailChannel+    (+    -- * Creating a Request+      deleteEmailChannel+    , DeleteEmailChannel+    -- * Request Lenses+    , decApplicationId++    -- * Destructuring the Response+    , deleteEmailChannelResponse+    , DeleteEmailChannelResponse+    -- * Response Lenses+    , decrsResponseStatus+    , decrsEmailChannelResponse+    ) where++import Network.AWS.Lens+import Network.AWS.Pinpoint.Types+import Network.AWS.Pinpoint.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'deleteEmailChannel' smart constructor.+newtype DeleteEmailChannel = DeleteEmailChannel'+  { _decApplicationId :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteEmailChannel' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'decApplicationId' - Undocumented member.+deleteEmailChannel+    :: Text -- ^ 'decApplicationId'+    -> DeleteEmailChannel+deleteEmailChannel pApplicationId_ =+  DeleteEmailChannel' {_decApplicationId = pApplicationId_}+++-- | Undocumented member.+decApplicationId :: Lens' DeleteEmailChannel Text+decApplicationId = lens _decApplicationId (\ s a -> s{_decApplicationId = a});++instance AWSRequest DeleteEmailChannel where+        type Rs DeleteEmailChannel =+             DeleteEmailChannelResponse+        request = delete pinpoint+        response+          = receiveJSON+              (\ s h x ->+                 DeleteEmailChannelResponse' <$>+                   (pure (fromEnum s)) <*> (eitherParseJSON x))++instance Hashable DeleteEmailChannel where++instance NFData DeleteEmailChannel where++instance ToHeaders DeleteEmailChannel where+        toHeaders+          = const+              (mconcat+                 ["Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToPath DeleteEmailChannel where+        toPath DeleteEmailChannel'{..}+          = mconcat+              ["/v1/apps/", toBS _decApplicationId,+               "/channels/email"]++instance ToQuery DeleteEmailChannel where+        toQuery = const mempty++-- | /See:/ 'deleteEmailChannelResponse' smart constructor.+data DeleteEmailChannelResponse = DeleteEmailChannelResponse'+  { _decrsResponseStatus       :: !Int+  , _decrsEmailChannelResponse :: !EmailChannelResponse+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteEmailChannelResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'decrsResponseStatus' - -- | The response status code.+--+-- * 'decrsEmailChannelResponse' - Undocumented member.+deleteEmailChannelResponse+    :: Int -- ^ 'decrsResponseStatus'+    -> EmailChannelResponse -- ^ 'decrsEmailChannelResponse'+    -> DeleteEmailChannelResponse+deleteEmailChannelResponse pResponseStatus_ pEmailChannelResponse_ =+  DeleteEmailChannelResponse'+  { _decrsResponseStatus = pResponseStatus_+  , _decrsEmailChannelResponse = pEmailChannelResponse_+  }+++-- | -- | The response status code.+decrsResponseStatus :: Lens' DeleteEmailChannelResponse Int+decrsResponseStatus = lens _decrsResponseStatus (\ s a -> s{_decrsResponseStatus = a});++-- | Undocumented member.+decrsEmailChannelResponse :: Lens' DeleteEmailChannelResponse EmailChannelResponse+decrsEmailChannelResponse = lens _decrsEmailChannelResponse (\ s a -> s{_decrsEmailChannelResponse = a});++instance NFData DeleteEmailChannelResponse where

@@ -0,0 +1,128 @@+{-# 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 #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.Pinpoint.DeleteEventStream+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes the event stream for an app.+module Network.AWS.Pinpoint.DeleteEventStream+    (+    -- * Creating a Request+      deleteEventStream+    , DeleteEventStream+    -- * Request Lenses+    , desApplicationId++    -- * Destructuring the Response+    , deleteEventStreamResponse+    , DeleteEventStreamResponse+    -- * Response Lenses+    , desrsResponseStatus+    , desrsEventStream+    ) where++import Network.AWS.Lens+import Network.AWS.Pinpoint.Types+import Network.AWS.Pinpoint.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | DeleteEventStream Request+--+-- /See:/ 'deleteEventStream' smart constructor.+newtype DeleteEventStream = DeleteEventStream'+  { _desApplicationId :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteEventStream' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'desApplicationId' - ApplicationId+deleteEventStream+    :: Text -- ^ 'desApplicationId'+    -> DeleteEventStream+deleteEventStream pApplicationId_ =+  DeleteEventStream' {_desApplicationId = pApplicationId_}+++-- | ApplicationId+desApplicationId :: Lens' DeleteEventStream Text+desApplicationId = lens _desApplicationId (\ s a -> s{_desApplicationId = a});++instance AWSRequest DeleteEventStream where+        type Rs DeleteEventStream = DeleteEventStreamResponse+        request = delete pinpoint+        response+          = receiveJSON+              (\ s h x ->+                 DeleteEventStreamResponse' <$>+                   (pure (fromEnum s)) <*> (eitherParseJSON x))++instance Hashable DeleteEventStream where++instance NFData DeleteEventStream where++instance ToHeaders DeleteEventStream where+        toHeaders+          = const+              (mconcat+                 ["Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToPath DeleteEventStream where+        toPath DeleteEventStream'{..}+          = mconcat+              ["/v1/apps/", toBS _desApplicationId, "/eventstream"]++instance ToQuery DeleteEventStream where+        toQuery = const mempty++-- | /See:/ 'deleteEventStreamResponse' smart constructor.+data DeleteEventStreamResponse = DeleteEventStreamResponse'+  { _desrsResponseStatus :: !Int+  , _desrsEventStream    :: !EventStream+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteEventStreamResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'desrsResponseStatus' - -- | The response status code.+--+-- * 'desrsEventStream' - Undocumented member.+deleteEventStreamResponse+    :: Int -- ^ 'desrsResponseStatus'+    -> EventStream -- ^ 'desrsEventStream'+    -> DeleteEventStreamResponse+deleteEventStreamResponse pResponseStatus_ pEventStream_ =+  DeleteEventStreamResponse'+  {_desrsResponseStatus = pResponseStatus_, _desrsEventStream = pEventStream_}+++-- | -- | The response status code.+desrsResponseStatus :: Lens' DeleteEventStreamResponse Int+desrsResponseStatus = lens _desrsResponseStatus (\ s a -> s{_desrsResponseStatus = a});++-- | Undocumented member.+desrsEventStream :: Lens' DeleteEventStreamResponse EventStream+desrsEventStream = lens _desrsEventStream (\ s a -> s{_desrsEventStream = a});++instance NFData DeleteEventStreamResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.Pinpoint.DeleteGCMChannel--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -35,18 +35,19 @@     , dgcrsGCMChannelResponse     ) where -import           Network.AWS.Lens-import           Network.AWS.Pinpoint.Types-import           Network.AWS.Pinpoint.Types.Product-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.Lens+import Network.AWS.Pinpoint.Types+import Network.AWS.Pinpoint.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'deleteGCMChannel' smart constructor. newtype DeleteGCMChannel = DeleteGCMChannel'-    { _dgcApplicationId :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dgcApplicationId :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteGCMChannel' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -56,10 +57,9 @@     :: Text -- ^ 'dgcApplicationId'     -> DeleteGCMChannel deleteGCMChannel pApplicationId_ =-    DeleteGCMChannel'-    { _dgcApplicationId = pApplicationId_-    }+  DeleteGCMChannel' {_dgcApplicationId = pApplicationId_} + -- | Undocumented member. dgcApplicationId :: Lens' DeleteGCMChannel Text dgcApplicationId = lens _dgcApplicationId (\ s a -> s{_dgcApplicationId = a});@@ -73,9 +73,9 @@                  DeleteGCMChannelResponse' <$>                    (pure (fromEnum s)) <*> (eitherParseJSON x)) -instance Hashable DeleteGCMChannel+instance Hashable DeleteGCMChannel where -instance NFData DeleteGCMChannel+instance NFData DeleteGCMChannel where  instance ToHeaders DeleteGCMChannel where         toHeaders@@ -95,10 +95,11 @@  -- | /See:/ 'deleteGCMChannelResponse' smart constructor. data DeleteGCMChannelResponse = DeleteGCMChannelResponse'-    { _dgcrsResponseStatus     :: !Int-    , _dgcrsGCMChannelResponse :: !GCMChannelResponse-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dgcrsResponseStatus     :: !Int+  , _dgcrsGCMChannelResponse :: !GCMChannelResponse+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteGCMChannelResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -111,11 +112,12 @@     -> GCMChannelResponse -- ^ 'dgcrsGCMChannelResponse'     -> DeleteGCMChannelResponse deleteGCMChannelResponse pResponseStatus_ pGCMChannelResponse_ =-    DeleteGCMChannelResponse'-    { _dgcrsResponseStatus = pResponseStatus_-    , _dgcrsGCMChannelResponse = pGCMChannelResponse_-    }+  DeleteGCMChannelResponse'+  { _dgcrsResponseStatus = pResponseStatus_+  , _dgcrsGCMChannelResponse = pGCMChannelResponse_+  } + -- | -- | The response status code. dgcrsResponseStatus :: Lens' DeleteGCMChannelResponse Int dgcrsResponseStatus = lens _dgcrsResponseStatus (\ s a -> s{_dgcrsResponseStatus = a});@@ -124,4 +126,4 @@ dgcrsGCMChannelResponse :: Lens' DeleteGCMChannelResponse GCMChannelResponse dgcrsGCMChannelResponse = lens _dgcrsGCMChannelResponse (\ s a -> s{_dgcrsGCMChannelResponse = a}); -instance NFData DeleteGCMChannelResponse+instance NFData DeleteGCMChannelResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.Pinpoint.DeleteSegment--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -36,19 +36,20 @@     , dsrsSegmentResponse     ) where -import           Network.AWS.Lens-import           Network.AWS.Pinpoint.Types-import           Network.AWS.Pinpoint.Types.Product-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.Lens+import Network.AWS.Pinpoint.Types+import Network.AWS.Pinpoint.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'deleteSegment' smart constructor. data DeleteSegment = DeleteSegment'-    { _dsSegmentId     :: !Text-    , _dsApplicationId :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dsSegmentId     :: !Text+  , _dsApplicationId :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteSegment' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -61,11 +62,10 @@     -> Text -- ^ 'dsApplicationId'     -> DeleteSegment deleteSegment pSegmentId_ pApplicationId_ =-    DeleteSegment'-    { _dsSegmentId = pSegmentId_-    , _dsApplicationId = pApplicationId_-    }+  DeleteSegment'+  {_dsSegmentId = pSegmentId_, _dsApplicationId = pApplicationId_} + -- | Undocumented member. dsSegmentId :: Lens' DeleteSegment Text dsSegmentId = lens _dsSegmentId (\ s a -> s{_dsSegmentId = a});@@ -83,9 +83,9 @@                  DeleteSegmentResponse' <$>                    (pure (fromEnum s)) <*> (eitherParseJSON x)) -instance Hashable DeleteSegment+instance Hashable DeleteSegment where -instance NFData DeleteSegment+instance NFData DeleteSegment where  instance ToHeaders DeleteSegment where         toHeaders@@ -105,10 +105,11 @@  -- | /See:/ 'deleteSegmentResponse' smart constructor. data DeleteSegmentResponse = DeleteSegmentResponse'-    { _dsrsResponseStatus  :: !Int-    , _dsrsSegmentResponse :: !SegmentResponse-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dsrsResponseStatus  :: !Int+  , _dsrsSegmentResponse :: !SegmentResponse+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteSegmentResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -121,11 +122,12 @@     -> SegmentResponse -- ^ 'dsrsSegmentResponse'     -> DeleteSegmentResponse deleteSegmentResponse pResponseStatus_ pSegmentResponse_ =-    DeleteSegmentResponse'-    { _dsrsResponseStatus = pResponseStatus_-    , _dsrsSegmentResponse = pSegmentResponse_-    }+  DeleteSegmentResponse'+  { _dsrsResponseStatus = pResponseStatus_+  , _dsrsSegmentResponse = pSegmentResponse_+  } + -- | -- | The response status code. dsrsResponseStatus :: Lens' DeleteSegmentResponse Int dsrsResponseStatus = lens _dsrsResponseStatus (\ s a -> s{_dsrsResponseStatus = a});@@ -134,4 +136,4 @@ dsrsSegmentResponse :: Lens' DeleteSegmentResponse SegmentResponse dsrsSegmentResponse = lens _dsrsSegmentResponse (\ s a -> s{_dsrsSegmentResponse = a}); -instance NFData DeleteSegmentResponse+instance NFData DeleteSegmentResponse where

@@ -0,0 +1,129 @@+{-# 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 #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.Pinpoint.DeleteSmsChannel+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Delete an SMS channel+module Network.AWS.Pinpoint.DeleteSmsChannel+    (+    -- * Creating a Request+      deleteSmsChannel+    , DeleteSmsChannel+    -- * Request Lenses+    , dscApplicationId++    -- * Destructuring the Response+    , deleteSmsChannelResponse+    , DeleteSmsChannelResponse+    -- * Response Lenses+    , dscrsResponseStatus+    , dscrsSMSChannelResponse+    ) where++import Network.AWS.Lens+import Network.AWS.Pinpoint.Types+import Network.AWS.Pinpoint.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'deleteSmsChannel' smart constructor.+newtype DeleteSmsChannel = DeleteSmsChannel'+  { _dscApplicationId :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteSmsChannel' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dscApplicationId' - Undocumented member.+deleteSmsChannel+    :: Text -- ^ 'dscApplicationId'+    -> DeleteSmsChannel+deleteSmsChannel pApplicationId_ =+  DeleteSmsChannel' {_dscApplicationId = pApplicationId_}+++-- | Undocumented member.+dscApplicationId :: Lens' DeleteSmsChannel Text+dscApplicationId = lens _dscApplicationId (\ s a -> s{_dscApplicationId = a});++instance AWSRequest DeleteSmsChannel where+        type Rs DeleteSmsChannel = DeleteSmsChannelResponse+        request = delete pinpoint+        response+          = receiveJSON+              (\ s h x ->+                 DeleteSmsChannelResponse' <$>+                   (pure (fromEnum s)) <*> (eitherParseJSON x))++instance Hashable DeleteSmsChannel where++instance NFData DeleteSmsChannel where++instance ToHeaders DeleteSmsChannel where+        toHeaders+          = const+              (mconcat+                 ["Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToPath DeleteSmsChannel where+        toPath DeleteSmsChannel'{..}+          = mconcat+              ["/v1/apps/", toBS _dscApplicationId,+               "/channels/sms"]++instance ToQuery DeleteSmsChannel where+        toQuery = const mempty++-- | /See:/ 'deleteSmsChannelResponse' smart constructor.+data DeleteSmsChannelResponse = DeleteSmsChannelResponse'+  { _dscrsResponseStatus     :: !Int+  , _dscrsSMSChannelResponse :: !SMSChannelResponse+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteSmsChannelResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dscrsResponseStatus' - -- | The response status code.+--+-- * 'dscrsSMSChannelResponse' - Undocumented member.+deleteSmsChannelResponse+    :: Int -- ^ 'dscrsResponseStatus'+    -> SMSChannelResponse -- ^ 'dscrsSMSChannelResponse'+    -> DeleteSmsChannelResponse+deleteSmsChannelResponse pResponseStatus_ pSMSChannelResponse_ =+  DeleteSmsChannelResponse'+  { _dscrsResponseStatus = pResponseStatus_+  , _dscrsSMSChannelResponse = pSMSChannelResponse_+  }+++-- | -- | The response status code.+dscrsResponseStatus :: Lens' DeleteSmsChannelResponse Int+dscrsResponseStatus = lens _dscrsResponseStatus (\ s a -> s{_dscrsResponseStatus = a});++-- | Undocumented member.+dscrsSMSChannelResponse :: Lens' DeleteSmsChannelResponse SMSChannelResponse+dscrsSMSChannelResponse = lens _dscrsSMSChannelResponse (\ s a -> s{_dscrsSMSChannelResponse = a});++instance NFData DeleteSmsChannelResponse where

@@ -0,0 +1,129 @@+{-# 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 #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.Pinpoint.GetADMChannel+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Get an ADM channel+module Network.AWS.Pinpoint.GetADMChannel+    (+    -- * Creating a Request+      getADMChannel+    , GetADMChannel+    -- * Request Lenses+    , gadmcApplicationId++    -- * Destructuring the Response+    , getADMChannelResponse+    , GetADMChannelResponse+    -- * Response Lenses+    , gadmcrsResponseStatus+    , gadmcrsADMChannelResponse+    ) where++import Network.AWS.Lens+import Network.AWS.Pinpoint.Types+import Network.AWS.Pinpoint.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'getADMChannel' smart constructor.+newtype GetADMChannel = GetADMChannel'+  { _gadmcApplicationId :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetADMChannel' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gadmcApplicationId' - Undocumented member.+getADMChannel+    :: Text -- ^ 'gadmcApplicationId'+    -> GetADMChannel+getADMChannel pApplicationId_ =+  GetADMChannel' {_gadmcApplicationId = pApplicationId_}+++-- | Undocumented member.+gadmcApplicationId :: Lens' GetADMChannel Text+gadmcApplicationId = lens _gadmcApplicationId (\ s a -> s{_gadmcApplicationId = a});++instance AWSRequest GetADMChannel where+        type Rs GetADMChannel = GetADMChannelResponse+        request = get pinpoint+        response+          = receiveJSON+              (\ s h x ->+                 GetADMChannelResponse' <$>+                   (pure (fromEnum s)) <*> (eitherParseJSON x))++instance Hashable GetADMChannel where++instance NFData GetADMChannel where++instance ToHeaders GetADMChannel where+        toHeaders+          = const+              (mconcat+                 ["Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToPath GetADMChannel where+        toPath GetADMChannel'{..}+          = mconcat+              ["/v1/apps/", toBS _gadmcApplicationId,+               "/channels/adm"]++instance ToQuery GetADMChannel where+        toQuery = const mempty++-- | /See:/ 'getADMChannelResponse' smart constructor.+data GetADMChannelResponse = GetADMChannelResponse'+  { _gadmcrsResponseStatus     :: !Int+  , _gadmcrsADMChannelResponse :: !ADMChannelResponse+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetADMChannelResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gadmcrsResponseStatus' - -- | The response status code.+--+-- * 'gadmcrsADMChannelResponse' - Undocumented member.+getADMChannelResponse+    :: Int -- ^ 'gadmcrsResponseStatus'+    -> ADMChannelResponse -- ^ 'gadmcrsADMChannelResponse'+    -> GetADMChannelResponse+getADMChannelResponse pResponseStatus_ pADMChannelResponse_ =+  GetADMChannelResponse'+  { _gadmcrsResponseStatus = pResponseStatus_+  , _gadmcrsADMChannelResponse = pADMChannelResponse_+  }+++-- | -- | The response status code.+gadmcrsResponseStatus :: Lens' GetADMChannelResponse Int+gadmcrsResponseStatus = lens _gadmcrsResponseStatus (\ s a -> s{_gadmcrsResponseStatus = a});++-- | Undocumented member.+gadmcrsADMChannelResponse :: Lens' GetADMChannelResponse ADMChannelResponse+gadmcrsADMChannelResponse = lens _gadmcrsADMChannelResponse (\ s a -> s{_gadmcrsADMChannelResponse = a});++instance NFData GetADMChannelResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.Pinpoint.GetAPNSChannel--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -35,18 +35,19 @@     , gacrsAPNSChannelResponse     ) where -import           Network.AWS.Lens-import           Network.AWS.Pinpoint.Types-import           Network.AWS.Pinpoint.Types.Product-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.Lens+import Network.AWS.Pinpoint.Types+import Network.AWS.Pinpoint.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'getAPNSChannel' smart constructor. newtype GetAPNSChannel = GetAPNSChannel'-    { _gacApplicationId :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gacApplicationId :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetAPNSChannel' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -56,10 +57,9 @@     :: Text -- ^ 'gacApplicationId'     -> GetAPNSChannel getAPNSChannel pApplicationId_ =-    GetAPNSChannel'-    { _gacApplicationId = pApplicationId_-    }+  GetAPNSChannel' {_gacApplicationId = pApplicationId_} + -- | Undocumented member. gacApplicationId :: Lens' GetAPNSChannel Text gacApplicationId = lens _gacApplicationId (\ s a -> s{_gacApplicationId = a});@@ -73,9 +73,9 @@                  GetAPNSChannelResponse' <$>                    (pure (fromEnum s)) <*> (eitherParseJSON x)) -instance Hashable GetAPNSChannel+instance Hashable GetAPNSChannel where -instance NFData GetAPNSChannel+instance NFData GetAPNSChannel where  instance ToHeaders GetAPNSChannel where         toHeaders@@ -95,10 +95,11 @@  -- | /See:/ 'getAPNSChannelResponse' smart constructor. data GetAPNSChannelResponse = GetAPNSChannelResponse'-    { _gacrsResponseStatus      :: !Int-    , _gacrsAPNSChannelResponse :: !APNSChannelResponse-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gacrsResponseStatus      :: !Int+  , _gacrsAPNSChannelResponse :: !APNSChannelResponse+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetAPNSChannelResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -111,11 +112,12 @@     -> APNSChannelResponse -- ^ 'gacrsAPNSChannelResponse'     -> GetAPNSChannelResponse getAPNSChannelResponse pResponseStatus_ pAPNSChannelResponse_ =-    GetAPNSChannelResponse'-    { _gacrsResponseStatus = pResponseStatus_-    , _gacrsAPNSChannelResponse = pAPNSChannelResponse_-    }+  GetAPNSChannelResponse'+  { _gacrsResponseStatus = pResponseStatus_+  , _gacrsAPNSChannelResponse = pAPNSChannelResponse_+  } + -- | -- | The response status code. gacrsResponseStatus :: Lens' GetAPNSChannelResponse Int gacrsResponseStatus = lens _gacrsResponseStatus (\ s a -> s{_gacrsResponseStatus = a});@@ -124,4 +126,4 @@ gacrsAPNSChannelResponse :: Lens' GetAPNSChannelResponse APNSChannelResponse gacrsAPNSChannelResponse = lens _gacrsAPNSChannelResponse (\ s a -> s{_gacrsAPNSChannelResponse = a}); -instance NFData GetAPNSChannelResponse+instance NFData GetAPNSChannelResponse where

@@ -0,0 +1,130 @@+{-# 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 #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.Pinpoint.GetAPNSSandboxChannel+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Get an APNS sandbox channel+module Network.AWS.Pinpoint.GetAPNSSandboxChannel+    (+    -- * Creating a Request+      getAPNSSandboxChannel+    , GetAPNSSandboxChannel+    -- * Request Lenses+    , gascApplicationId++    -- * Destructuring the Response+    , getAPNSSandboxChannelResponse+    , GetAPNSSandboxChannelResponse+    -- * Response Lenses+    , gascrsResponseStatus+    , gascrsAPNSSandboxChannelResponse+    ) where++import Network.AWS.Lens+import Network.AWS.Pinpoint.Types+import Network.AWS.Pinpoint.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'getAPNSSandboxChannel' smart constructor.+newtype GetAPNSSandboxChannel = GetAPNSSandboxChannel'+  { _gascApplicationId :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetAPNSSandboxChannel' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gascApplicationId' - Undocumented member.+getAPNSSandboxChannel+    :: Text -- ^ 'gascApplicationId'+    -> GetAPNSSandboxChannel+getAPNSSandboxChannel pApplicationId_ =+  GetAPNSSandboxChannel' {_gascApplicationId = pApplicationId_}+++-- | Undocumented member.+gascApplicationId :: Lens' GetAPNSSandboxChannel Text+gascApplicationId = lens _gascApplicationId (\ s a -> s{_gascApplicationId = a});++instance AWSRequest GetAPNSSandboxChannel where+        type Rs GetAPNSSandboxChannel =+             GetAPNSSandboxChannelResponse+        request = get pinpoint+        response+          = receiveJSON+              (\ s h x ->+                 GetAPNSSandboxChannelResponse' <$>+                   (pure (fromEnum s)) <*> (eitherParseJSON x))++instance Hashable GetAPNSSandboxChannel where++instance NFData GetAPNSSandboxChannel where++instance ToHeaders GetAPNSSandboxChannel where+        toHeaders+          = const+              (mconcat+                 ["Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToPath GetAPNSSandboxChannel where+        toPath GetAPNSSandboxChannel'{..}+          = mconcat+              ["/v1/apps/", toBS _gascApplicationId,+               "/channels/apns_sandbox"]++instance ToQuery GetAPNSSandboxChannel where+        toQuery = const mempty++-- | /See:/ 'getAPNSSandboxChannelResponse' smart constructor.+data GetAPNSSandboxChannelResponse = GetAPNSSandboxChannelResponse'+  { _gascrsResponseStatus             :: !Int+  , _gascrsAPNSSandboxChannelResponse :: !APNSSandboxChannelResponse+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetAPNSSandboxChannelResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gascrsResponseStatus' - -- | The response status code.+--+-- * 'gascrsAPNSSandboxChannelResponse' - Undocumented member.+getAPNSSandboxChannelResponse+    :: Int -- ^ 'gascrsResponseStatus'+    -> APNSSandboxChannelResponse -- ^ 'gascrsAPNSSandboxChannelResponse'+    -> GetAPNSSandboxChannelResponse+getAPNSSandboxChannelResponse pResponseStatus_ pAPNSSandboxChannelResponse_ =+  GetAPNSSandboxChannelResponse'+  { _gascrsResponseStatus = pResponseStatus_+  , _gascrsAPNSSandboxChannelResponse = pAPNSSandboxChannelResponse_+  }+++-- | -- | The response status code.+gascrsResponseStatus :: Lens' GetAPNSSandboxChannelResponse Int+gascrsResponseStatus = lens _gascrsResponseStatus (\ s a -> s{_gascrsResponseStatus = a});++-- | Undocumented member.+gascrsAPNSSandboxChannelResponse :: Lens' GetAPNSSandboxChannelResponse APNSSandboxChannelResponse+gascrsAPNSSandboxChannelResponse = lens _gascrsAPNSSandboxChannelResponse (\ s a -> s{_gascrsAPNSSandboxChannelResponse = a});++instance NFData GetAPNSSandboxChannelResponse where

@@ -0,0 +1,130 @@+{-# 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 #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.Pinpoint.GetAPNSVoipChannel+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Get an APNS VoIP channel+module Network.AWS.Pinpoint.GetAPNSVoipChannel+    (+    -- * Creating a Request+      getAPNSVoipChannel+    , GetAPNSVoipChannel+    -- * Request Lenses+    , gavcApplicationId++    -- * Destructuring the Response+    , getAPNSVoipChannelResponse+    , GetAPNSVoipChannelResponse+    -- * Response Lenses+    , gavcrsResponseStatus+    , gavcrsAPNSVoipChannelResponse+    ) where++import Network.AWS.Lens+import Network.AWS.Pinpoint.Types+import Network.AWS.Pinpoint.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'getAPNSVoipChannel' smart constructor.+newtype GetAPNSVoipChannel = GetAPNSVoipChannel'+  { _gavcApplicationId :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetAPNSVoipChannel' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gavcApplicationId' - Undocumented member.+getAPNSVoipChannel+    :: Text -- ^ 'gavcApplicationId'+    -> GetAPNSVoipChannel+getAPNSVoipChannel pApplicationId_ =+  GetAPNSVoipChannel' {_gavcApplicationId = pApplicationId_}+++-- | Undocumented member.+gavcApplicationId :: Lens' GetAPNSVoipChannel Text+gavcApplicationId = lens _gavcApplicationId (\ s a -> s{_gavcApplicationId = a});++instance AWSRequest GetAPNSVoipChannel where+        type Rs GetAPNSVoipChannel =+             GetAPNSVoipChannelResponse+        request = get pinpoint+        response+          = receiveJSON+              (\ s h x ->+                 GetAPNSVoipChannelResponse' <$>+                   (pure (fromEnum s)) <*> (eitherParseJSON x))++instance Hashable GetAPNSVoipChannel where++instance NFData GetAPNSVoipChannel where++instance ToHeaders GetAPNSVoipChannel where+        toHeaders+          = const+              (mconcat+                 ["Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToPath GetAPNSVoipChannel where+        toPath GetAPNSVoipChannel'{..}+          = mconcat+              ["/v1/apps/", toBS _gavcApplicationId,+               "/channels/apns_voip"]++instance ToQuery GetAPNSVoipChannel where+        toQuery = const mempty++-- | /See:/ 'getAPNSVoipChannelResponse' smart constructor.+data GetAPNSVoipChannelResponse = GetAPNSVoipChannelResponse'+  { _gavcrsResponseStatus          :: !Int+  , _gavcrsAPNSVoipChannelResponse :: !APNSVoipChannelResponse+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetAPNSVoipChannelResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gavcrsResponseStatus' - -- | The response status code.+--+-- * 'gavcrsAPNSVoipChannelResponse' - Undocumented member.+getAPNSVoipChannelResponse+    :: Int -- ^ 'gavcrsResponseStatus'+    -> APNSVoipChannelResponse -- ^ 'gavcrsAPNSVoipChannelResponse'+    -> GetAPNSVoipChannelResponse+getAPNSVoipChannelResponse pResponseStatus_ pAPNSVoipChannelResponse_ =+  GetAPNSVoipChannelResponse'+  { _gavcrsResponseStatus = pResponseStatus_+  , _gavcrsAPNSVoipChannelResponse = pAPNSVoipChannelResponse_+  }+++-- | -- | The response status code.+gavcrsResponseStatus :: Lens' GetAPNSVoipChannelResponse Int+gavcrsResponseStatus = lens _gavcrsResponseStatus (\ s a -> s{_gavcrsResponseStatus = a});++-- | Undocumented member.+gavcrsAPNSVoipChannelResponse :: Lens' GetAPNSVoipChannelResponse APNSVoipChannelResponse+gavcrsAPNSVoipChannelResponse = lens _gavcrsAPNSVoipChannelResponse (\ s a -> s{_gavcrsAPNSVoipChannelResponse = a});++instance NFData GetAPNSVoipChannelResponse where

@@ -0,0 +1,131 @@+{-# 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 #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.Pinpoint.GetAPNSVoipSandboxChannel+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Get an APNS VoipSandbox channel+module Network.AWS.Pinpoint.GetAPNSVoipSandboxChannel+    (+    -- * Creating a Request+      getAPNSVoipSandboxChannel+    , GetAPNSVoipSandboxChannel+    -- * Request Lenses+    , gavscApplicationId++    -- * Destructuring the Response+    , getAPNSVoipSandboxChannelResponse+    , GetAPNSVoipSandboxChannelResponse+    -- * Response Lenses+    , gavscrsResponseStatus+    , gavscrsAPNSVoipSandboxChannelResponse+    ) where++import Network.AWS.Lens+import Network.AWS.Pinpoint.Types+import Network.AWS.Pinpoint.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'getAPNSVoipSandboxChannel' smart constructor.+newtype GetAPNSVoipSandboxChannel = GetAPNSVoipSandboxChannel'+  { _gavscApplicationId :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetAPNSVoipSandboxChannel' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gavscApplicationId' - Undocumented member.+getAPNSVoipSandboxChannel+    :: Text -- ^ 'gavscApplicationId'+    -> GetAPNSVoipSandboxChannel+getAPNSVoipSandboxChannel pApplicationId_ =+  GetAPNSVoipSandboxChannel' {_gavscApplicationId = pApplicationId_}+++-- | Undocumented member.+gavscApplicationId :: Lens' GetAPNSVoipSandboxChannel Text+gavscApplicationId = lens _gavscApplicationId (\ s a -> s{_gavscApplicationId = a});++instance AWSRequest GetAPNSVoipSandboxChannel where+        type Rs GetAPNSVoipSandboxChannel =+             GetAPNSVoipSandboxChannelResponse+        request = get pinpoint+        response+          = receiveJSON+              (\ s h x ->+                 GetAPNSVoipSandboxChannelResponse' <$>+                   (pure (fromEnum s)) <*> (eitherParseJSON x))++instance Hashable GetAPNSVoipSandboxChannel where++instance NFData GetAPNSVoipSandboxChannel where++instance ToHeaders GetAPNSVoipSandboxChannel where+        toHeaders+          = const+              (mconcat+                 ["Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToPath GetAPNSVoipSandboxChannel where+        toPath GetAPNSVoipSandboxChannel'{..}+          = mconcat+              ["/v1/apps/", toBS _gavscApplicationId,+               "/channels/apns_voip_sandbox"]++instance ToQuery GetAPNSVoipSandboxChannel where+        toQuery = const mempty++-- | /See:/ 'getAPNSVoipSandboxChannelResponse' smart constructor.+data GetAPNSVoipSandboxChannelResponse = GetAPNSVoipSandboxChannelResponse'+  { _gavscrsResponseStatus                 :: !Int+  , _gavscrsAPNSVoipSandboxChannelResponse :: !APNSVoipSandboxChannelResponse+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetAPNSVoipSandboxChannelResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gavscrsResponseStatus' - -- | The response status code.+--+-- * 'gavscrsAPNSVoipSandboxChannelResponse' - Undocumented member.+getAPNSVoipSandboxChannelResponse+    :: Int -- ^ 'gavscrsResponseStatus'+    -> APNSVoipSandboxChannelResponse -- ^ 'gavscrsAPNSVoipSandboxChannelResponse'+    -> GetAPNSVoipSandboxChannelResponse+getAPNSVoipSandboxChannelResponse pResponseStatus_ pAPNSVoipSandboxChannelResponse_ =+  GetAPNSVoipSandboxChannelResponse'+  { _gavscrsResponseStatus = pResponseStatus_+  , _gavscrsAPNSVoipSandboxChannelResponse = pAPNSVoipSandboxChannelResponse_+  }+++-- | -- | The response status code.+gavscrsResponseStatus :: Lens' GetAPNSVoipSandboxChannelResponse Int+gavscrsResponseStatus = lens _gavscrsResponseStatus (\ s a -> s{_gavscrsResponseStatus = a});++-- | Undocumented member.+gavscrsAPNSVoipSandboxChannelResponse :: Lens' GetAPNSVoipSandboxChannelResponse APNSVoipSandboxChannelResponse+gavscrsAPNSVoipSandboxChannelResponse = lens _gavscrsAPNSVoipSandboxChannelResponse (\ s a -> s{_gavscrsAPNSVoipSandboxChannelResponse = a});++instance NFData GetAPNSVoipSandboxChannelResponse+         where

@@ -0,0 +1,126 @@+{-# 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 #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.Pinpoint.GetApp+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns information about an app.+module Network.AWS.Pinpoint.GetApp+    (+    -- * Creating a Request+      getApp+    , GetApp+    -- * Request Lenses+    , gaApplicationId++    -- * Destructuring the Response+    , getAppResponse+    , GetAppResponse+    -- * Response Lenses+    , garsResponseStatus+    , garsApplicationResponse+    ) where++import Network.AWS.Lens+import Network.AWS.Pinpoint.Types+import Network.AWS.Pinpoint.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'getApp' smart constructor.+newtype GetApp = GetApp'+  { _gaApplicationId :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetApp' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gaApplicationId' - Undocumented member.+getApp+    :: Text -- ^ 'gaApplicationId'+    -> GetApp+getApp pApplicationId_ = GetApp' {_gaApplicationId = pApplicationId_}+++-- | Undocumented member.+gaApplicationId :: Lens' GetApp Text+gaApplicationId = lens _gaApplicationId (\ s a -> s{_gaApplicationId = a});++instance AWSRequest GetApp where+        type Rs GetApp = GetAppResponse+        request = get pinpoint+        response+          = receiveJSON+              (\ s h x ->+                 GetAppResponse' <$>+                   (pure (fromEnum s)) <*> (eitherParseJSON x))++instance Hashable GetApp where++instance NFData GetApp where++instance ToHeaders GetApp where+        toHeaders+          = const+              (mconcat+                 ["Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToPath GetApp where+        toPath GetApp'{..}+          = mconcat ["/v1/apps/", toBS _gaApplicationId]++instance ToQuery GetApp where+        toQuery = const mempty++-- | /See:/ 'getAppResponse' smart constructor.+data GetAppResponse = GetAppResponse'+  { _garsResponseStatus      :: !Int+  , _garsApplicationResponse :: !ApplicationResponse+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetAppResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'garsResponseStatus' - -- | The response status code.+--+-- * 'garsApplicationResponse' - Undocumented member.+getAppResponse+    :: Int -- ^ 'garsResponseStatus'+    -> ApplicationResponse -- ^ 'garsApplicationResponse'+    -> GetAppResponse+getAppResponse pResponseStatus_ pApplicationResponse_ =+  GetAppResponse'+  { _garsResponseStatus = pResponseStatus_+  , _garsApplicationResponse = pApplicationResponse_+  }+++-- | -- | The response status code.+garsResponseStatus :: Lens' GetAppResponse Int+garsResponseStatus = lens _garsResponseStatus (\ s a -> s{_garsResponseStatus = a});++-- | Undocumented member.+garsApplicationResponse :: Lens' GetAppResponse ApplicationResponse+garsApplicationResponse = lens _garsApplicationResponse (\ s a -> s{_garsApplicationResponse = a});++instance NFData GetAppResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.Pinpoint.GetApplicationSettings--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -31,22 +31,23 @@     , getApplicationSettingsResponse     , GetApplicationSettingsResponse     -- * Response Lenses-    , gasrsResponseStatus-    , gasrsApplicationSettingsResource+    , gassrsResponseStatus+    , gassrsApplicationSettingsResource     ) where -import           Network.AWS.Lens-import           Network.AWS.Pinpoint.Types-import           Network.AWS.Pinpoint.Types.Product-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.Lens+import Network.AWS.Pinpoint.Types+import Network.AWS.Pinpoint.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'getApplicationSettings' smart constructor. newtype GetApplicationSettings = GetApplicationSettings'-    { _gasApplicationId :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gasApplicationId :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetApplicationSettings' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -56,10 +57,9 @@     :: Text -- ^ 'gasApplicationId'     -> GetApplicationSettings getApplicationSettings pApplicationId_ =-    GetApplicationSettings'-    { _gasApplicationId = pApplicationId_-    }+  GetApplicationSettings' {_gasApplicationId = pApplicationId_} + -- | Undocumented member. gasApplicationId :: Lens' GetApplicationSettings Text gasApplicationId = lens _gasApplicationId (\ s a -> s{_gasApplicationId = a});@@ -74,9 +74,9 @@                  GetApplicationSettingsResponse' <$>                    (pure (fromEnum s)) <*> (eitherParseJSON x)) -instance Hashable GetApplicationSettings+instance Hashable GetApplicationSettings where -instance NFData GetApplicationSettings+instance NFData GetApplicationSettings where  instance ToHeaders GetApplicationSettings where         toHeaders@@ -95,33 +95,35 @@  -- | /See:/ 'getApplicationSettingsResponse' smart constructor. data GetApplicationSettingsResponse = GetApplicationSettingsResponse'-    { _gasrsResponseStatus              :: !Int-    , _gasrsApplicationSettingsResource :: !ApplicationSettingsResource-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gassrsResponseStatus              :: !Int+  , _gassrsApplicationSettingsResource :: !ApplicationSettingsResource+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetApplicationSettingsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'gasrsResponseStatus' - -- | The response status code.+-- * 'gassrsResponseStatus' - -- | The response status code. ----- * 'gasrsApplicationSettingsResource' - Undocumented member.+-- * 'gassrsApplicationSettingsResource' - Undocumented member. getApplicationSettingsResponse-    :: Int -- ^ 'gasrsResponseStatus'-    -> ApplicationSettingsResource -- ^ 'gasrsApplicationSettingsResource'+    :: Int -- ^ 'gassrsResponseStatus'+    -> ApplicationSettingsResource -- ^ 'gassrsApplicationSettingsResource'     -> GetApplicationSettingsResponse getApplicationSettingsResponse pResponseStatus_ pApplicationSettingsResource_ =-    GetApplicationSettingsResponse'-    { _gasrsResponseStatus = pResponseStatus_-    , _gasrsApplicationSettingsResource = pApplicationSettingsResource_-    }+  GetApplicationSettingsResponse'+  { _gassrsResponseStatus = pResponseStatus_+  , _gassrsApplicationSettingsResource = pApplicationSettingsResource_+  } + -- | -- | The response status code.-gasrsResponseStatus :: Lens' GetApplicationSettingsResponse Int-gasrsResponseStatus = lens _gasrsResponseStatus (\ s a -> s{_gasrsResponseStatus = a});+gassrsResponseStatus :: Lens' GetApplicationSettingsResponse Int+gassrsResponseStatus = lens _gassrsResponseStatus (\ s a -> s{_gassrsResponseStatus = a});  -- | Undocumented member.-gasrsApplicationSettingsResource :: Lens' GetApplicationSettingsResponse ApplicationSettingsResource-gasrsApplicationSettingsResource = lens _gasrsApplicationSettingsResource (\ s a -> s{_gasrsApplicationSettingsResource = a});+gassrsApplicationSettingsResource :: Lens' GetApplicationSettingsResponse ApplicationSettingsResource+gassrsApplicationSettingsResource = lens _gassrsApplicationSettingsResource (\ s a -> s{_gassrsApplicationSettingsResource = a}); -instance NFData GetApplicationSettingsResponse+instance NFData GetApplicationSettingsResponse where

@@ -0,0 +1,134 @@+{-# 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 #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.Pinpoint.GetApps+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns information about your apps.+module Network.AWS.Pinpoint.GetApps+    (+    -- * Creating a Request+      getApps+    , GetApps+    -- * Request Lenses+    , gaToken+    , gaPageSize++    -- * Destructuring the Response+    , getAppsResponse+    , GetAppsResponse+    -- * Response Lenses+    , gasrsResponseStatus+    , gasrsApplicationsResponse+    ) where++import Network.AWS.Lens+import Network.AWS.Pinpoint.Types+import Network.AWS.Pinpoint.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'getApps' smart constructor.+data GetApps = GetApps'+  { _gaToken    :: !(Maybe Text)+  , _gaPageSize :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetApps' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gaToken' - Undocumented member.+--+-- * 'gaPageSize' - Undocumented member.+getApps+    :: GetApps+getApps = GetApps' {_gaToken = Nothing, _gaPageSize = Nothing}+++-- | Undocumented member.+gaToken :: Lens' GetApps (Maybe Text)+gaToken = lens _gaToken (\ s a -> s{_gaToken = a});++-- | Undocumented member.+gaPageSize :: Lens' GetApps (Maybe Text)+gaPageSize = lens _gaPageSize (\ s a -> s{_gaPageSize = a});++instance AWSRequest GetApps where+        type Rs GetApps = GetAppsResponse+        request = get pinpoint+        response+          = receiveJSON+              (\ s h x ->+                 GetAppsResponse' <$>+                   (pure (fromEnum s)) <*> (eitherParseJSON x))++instance Hashable GetApps where++instance NFData GetApps where++instance ToHeaders GetApps where+        toHeaders+          = const+              (mconcat+                 ["Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToPath GetApps where+        toPath = const "/v1/apps"++instance ToQuery GetApps where+        toQuery GetApps'{..}+          = mconcat+              ["token" =: _gaToken, "page-size" =: _gaPageSize]++-- | /See:/ 'getAppsResponse' smart constructor.+data GetAppsResponse = GetAppsResponse'+  { _gasrsResponseStatus       :: !Int+  , _gasrsApplicationsResponse :: !ApplicationsResponse+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetAppsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gasrsResponseStatus' - -- | The response status code.+--+-- * 'gasrsApplicationsResponse' - Undocumented member.+getAppsResponse+    :: Int -- ^ 'gasrsResponseStatus'+    -> ApplicationsResponse -- ^ 'gasrsApplicationsResponse'+    -> GetAppsResponse+getAppsResponse pResponseStatus_ pApplicationsResponse_ =+  GetAppsResponse'+  { _gasrsResponseStatus = pResponseStatus_+  , _gasrsApplicationsResponse = pApplicationsResponse_+  }+++-- | -- | The response status code.+gasrsResponseStatus :: Lens' GetAppsResponse Int+gasrsResponseStatus = lens _gasrsResponseStatus (\ s a -> s{_gasrsResponseStatus = a});++-- | Undocumented member.+gasrsApplicationsResponse :: Lens' GetAppsResponse ApplicationsResponse+gasrsApplicationsResponse = lens _gasrsApplicationsResponse (\ s a -> s{_gasrsApplicationsResponse = a});++instance NFData GetAppsResponse where

@@ -0,0 +1,129 @@+{-# 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 #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.Pinpoint.GetBaiduChannel+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Get a BAIDU GCM channel+module Network.AWS.Pinpoint.GetBaiduChannel+    (+    -- * Creating a Request+      getBaiduChannel+    , GetBaiduChannel+    -- * Request Lenses+    , gbcApplicationId++    -- * Destructuring the Response+    , getBaiduChannelResponse+    , GetBaiduChannelResponse+    -- * Response Lenses+    , gbcrsResponseStatus+    , gbcrsBaiduChannelResponse+    ) where++import Network.AWS.Lens+import Network.AWS.Pinpoint.Types+import Network.AWS.Pinpoint.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'getBaiduChannel' smart constructor.+newtype GetBaiduChannel = GetBaiduChannel'+  { _gbcApplicationId :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetBaiduChannel' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gbcApplicationId' - Undocumented member.+getBaiduChannel+    :: Text -- ^ 'gbcApplicationId'+    -> GetBaiduChannel+getBaiduChannel pApplicationId_ =+  GetBaiduChannel' {_gbcApplicationId = pApplicationId_}+++-- | Undocumented member.+gbcApplicationId :: Lens' GetBaiduChannel Text+gbcApplicationId = lens _gbcApplicationId (\ s a -> s{_gbcApplicationId = a});++instance AWSRequest GetBaiduChannel where+        type Rs GetBaiduChannel = GetBaiduChannelResponse+        request = get pinpoint+        response+          = receiveJSON+              (\ s h x ->+                 GetBaiduChannelResponse' <$>+                   (pure (fromEnum s)) <*> (eitherParseJSON x))++instance Hashable GetBaiduChannel where++instance NFData GetBaiduChannel where++instance ToHeaders GetBaiduChannel where+        toHeaders+          = const+              (mconcat+                 ["Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToPath GetBaiduChannel where+        toPath GetBaiduChannel'{..}+          = mconcat+              ["/v1/apps/", toBS _gbcApplicationId,+               "/channels/baidu"]++instance ToQuery GetBaiduChannel where+        toQuery = const mempty++-- | /See:/ 'getBaiduChannelResponse' smart constructor.+data GetBaiduChannelResponse = GetBaiduChannelResponse'+  { _gbcrsResponseStatus       :: !Int+  , _gbcrsBaiduChannelResponse :: !BaiduChannelResponse+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetBaiduChannelResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gbcrsResponseStatus' - -- | The response status code.+--+-- * 'gbcrsBaiduChannelResponse' - Undocumented member.+getBaiduChannelResponse+    :: Int -- ^ 'gbcrsResponseStatus'+    -> BaiduChannelResponse -- ^ 'gbcrsBaiduChannelResponse'+    -> GetBaiduChannelResponse+getBaiduChannelResponse pResponseStatus_ pBaiduChannelResponse_ =+  GetBaiduChannelResponse'+  { _gbcrsResponseStatus = pResponseStatus_+  , _gbcrsBaiduChannelResponse = pBaiduChannelResponse_+  }+++-- | -- | The response status code.+gbcrsResponseStatus :: Lens' GetBaiduChannelResponse Int+gbcrsResponseStatus = lens _gbcrsResponseStatus (\ s a -> s{_gbcrsResponseStatus = a});++-- | Undocumented member.+gbcrsBaiduChannelResponse :: Lens' GetBaiduChannelResponse BaiduChannelResponse+gbcrsBaiduChannelResponse = lens _gbcrsBaiduChannelResponse (\ s a -> s{_gbcrsBaiduChannelResponse = a});++instance NFData GetBaiduChannelResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.Pinpoint.GetCampaign--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -36,19 +36,20 @@     , gcrsCampaignResponse     ) where -import           Network.AWS.Lens-import           Network.AWS.Pinpoint.Types-import           Network.AWS.Pinpoint.Types.Product-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.Lens+import Network.AWS.Pinpoint.Types+import Network.AWS.Pinpoint.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'getCampaign' smart constructor. data GetCampaign = GetCampaign'-    { _getCampaignId    :: !Text-    , _getApplicationId :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _getCampaignId    :: !Text+  , _getApplicationId :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetCampaign' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -61,11 +62,10 @@     -> Text -- ^ 'getApplicationId'     -> GetCampaign getCampaign pCampaignId_ pApplicationId_ =-    GetCampaign'-    { _getCampaignId = pCampaignId_-    , _getApplicationId = pApplicationId_-    }+  GetCampaign'+  {_getCampaignId = pCampaignId_, _getApplicationId = pApplicationId_} + -- | Undocumented member. getCampaignId :: Lens' GetCampaign Text getCampaignId = lens _getCampaignId (\ s a -> s{_getCampaignId = a});@@ -83,9 +83,9 @@                  GetCampaignResponse' <$>                    (pure (fromEnum s)) <*> (eitherParseJSON x)) -instance Hashable GetCampaign+instance Hashable GetCampaign where -instance NFData GetCampaign+instance NFData GetCampaign where  instance ToHeaders GetCampaign where         toHeaders@@ -105,10 +105,11 @@  -- | /See:/ 'getCampaignResponse' smart constructor. data GetCampaignResponse = GetCampaignResponse'-    { _gcrsResponseStatus   :: !Int-    , _gcrsCampaignResponse :: !CampaignResponse-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gcrsResponseStatus   :: !Int+  , _gcrsCampaignResponse :: !CampaignResponse+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetCampaignResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -121,11 +122,12 @@     -> CampaignResponse -- ^ 'gcrsCampaignResponse'     -> GetCampaignResponse getCampaignResponse pResponseStatus_ pCampaignResponse_ =-    GetCampaignResponse'-    { _gcrsResponseStatus = pResponseStatus_-    , _gcrsCampaignResponse = pCampaignResponse_-    }+  GetCampaignResponse'+  { _gcrsResponseStatus = pResponseStatus_+  , _gcrsCampaignResponse = pCampaignResponse_+  } + -- | -- | The response status code. gcrsResponseStatus :: Lens' GetCampaignResponse Int gcrsResponseStatus = lens _gcrsResponseStatus (\ s a -> s{_gcrsResponseStatus = a});@@ -134,4 +136,4 @@ gcrsCampaignResponse :: Lens' GetCampaignResponse CampaignResponse gcrsCampaignResponse = lens _gcrsCampaignResponse (\ s a -> s{_gcrsCampaignResponse = a}); -instance NFData GetCampaignResponse+instance NFData GetCampaignResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.Pinpoint.GetCampaignActivities--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -38,28 +38,29 @@     , gcarsActivitiesResponse     ) where -import           Network.AWS.Lens-import           Network.AWS.Pinpoint.Types-import           Network.AWS.Pinpoint.Types.Product-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.Lens+import Network.AWS.Pinpoint.Types+import Network.AWS.Pinpoint.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'getCampaignActivities' smart constructor. data GetCampaignActivities = GetCampaignActivities'-    { _gcaToken         :: !(Maybe Text)-    , _gcaPageSize      :: !(Maybe Text)-    , _gcaApplicationId :: !Text-    , _gcaCampaignId    :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gcaToken         :: !(Maybe Text)+  , _gcaPageSize      :: !(Maybe Text)+  , _gcaApplicationId :: !Text+  , _gcaCampaignId    :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetCampaignActivities' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'gcaToken' - Undocumented member.+-- * 'gcaToken' - The NextToken string returned on a previous page that you use to get the next page of results in a paginated response. ----- * 'gcaPageSize' - Undocumented member.+-- * 'gcaPageSize' - The number of entries you want on each page in the response. -- -- * 'gcaApplicationId' - Undocumented member. --@@ -69,18 +70,19 @@     -> Text -- ^ 'gcaCampaignId'     -> GetCampaignActivities getCampaignActivities pApplicationId_ pCampaignId_ =-    GetCampaignActivities'-    { _gcaToken = Nothing-    , _gcaPageSize = Nothing-    , _gcaApplicationId = pApplicationId_-    , _gcaCampaignId = pCampaignId_-    }+  GetCampaignActivities'+  { _gcaToken = Nothing+  , _gcaPageSize = Nothing+  , _gcaApplicationId = pApplicationId_+  , _gcaCampaignId = pCampaignId_+  } --- | Undocumented member.++-- | The NextToken string returned on a previous page that you use to get the next page of results in a paginated response. gcaToken :: Lens' GetCampaignActivities (Maybe Text) gcaToken = lens _gcaToken (\ s a -> s{_gcaToken = a}); --- | Undocumented member.+-- | The number of entries you want on each page in the response. gcaPageSize :: Lens' GetCampaignActivities (Maybe Text) gcaPageSize = lens _gcaPageSize (\ s a -> s{_gcaPageSize = a}); @@ -102,9 +104,9 @@                  GetCampaignActivitiesResponse' <$>                    (pure (fromEnum s)) <*> (eitherParseJSON x)) -instance Hashable GetCampaignActivities+instance Hashable GetCampaignActivities where -instance NFData GetCampaignActivities+instance NFData GetCampaignActivities where  instance ToHeaders GetCampaignActivities where         toHeaders@@ -126,10 +128,11 @@  -- | /See:/ 'getCampaignActivitiesResponse' smart constructor. data GetCampaignActivitiesResponse = GetCampaignActivitiesResponse'-    { _gcarsResponseStatus     :: !Int-    , _gcarsActivitiesResponse :: !ActivitiesResponse-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gcarsResponseStatus     :: !Int+  , _gcarsActivitiesResponse :: !ActivitiesResponse+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetCampaignActivitiesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -142,11 +145,12 @@     -> ActivitiesResponse -- ^ 'gcarsActivitiesResponse'     -> GetCampaignActivitiesResponse getCampaignActivitiesResponse pResponseStatus_ pActivitiesResponse_ =-    GetCampaignActivitiesResponse'-    { _gcarsResponseStatus = pResponseStatus_-    , _gcarsActivitiesResponse = pActivitiesResponse_-    }+  GetCampaignActivitiesResponse'+  { _gcarsResponseStatus = pResponseStatus_+  , _gcarsActivitiesResponse = pActivitiesResponse_+  } + -- | -- | The response status code. gcarsResponseStatus :: Lens' GetCampaignActivitiesResponse Int gcarsResponseStatus = lens _gcarsResponseStatus (\ s a -> s{_gcarsResponseStatus = a});@@ -155,4 +159,4 @@ gcarsActivitiesResponse :: Lens' GetCampaignActivitiesResponse ActivitiesResponse gcarsActivitiesResponse = lens _gcarsActivitiesResponse (\ s a -> s{_gcarsActivitiesResponse = a}); -instance NFData GetCampaignActivitiesResponse+instance NFData GetCampaignActivitiesResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.Pinpoint.GetCampaignVersion--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Returns information about your campaign versions.+-- Returns information about a specific version of a campaign. module Network.AWS.Pinpoint.GetCampaignVersion     (     -- * Creating a Request@@ -37,20 +37,21 @@     , gcvcrsCampaignResponse     ) where -import           Network.AWS.Lens-import           Network.AWS.Pinpoint.Types-import           Network.AWS.Pinpoint.Types.Product-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.Lens+import Network.AWS.Pinpoint.Types+import Network.AWS.Pinpoint.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'getCampaignVersion' smart constructor. data GetCampaignVersion = GetCampaignVersion'-    { _gcvcVersion       :: !Text-    , _gcvcApplicationId :: !Text-    , _gcvcCampaignId    :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gcvcVersion       :: !Text+  , _gcvcApplicationId :: !Text+  , _gcvcCampaignId    :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetCampaignVersion' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -66,12 +67,13 @@     -> Text -- ^ 'gcvcCampaignId'     -> GetCampaignVersion getCampaignVersion pVersion_ pApplicationId_ pCampaignId_ =-    GetCampaignVersion'-    { _gcvcVersion = pVersion_-    , _gcvcApplicationId = pApplicationId_-    , _gcvcCampaignId = pCampaignId_-    }+  GetCampaignVersion'+  { _gcvcVersion = pVersion_+  , _gcvcApplicationId = pApplicationId_+  , _gcvcCampaignId = pCampaignId_+  } + -- | Undocumented member. gcvcVersion :: Lens' GetCampaignVersion Text gcvcVersion = lens _gcvcVersion (\ s a -> s{_gcvcVersion = a});@@ -94,9 +96,9 @@                  GetCampaignVersionResponse' <$>                    (pure (fromEnum s)) <*> (eitherParseJSON x)) -instance Hashable GetCampaignVersion+instance Hashable GetCampaignVersion where -instance NFData GetCampaignVersion+instance NFData GetCampaignVersion where  instance ToHeaders GetCampaignVersion where         toHeaders@@ -117,10 +119,11 @@  -- | /See:/ 'getCampaignVersionResponse' smart constructor. data GetCampaignVersionResponse = GetCampaignVersionResponse'-    { _gcvcrsResponseStatus   :: !Int-    , _gcvcrsCampaignResponse :: !CampaignResponse-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gcvcrsResponseStatus   :: !Int+  , _gcvcrsCampaignResponse :: !CampaignResponse+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetCampaignVersionResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -133,11 +136,12 @@     -> CampaignResponse -- ^ 'gcvcrsCampaignResponse'     -> GetCampaignVersionResponse getCampaignVersionResponse pResponseStatus_ pCampaignResponse_ =-    GetCampaignVersionResponse'-    { _gcvcrsResponseStatus = pResponseStatus_-    , _gcvcrsCampaignResponse = pCampaignResponse_-    }+  GetCampaignVersionResponse'+  { _gcvcrsResponseStatus = pResponseStatus_+  , _gcvcrsCampaignResponse = pCampaignResponse_+  } + -- | -- | The response status code. gcvcrsResponseStatus :: Lens' GetCampaignVersionResponse Int gcvcrsResponseStatus = lens _gcvcrsResponseStatus (\ s a -> s{_gcvcrsResponseStatus = a});@@ -146,4 +150,4 @@ gcvcrsCampaignResponse :: Lens' GetCampaignVersionResponse CampaignResponse gcvcrsCampaignResponse = lens _gcvcrsCampaignResponse (\ s a -> s{_gcvcrsCampaignResponse = a}); -instance NFData GetCampaignVersionResponse+instance NFData GetCampaignVersionResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.Pinpoint.GetCampaignVersions--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -38,28 +38,29 @@     , gcvrsCampaignsResponse     ) where -import           Network.AWS.Lens-import           Network.AWS.Pinpoint.Types-import           Network.AWS.Pinpoint.Types.Product-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.Lens+import Network.AWS.Pinpoint.Types+import Network.AWS.Pinpoint.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'getCampaignVersions' smart constructor. data GetCampaignVersions = GetCampaignVersions'-    { _gcvToken         :: !(Maybe Text)-    , _gcvPageSize      :: !(Maybe Text)-    , _gcvApplicationId :: !Text-    , _gcvCampaignId    :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gcvToken         :: !(Maybe Text)+  , _gcvPageSize      :: !(Maybe Text)+  , _gcvApplicationId :: !Text+  , _gcvCampaignId    :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetCampaignVersions' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'gcvToken' - Undocumented member.+-- * 'gcvToken' - The NextToken string returned on a previous page that you use to get the next page of results in a paginated response. ----- * 'gcvPageSize' - Undocumented member.+-- * 'gcvPageSize' - The number of entries you want on each page in the response. -- -- * 'gcvApplicationId' - Undocumented member. --@@ -69,18 +70,19 @@     -> Text -- ^ 'gcvCampaignId'     -> GetCampaignVersions getCampaignVersions pApplicationId_ pCampaignId_ =-    GetCampaignVersions'-    { _gcvToken = Nothing-    , _gcvPageSize = Nothing-    , _gcvApplicationId = pApplicationId_-    , _gcvCampaignId = pCampaignId_-    }+  GetCampaignVersions'+  { _gcvToken = Nothing+  , _gcvPageSize = Nothing+  , _gcvApplicationId = pApplicationId_+  , _gcvCampaignId = pCampaignId_+  } --- | Undocumented member.++-- | The NextToken string returned on a previous page that you use to get the next page of results in a paginated response. gcvToken :: Lens' GetCampaignVersions (Maybe Text) gcvToken = lens _gcvToken (\ s a -> s{_gcvToken = a}); --- | Undocumented member.+-- | The number of entries you want on each page in the response. gcvPageSize :: Lens' GetCampaignVersions (Maybe Text) gcvPageSize = lens _gcvPageSize (\ s a -> s{_gcvPageSize = a}); @@ -102,9 +104,9 @@                  GetCampaignVersionsResponse' <$>                    (pure (fromEnum s)) <*> (eitherParseJSON x)) -instance Hashable GetCampaignVersions+instance Hashable GetCampaignVersions where -instance NFData GetCampaignVersions+instance NFData GetCampaignVersions where  instance ToHeaders GetCampaignVersions where         toHeaders@@ -126,10 +128,11 @@  -- | /See:/ 'getCampaignVersionsResponse' smart constructor. data GetCampaignVersionsResponse = GetCampaignVersionsResponse'-    { _gcvrsResponseStatus    :: !Int-    , _gcvrsCampaignsResponse :: !CampaignsResponse-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gcvrsResponseStatus    :: !Int+  , _gcvrsCampaignsResponse :: !CampaignsResponse+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetCampaignVersionsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -142,11 +145,12 @@     -> CampaignsResponse -- ^ 'gcvrsCampaignsResponse'     -> GetCampaignVersionsResponse getCampaignVersionsResponse pResponseStatus_ pCampaignsResponse_ =-    GetCampaignVersionsResponse'-    { _gcvrsResponseStatus = pResponseStatus_-    , _gcvrsCampaignsResponse = pCampaignsResponse_-    }+  GetCampaignVersionsResponse'+  { _gcvrsResponseStatus = pResponseStatus_+  , _gcvrsCampaignsResponse = pCampaignsResponse_+  } + -- | -- | The response status code. gcvrsResponseStatus :: Lens' GetCampaignVersionsResponse Int gcvrsResponseStatus = lens _gcvrsResponseStatus (\ s a -> s{_gcvrsResponseStatus = a});@@ -155,4 +159,4 @@ gcvrsCampaignsResponse :: Lens' GetCampaignVersionsResponse CampaignsResponse gcvrsCampaignsResponse = lens _gcvrsCampaignsResponse (\ s a -> s{_gcvrsCampaignsResponse = a}); -instance NFData GetCampaignVersionsResponse+instance NFData GetCampaignVersionsResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.Pinpoint.GetCampaigns--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -37,44 +37,46 @@     , gcsrsCampaignsResponse     ) where -import           Network.AWS.Lens-import           Network.AWS.Pinpoint.Types-import           Network.AWS.Pinpoint.Types.Product-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.Lens+import Network.AWS.Pinpoint.Types+import Network.AWS.Pinpoint.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'getCampaigns' smart constructor. data GetCampaigns = GetCampaigns'-    { _gcsToken         :: !(Maybe Text)-    , _gcsPageSize      :: !(Maybe Text)-    , _gcsApplicationId :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gcsToken         :: !(Maybe Text)+  , _gcsPageSize      :: !(Maybe Text)+  , _gcsApplicationId :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetCampaigns' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'gcsToken' - Undocumented member.+-- * 'gcsToken' - The NextToken string returned on a previous page that you use to get the next page of results in a paginated response. ----- * 'gcsPageSize' - Undocumented member.+-- * 'gcsPageSize' - The number of entries you want on each page in the response. -- -- * 'gcsApplicationId' - Undocumented member. getCampaigns     :: Text -- ^ 'gcsApplicationId'     -> GetCampaigns getCampaigns pApplicationId_ =-    GetCampaigns'-    { _gcsToken = Nothing-    , _gcsPageSize = Nothing-    , _gcsApplicationId = pApplicationId_-    }+  GetCampaigns'+  { _gcsToken = Nothing+  , _gcsPageSize = Nothing+  , _gcsApplicationId = pApplicationId_+  } --- | Undocumented member.++-- | The NextToken string returned on a previous page that you use to get the next page of results in a paginated response. gcsToken :: Lens' GetCampaigns (Maybe Text) gcsToken = lens _gcsToken (\ s a -> s{_gcsToken = a}); --- | Undocumented member.+-- | The number of entries you want on each page in the response. gcsPageSize :: Lens' GetCampaigns (Maybe Text) gcsPageSize = lens _gcsPageSize (\ s a -> s{_gcsPageSize = a}); @@ -91,9 +93,9 @@                  GetCampaignsResponse' <$>                    (pure (fromEnum s)) <*> (eitherParseJSON x)) -instance Hashable GetCampaigns+instance Hashable GetCampaigns where -instance NFData GetCampaigns+instance NFData GetCampaigns where  instance ToHeaders GetCampaigns where         toHeaders@@ -114,10 +116,11 @@  -- | /See:/ 'getCampaignsResponse' smart constructor. data GetCampaignsResponse = GetCampaignsResponse'-    { _gcsrsResponseStatus    :: !Int-    , _gcsrsCampaignsResponse :: !CampaignsResponse-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gcsrsResponseStatus    :: !Int+  , _gcsrsCampaignsResponse :: !CampaignsResponse+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetCampaignsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -130,11 +133,12 @@     -> CampaignsResponse -- ^ 'gcsrsCampaignsResponse'     -> GetCampaignsResponse getCampaignsResponse pResponseStatus_ pCampaignsResponse_ =-    GetCampaignsResponse'-    { _gcsrsResponseStatus = pResponseStatus_-    , _gcsrsCampaignsResponse = pCampaignsResponse_-    }+  GetCampaignsResponse'+  { _gcsrsResponseStatus = pResponseStatus_+  , _gcsrsCampaignsResponse = pCampaignsResponse_+  } + -- | -- | The response status code. gcsrsResponseStatus :: Lens' GetCampaignsResponse Int gcsrsResponseStatus = lens _gcsrsResponseStatus (\ s a -> s{_gcsrsResponseStatus = a});@@ -143,4 +147,4 @@ gcsrsCampaignsResponse :: Lens' GetCampaignsResponse CampaignsResponse gcsrsCampaignsResponse = lens _gcsrsCampaignsResponse (\ s a -> s{_gcsrsCampaignsResponse = a}); -instance NFData GetCampaignsResponse+instance NFData GetCampaignsResponse where

@@ -0,0 +1,129 @@+{-# 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 #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.Pinpoint.GetEmailChannel+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Get an email channel+module Network.AWS.Pinpoint.GetEmailChannel+    (+    -- * Creating a Request+      getEmailChannel+    , GetEmailChannel+    -- * Request Lenses+    , gecApplicationId++    -- * Destructuring the Response+    , getEmailChannelResponse+    , GetEmailChannelResponse+    -- * Response Lenses+    , gecrsResponseStatus+    , gecrsEmailChannelResponse+    ) where++import Network.AWS.Lens+import Network.AWS.Pinpoint.Types+import Network.AWS.Pinpoint.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'getEmailChannel' smart constructor.+newtype GetEmailChannel = GetEmailChannel'+  { _gecApplicationId :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetEmailChannel' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gecApplicationId' - Undocumented member.+getEmailChannel+    :: Text -- ^ 'gecApplicationId'+    -> GetEmailChannel+getEmailChannel pApplicationId_ =+  GetEmailChannel' {_gecApplicationId = pApplicationId_}+++-- | Undocumented member.+gecApplicationId :: Lens' GetEmailChannel Text+gecApplicationId = lens _gecApplicationId (\ s a -> s{_gecApplicationId = a});++instance AWSRequest GetEmailChannel where+        type Rs GetEmailChannel = GetEmailChannelResponse+        request = get pinpoint+        response+          = receiveJSON+              (\ s h x ->+                 GetEmailChannelResponse' <$>+                   (pure (fromEnum s)) <*> (eitherParseJSON x))++instance Hashable GetEmailChannel where++instance NFData GetEmailChannel where++instance ToHeaders GetEmailChannel where+        toHeaders+          = const+              (mconcat+                 ["Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToPath GetEmailChannel where+        toPath GetEmailChannel'{..}+          = mconcat+              ["/v1/apps/", toBS _gecApplicationId,+               "/channels/email"]++instance ToQuery GetEmailChannel where+        toQuery = const mempty++-- | /See:/ 'getEmailChannelResponse' smart constructor.+data GetEmailChannelResponse = GetEmailChannelResponse'+  { _gecrsResponseStatus       :: !Int+  , _gecrsEmailChannelResponse :: !EmailChannelResponse+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetEmailChannelResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gecrsResponseStatus' - -- | The response status code.+--+-- * 'gecrsEmailChannelResponse' - Undocumented member.+getEmailChannelResponse+    :: Int -- ^ 'gecrsResponseStatus'+    -> EmailChannelResponse -- ^ 'gecrsEmailChannelResponse'+    -> GetEmailChannelResponse+getEmailChannelResponse pResponseStatus_ pEmailChannelResponse_ =+  GetEmailChannelResponse'+  { _gecrsResponseStatus = pResponseStatus_+  , _gecrsEmailChannelResponse = pEmailChannelResponse_+  }+++-- | -- | The response status code.+gecrsResponseStatus :: Lens' GetEmailChannelResponse Int+gecrsResponseStatus = lens _gecrsResponseStatus (\ s a -> s{_gecrsResponseStatus = a});++-- | Undocumented member.+gecrsEmailChannelResponse :: Lens' GetEmailChannelResponse EmailChannelResponse+gecrsEmailChannelResponse = lens _gecrsEmailChannelResponse (\ s a -> s{_gecrsEmailChannelResponse = a});++instance NFData GetEmailChannelResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.Pinpoint.GetEndpoint--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -36,19 +36,20 @@     , gersEndpointResponse     ) where -import           Network.AWS.Lens-import           Network.AWS.Pinpoint.Types-import           Network.AWS.Pinpoint.Types.Product-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.Lens+import Network.AWS.Pinpoint.Types+import Network.AWS.Pinpoint.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'getEndpoint' smart constructor. data GetEndpoint = GetEndpoint'-    { _geApplicationId :: !Text-    , _geEndpointId    :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _geApplicationId :: !Text+  , _geEndpointId    :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetEndpoint' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -61,11 +62,10 @@     -> Text -- ^ 'geEndpointId'     -> GetEndpoint getEndpoint pApplicationId_ pEndpointId_ =-    GetEndpoint'-    { _geApplicationId = pApplicationId_-    , _geEndpointId = pEndpointId_-    }+  GetEndpoint'+  {_geApplicationId = pApplicationId_, _geEndpointId = pEndpointId_} + -- | Undocumented member. geApplicationId :: Lens' GetEndpoint Text geApplicationId = lens _geApplicationId (\ s a -> s{_geApplicationId = a});@@ -83,9 +83,9 @@                  GetEndpointResponse' <$>                    (pure (fromEnum s)) <*> (eitherParseJSON x)) -instance Hashable GetEndpoint+instance Hashable GetEndpoint where -instance NFData GetEndpoint+instance NFData GetEndpoint where  instance ToHeaders GetEndpoint where         toHeaders@@ -105,10 +105,11 @@  -- | /See:/ 'getEndpointResponse' smart constructor. data GetEndpointResponse = GetEndpointResponse'-    { _gersResponseStatus   :: !Int-    , _gersEndpointResponse :: !EndpointResponse-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gersResponseStatus   :: !Int+  , _gersEndpointResponse :: !EndpointResponse+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetEndpointResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -121,11 +122,12 @@     -> EndpointResponse -- ^ 'gersEndpointResponse'     -> GetEndpointResponse getEndpointResponse pResponseStatus_ pEndpointResponse_ =-    GetEndpointResponse'-    { _gersResponseStatus = pResponseStatus_-    , _gersEndpointResponse = pEndpointResponse_-    }+  GetEndpointResponse'+  { _gersResponseStatus = pResponseStatus_+  , _gersEndpointResponse = pEndpointResponse_+  } + -- | -- | The response status code. gersResponseStatus :: Lens' GetEndpointResponse Int gersResponseStatus = lens _gersResponseStatus (\ s a -> s{_gersResponseStatus = a});@@ -134,4 +136,4 @@ gersEndpointResponse :: Lens' GetEndpointResponse EndpointResponse gersEndpointResponse = lens _gersEndpointResponse (\ s a -> s{_gersEndpointResponse = a}); -instance NFData GetEndpointResponse+instance NFData GetEndpointResponse where

@@ -0,0 +1,128 @@+{-# 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 #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.Pinpoint.GetEventStream+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns the event stream for an app.+module Network.AWS.Pinpoint.GetEventStream+    (+    -- * Creating a Request+      getEventStream+    , GetEventStream+    -- * Request Lenses+    , gesApplicationId++    -- * Destructuring the Response+    , getEventStreamResponse+    , GetEventStreamResponse+    -- * Response Lenses+    , gesrsResponseStatus+    , gesrsEventStream+    ) where++import Network.AWS.Lens+import Network.AWS.Pinpoint.Types+import Network.AWS.Pinpoint.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | GetEventStreamRequest+--+-- /See:/ 'getEventStream' smart constructor.+newtype GetEventStream = GetEventStream'+  { _gesApplicationId :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetEventStream' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gesApplicationId' - ApplicationId+getEventStream+    :: Text -- ^ 'gesApplicationId'+    -> GetEventStream+getEventStream pApplicationId_ =+  GetEventStream' {_gesApplicationId = pApplicationId_}+++-- | ApplicationId+gesApplicationId :: Lens' GetEventStream Text+gesApplicationId = lens _gesApplicationId (\ s a -> s{_gesApplicationId = a});++instance AWSRequest GetEventStream where+        type Rs GetEventStream = GetEventStreamResponse+        request = get pinpoint+        response+          = receiveJSON+              (\ s h x ->+                 GetEventStreamResponse' <$>+                   (pure (fromEnum s)) <*> (eitherParseJSON x))++instance Hashable GetEventStream where++instance NFData GetEventStream where++instance ToHeaders GetEventStream where+        toHeaders+          = const+              (mconcat+                 ["Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToPath GetEventStream where+        toPath GetEventStream'{..}+          = mconcat+              ["/v1/apps/", toBS _gesApplicationId, "/eventstream"]++instance ToQuery GetEventStream where+        toQuery = const mempty++-- | /See:/ 'getEventStreamResponse' smart constructor.+data GetEventStreamResponse = GetEventStreamResponse'+  { _gesrsResponseStatus :: !Int+  , _gesrsEventStream    :: !EventStream+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetEventStreamResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gesrsResponseStatus' - -- | The response status code.+--+-- * 'gesrsEventStream' - Undocumented member.+getEventStreamResponse+    :: Int -- ^ 'gesrsResponseStatus'+    -> EventStream -- ^ 'gesrsEventStream'+    -> GetEventStreamResponse+getEventStreamResponse pResponseStatus_ pEventStream_ =+  GetEventStreamResponse'+  {_gesrsResponseStatus = pResponseStatus_, _gesrsEventStream = pEventStream_}+++-- | -- | The response status code.+gesrsResponseStatus :: Lens' GetEventStreamResponse Int+gesrsResponseStatus = lens _gesrsResponseStatus (\ s a -> s{_gesrsResponseStatus = a});++-- | Undocumented member.+gesrsEventStream :: Lens' GetEventStreamResponse EventStream+gesrsEventStream = lens _gesrsEventStream (\ s a -> s{_gesrsEventStream = a});++instance NFData GetEventStreamResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.Pinpoint.GetGCMChannel--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -35,18 +35,19 @@     , ggcrsGCMChannelResponse     ) where -import           Network.AWS.Lens-import           Network.AWS.Pinpoint.Types-import           Network.AWS.Pinpoint.Types.Product-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.Lens+import Network.AWS.Pinpoint.Types+import Network.AWS.Pinpoint.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'getGCMChannel' smart constructor. newtype GetGCMChannel = GetGCMChannel'-    { _ggcApplicationId :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ggcApplicationId :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetGCMChannel' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -56,10 +57,9 @@     :: Text -- ^ 'ggcApplicationId'     -> GetGCMChannel getGCMChannel pApplicationId_ =-    GetGCMChannel'-    { _ggcApplicationId = pApplicationId_-    }+  GetGCMChannel' {_ggcApplicationId = pApplicationId_} + -- | Undocumented member. ggcApplicationId :: Lens' GetGCMChannel Text ggcApplicationId = lens _ggcApplicationId (\ s a -> s{_ggcApplicationId = a});@@ -73,9 +73,9 @@                  GetGCMChannelResponse' <$>                    (pure (fromEnum s)) <*> (eitherParseJSON x)) -instance Hashable GetGCMChannel+instance Hashable GetGCMChannel where -instance NFData GetGCMChannel+instance NFData GetGCMChannel where  instance ToHeaders GetGCMChannel where         toHeaders@@ -95,10 +95,11 @@  -- | /See:/ 'getGCMChannelResponse' smart constructor. data GetGCMChannelResponse = GetGCMChannelResponse'-    { _ggcrsResponseStatus     :: !Int-    , _ggcrsGCMChannelResponse :: !GCMChannelResponse-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ggcrsResponseStatus     :: !Int+  , _ggcrsGCMChannelResponse :: !GCMChannelResponse+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetGCMChannelResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -111,11 +112,12 @@     -> GCMChannelResponse -- ^ 'ggcrsGCMChannelResponse'     -> GetGCMChannelResponse getGCMChannelResponse pResponseStatus_ pGCMChannelResponse_ =-    GetGCMChannelResponse'-    { _ggcrsResponseStatus = pResponseStatus_-    , _ggcrsGCMChannelResponse = pGCMChannelResponse_-    }+  GetGCMChannelResponse'+  { _ggcrsResponseStatus = pResponseStatus_+  , _ggcrsGCMChannelResponse = pGCMChannelResponse_+  } + -- | -- | The response status code. ggcrsResponseStatus :: Lens' GetGCMChannelResponse Int ggcrsResponseStatus = lens _ggcrsResponseStatus (\ s a -> s{_ggcrsResponseStatus = a});@@ -124,4 +126,4 @@ ggcrsGCMChannelResponse :: Lens' GetGCMChannelResponse GCMChannelResponse ggcrsGCMChannelResponse = lens _ggcrsGCMChannelResponse (\ s a -> s{_ggcrsGCMChannelResponse = a}); -instance NFData GetGCMChannelResponse+instance NFData GetGCMChannelResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.Pinpoint.GetImportJob--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -36,19 +36,20 @@     , gijrsImportJobResponse     ) where -import           Network.AWS.Lens-import           Network.AWS.Pinpoint.Types-import           Network.AWS.Pinpoint.Types.Product-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.Lens+import Network.AWS.Pinpoint.Types+import Network.AWS.Pinpoint.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'getImportJob' smart constructor. data GetImportJob = GetImportJob'-    { _gijApplicationId :: !Text-    , _gijJobId         :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gijApplicationId :: !Text+  , _gijJobId         :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetImportJob' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -61,11 +62,9 @@     -> Text -- ^ 'gijJobId'     -> GetImportJob getImportJob pApplicationId_ pJobId_ =-    GetImportJob'-    { _gijApplicationId = pApplicationId_-    , _gijJobId = pJobId_-    }+  GetImportJob' {_gijApplicationId = pApplicationId_, _gijJobId = pJobId_} + -- | Undocumented member. gijApplicationId :: Lens' GetImportJob Text gijApplicationId = lens _gijApplicationId (\ s a -> s{_gijApplicationId = a});@@ -83,9 +82,9 @@                  GetImportJobResponse' <$>                    (pure (fromEnum s)) <*> (eitherParseJSON x)) -instance Hashable GetImportJob+instance Hashable GetImportJob where -instance NFData GetImportJob+instance NFData GetImportJob where  instance ToHeaders GetImportJob where         toHeaders@@ -105,10 +104,11 @@  -- | /See:/ 'getImportJobResponse' smart constructor. data GetImportJobResponse = GetImportJobResponse'-    { _gijrsResponseStatus    :: !Int-    , _gijrsImportJobResponse :: !ImportJobResponse-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gijrsResponseStatus    :: !Int+  , _gijrsImportJobResponse :: !ImportJobResponse+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetImportJobResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -121,11 +121,12 @@     -> ImportJobResponse -- ^ 'gijrsImportJobResponse'     -> GetImportJobResponse getImportJobResponse pResponseStatus_ pImportJobResponse_ =-    GetImportJobResponse'-    { _gijrsResponseStatus = pResponseStatus_-    , _gijrsImportJobResponse = pImportJobResponse_-    }+  GetImportJobResponse'+  { _gijrsResponseStatus = pResponseStatus_+  , _gijrsImportJobResponse = pImportJobResponse_+  } + -- | -- | The response status code. gijrsResponseStatus :: Lens' GetImportJobResponse Int gijrsResponseStatus = lens _gijrsResponseStatus (\ s a -> s{_gijrsResponseStatus = a});@@ -134,4 +135,4 @@ gijrsImportJobResponse :: Lens' GetImportJobResponse ImportJobResponse gijrsImportJobResponse = lens _gijrsImportJobResponse (\ s a -> s{_gijrsImportJobResponse = a}); -instance NFData GetImportJobResponse+instance NFData GetImportJobResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.Pinpoint.GetImportJobs--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -37,44 +37,46 @@     , gijsrsImportJobsResponse     ) where -import           Network.AWS.Lens-import           Network.AWS.Pinpoint.Types-import           Network.AWS.Pinpoint.Types.Product-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.Lens+import Network.AWS.Pinpoint.Types+import Network.AWS.Pinpoint.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'getImportJobs' smart constructor. data GetImportJobs = GetImportJobs'-    { _gijsToken         :: !(Maybe Text)-    , _gijsPageSize      :: !(Maybe Text)-    , _gijsApplicationId :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gijsToken         :: !(Maybe Text)+  , _gijsPageSize      :: !(Maybe Text)+  , _gijsApplicationId :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetImportJobs' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'gijsToken' - Undocumented member.+-- * 'gijsToken' - The NextToken string returned on a previous page that you use to get the next page of results in a paginated response. ----- * 'gijsPageSize' - Undocumented member.+-- * 'gijsPageSize' - The number of entries you want on each page in the response. -- -- * 'gijsApplicationId' - Undocumented member. getImportJobs     :: Text -- ^ 'gijsApplicationId'     -> GetImportJobs getImportJobs pApplicationId_ =-    GetImportJobs'-    { _gijsToken = Nothing-    , _gijsPageSize = Nothing-    , _gijsApplicationId = pApplicationId_-    }+  GetImportJobs'+  { _gijsToken = Nothing+  , _gijsPageSize = Nothing+  , _gijsApplicationId = pApplicationId_+  } --- | Undocumented member.++-- | The NextToken string returned on a previous page that you use to get the next page of results in a paginated response. gijsToken :: Lens' GetImportJobs (Maybe Text) gijsToken = lens _gijsToken (\ s a -> s{_gijsToken = a}); --- | Undocumented member.+-- | The number of entries you want on each page in the response. gijsPageSize :: Lens' GetImportJobs (Maybe Text) gijsPageSize = lens _gijsPageSize (\ s a -> s{_gijsPageSize = a}); @@ -91,9 +93,9 @@                  GetImportJobsResponse' <$>                    (pure (fromEnum s)) <*> (eitherParseJSON x)) -instance Hashable GetImportJobs+instance Hashable GetImportJobs where -instance NFData GetImportJobs+instance NFData GetImportJobs where  instance ToHeaders GetImportJobs where         toHeaders@@ -115,10 +117,11 @@  -- | /See:/ 'getImportJobsResponse' smart constructor. data GetImportJobsResponse = GetImportJobsResponse'-    { _gijsrsResponseStatus     :: !Int-    , _gijsrsImportJobsResponse :: !ImportJobsResponse-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _gijsrsResponseStatus     :: !Int+  , _gijsrsImportJobsResponse :: !ImportJobsResponse+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetImportJobsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -131,11 +134,12 @@     -> ImportJobsResponse -- ^ 'gijsrsImportJobsResponse'     -> GetImportJobsResponse getImportJobsResponse pResponseStatus_ pImportJobsResponse_ =-    GetImportJobsResponse'-    { _gijsrsResponseStatus = pResponseStatus_-    , _gijsrsImportJobsResponse = pImportJobsResponse_-    }+  GetImportJobsResponse'+  { _gijsrsResponseStatus = pResponseStatus_+  , _gijsrsImportJobsResponse = pImportJobsResponse_+  } + -- | -- | The response status code. gijsrsResponseStatus :: Lens' GetImportJobsResponse Int gijsrsResponseStatus = lens _gijsrsResponseStatus (\ s a -> s{_gijsrsResponseStatus = a});@@ -144,4 +148,4 @@ gijsrsImportJobsResponse :: Lens' GetImportJobsResponse ImportJobsResponse gijsrsImportJobsResponse = lens _gijsrsImportJobsResponse (\ s a -> s{_gijsrsImportJobsResponse = a}); -instance NFData GetImportJobsResponse+instance NFData GetImportJobsResponse where