amazonka-gamelift 1.4.5 → 1.5.0

raw patch · 121 files changed

+12749/−3479 lines, 121 filesdep ~amazonka-coredep ~amazonka-gameliftdep ~amazonka-testPVP ok

version bump matches the API change (PVP)

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

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-gamelift.cabal +40/−11
• fixture/AcceptMatch.yaml +10/−0
• fixture/AcceptMatchResponse.proto +0/−0
• fixture/CreateGameSessionQueue.yaml +10/−0
• fixture/CreateGameSessionQueueResponse.proto +0/−0
• fixture/CreateMatchmakingConfiguration.yaml +10/−0
• fixture/CreateMatchmakingConfigurationResponse.proto +0/−0
• fixture/CreateMatchmakingRuleSet.yaml +10/−0
• fixture/CreateMatchmakingRuleSetResponse.proto +0/−0
• fixture/CreateVPCPeeringAuthorization.yaml +10/−0
• fixture/CreateVPCPeeringAuthorizationResponse.proto +0/−0
• fixture/CreateVPCPeeringConnection.yaml +10/−0
• fixture/CreateVPCPeeringConnectionResponse.proto +0/−0
• fixture/DeleteGameSessionQueue.yaml +10/−0
• fixture/DeleteGameSessionQueueResponse.proto +0/−0
• fixture/DeleteMatchmakingConfiguration.yaml +10/−0
• fixture/DeleteMatchmakingConfigurationResponse.proto +0/−0
• fixture/DeleteVPCPeeringAuthorization.yaml +10/−0
• fixture/DeleteVPCPeeringAuthorizationResponse.proto +0/−0
• fixture/DeleteVPCPeeringConnection.yaml +10/−0
• fixture/DeleteVPCPeeringConnectionResponse.proto +0/−0
• fixture/DescribeGameSessionPlacement.yaml +10/−0
• fixture/DescribeGameSessionPlacementResponse.proto +0/−0
• fixture/DescribeGameSessionQueues.yaml +10/−0
• fixture/DescribeGameSessionQueuesResponse.proto +0/−0
• fixture/DescribeMatchmaking.yaml +10/−0
• fixture/DescribeMatchmakingConfigurations.yaml +10/−0
• fixture/DescribeMatchmakingConfigurationsResponse.proto +0/−0
• fixture/DescribeMatchmakingResponse.proto +0/−0
• fixture/DescribeMatchmakingRuleSets.yaml +10/−0
• fixture/DescribeMatchmakingRuleSetsResponse.proto +0/−0
• fixture/DescribeVPCPeeringAuthorizations.yaml +10/−0
• fixture/DescribeVPCPeeringAuthorizationsResponse.proto +0/−0
• fixture/DescribeVPCPeeringConnections.yaml +10/−0
• fixture/DescribeVPCPeeringConnectionsResponse.proto +0/−0
• fixture/StartGameSessionPlacement.yaml +10/−0
• fixture/StartGameSessionPlacementResponse.proto +0/−0
• fixture/StartMatchmaking.yaml +10/−0
• fixture/StartMatchmakingResponse.proto +0/−0
• fixture/StopGameSessionPlacement.yaml +10/−0
• fixture/StopGameSessionPlacementResponse.proto +0/−0
• fixture/StopMatchmaking.yaml +10/−0
• fixture/StopMatchmakingResponse.proto +0/−0
• fixture/UpdateGameSessionQueue.yaml +10/−0
• fixture/UpdateGameSessionQueueResponse.proto +0/−0
• fixture/UpdateMatchmakingConfiguration.yaml +10/−0
• fixture/UpdateMatchmakingConfigurationResponse.proto +0/−0
• fixture/ValidateMatchmakingRuleSet.yaml +10/−0
• fixture/ValidateMatchmakingRuleSetResponse.proto +0/−0
• gen/Network/AWS/GameLift.hs +464/−106
• gen/Network/AWS/GameLift/AcceptMatch.hs +168/−0
• gen/Network/AWS/GameLift/CreateAlias.hs +55/−35
• gen/Network/AWS/GameLift/CreateBuild.hs +68/−50
• gen/Network/AWS/GameLift/CreateFleet.hs +159/−70
• gen/Network/AWS/GameLift/CreateGameSession.hs +109/−53
• gen/Network/AWS/GameLift/CreateGameSessionQueue.hs +193/−0
• gen/Network/AWS/GameLift/CreateMatchmakingConfiguration.hs +293/−0
• gen/Network/AWS/GameLift/CreateMatchmakingRuleSet.hs +177/−0
• gen/Network/AWS/GameLift/CreatePlayerSession.hs +68/−34
• gen/Network/AWS/GameLift/CreatePlayerSessions.hs +64/−30
• gen/Network/AWS/GameLift/CreateVPCPeeringAuthorization.hs +188/−0
• gen/Network/AWS/GameLift/CreateVPCPeeringConnection.hs +176/−0
• gen/Network/AWS/GameLift/DeleteAlias.hs +37/−20
• gen/Network/AWS/GameLift/DeleteBuild.hs +36/−21
• gen/Network/AWS/GameLift/DeleteFleet.hs +74/−21
• gen/Network/AWS/GameLift/DeleteGameSessionQueue.hs +138/−0
• gen/Network/AWS/GameLift/DeleteMatchmakingConfiguration.hs +152/−0
• gen/Network/AWS/GameLift/DeleteScalingPolicy.hs +77/−24
• gen/Network/AWS/GameLift/DeleteVPCPeeringAuthorization.hs +165/−0
• gen/Network/AWS/GameLift/DeleteVPCPeeringConnection.hs +164/−0
• gen/Network/AWS/GameLift/DescribeAlias.hs +44/−27
• gen/Network/AWS/GameLift/DescribeBuild.hs +39/−26
• gen/Network/AWS/GameLift/DescribeEC2InstanceLimits.hs +80/−27
• gen/Network/AWS/GameLift/DescribeFleetAttributes.hs +88/−35
• gen/Network/AWS/GameLift/DescribeFleetCapacity.hs +88/−35
• gen/Network/AWS/GameLift/DescribeFleetEvents.hs +95/−39
• gen/Network/AWS/GameLift/DescribeFleetPortSettings.hs +81/−26
• gen/Network/AWS/GameLift/DescribeFleetUtilization.hs +88/−34
• gen/Network/AWS/GameLift/DescribeGameSessionDetails.hs +78/−47
• gen/Network/AWS/GameLift/DescribeGameSessionPlacement.hs +174/−0
• gen/Network/AWS/GameLift/DescribeGameSessionQueues.hs +186/−0
• gen/Network/AWS/GameLift/DescribeGameSessions.hs +79/−47
• gen/Network/AWS/GameLift/DescribeInstances.hs +43/−39
• gen/Network/AWS/GameLift/DescribeMatchmaking.hs +156/−0
• gen/Network/AWS/GameLift/DescribeMatchmakingConfigurations.hs +214/−0
• gen/Network/AWS/GameLift/DescribeMatchmakingRuleSets.hs +192/−0
• gen/Network/AWS/GameLift/DescribePlayerSessions.hs +99/−73
• gen/Network/AWS/GameLift/DescribeRuntimeConfiguration.hs +80/−25
• gen/Network/AWS/GameLift/DescribeScalingPolicies.hs +95/−39
• gen/Network/AWS/GameLift/DescribeVPCPeeringAuthorizations.hs +149/−0
• gen/Network/AWS/GameLift/DescribeVPCPeeringConnections.hs +165/−0
• gen/Network/AWS/GameLift/GetGameSessionLogURL.hs +52/−26
• gen/Network/AWS/GameLift/GetInstanceAccess.hs +41/−34
• gen/Network/AWS/GameLift/ListAliases.hs +60/−40
• gen/Network/AWS/GameLift/ListBuilds.hs +49/−35
• gen/Network/AWS/GameLift/ListFleets.hs +89/−37
• gen/Network/AWS/GameLift/PutScalingPolicy.hs +101/−47
• gen/Network/AWS/GameLift/RequestUploadCredentials.hs +30/−31
• gen/Network/AWS/GameLift/ResolveAlias.hs +41/−26
• gen/Network/AWS/GameLift/SearchGameSessions.hs +78/−48
• gen/Network/AWS/GameLift/StartGameSessionPlacement.hs +273/−0
• gen/Network/AWS/GameLift/StartMatchmaking.hs +199/−0
• gen/Network/AWS/GameLift/StopGameSessionPlacement.hs +171/−0
• gen/Network/AWS/GameLift/StopMatchmaking.hs +137/−0
• gen/Network/AWS/GameLift/Types.hs +232/−37
• gen/Network/AWS/GameLift/Types/Product.hs +3663/−1732
• gen/Network/AWS/GameLift/Types/Sum.hs +304/−129
• gen/Network/AWS/GameLift/UpdateAlias.hs +53/−35
• gen/Network/AWS/GameLift/UpdateBuild.hs +47/−35
• gen/Network/AWS/GameLift/UpdateFleetAttributes.hs +104/−40
• gen/Network/AWS/GameLift/UpdateFleetCapacity.hs +87/−33
• gen/Network/AWS/GameLift/UpdateFleetPortSettings.hs +85/−31
• gen/Network/AWS/GameLift/UpdateGameSession.hs +69/−41
• gen/Network/AWS/GameLift/UpdateGameSessionQueue.hs +187/−0
• gen/Network/AWS/GameLift/UpdateMatchmakingConfiguration.hs +282/−0
• gen/Network/AWS/GameLift/UpdateRuntimeConfiguration.hs +88/−33
• gen/Network/AWS/GameLift/ValidateMatchmakingRuleSet.hs +162/−0
• gen/Network/AWS/GameLift/Waiters.hs +6/−6
• test/Main.hs +2/−2
• test/Test/AWS/Gen/GameLift.hs +438/−6

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

@@ -1,13 +1,13 @@ name:                  amazonka-gamelift-version:               1.4.5+version:               1.5.0 synopsis:              Amazon GameLift 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,27 +29,42 @@     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-gamelift  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.GameLift+        , Network.AWS.GameLift.AcceptMatch         , Network.AWS.GameLift.CreateAlias         , Network.AWS.GameLift.CreateBuild         , Network.AWS.GameLift.CreateFleet         , Network.AWS.GameLift.CreateGameSession+        , Network.AWS.GameLift.CreateGameSessionQueue+        , Network.AWS.GameLift.CreateMatchmakingConfiguration+        , Network.AWS.GameLift.CreateMatchmakingRuleSet         , Network.AWS.GameLift.CreatePlayerSession         , Network.AWS.GameLift.CreatePlayerSessions+        , Network.AWS.GameLift.CreateVPCPeeringAuthorization+        , Network.AWS.GameLift.CreateVPCPeeringConnection         , Network.AWS.GameLift.DeleteAlias         , Network.AWS.GameLift.DeleteBuild         , Network.AWS.GameLift.DeleteFleet+        , Network.AWS.GameLift.DeleteGameSessionQueue+        , Network.AWS.GameLift.DeleteMatchmakingConfiguration         , Network.AWS.GameLift.DeleteScalingPolicy+        , Network.AWS.GameLift.DeleteVPCPeeringAuthorization+        , Network.AWS.GameLift.DeleteVPCPeeringConnection         , Network.AWS.GameLift.DescribeAlias         , Network.AWS.GameLift.DescribeBuild         , Network.AWS.GameLift.DescribeEC2InstanceLimits@@ -59,11 +74,18 @@         , Network.AWS.GameLift.DescribeFleetPortSettings         , Network.AWS.GameLift.DescribeFleetUtilization         , Network.AWS.GameLift.DescribeGameSessionDetails+        , Network.AWS.GameLift.DescribeGameSessionPlacement+        , Network.AWS.GameLift.DescribeGameSessionQueues         , Network.AWS.GameLift.DescribeGameSessions         , Network.AWS.GameLift.DescribeInstances+        , Network.AWS.GameLift.DescribeMatchmaking+        , Network.AWS.GameLift.DescribeMatchmakingConfigurations+        , Network.AWS.GameLift.DescribeMatchmakingRuleSets         , Network.AWS.GameLift.DescribePlayerSessions         , Network.AWS.GameLift.DescribeRuntimeConfiguration         , Network.AWS.GameLift.DescribeScalingPolicies+        , Network.AWS.GameLift.DescribeVPCPeeringAuthorizations+        , Network.AWS.GameLift.DescribeVPCPeeringConnections         , Network.AWS.GameLift.GetGameSessionLogURL         , Network.AWS.GameLift.GetInstanceAccess         , Network.AWS.GameLift.ListAliases@@ -73,6 +95,10 @@         , Network.AWS.GameLift.RequestUploadCredentials         , Network.AWS.GameLift.ResolveAlias         , Network.AWS.GameLift.SearchGameSessions+        , Network.AWS.GameLift.StartGameSessionPlacement+        , Network.AWS.GameLift.StartMatchmaking+        , Network.AWS.GameLift.StopGameSessionPlacement+        , Network.AWS.GameLift.StopMatchmaking         , Network.AWS.GameLift.Types         , Network.AWS.GameLift.UpdateAlias         , Network.AWS.GameLift.UpdateBuild@@ -80,7 +106,10 @@         , Network.AWS.GameLift.UpdateFleetCapacity         , Network.AWS.GameLift.UpdateFleetPortSettings         , Network.AWS.GameLift.UpdateGameSession+        , Network.AWS.GameLift.UpdateGameSessionQueue+        , Network.AWS.GameLift.UpdateMatchmakingConfiguration         , Network.AWS.GameLift.UpdateRuntimeConfiguration+        , Network.AWS.GameLift.ValidateMatchmakingRuleSet         , Network.AWS.GameLift.Waiters      other-modules:@@ -88,7 +117,7 @@         , Network.AWS.GameLift.Types.Sum      build-depends:-          amazonka-core == 1.4.5.*+          amazonka-core == 1.5.0.*         , base          >= 4.7     && < 5  test-suite amazonka-gamelift-test@@ -108,9 +137,9 @@         , Test.AWS.GameLift.Internal      build-depends:-          amazonka-core == 1.4.5.*-        , amazonka-test == 1.4.5.*-        , amazonka-gamelift == 1.4.5.*+          amazonka-core == 1.5.0.*+        , amazonka-test == 1.5.0.*+        , amazonka-gamelift         , base         , bytestring         , tasty

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/gamelift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  gamelift.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/gamelift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  gamelift.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/gamelift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  gamelift.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/gamelift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  gamelift.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/gamelift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  gamelift.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/gamelift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  gamelift.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/gamelift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  gamelift.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/gamelift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  gamelift.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/gamelift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  gamelift.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/gamelift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  gamelift.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/gamelift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  gamelift.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/gamelift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  gamelift.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/gamelift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  gamelift.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/gamelift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  gamelift.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/gamelift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  gamelift.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/gamelift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  gamelift.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/gamelift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  gamelift.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/gamelift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  gamelift.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/gamelift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  gamelift.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/gamelift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  gamelift.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/gamelift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  gamelift.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/gamelift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  gamelift.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/gamelift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  gamelift.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/gamelift/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  gamelift.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,164 +5,254 @@  -- | -- Module      : Network.AWS.GameLift--- 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) -- -- __Amazon GameLift Service__ ----- Welcome to the /Amazon GameLift API Reference/ . Amazon GameLift is a managed Amazon Web Services (AWS) service for developers who need a scalable, server-based solution for multiplayer games. Amazon GameLift provides setup and deployment of game servers, and handles infrastructure scaling and session management.+-- Amazon GameLift is a managed service for developers who need a scalable, dedicated server solution for their multiplayer games. Amazon GameLift provides tools for the following tasks: (1) acquire computing resources and deploy game servers, (2) scale game server capacity to meet player demand, (3) host game sessions and manage player access, and (4) track in-depth metrics on player usage and server performance. ----- This reference describes the low-level service API for GameLift. You can call this API directly or use the <http://aws.amazon.com/tools/#sdk AWS SDK> for your preferred language. The AWS SDK includes a set of high-level GameLift actions multiplayer game sessions. Alternatively, you can use the <http://aws.amazon.com/cli/ AWS command-line interface> (CLI) tool, which includes commands for GameLift. For administrative actions, you can also use the Amazon GameLift console.+-- The Amazon GameLift service API includes two important function sets: ----- __More Resources__+--     * __Manage game sessions and player access__ -- Retrieve information on available game sessions; create new game sessions; send player requests to join a game session. -----     * <http://docs.aws.amazon.com/gamelift/latest/developerguide/ Amazon GameLift Developer Guide> : Learn more about GameLift features and how to use them+--     * __Configure and manage game server resources__ -- Manage builds, fleets, queues, and aliases; set autoscaling policies; retrieve logs and metrics. -----     * <https://gamedev.amazon.com/forums/tutorials Lumberyard and GameLift Tutorials> : Get started fast with walkthroughs and sample projects -----     * <http://aws.amazon.com/blogs/gamedev/ GameDev Blog> : Stay up to date with new features and techniques -----     * <https://gamedev.amazon.com/forums/spaces/123/gamelift-discussion.html GameDev Forums> : Connect with the GameDev community+-- This reference guide describes the low-level service API for Amazon GameLift. You can use the API functionality with these tools: --+--     * The Amazon Web Services software development kit (<http://aws.amazon.com/tools/#sdk AWS SDK> ) is available in <http://docs.aws.amazon.com/gamelift/latest/developerguide/gamelift-supported.html#gamelift-supported-clients multiple languages> including C++ and C#. Use the SDK to access the API programmatically from an application, such as a game client. --+--     * The <http://aws.amazon.com/cli/ AWS command-line interface> (CLI) tool is primarily useful for handling administrative actions, such as setting up and managing Amazon GameLift settings and resources. You can use the AWS CLI to manage all of your AWS services. ----- __Manage Games and Players Through GameLift__+--     * The <https://console.aws.amazon.com/gamelift/home AWS Management Console> for Amazon GameLift provides a web interface to manage your Amazon GameLift settings and resources. The console includes a dashboard for tracking key resources, including builds and fleets, and displays usage and performance metrics for your games as customizable graphs. ----- Call these actions from your game clients and/or services to create and manage multiplayer game sessions and player sessions.+--     * Amazon GameLift Local is a tool for testing your game's integration with Amazon GameLift before deploying it on the service. This tools supports a subset of key API actions, which can be called from either the AWS CLI or programmatically. See <http://docs.aws.amazon.com/gamelift/latest/developerguide/integration-testing-local.html Testing an Integration> . -----     * __Game sessions:__ -----     * 'CreateGameSession' -----     * 'DescribeGameSessions'+-- __MORE RESOURCES__ -----     * 'DescribeGameSessionDetails'+--     * <http://docs.aws.amazon.com/gamelift/latest/developerguide/ Amazon GameLift Developer Guide> -- Learn more about Amazon GameLift features and how to use them. -----     * 'UpdateGameSession'+--     * <https://gamedev.amazon.com/forums/tutorials Lumberyard and Amazon GameLift Tutorials> -- Get started fast with walkthroughs and sample projects. -----     * 'SearchGameSessions'+--     * <http://aws.amazon.com/blogs/gamedev/ GameDev Blog> -- Stay up to date with new features and techniques. --+--     * <https://gamedev.amazon.com/forums/spaces/123/gamelift-discussion.html GameDev Forums> -- Connect with the GameDev community. --+--     * <http://docs.aws.amazon.com/gamelift/latest/developerguide/doc-history.html Amazon GameLift Document History> -- See changes to the Amazon GameLift service, SDKs, and documentation, as well as links to release notes. -----     * __Player sessions:__ -----     * 'CreatePlayerSession' -----     * 'CreatePlayerSessions'+-- __API SUMMARY__ -----     * 'DescribePlayerSessions'+-- This list offers a functional overview of the Amazon GameLift service API. --+-- __Managing Games and Players__ --+-- Use these actions to start new game sessions, find existing game sessions, track game session status and other information, and enable player access to game sessions. -----     * __Other actions:__+--     * __Discover existing game sessions__ -----     * 'GetGameSessionLogUrl'+--     * 'SearchGameSessions' -- Retrieve all available game sessions or search for game sessions that match a set of criteria. -- -- --+--     * __Start new game sessions__ --+--     * Start new games with Queues to find the best available hosting resources across multiple regions, minimize player latency, and balance game session activity for efficiency and cost effectiveness. ----- __Set Up and Manage Game Servers__+--     * 'StartGameSessionPlacement' -- Request a new game session placement and add one or more players to it. ----- Use these administrative actions to configure GameLift to host your game servers. When setting up GameLift, you will need to (1) configure a build for your game and upload build files, and (2) set up one or more fleets to host game sessions. Once you've created and activated a fleet, you can assign aliases to it, scale capacity, track performance and utilization, etc.+--     * 'DescribeGameSessionPlacement' -- Get details on a placement request, including status. -----     * __Game builds:__+--     * 'StopGameSessionPlacement' -- Cancel a placement request. -----     * 'ListBuilds' -----     * 'CreateBuild' -----     * 'DescribeBuild'+--     * 'CreateGameSession' -- Start a new game session on a specific fleet. /Available in Amazon GameLift Local./ -----     * 'UpdateBuild' -----     * 'DeleteBuild' -----     * 'RequestUploadCredentials'+--     * __Start new game sessions with FlexMatch matchmaking__ --+--     * 'StartMatchmaking' -- Request matchmaking for one players or a group who want to play together. --+--     * 'DescribeMatchmaking' -- Get details on a matchmaking request, including status. -----     * __Fleets:__+--     * 'AcceptMatch' -- Register that a player accepts a proposed match, for matches that require player acceptance. -----     * 'ListFleets'+--     * 'StopMatchmaking' -- Cancel a matchmaking request. -----     * 'CreateFleet' -----     * Describe fleets: -----     * 'DescribeFleetAttributes'+--     * __Manage game session data__ -----     * 'DescribeFleetCapacity'+--     * 'DescribeGameSessions' -- Retrieve metadata for one or more game sessions, including length of time active and current player count. /Available in Amazon GameLift Local./ -----     * 'DescribeFleetPortSettings'+--     * 'DescribeGameSessionDetails' -- Retrieve metadata and the game session protection setting for one or more game sessions. -----     * 'DescribeFleetUtilization'+--     * 'UpdateGameSession' -- Change game session settings, such as maximum player count and join policy. -----     * 'DescribeEC2InstanceLimits'+--     * 'GetGameSessionLogUrl' -- Get the location of saved logs for a game session. -----     * 'DescribeFleetEvents' -----     * 'DescribeRuntimeConfiguration' --+--     * __Manage player sessions__ --+--     * 'CreatePlayerSession' -- Send a request for a player to join a game session. /Available in Amazon GameLift Local./ -----     * Update fleets:+--     * 'CreatePlayerSessions' -- Send a request for multiple players to join a game session. /Available in Amazon GameLift Local./ -----     * 'UpdateFleetAttributes'+--     * 'DescribePlayerSessions' -- Get details on player activity, including status, playing time, and player data. /Available in Amazon GameLift Local./ -----     * 'UpdateFleetCapacity' -----     * 'UpdateFleetPortSettings' -----     * 'UpdateRuntimeConfiguration' -- --+-- __Setting Up and Managing Game Servers__ -----     * 'DeleteFleet'+-- When setting up Amazon GameLift resources for your game, you first <http://docs.aws.amazon.com/gamelift/latest/developerguide/gamelift-build-intro.html create a game build> and upload it to Amazon GameLift. You can then use these actions to configure and manage a fleet of resources to run your game servers, scale capacity to meet player demand, access performance and utilization metrics, and more. --+--     * __Manage game builds__ --+--     * 'CreateBuild' -- Create a new build using files stored in an Amazon S3 bucket. (Update uploading permissions with 'RequestUploadCredentials' .) To create a build and upload files from a local path, use the AWS CLI command @upload-build@ . -----     * __Manage your instances:__+--     * 'ListBuilds' -- Get a list of all builds uploaded to a Amazon GameLift region. -----     * 'DescribeInstances'+--     * 'DescribeBuild' -- Retrieve information associated with a build. -----     * 'GetInstanceAccess'+--     * 'UpdateBuild' -- Change build metadata, including build name and version. --+--     * 'DeleteBuild' -- Remove a build from Amazon GameLift. -- -----     * __Manage fleet aliases:__ -----     * 'ListAliases'+--     * __Manage fleets__ -----     * 'CreateAlias'+--     * 'CreateFleet' -- Configure and activate a new fleet to run a build's game servers. -----     * 'DescribeAlias'+--     * 'ListFleets' -- Get a list of all fleet IDs in a Amazon GameLift region (all statuses). -----     * 'UpdateAlias'+--     * 'DeleteFleet' -- Terminate a fleet that is no longer running game servers or hosting players. -----     * 'DeleteAlias'+--     * View / update fleet configurations. -----     * 'ResolveAlias'+--     * 'DescribeFleetAttributes' / 'UpdateFleetAttributes' -- View or change a fleet's metadata and settings for game session protection and resource creation limits. --+--     * 'DescribeFleetPortSettings' / 'UpdateFleetPortSettings' -- View or change the inbound permissions (IP address and port setting ranges) allowed for a fleet. --+--     * 'DescribeRuntimeConfiguration' / 'UpdateRuntimeConfiguration' -- View or change what server processes (and how many) to run on each instance in a fleet. -----     * __Manage autoscaling:__ -----     * 'PutScalingPolicy' -----     * 'DescribeScalingPolicies' -----     * 'DeleteScalingPolicy' --+--     * __Control fleet capacity__ --+--     * 'DescribeEC2InstanceLimits' -- Retrieve maximum number of instances allowed for the current AWS account and the current usage level. --+--     * 'DescribeFleetCapacity' / 'UpdateFleetCapacity' -- Retrieve the capacity settings and the current number of instances in a fleet; adjust fleet capacity settings to scale up or down. --+--     * Autoscale -- Manage autoscaling rules and apply them to a fleet. ----- To view changes to the API, see the GameLift <http://docs.aws.amazon.com/gamelift/latest/developerguide/doc-history.html Document History> page.+--     * 'PutScalingPolicy' -- Create a new autoscaling policy, or update an existing one. --+--     * 'DescribeScalingPolicies' -- Retrieve an existing autoscaling policy.+--+--     * 'DeleteScalingPolicy' -- Delete an autoscaling policy and stop it from affecting a fleet's capacity.+--+--+--+--+--+--     * __Manage VPC peering connections for fleets__+--+--     * 'CreateVpcPeeringAuthorization' -- Authorize a peering connection to one of your VPCs.+--+--     * 'DescribeVpcPeeringAuthorizations' -- Retrieve valid peering connection authorizations.+--+--     * 'DeleteVpcPeeringAuthorization' -- Delete a peering connection authorization.+--+--     * 'CreateVpcPeeringConnection' -- Establish a peering connection between the VPC for a Amazon GameLift fleet and one of your VPCs.+--+--     * 'DescribeVpcPeeringConnections' -- Retrieve information on active or pending VPC peering connections with a Amazon GameLift fleet.+--+--     * 'DeleteVpcPeeringConnection' -- Delete a VPC peering connection with a Amazon GameLift fleet.+--+--+--+--     * __Access fleet activity statistics__+--+--     * 'DescribeFleetUtilization' -- Get current data on the number of server processes, game sessions, and players currently active on a fleet.+--+--     * 'DescribeFleetEvents' -- Get a fleet's logged events for a specified time span.+--+--     * 'DescribeGameSessions' -- Retrieve metadata associated with one or more game sessions, including length of time active and current player count.+--+--+--+--     * __Remotely access an instance__+--+--     * 'DescribeInstances' -- Get information on each instance in a fleet, including instance ID, IP address, and status.+--+--     * 'GetInstanceAccess' -- Request access credentials needed to remotely connect to a specified instance in a fleet.+--+--+--+--     * __Manage fleet aliases__+--+--     * 'CreateAlias' -- Define a new alias and optionally assign it to a fleet.+--+--     * 'ListAliases' -- Get all fleet aliases defined in a Amazon GameLift region.+--+--     * 'DescribeAlias' -- Retrieve information on an existing alias.+--+--     * 'UpdateAlias' -- Change settings for a alias, such as redirecting it from one fleet to another.+--+--     * 'DeleteAlias' -- Remove an alias from the region.+--+--     * 'ResolveAlias' -- Get the fleet ID that a specified alias points to.+--+--+--+--     * __Manage game session queues__+--+--     * 'CreateGameSessionQueue' -- Create a queue for processing requests for new game sessions.+--+--     * 'DescribeGameSessionQueues' -- Retrieve game session queues defined in a Amazon GameLift region.+--+--     * 'UpdateGameSessionQueue' -- Change the configuration of a game session queue.+--+--     * 'DeleteGameSessionQueue' -- Remove a game session queue from the region.+--+--+--+--     * __Manage FlexMatch resources__+--+--     * 'CreateMatchmakingConfiguration' -- Create a matchmaking configuration with instructions for building a player group and placing in a new game session.+--+--     * 'DescribeMatchmakingConfigurations' -- Retrieve matchmaking configurations defined a Amazon GameLift region.+--+--     * 'UpdateMatchmakingConfiguration' -- Change settings for matchmaking configuration. queue.+--+--     * 'DeleteMatchmakingConfiguration' -- Remove a matchmaking configuration from the region.+--+--     * 'CreateMatchmakingRuleSet' -- Create a set of rules to use when searching for player matches.+--+--     * 'DescribeMatchmakingRuleSets' -- Retrieve matchmaking rule sets defined in a Amazon GameLift region.+--+--     * 'ValidateMatchmakingRuleSet' -- Verify syntax for a set of matchmaking rules.+--+--+--+--+-- module Network.AWS.GameLift     (     -- * Service Configuration@@ -189,6 +279,9 @@     -- ** GameSessionFullException     , _GameSessionFullException +    -- ** UnsupportedRegionException+    , _UnsupportedRegionException+     -- ** InvalidGameSessionStatusException     , _InvalidGameSessionStatusException @@ -213,6 +306,9 @@     -- * Operations     -- $operations +    -- ** StopMatchmaking+    , module Network.AWS.GameLift.StopMatchmaking+     -- ** CreateGameSession     , module Network.AWS.GameLift.CreateGameSession @@ -246,18 +342,42 @@     -- ** UpdateRuntimeConfiguration     , module Network.AWS.GameLift.UpdateRuntimeConfiguration +    -- ** CreateVPCPeeringConnection+    , module Network.AWS.GameLift.CreateVPCPeeringConnection++    -- ** CreateGameSessionQueue+    , module Network.AWS.GameLift.CreateGameSessionQueue+     -- ** SearchGameSessions     , module Network.AWS.GameLift.SearchGameSessions +    -- ** CreateVPCPeeringAuthorization+    , module Network.AWS.GameLift.CreateVPCPeeringAuthorization++    -- ** UpdateGameSessionQueue+    , module Network.AWS.GameLift.UpdateGameSessionQueue++    -- ** DeleteGameSessionQueue+    , module Network.AWS.GameLift.DeleteGameSessionQueue++    -- ** DeleteVPCPeeringConnection+    , module Network.AWS.GameLift.DeleteVPCPeeringConnection+     -- ** GetInstanceAccess     , module Network.AWS.GameLift.GetInstanceAccess      -- ** DescribeScalingPolicies     , module Network.AWS.GameLift.DescribeScalingPolicies +    -- ** DescribeMatchmakingRuleSets+    , module Network.AWS.GameLift.DescribeMatchmakingRuleSets+     -- ** DescribeGameSessions     , module Network.AWS.GameLift.DescribeGameSessions +    -- ** StartGameSessionPlacement+    , module Network.AWS.GameLift.StartGameSessionPlacement+     -- ** DescribeFleetUtilization     , module Network.AWS.GameLift.DescribeFleetUtilization @@ -270,9 +390,18 @@     -- ** DescribeFleetAttributes     , module Network.AWS.GameLift.DescribeFleetAttributes +    -- ** DescribeGameSessionPlacement+    , module Network.AWS.GameLift.DescribeGameSessionPlacement+     -- ** DescribeFleetEvents     , module Network.AWS.GameLift.DescribeFleetEvents +    -- ** StartMatchmaking+    , module Network.AWS.GameLift.StartMatchmaking++    -- ** CreateMatchmakingRuleSet+    , module Network.AWS.GameLift.CreateMatchmakingRuleSet+     -- ** DescribeFleetCapacity     , module Network.AWS.GameLift.DescribeFleetCapacity @@ -300,15 +429,39 @@     -- ** DescribeFleetPortSettings     , module Network.AWS.GameLift.DescribeFleetPortSettings +    -- ** DescribeGameSessionQueues+    , module Network.AWS.GameLift.DescribeGameSessionQueues++    -- ** DescribeVPCPeeringConnections+    , module Network.AWS.GameLift.DescribeVPCPeeringConnections+     -- ** CreatePlayerSessions     , module Network.AWS.GameLift.CreatePlayerSessions +    -- ** DescribeMatchmakingConfigurations+    , module Network.AWS.GameLift.DescribeMatchmakingConfigurations++    -- ** DescribeVPCPeeringAuthorizations+    , module Network.AWS.GameLift.DescribeVPCPeeringAuthorizations+     -- ** CreateFleet     , module Network.AWS.GameLift.CreateFleet +    -- ** DeleteMatchmakingConfiguration+    , module Network.AWS.GameLift.DeleteMatchmakingConfiguration++    -- ** UpdateMatchmakingConfiguration+    , module Network.AWS.GameLift.UpdateMatchmakingConfiguration++    -- ** DeleteVPCPeeringAuthorization+    , module Network.AWS.GameLift.DeleteVPCPeeringAuthorization+     -- ** UpdateFleetAttributes     , module Network.AWS.GameLift.UpdateFleetAttributes +    -- ** CreateMatchmakingConfiguration+    , module Network.AWS.GameLift.CreateMatchmakingConfiguration+     -- ** DescribePlayerSessions     , module Network.AWS.GameLift.DescribePlayerSessions @@ -321,20 +474,35 @@     -- ** UpdateFleetCapacity     , module Network.AWS.GameLift.UpdateFleetCapacity +    -- ** AcceptMatch+    , module Network.AWS.GameLift.AcceptMatch+     -- ** DescribeAlias     , module Network.AWS.GameLift.DescribeAlias +    -- ** ValidateMatchmakingRuleSet+    , module Network.AWS.GameLift.ValidateMatchmakingRuleSet+     -- ** DescribeEC2InstanceLimits     , module Network.AWS.GameLift.DescribeEC2InstanceLimits +    -- ** StopGameSessionPlacement+    , module Network.AWS.GameLift.StopGameSessionPlacement+     -- ** UpdateGameSession     , module Network.AWS.GameLift.UpdateGameSession +    -- ** DescribeMatchmaking+    , module Network.AWS.GameLift.DescribeMatchmaking+     -- ** CreatePlayerSession     , module Network.AWS.GameLift.CreatePlayerSession      -- * Types +    -- ** AcceptanceType+    , AcceptanceType (..)+     -- ** BuildStatus     , BuildStatus (..) @@ -350,6 +518,9 @@     -- ** FleetStatus     , FleetStatus (..) +    -- ** GameSessionPlacementState+    , GameSessionPlacementState (..)+     -- ** GameSessionStatus     , GameSessionStatus (..) @@ -359,6 +530,9 @@     -- ** InstanceStatus     , InstanceStatus (..) +    -- ** MatchmakingConfigurationStatus+    , MatchmakingConfigurationStatus (..)+     -- ** MetricName     , MetricName (..) @@ -398,8 +572,17 @@     , aAliasId     , aRoutingStrategy     , aName+    , aAliasARN     , aDescription +    -- ** AttributeValue+    , AttributeValue+    , attributeValue+    , avSL+    , avSDM+    , avN+    , avS+     -- ** Build     , Build     , build@@ -411,6 +594,12 @@     , bVersion     , bSizeOnDisk +    -- ** DesiredPlayerSession+    , DesiredPlayerSession+    , desiredPlayerSession+    , dpsPlayerData+    , dpsPlayerId+     -- ** EC2InstanceCounts     , EC2InstanceCounts     , ec2InstanceCounts@@ -433,6 +622,7 @@     , Event     , event     , eResourceId+    , ePreSignedLogURL     , eEventTime     , eMessage     , eEventCode@@ -447,10 +637,12 @@     , faLogPaths     , faOperatingSystem     , faBuildId+    , faFleetARN     , faTerminationTime     , faNewGameSessionProtectionPolicy     , faName     , faServerLaunchPath+    , faMetricGroups     , faFleetId     , faDescription     , faResourceCreationLimitPolicy@@ -490,16 +682,59 @@     , gsPlayerSessionCreationPolicy     , gsName     , gsCurrentPlayerSessionCount+    , gsGameSessionData     , gsFleetId     , gsCreatorId     , gsPort +    -- ** GameSessionConnectionInfo+    , GameSessionConnectionInfo+    , gameSessionConnectionInfo+    , gsciMatchedPlayerSessions+    , gsciIPAddress+    , gsciGameSessionARN+    , gsciPort+     -- ** GameSessionDetail     , GameSessionDetail     , gameSessionDetail     , gsdGameSession     , gsdProtectionPolicy +    -- ** GameSessionPlacement+    , GameSessionPlacement+    , gameSessionPlacement+    , gspStatus+    , gspPlacementId+    , gspGameProperties+    , gspIPAddress+    , gspGameSessionName+    , gspStartTime+    , gspGameSessionId+    , gspGameSessionRegion+    , gspMaximumPlayerSessionCount+    , gspEndTime+    , gspGameSessionARN+    , gspPlayerLatencies+    , gspGameSessionData+    , gspGameSessionQueueName+    , gspPlacedPlayerSessions+    , gspPort++    -- ** GameSessionQueue+    , GameSessionQueue+    , gameSessionQueue+    , gsqGameSessionQueueARN+    , gsqPlayerLatencyPolicies+    , gsqTimeoutInSeconds+    , gsqDestinations+    , gsqName++    -- ** GameSessionQueueDestination+    , GameSessionQueueDestination+    , gameSessionQueueDestination+    , gsqdDestinationARN+     -- ** IPPermission     , IPPermission     , ipPermission@@ -534,6 +769,77 @@     , icUserName     , icSecret +    -- ** MatchedPlayerSession+    , MatchedPlayerSession+    , matchedPlayerSession+    , mpsPlayerSessionId+    , mpsPlayerId++    -- ** MatchmakingConfiguration+    , MatchmakingConfiguration+    , matchmakingConfiguration+    , mcCreationTime+    , mcGameProperties+    , mcRuleSetName+    , mcAcceptanceTimeoutSeconds+    , mcRequestTimeoutSeconds+    , mcNotificationTarget+    , mcGameSessionQueueARNs+    , mcName+    , mcCustomEventData+    , mcAcceptanceRequired+    , mcGameSessionData+    , mcDescription+    , mcAdditionalPlayerCount++    -- ** MatchmakingRuleSet+    , MatchmakingRuleSet+    , matchmakingRuleSet+    , mrsCreationTime+    , mrsRuleSetName+    , mrsRuleSetBody++    -- ** MatchmakingTicket+    , MatchmakingTicket+    , matchmakingTicket+    , mtStatus+    , mtConfigurationName+    , mtStartTime+    , mtGameSessionConnectionInfo+    , mtTicketId+    , mtEstimatedWaitTime+    , mtStatusMessage+    , mtEndTime+    , mtStatusReason+    , mtPlayers++    -- ** PlacedPlayerSession+    , PlacedPlayerSession+    , placedPlayerSession+    , ppsPlayerSessionId+    , ppsPlayerId++    -- ** Player+    , Player+    , player+    , pPlayerAttributes+    , pTeam+    , pPlayerId+    , pLatencyInMs++    -- ** PlayerLatency+    , PlayerLatency+    , playerLatency+    , plLatencyInMilliseconds+    , plRegionIdentifier+    , plPlayerId++    -- ** PlayerLatencyPolicy+    , PlayerLatencyPolicy+    , playerLatencyPolicy+    , plpPolicyDurationSeconds+    , plpMaximumIndividualPlayerLatencyMilliseconds+     -- ** PlayerSession     , PlayerSession     , playerSession@@ -544,6 +850,7 @@     , psTerminationTime     , psPlayerSessionId     , psFleetId+    , psPlayerData     , psPlayerId     , psPort @@ -563,7 +870,9 @@     -- ** RuntimeConfiguration     , RuntimeConfiguration     , runtimeConfiguration+    , rcGameSessionActivationTimeoutSeconds     , rcServerProcesses+    , rcMaxConcurrentGameSessionActivations      -- ** S3Location     , S3Location@@ -591,50 +900,99 @@     , spParameters     , spLaunchPath     , spConcurrentExecutions++    -- ** VPCPeeringAuthorization+    , VPCPeeringAuthorization+    , vpcPeeringAuthorization+    , vpaCreationTime+    , vpaPeerVPCId+    , vpaPeerVPCAWSAccountId+    , vpaGameLiftAWSAccountId+    , vpaExpirationTime++    -- ** VPCPeeringConnection+    , VPCPeeringConnection+    , vpcPeeringConnection+    , vpcVPCPeeringConnectionId+    , vpcStatus+    , vpcPeerVPCId+    , vpcIPV4CidrBlock+    , vpcGameLiftVPCId+    , vpcFleetId++    -- ** VPCPeeringConnectionStatus+    , VPCPeeringConnectionStatus+    , vpcPeeringConnectionStatus+    , vpcsCode+    , vpcsMessage     ) where -import           Network.AWS.GameLift.CreateAlias-import           Network.AWS.GameLift.CreateBuild-import           Network.AWS.GameLift.CreateFleet-import           Network.AWS.GameLift.CreateGameSession-import           Network.AWS.GameLift.CreatePlayerSession-import           Network.AWS.GameLift.CreatePlayerSessions-import           Network.AWS.GameLift.DeleteAlias-import           Network.AWS.GameLift.DeleteBuild-import           Network.AWS.GameLift.DeleteFleet-import           Network.AWS.GameLift.DeleteScalingPolicy-import           Network.AWS.GameLift.DescribeAlias-import           Network.AWS.GameLift.DescribeBuild-import           Network.AWS.GameLift.DescribeEC2InstanceLimits-import           Network.AWS.GameLift.DescribeFleetAttributes-import           Network.AWS.GameLift.DescribeFleetCapacity-import           Network.AWS.GameLift.DescribeFleetEvents-import           Network.AWS.GameLift.DescribeFleetPortSettings-import           Network.AWS.GameLift.DescribeFleetUtilization-import           Network.AWS.GameLift.DescribeGameSessionDetails-import           Network.AWS.GameLift.DescribeGameSessions-import           Network.AWS.GameLift.DescribeInstances-import           Network.AWS.GameLift.DescribePlayerSessions-import           Network.AWS.GameLift.DescribeRuntimeConfiguration-import           Network.AWS.GameLift.DescribeScalingPolicies-import           Network.AWS.GameLift.GetGameSessionLogURL-import           Network.AWS.GameLift.GetInstanceAccess-import           Network.AWS.GameLift.ListAliases-import           Network.AWS.GameLift.ListBuilds-import           Network.AWS.GameLift.ListFleets-import           Network.AWS.GameLift.PutScalingPolicy-import           Network.AWS.GameLift.RequestUploadCredentials-import           Network.AWS.GameLift.ResolveAlias-import           Network.AWS.GameLift.SearchGameSessions-import           Network.AWS.GameLift.Types-import           Network.AWS.GameLift.UpdateAlias-import           Network.AWS.GameLift.UpdateBuild-import           Network.AWS.GameLift.UpdateFleetAttributes-import           Network.AWS.GameLift.UpdateFleetCapacity-import           Network.AWS.GameLift.UpdateFleetPortSettings-import           Network.AWS.GameLift.UpdateGameSession-import           Network.AWS.GameLift.UpdateRuntimeConfiguration-import           Network.AWS.GameLift.Waiters+import Network.AWS.GameLift.AcceptMatch+import Network.AWS.GameLift.CreateAlias+import Network.AWS.GameLift.CreateBuild+import Network.AWS.GameLift.CreateFleet+import Network.AWS.GameLift.CreateGameSession+import Network.AWS.GameLift.CreateGameSessionQueue+import Network.AWS.GameLift.CreateMatchmakingConfiguration+import Network.AWS.GameLift.CreateMatchmakingRuleSet+import Network.AWS.GameLift.CreatePlayerSession+import Network.AWS.GameLift.CreatePlayerSessions+import Network.AWS.GameLift.CreateVPCPeeringAuthorization+import Network.AWS.GameLift.CreateVPCPeeringConnection+import Network.AWS.GameLift.DeleteAlias+import Network.AWS.GameLift.DeleteBuild+import Network.AWS.GameLift.DeleteFleet+import Network.AWS.GameLift.DeleteGameSessionQueue+import Network.AWS.GameLift.DeleteMatchmakingConfiguration+import Network.AWS.GameLift.DeleteScalingPolicy+import Network.AWS.GameLift.DeleteVPCPeeringAuthorization+import Network.AWS.GameLift.DeleteVPCPeeringConnection+import Network.AWS.GameLift.DescribeAlias+import Network.AWS.GameLift.DescribeBuild+import Network.AWS.GameLift.DescribeEC2InstanceLimits+import Network.AWS.GameLift.DescribeFleetAttributes+import Network.AWS.GameLift.DescribeFleetCapacity+import Network.AWS.GameLift.DescribeFleetEvents+import Network.AWS.GameLift.DescribeFleetPortSettings+import Network.AWS.GameLift.DescribeFleetUtilization+import Network.AWS.GameLift.DescribeGameSessionDetails+import Network.AWS.GameLift.DescribeGameSessionPlacement+import Network.AWS.GameLift.DescribeGameSessionQueues+import Network.AWS.GameLift.DescribeGameSessions+import Network.AWS.GameLift.DescribeInstances+import Network.AWS.GameLift.DescribeMatchmaking+import Network.AWS.GameLift.DescribeMatchmakingConfigurations+import Network.AWS.GameLift.DescribeMatchmakingRuleSets+import Network.AWS.GameLift.DescribePlayerSessions+import Network.AWS.GameLift.DescribeRuntimeConfiguration+import Network.AWS.GameLift.DescribeScalingPolicies+import Network.AWS.GameLift.DescribeVPCPeeringAuthorizations+import Network.AWS.GameLift.DescribeVPCPeeringConnections+import Network.AWS.GameLift.GetGameSessionLogURL+import Network.AWS.GameLift.GetInstanceAccess+import Network.AWS.GameLift.ListAliases+import Network.AWS.GameLift.ListBuilds+import Network.AWS.GameLift.ListFleets+import Network.AWS.GameLift.PutScalingPolicy+import Network.AWS.GameLift.RequestUploadCredentials+import Network.AWS.GameLift.ResolveAlias+import Network.AWS.GameLift.SearchGameSessions+import Network.AWS.GameLift.StartGameSessionPlacement+import Network.AWS.GameLift.StartMatchmaking+import Network.AWS.GameLift.StopGameSessionPlacement+import Network.AWS.GameLift.StopMatchmaking+import Network.AWS.GameLift.Types+import Network.AWS.GameLift.UpdateAlias+import Network.AWS.GameLift.UpdateBuild+import Network.AWS.GameLift.UpdateFleetAttributes+import Network.AWS.GameLift.UpdateFleetCapacity+import Network.AWS.GameLift.UpdateFleetPortSettings+import Network.AWS.GameLift.UpdateGameSession+import Network.AWS.GameLift.UpdateGameSessionQueue+import Network.AWS.GameLift.UpdateMatchmakingConfiguration+import Network.AWS.GameLift.UpdateRuntimeConfiguration+import Network.AWS.GameLift.ValidateMatchmakingRuleSet+import Network.AWS.GameLift.Waiters  {- $errors Error matchers are designed for use with the functions provided by

@@ -0,0 +1,168 @@+{-# 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.GameLift.AcceptMatch+-- 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)+--+-- Registers a player's acceptance or rejection of a proposed FlexMatch match. A matchmaking configuration may require player acceptance; if so, then matches built with that configuration cannot be completed unless all players accept the proposed match within a specified time limit.+--+--+-- When FlexMatch builds a match, all the matchmaking tickets involved in the proposed match are placed into status @REQUIRES_ACCEPTANCE@ . This is a trigger for your game to get acceptance from all players in the ticket. Acceptances are only valid for tickets when they are in this status; all other acceptances result in an error.+--+-- To register acceptance, specify the ticket ID, a response, and one or more players. Once all players have registered acceptance, the matchmaking tickets advance to status @PLACING@ , where a new game session is created for the match.+--+-- If any player rejects the match, or if acceptances are not received before a specified timeout, the proposed match is dropped. The matchmaking tickets are then handled in one of two ways: For tickets where all players accepted the match, the ticket status is returned to @SEARCHING@ to find a new match. For tickets where one or more players failed to accept the match, the ticket status is set to @FAILED@ , and processing is terminated. A new matchmaking request for these players can be submitted as needed.+--+-- Matchmaking-related operations include:+--+--     * 'StartMatchmaking'+--+--     * 'DescribeMatchmaking'+--+--     * 'StopMatchmaking'+--+--     * 'AcceptMatch'+--+--+--+module Network.AWS.GameLift.AcceptMatch+    (+    -- * Creating a Request+      acceptMatch+    , AcceptMatch+    -- * Request Lenses+    , amTicketId+    , amPlayerIds+    , amAcceptanceType++    -- * Destructuring the Response+    , acceptMatchResponse+    , AcceptMatchResponse+    -- * Response Lenses+    , amrsResponseStatus+    ) where++import Network.AWS.GameLift.Types+import Network.AWS.GameLift.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | Represents the input for a request action.+--+--+--+-- /See:/ 'acceptMatch' smart constructor.+data AcceptMatch = AcceptMatch'+  { _amTicketId       :: !Text+  , _amPlayerIds      :: ![Text]+  , _amAcceptanceType :: !AcceptanceType+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'AcceptMatch' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'amTicketId' - Unique identifier for a matchmaking ticket. The ticket must be in status @REQUIRES_ACCEPTANCE@ ; otherwise this request will fail.+--+-- * 'amPlayerIds' - Unique identifier for a player delivering the response. This parameter can include one or multiple player IDs.+--+-- * 'amAcceptanceType' - Player response to the proposed match.+acceptMatch+    :: Text -- ^ 'amTicketId'+    -> AcceptanceType -- ^ 'amAcceptanceType'+    -> AcceptMatch+acceptMatch pTicketId_ pAcceptanceType_ =+  AcceptMatch'+  { _amTicketId = pTicketId_+  , _amPlayerIds = mempty+  , _amAcceptanceType = pAcceptanceType_+  }+++-- | Unique identifier for a matchmaking ticket. The ticket must be in status @REQUIRES_ACCEPTANCE@ ; otherwise this request will fail.+amTicketId :: Lens' AcceptMatch Text+amTicketId = lens _amTicketId (\ s a -> s{_amTicketId = a});++-- | Unique identifier for a player delivering the response. This parameter can include one or multiple player IDs.+amPlayerIds :: Lens' AcceptMatch [Text]+amPlayerIds = lens _amPlayerIds (\ s a -> s{_amPlayerIds = a}) . _Coerce;++-- | Player response to the proposed match.+amAcceptanceType :: Lens' AcceptMatch AcceptanceType+amAcceptanceType = lens _amAcceptanceType (\ s a -> s{_amAcceptanceType = a});++instance AWSRequest AcceptMatch where+        type Rs AcceptMatch = AcceptMatchResponse+        request = postJSON gameLift+        response+          = receiveEmpty+              (\ s h x ->+                 AcceptMatchResponse' <$> (pure (fromEnum s)))++instance Hashable AcceptMatch where++instance NFData AcceptMatch where++instance ToHeaders AcceptMatch where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("GameLift.AcceptMatch" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON AcceptMatch where+        toJSON AcceptMatch'{..}+          = object+              (catMaybes+                 [Just ("TicketId" .= _amTicketId),+                  Just ("PlayerIds" .= _amPlayerIds),+                  Just ("AcceptanceType" .= _amAcceptanceType)])++instance ToPath AcceptMatch where+        toPath = const "/"++instance ToQuery AcceptMatch where+        toQuery = const mempty++-- | /See:/ 'acceptMatchResponse' smart constructor.+newtype AcceptMatchResponse = AcceptMatchResponse'+  { _amrsResponseStatus :: Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'AcceptMatchResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'amrsResponseStatus' - -- | The response status code.+acceptMatchResponse+    :: Int -- ^ 'amrsResponseStatus'+    -> AcceptMatchResponse+acceptMatchResponse pResponseStatus_ =+  AcceptMatchResponse' {_amrsResponseStatus = pResponseStatus_}+++-- | -- | The response status code.+amrsResponseStatus :: Lens' AcceptMatchResponse Int+amrsResponseStatus = lens _amrsResponseStatus (\ s a -> s{_amrsResponseStatus = a});++instance NFData AcceptMatchResponse where

@@ -12,17 +12,35 @@  -- | -- Module      : Network.AWS.GameLift.CreateAlias--- 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) ----- Creates an alias for a fleet. You can use an alias to anonymize your fleet by referencing an alias instead of a specific fleet when you create game sessions. Amazon GameLift supports two types of routing strategies for aliases: simple and terminal. Use a simple alias to point to an active fleet. Use a terminal alias to display a message to incoming traffic instead of routing players to an active fleet. This option is useful when a game server is no longer supported but you want to provide better messaging than a standard 404 error.+-- Creates an alias for a fleet. In most situations, you can use an alias ID in place of a fleet ID. By using a fleet alias instead of a specific fleet ID, you can switch gameplay and players to a new fleet without changing your game client or other game components. For example, for games in production, using an alias allows you to seamlessly redirect your player base to a new game server update. -- ----- To create a fleet alias, specify an alias name, routing strategy, and optional description. If successful, a new alias record is returned, including an alias ID, which you can reference when creating a game session. To reassign the alias to another fleet ID, call 'UpdateAlias' .+-- Amazon GameLift supports two types of routing strategies for aliases: simple and terminal. A simple alias points to an active fleet. A terminal alias is used to display messaging or link to a URL instead of routing players to an active fleet. For example, you might use a terminal alias when a game version is no longer supported and you want to direct players to an upgrade site. --+-- To create a fleet alias, specify an alias name, routing strategy, and optional description. Each simple alias can point to only one fleet, but a fleet can have multiple aliases. If successful, a new alias record is returned, including an alias ID, which you can reference when creating a game session. You can reassign an alias to another fleet by calling @UpdateAlias@ .+--+-- Alias-related operations include:+--+--     * 'CreateAlias'+--+--     * 'ListAliases'+--+--     * 'DescribeAlias'+--+--     * 'UpdateAlias'+--+--     * 'DeleteAlias'+--+--     * 'ResolveAlias'+--+--+-- module Network.AWS.GameLift.CreateAlias     (     -- * Creating a Request@@ -41,12 +59,12 @@     , carsResponseStatus     ) where -import           Network.AWS.GameLift.Types-import           Network.AWS.GameLift.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.GameLift.Types+import Network.AWS.GameLift.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | Represents the input for a request action. --@@ -54,40 +72,42 @@ -- -- /See:/ 'createAlias' smart constructor. data CreateAlias = CreateAlias'-    { _caDescription     :: !(Maybe Text)-    , _caName            :: !Text-    , _caRoutingStrategy :: !RoutingStrategy-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _caDescription     :: !(Maybe Text)+  , _caName            :: !Text+  , _caRoutingStrategy :: !RoutingStrategy+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateAlias' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'caDescription' - Human-readable description of an alias. ----- * 'caName' - Descriptive label associated with an alias. Alias names do not need to be unique.+-- * 'caName' - Descriptive label that is associated with an alias. Alias names do not need to be unique. ----- * 'caRoutingStrategy' - Object specifying the fleet and routing type to use for the alias.+-- * 'caRoutingStrategy' - Object that specifies the fleet and routing type to use for the alias. createAlias     :: Text -- ^ 'caName'     -> RoutingStrategy -- ^ 'caRoutingStrategy'     -> CreateAlias createAlias pName_ pRoutingStrategy_ =-    CreateAlias'-    { _caDescription = Nothing-    , _caName = pName_-    , _caRoutingStrategy = pRoutingStrategy_-    }+  CreateAlias'+  { _caDescription = Nothing+  , _caName = pName_+  , _caRoutingStrategy = pRoutingStrategy_+  } + -- | Human-readable description of an alias. caDescription :: Lens' CreateAlias (Maybe Text) caDescription = lens _caDescription (\ s a -> s{_caDescription = a}); --- | Descriptive label associated with an alias. Alias names do not need to be unique.+-- | Descriptive label that is associated with an alias. Alias names do not need to be unique. caName :: Lens' CreateAlias Text caName = lens _caName (\ s a -> s{_caName = a}); --- | Object specifying the fleet and routing type to use for the alias.+-- | Object that specifies the fleet and routing type to use for the alias. caRoutingStrategy :: Lens' CreateAlias RoutingStrategy caRoutingStrategy = lens _caRoutingStrategy (\ s a -> s{_caRoutingStrategy = a}); @@ -100,9 +120,9 @@                  CreateAliasResponse' <$>                    (x .?> "Alias") <*> (pure (fromEnum s))) -instance Hashable CreateAlias+instance Hashable CreateAlias where -instance NFData CreateAlias+instance NFData CreateAlias where  instance ToHeaders CreateAlias where         toHeaders@@ -133,27 +153,27 @@ -- -- /See:/ 'createAliasResponse' smart constructor. data CreateAliasResponse = CreateAliasResponse'-    { _carsAlias          :: !(Maybe Alias)-    , _carsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _carsAlias          :: !(Maybe Alias)+  , _carsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateAliasResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'carsAlias' - Object containing the newly created alias record.+-- * 'carsAlias' - Object that describes the newly created alias record. -- -- * 'carsResponseStatus' - -- | The response status code. createAliasResponse     :: Int -- ^ 'carsResponseStatus'     -> CreateAliasResponse createAliasResponse pResponseStatus_ =-    CreateAliasResponse'-    { _carsAlias = Nothing-    , _carsResponseStatus = pResponseStatus_-    }+  CreateAliasResponse'+  {_carsAlias = Nothing, _carsResponseStatus = pResponseStatus_} --- | Object containing the newly created alias record.++-- | Object that describes the newly created alias record. carsAlias :: Lens' CreateAliasResponse (Maybe Alias) carsAlias = lens _carsAlias (\ s a -> s{_carsAlias = a}); @@ -161,4 +181,4 @@ carsResponseStatus :: Lens' CreateAliasResponse Int carsResponseStatus = lens _carsResponseStatus (\ s a -> s{_carsResponseStatus = a}); -instance NFData CreateAliasResponse+instance NFData CreateAliasResponse where

@@ -12,19 +12,33 @@  -- | -- Module      : Network.AWS.GameLift.CreateBuild--- 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) ----- Initializes a new build record and generates information required to upload a game build to Amazon GameLift. Once the build record has been created and its status is @INITIALIZED@ , you can upload your game build.+-- Creates a new Amazon GameLift build from a set of game server binary files stored in an Amazon Simple Storage Service (Amazon S3) location. To use this API call, create a @.zip@ file containing all of the files for the build and store it in an Amazon S3 bucket under your AWS account. For help on packaging your build files and creating a build, see <http://docs.aws.amazon.com/gamelift/latest/developerguide/gamelift-build-intro.html Uploading Your Game to Amazon GameLift> . -- ----- /Important:/ Do not use this API action unless you are using your own Amazon Simple Storage Service (Amazon S3) client and need to manually upload your build files. Instead, to create a build, use the CLI command @upload-build@ , which creates a new build record and uploads the build files in one step. (See the <http://docs.aws.amazon.com/gamelift/latest/developerguide/gamelift-build-intro.html Amazon GameLift Developer Guide> help on packaging and uploading your build.)+-- /Important:/ Use this API action ONLY if you are storing your game build files in an Amazon S3 bucket. To create a build using files stored locally, use the CLI command <http://docs.aws.amazon.com/cli/latest/reference/gamelift/upload-build.html @upload-build@ > , which uploads the build files from a file location you specify. ----- To create a new build, identify the operating system of the game server binaries. All game servers in a build must use the same operating system. Optionally, specify a build name and version; this metadata is stored with other properties in the build record and is displayed in the GameLift console (it is not visible to players). If successful, this action returns the newly created build record along with the Amazon S3 storage location and AWS account credentials. Use the location and credentials to upload your game build.+-- To create a new build using @CreateBuild@ , identify the storage location and operating system of your game build. You also have the option of specifying a build name and version. If successful, this action creates a new build record with an unique build ID and in @INITIALIZED@ status. Use the API call 'DescribeBuild' to check the status of your build. A build must be in @READY@ status before it can be used to create fleets to host your game. --+-- Build-related operations include:+--+--     * 'CreateBuild'+--+--     * 'ListBuilds'+--+--     * 'DescribeBuild'+--+--     * 'UpdateBuild'+--+--     * 'DeleteBuild'+--+--+-- module Network.AWS.GameLift.CreateBuild     (     -- * Creating a Request@@ -46,12 +60,12 @@     , cbrsResponseStatus     ) where -import           Network.AWS.GameLift.Types-import           Network.AWS.GameLift.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.GameLift.Types+import Network.AWS.GameLift.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | Represents the input for a request action. --@@ -59,46 +73,48 @@ -- -- /See:/ 'createBuild' smart constructor. data CreateBuild = CreateBuild'-    { _cbStorageLocation :: !(Maybe S3Location)-    , _cbOperatingSystem :: !(Maybe OperatingSystem)-    , _cbName            :: !(Maybe Text)-    , _cbVersion         :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cbStorageLocation :: !(Maybe S3Location)+  , _cbOperatingSystem :: !(Maybe OperatingSystem)+  , _cbName            :: !(Maybe Text)+  , _cbVersion         :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateBuild' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cbStorageLocation' - Undocumented member.+-- * 'cbStorageLocation' - Amazon S3 location of the game build files to be uploaded. The S3 bucket must be owned by the same AWS account that you're using to manage Amazon GameLift. It also must in the same region that you want to create a new build in. Before calling @CreateBuild@ with this location, you must allow Amazon GameLift to access your Amazon S3 bucket (see <http://docs.aws.amazon.com/gamelift/latest/developerguide/gamelift-build-cli-uploading.html#gamelift-build-cli-uploading-create-build Create a Build with Files in Amazon S3> ). ----- * 'cbOperatingSystem' - Operating system that the game server binaries are built to run on. This value determines the type of fleet resources that you can use for this build.+-- * 'cbOperatingSystem' - Operating system that the game server binaries are built to run on. This value determines the type of fleet resources that you can use for this build. If your game build contains multiple executables, they all must run on the same operating system. ----- * 'cbName' - Descriptive label associated with a build. Build names do not need to be unique. A build name can be changed later using@'UpdateBuild' @ .+-- * 'cbName' - Descriptive label that is associated with a build. Build names do not need to be unique. You can use 'UpdateBuild' to change this value later. ----- * 'cbVersion' - Version associated with this build. Version strings do not need to be unique to a build. A build version can be changed later using@'UpdateBuild' @ .+-- * 'cbVersion' - Version that is associated with this build. Version strings do not need to be unique. You can use 'UpdateBuild' to change this value later. createBuild     :: CreateBuild createBuild =-    CreateBuild'-    { _cbStorageLocation = Nothing-    , _cbOperatingSystem = Nothing-    , _cbName = Nothing-    , _cbVersion = Nothing-    }+  CreateBuild'+  { _cbStorageLocation = Nothing+  , _cbOperatingSystem = Nothing+  , _cbName = Nothing+  , _cbVersion = Nothing+  } --- | Undocumented member.++-- | Amazon S3 location of the game build files to be uploaded. The S3 bucket must be owned by the same AWS account that you're using to manage Amazon GameLift. It also must in the same region that you want to create a new build in. Before calling @CreateBuild@ with this location, you must allow Amazon GameLift to access your Amazon S3 bucket (see <http://docs.aws.amazon.com/gamelift/latest/developerguide/gamelift-build-cli-uploading.html#gamelift-build-cli-uploading-create-build Create a Build with Files in Amazon S3> ). cbStorageLocation :: Lens' CreateBuild (Maybe S3Location) cbStorageLocation = lens _cbStorageLocation (\ s a -> s{_cbStorageLocation = a}); --- | Operating system that the game server binaries are built to run on. This value determines the type of fleet resources that you can use for this build.+-- | Operating system that the game server binaries are built to run on. This value determines the type of fleet resources that you can use for this build. If your game build contains multiple executables, they all must run on the same operating system. cbOperatingSystem :: Lens' CreateBuild (Maybe OperatingSystem) cbOperatingSystem = lens _cbOperatingSystem (\ s a -> s{_cbOperatingSystem = a}); --- | Descriptive label associated with a build. Build names do not need to be unique. A build name can be changed later using@'UpdateBuild' @ .+-- | Descriptive label that is associated with a build. Build names do not need to be unique. You can use 'UpdateBuild' to change this value later. cbName :: Lens' CreateBuild (Maybe Text) cbName = lens _cbName (\ s a -> s{_cbName = a}); --- | Version associated with this build. Version strings do not need to be unique to a build. A build version can be changed later using@'UpdateBuild' @ .+-- | Version that is associated with this build. Version strings do not need to be unique. You can use 'UpdateBuild' to change this value later. cbVersion :: Lens' CreateBuild (Maybe Text) cbVersion = lens _cbVersion (\ s a -> s{_cbVersion = a}); @@ -114,9 +130,9 @@                      <*> (x .?> "Build")                      <*> (pure (fromEnum s))) -instance Hashable CreateBuild+instance Hashable CreateBuild where -instance NFData CreateBuild+instance NFData CreateBuild where  instance ToHeaders CreateBuild where         toHeaders@@ -148,43 +164,45 @@ -- -- /See:/ 'createBuildResponse' smart constructor. data CreateBuildResponse = CreateBuildResponse'-    { _cbrsStorageLocation   :: !(Maybe S3Location)-    , _cbrsUploadCredentials :: !(Maybe (Sensitive AWSCredentials))-    , _cbrsBuild             :: !(Maybe Build)-    , _cbrsResponseStatus    :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cbrsStorageLocation   :: !(Maybe S3Location)+  , _cbrsUploadCredentials :: !(Maybe (Sensitive AWSCredentials))+  , _cbrsBuild             :: !(Maybe Build)+  , _cbrsResponseStatus    :: !Int+  } deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateBuildResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cbrsStorageLocation' - Amazon S3 path and key, identifying where the game build files are stored.+-- * 'cbrsStorageLocation' - Amazon S3 location specified in the request. ----- * 'cbrsUploadCredentials' - AWS credentials required when uploading a game build to the storage location. These credentials have a limited lifespan and are valid only for the build they were issued for. If you need to get fresh credentials, call@'RequestUploadCredentials' @ .+-- * 'cbrsUploadCredentials' - This element is not currently in use. ----- * 'cbrsBuild' - Set of properties for the newly created build.+-- * 'cbrsBuild' - The newly created build record, including a unique build ID and status. -- -- * 'cbrsResponseStatus' - -- | The response status code. createBuildResponse     :: Int -- ^ 'cbrsResponseStatus'     -> CreateBuildResponse createBuildResponse pResponseStatus_ =-    CreateBuildResponse'-    { _cbrsStorageLocation = Nothing-    , _cbrsUploadCredentials = Nothing-    , _cbrsBuild = Nothing-    , _cbrsResponseStatus = pResponseStatus_-    }+  CreateBuildResponse'+  { _cbrsStorageLocation = Nothing+  , _cbrsUploadCredentials = Nothing+  , _cbrsBuild = Nothing+  , _cbrsResponseStatus = pResponseStatus_+  } --- | Amazon S3 path and key, identifying where the game build files are stored.++-- | Amazon S3 location specified in the request. cbrsStorageLocation :: Lens' CreateBuildResponse (Maybe S3Location) cbrsStorageLocation = lens _cbrsStorageLocation (\ s a -> s{_cbrsStorageLocation = a}); --- | AWS credentials required when uploading a game build to the storage location. These credentials have a limited lifespan and are valid only for the build they were issued for. If you need to get fresh credentials, call@'RequestUploadCredentials' @ .+-- | This element is not currently in use. cbrsUploadCredentials :: Lens' CreateBuildResponse (Maybe AWSCredentials) cbrsUploadCredentials = lens _cbrsUploadCredentials (\ s a -> s{_cbrsUploadCredentials = a}) . mapping _Sensitive; --- | Set of properties for the newly created build.+-- | The newly created build record, including a unique build ID and status. cbrsBuild :: Lens' CreateBuildResponse (Maybe Build) cbrsBuild = lens _cbrsBuild (\ s a -> s{_cbrsBuild = a}); @@ -192,4 +210,4 @@ cbrsResponseStatus :: Lens' CreateBuildResponse Int cbrsResponseStatus = lens _cbrsResponseStatus (\ s a -> s{_cbrsResponseStatus = a}); -instance NFData CreateBuildResponse+instance NFData CreateBuildResponse where

@@ -12,43 +12,99 @@  -- | -- Module      : Network.AWS.GameLift.CreateFleet--- 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) -- -- Creates a new fleet to run your game servers. A fleet is a set of Amazon Elastic Compute Cloud (Amazon EC2) instances, each of which can run multiple server processes to host game sessions. You configure a fleet to create instances with certain hardware specifications (see <http://aws.amazon.com/ec2/instance-types/ Amazon EC2 Instance Types> for more information), and deploy a specified game build to each instance. A newly created fleet passes through several statuses; once it reaches the @ACTIVE@ status, it can begin hosting game sessions. -- ----- To create a new fleet, provide a fleet name, an EC2 instance type, and a build ID of the game build to deploy. You can also configure the new fleet with the following settings: (1) a runtime configuration describing what server processes to run on each instance in the fleet (required to create fleet), (2) access permissions for inbound traffic, (3) fleet-wide game session protection, and (4) the location of default log files for GameLift to upload and store.+-- To create a new fleet, you must specify the following: (1) fleet name, (2) build ID of an uploaded game build, (3) an EC2 instance type, and (4) a run-time configuration that describes which server processes to run on each instance in the fleet. (Although the run-time configuration is not a required parameter, the fleet cannot be successfully activated without it.) ----- If the @CreateFleet@ call is successful, Amazon GameLift performs the following tasks:+-- You can also configure the new fleet with the following settings: --+--     * Fleet description+--+--     * Access permissions for inbound traffic+--+--     * Fleet-wide game session protection+--+--     * Resource creation limit+--+--+--+-- If you use Amazon CloudWatch for metrics, you can add the new fleet to a metric group. This allows you to view aggregated metrics for a set of fleets. Once you specify a metric group, the new fleet's metrics are included in the metric group's data.+--+-- You have the option of creating a VPC peering connection with the new fleet. For more information, see <http://docs.aws.amazon.com/gamelift/latest/developerguide/vpc-peering.html VPC Peering with Amazon GameLift Fleets> .+--+-- If the CreateFleet call is successful, Amazon GameLift performs the following tasks:+-- --     * Creates a fleet record and sets the status to @NEW@ (followed by other statuses as the fleet is activated). -----     * Sets the fleet's capacity to 1 "desired", which causes GameLift to start one new EC2 instance.+--     * Sets the fleet's target capacity to 1 (desired instances), which causes Amazon GameLift to start one new EC2 instance. -----     * Starts launching server processes on the instance. If the fleet is configured to run multiple server processes per instance, GameLift staggers each launch by a few seconds.+--     * Starts launching server processes on the instance. If the fleet is configured to run multiple server processes per instance, Amazon GameLift staggers each launch by a few seconds. -----     * Begins writing events to the fleet event log, which can be accessed in the GameLift console.+--     * Begins writing events to the fleet event log, which can be accessed in the Amazon GameLift console. -----     * Sets the fleet's status to @ACTIVE@ once one server process in the fleet is ready to host a game session.+--     * Sets the fleet's status to @ACTIVE@ as soon as one server process in the fleet is ready to host a game session. -- -- ----- After a fleet is created, use the following actions to change fleet properties and configuration:+-- Fleet-related operations include: -----     * 'UpdateFleetAttributes' -- Update fleet metadata, including name and description.+--     * 'CreateFleet' -----     * 'UpdateFleetCapacity' -- Increase or decrease the number of instances you want the fleet to maintain.+--     * 'ListFleets' -----     * 'UpdateFleetPortSettings' -- Change the IP address and port ranges that allow access to incoming traffic.+--     * Describe fleets: -----     * 'UpdateRuntimeConfiguration' -- Change how server processes are launched in the fleet, including launch path, launch parameters, and the number of concurrent processes.+--     * 'DescribeFleetAttributes' --+--     * 'DescribeFleetPortSettings' --+--     * 'DescribeFleetUtilization' --+--     * 'DescribeRuntimeConfiguration'+--+--     * 'DescribeFleetEvents'+--+--+--+--     * Update fleets:+--+--     * 'UpdateFleetAttributes'+--+--     * 'UpdateFleetCapacity'+--+--     * 'UpdateFleetPortSettings'+--+--     * 'UpdateRuntimeConfiguration'+--+--+--+--     * Manage fleet capacity:+--+--     * 'DescribeFleetCapacity'+--+--     * 'UpdateFleetCapacity'+--+--     * 'PutScalingPolicy' (automatic scaling)+--+--     * 'DescribeScalingPolicies' (automatic scaling)+--+--     * 'DeleteScalingPolicy' (automatic scaling)+--+--     * 'DescribeEC2InstanceLimits'+--+--+--+--     * 'DeleteFleet'+--+--+-- module Network.AWS.GameLift.CreateFleet     (     -- * Creating a Request@@ -57,10 +113,13 @@     -- * Request Lenses     , cfServerLaunchParameters     , cfLogPaths+    , cfPeerVPCId+    , cfPeerVPCAWSAccountId     , cfEC2InboundPermissions     , cfRuntimeConfiguration     , cfNewGameSessionProtectionPolicy     , cfServerLaunchPath+    , cfMetricGroups     , cfDescription     , cfResourceCreationLimitPolicy     , cfName@@ -75,12 +134,12 @@     , cfrsResponseStatus     ) where -import           Network.AWS.GameLift.Types-import           Network.AWS.GameLift.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.GameLift.Types+import Network.AWS.GameLift.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | Represents the input for a request action. --@@ -88,88 +147,114 @@ -- -- /See:/ 'createFleet' smart constructor. data CreateFleet = CreateFleet'-    { _cfServerLaunchParameters         :: !(Maybe Text)-    , _cfLogPaths                       :: !(Maybe [Text])-    , _cfEC2InboundPermissions          :: !(Maybe [IPPermission])-    , _cfRuntimeConfiguration           :: !(Maybe RuntimeConfiguration)-    , _cfNewGameSessionProtectionPolicy :: !(Maybe ProtectionPolicy)-    , _cfServerLaunchPath               :: !(Maybe Text)-    , _cfDescription                    :: !(Maybe Text)-    , _cfResourceCreationLimitPolicy    :: !(Maybe ResourceCreationLimitPolicy)-    , _cfName                           :: !Text-    , _cfBuildId                        :: !Text-    , _cfEC2InstanceType                :: !EC2InstanceType-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cfServerLaunchParameters         :: !(Maybe Text)+  , _cfLogPaths                       :: !(Maybe [Text])+  , _cfPeerVPCId                      :: !(Maybe Text)+  , _cfPeerVPCAWSAccountId            :: !(Maybe Text)+  , _cfEC2InboundPermissions          :: !(Maybe [IPPermission])+  , _cfRuntimeConfiguration           :: !(Maybe RuntimeConfiguration)+  , _cfNewGameSessionProtectionPolicy :: !(Maybe ProtectionPolicy)+  , _cfServerLaunchPath               :: !(Maybe Text)+  , _cfMetricGroups                   :: !(Maybe [Text])+  , _cfDescription                    :: !(Maybe Text)+  , _cfResourceCreationLimitPolicy    :: !(Maybe ResourceCreationLimitPolicy)+  , _cfName                           :: !Text+  , _cfBuildId                        :: !Text+  , _cfEC2InstanceType                :: !EC2InstanceType+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateFleet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cfServerLaunchParameters' - This parameter is no longer used. Instead, specify server launch parameters in the @RuntimeConfiguration@ parameter. (Requests that specify a server launch path and launch parameters instead of a runtime configuration will continue to work.)+-- * 'cfServerLaunchParameters' - This parameter is no longer used. Instead, specify server launch parameters in the @RuntimeConfiguration@ parameter. (Requests that specify a server launch path and launch parameters instead of a run-time configuration will continue to work.) ----- * 'cfLogPaths' - Location of default log files. When a server process is shut down, Amazon GameLift captures and stores any log files in this location. These logs are in addition to game session logs; see more on game session logs in the <http://docs.aws.amazon.com/gamelift/latest/developerguide/gamelift-sdk-server-api.html#gamelift-sdk-server-api-server-code Amazon GameLift Developer Guide> . If no default log path for a fleet is specified, GameLift will automatically upload logs stored on each instance at @C:\game\logs@ (for Windows) or @/local/game/logs@ (for Linux). Use the GameLift console to access stored logs.+-- * 'cfLogPaths' - This parameter is no longer used. Instead, to specify where Amazon GameLift should store log files once a server process shuts down, use the Amazon GameLift server API @ProcessReady()@ and specify one or more directory paths in @logParameters@ . See more information in the <http://docs.aws.amazon.com/gamelift/latest/developerguide/gamelift-sdk-server-api-ref.html#gamelift-sdk-server-api-ref-dataypes-process Server API Reference> . --+-- * 'cfPeerVPCId' - Unique identifier for a VPC with resources to be accessed by your Amazon GameLift fleet. The VPC must be in the same region where your fleet is deployed. To get VPC information, including IDs, use the Virtual Private Cloud service tools, including the VPC Dashboard in the AWS Management Console.+--+-- * 'cfPeerVPCAWSAccountId' - Unique identifier for the AWS account with the VPC that you want to peer your Amazon GameLift fleet with. You can find your Account ID in the AWS Management Console under account settings.+-- -- * 'cfEC2InboundPermissions' - Range of IP addresses and port settings that permit inbound traffic to access server processes running on the fleet. If no inbound permissions are set, including both IP address range and port range, the server processes in the fleet cannot accept connections. You can specify one or more sets of permissions for a fleet. ----- * 'cfRuntimeConfiguration' - Instructions for launching server processes on each instance in the fleet. The runtime configuration for a fleet has a collection of server process configurations, one for each type of server process to run on an instance. A server process configuration specifies the location of the server executable, launch parameters, and the number of concurrent processes with that configuration to maintain on each instance. A @CreateFleet@ request must include a runtime configuration with at least one server process configuration; otherwise the request will fail with an invalid request exception. (This parameter replaces the parameters @ServerLaunchPath@ and @ServerLaunchParameters@ ; requests that contain values for these parameters instead of a runtime configuration will continue to work.)+-- * 'cfRuntimeConfiguration' - Instructions for launching server processes on each instance in the fleet. The run-time configuration for a fleet has a collection of server process configurations, one for each type of server process to run on an instance. A server process configuration specifies the location of the server executable, launch parameters, and the number of concurrent processes with that configuration to maintain on each instance. A CreateFleet request must include a run-time configuration with at least one server process configuration; otherwise the request fails with an invalid request exception. (This parameter replaces the parameters @ServerLaunchPath@ and @ServerLaunchParameters@ ; requests that contain values for these parameters instead of a run-time configuration will continue to work.) ----- * 'cfNewGameSessionProtectionPolicy' - Game session protection policy to apply to all instances in this fleet. If this parameter is not set, instances in this fleet default to no protection. You can change a fleet's protection policy using UpdateFleetAttributes, but this change will only affect sessions created after the policy change. You can also set protection for individual instances using 'UpdateGameSession' .     * __NoProtection__ – The game session can be terminated during a scale-down event.     * __FullProtection__ – If the game session is in an @ACTIVE@ status, it cannot be terminated during a scale-down event.+-- * 'cfNewGameSessionProtectionPolicy' - Game session protection policy to apply to all instances in this fleet. If this parameter is not set, instances in this fleet default to no protection. You can change a fleet's protection policy using UpdateFleetAttributes, but this change will only affect sessions created after the policy change. You can also set protection for individual instances using 'UpdateGameSession' .     * __NoProtection__ -- The game session can be terminated during a scale-down event.     * __FullProtection__ -- If the game session is in an @ACTIVE@ status, it cannot be terminated during a scale-down event. ----- * 'cfServerLaunchPath' - This parameter is no longer used. Instead, specify a server launch path using the @RuntimeConfiguration@ parameter. (Requests that specify a server launch path and launch parameters instead of a runtime configuration will continue to work.)+-- * 'cfServerLaunchPath' - This parameter is no longer used. Instead, specify a server launch path using the @RuntimeConfiguration@ parameter. (Requests that specify a server launch path and launch parameters instead of a run-time configuration will continue to work.) --+-- * 'cfMetricGroups' - Names of metric groups to add this fleet to. Use an existing metric group name to add this fleet to the group. Or use a new name to create a new metric group. A fleet can only be included in one metric group at a time.+-- -- * 'cfDescription' - Human-readable description of a fleet. -- -- * 'cfResourceCreationLimitPolicy' - Policy that limits the number of game sessions an individual player can create over a span of time for this fleet. ----- * 'cfName' - Descriptive label associated with a fleet. Fleet names do not need to be unique.+-- * 'cfName' - Descriptive label that is associated with a fleet. Fleet names do not need to be unique. ----- * 'cfBuildId' - Unique identifier of the build to be deployed on the new fleet. The build must have been successfully uploaded to GameLift and be in a @READY@ status. This fleet setting cannot be changed once the fleet is created.+-- * 'cfBuildId' - Unique identifier for a build to be deployed on the new fleet. The build must have been successfully uploaded to Amazon GameLift and be in a @READY@ status. This fleet setting cannot be changed once the fleet is created. ----- * 'cfEC2InstanceType' - Name of an EC2 instance type that is supported in Amazon GameLift. A fleet instance type determines the computing resources of each instance in the fleet, including CPU, memory, storage, and networking capacity. GameLift supports the following EC2 instance types. See <http://aws.amazon.com/ec2/instance-types/ Amazon EC2 Instance Types> for detailed descriptions.+-- * 'cfEC2InstanceType' - Name of an EC2 instance type that is supported in Amazon GameLift. A fleet instance type determines the computing resources of each instance in the fleet, including CPU, memory, storage, and networking capacity. Amazon GameLift supports the following EC2 instance types. See <http://aws.amazon.com/ec2/instance-types/ Amazon EC2 Instance Types> for detailed descriptions. createFleet     :: Text -- ^ 'cfName'     -> Text -- ^ 'cfBuildId'     -> EC2InstanceType -- ^ 'cfEC2InstanceType'     -> CreateFleet createFleet pName_ pBuildId_ pEC2InstanceType_ =-    CreateFleet'-    { _cfServerLaunchParameters = Nothing-    , _cfLogPaths = Nothing-    , _cfEC2InboundPermissions = Nothing-    , _cfRuntimeConfiguration = Nothing-    , _cfNewGameSessionProtectionPolicy = Nothing-    , _cfServerLaunchPath = Nothing-    , _cfDescription = Nothing-    , _cfResourceCreationLimitPolicy = Nothing-    , _cfName = pName_-    , _cfBuildId = pBuildId_-    , _cfEC2InstanceType = pEC2InstanceType_-    }+  CreateFleet'+  { _cfServerLaunchParameters = Nothing+  , _cfLogPaths = Nothing+  , _cfPeerVPCId = Nothing+  , _cfPeerVPCAWSAccountId = Nothing+  , _cfEC2InboundPermissions = Nothing+  , _cfRuntimeConfiguration = Nothing+  , _cfNewGameSessionProtectionPolicy = Nothing+  , _cfServerLaunchPath = Nothing+  , _cfMetricGroups = Nothing+  , _cfDescription = Nothing+  , _cfResourceCreationLimitPolicy = Nothing+  , _cfName = pName_+  , _cfBuildId = pBuildId_+  , _cfEC2InstanceType = pEC2InstanceType_+  } --- | This parameter is no longer used. Instead, specify server launch parameters in the @RuntimeConfiguration@ parameter. (Requests that specify a server launch path and launch parameters instead of a runtime configuration will continue to work.)++-- | This parameter is no longer used. Instead, specify server launch parameters in the @RuntimeConfiguration@ parameter. (Requests that specify a server launch path and launch parameters instead of a run-time configuration will continue to work.) cfServerLaunchParameters :: Lens' CreateFleet (Maybe Text) cfServerLaunchParameters = lens _cfServerLaunchParameters (\ s a -> s{_cfServerLaunchParameters = a}); --- | Location of default log files. When a server process is shut down, Amazon GameLift captures and stores any log files in this location. These logs are in addition to game session logs; see more on game session logs in the <http://docs.aws.amazon.com/gamelift/latest/developerguide/gamelift-sdk-server-api.html#gamelift-sdk-server-api-server-code Amazon GameLift Developer Guide> . If no default log path for a fleet is specified, GameLift will automatically upload logs stored on each instance at @C:\game\logs@ (for Windows) or @/local/game/logs@ (for Linux). Use the GameLift console to access stored logs.+-- | This parameter is no longer used. Instead, to specify where Amazon GameLift should store log files once a server process shuts down, use the Amazon GameLift server API @ProcessReady()@ and specify one or more directory paths in @logParameters@ . See more information in the <http://docs.aws.amazon.com/gamelift/latest/developerguide/gamelift-sdk-server-api-ref.html#gamelift-sdk-server-api-ref-dataypes-process Server API Reference> . cfLogPaths :: Lens' CreateFleet [Text] cfLogPaths = lens _cfLogPaths (\ s a -> s{_cfLogPaths = a}) . _Default . _Coerce; +-- | Unique identifier for a VPC with resources to be accessed by your Amazon GameLift fleet. The VPC must be in the same region where your fleet is deployed. To get VPC information, including IDs, use the Virtual Private Cloud service tools, including the VPC Dashboard in the AWS Management Console.+cfPeerVPCId :: Lens' CreateFleet (Maybe Text)+cfPeerVPCId = lens _cfPeerVPCId (\ s a -> s{_cfPeerVPCId = a});++-- | Unique identifier for the AWS account with the VPC that you want to peer your Amazon GameLift fleet with. You can find your Account ID in the AWS Management Console under account settings.+cfPeerVPCAWSAccountId :: Lens' CreateFleet (Maybe Text)+cfPeerVPCAWSAccountId = lens _cfPeerVPCAWSAccountId (\ s a -> s{_cfPeerVPCAWSAccountId = a});+ -- | Range of IP addresses and port settings that permit inbound traffic to access server processes running on the fleet. If no inbound permissions are set, including both IP address range and port range, the server processes in the fleet cannot accept connections. You can specify one or more sets of permissions for a fleet. cfEC2InboundPermissions :: Lens' CreateFleet [IPPermission] cfEC2InboundPermissions = lens _cfEC2InboundPermissions (\ s a -> s{_cfEC2InboundPermissions = a}) . _Default . _Coerce; --- | Instructions for launching server processes on each instance in the fleet. The runtime configuration for a fleet has a collection of server process configurations, one for each type of server process to run on an instance. A server process configuration specifies the location of the server executable, launch parameters, and the number of concurrent processes with that configuration to maintain on each instance. A @CreateFleet@ request must include a runtime configuration with at least one server process configuration; otherwise the request will fail with an invalid request exception. (This parameter replaces the parameters @ServerLaunchPath@ and @ServerLaunchParameters@ ; requests that contain values for these parameters instead of a runtime configuration will continue to work.)+-- | Instructions for launching server processes on each instance in the fleet. The run-time configuration for a fleet has a collection of server process configurations, one for each type of server process to run on an instance. A server process configuration specifies the location of the server executable, launch parameters, and the number of concurrent processes with that configuration to maintain on each instance. A CreateFleet request must include a run-time configuration with at least one server process configuration; otherwise the request fails with an invalid request exception. (This parameter replaces the parameters @ServerLaunchPath@ and @ServerLaunchParameters@ ; requests that contain values for these parameters instead of a run-time configuration will continue to work.) cfRuntimeConfiguration :: Lens' CreateFleet (Maybe RuntimeConfiguration) cfRuntimeConfiguration = lens _cfRuntimeConfiguration (\ s a -> s{_cfRuntimeConfiguration = a}); --- | Game session protection policy to apply to all instances in this fleet. If this parameter is not set, instances in this fleet default to no protection. You can change a fleet's protection policy using UpdateFleetAttributes, but this change will only affect sessions created after the policy change. You can also set protection for individual instances using 'UpdateGameSession' .     * __NoProtection__ – The game session can be terminated during a scale-down event.     * __FullProtection__ – If the game session is in an @ACTIVE@ status, it cannot be terminated during a scale-down event.+-- | Game session protection policy to apply to all instances in this fleet. If this parameter is not set, instances in this fleet default to no protection. You can change a fleet's protection policy using UpdateFleetAttributes, but this change will only affect sessions created after the policy change. You can also set protection for individual instances using 'UpdateGameSession' .     * __NoProtection__ -- The game session can be terminated during a scale-down event.     * __FullProtection__ -- If the game session is in an @ACTIVE@ status, it cannot be terminated during a scale-down event. cfNewGameSessionProtectionPolicy :: Lens' CreateFleet (Maybe ProtectionPolicy) cfNewGameSessionProtectionPolicy = lens _cfNewGameSessionProtectionPolicy (\ s a -> s{_cfNewGameSessionProtectionPolicy = a}); --- | This parameter is no longer used. Instead, specify a server launch path using the @RuntimeConfiguration@ parameter. (Requests that specify a server launch path and launch parameters instead of a runtime configuration will continue to work.)+-- | This parameter is no longer used. Instead, specify a server launch path using the @RuntimeConfiguration@ parameter. (Requests that specify a server launch path and launch parameters instead of a run-time configuration will continue to work.) cfServerLaunchPath :: Lens' CreateFleet (Maybe Text) cfServerLaunchPath = lens _cfServerLaunchPath (\ s a -> s{_cfServerLaunchPath = a}); +-- | Names of metric groups to add this fleet to. Use an existing metric group name to add this fleet to the group. Or use a new name to create a new metric group. A fleet can only be included in one metric group at a time.+cfMetricGroups :: Lens' CreateFleet [Text]+cfMetricGroups = lens _cfMetricGroups (\ s a -> s{_cfMetricGroups = a}) . _Default . _Coerce;+ -- | Human-readable description of a fleet. cfDescription :: Lens' CreateFleet (Maybe Text) cfDescription = lens _cfDescription (\ s a -> s{_cfDescription = a});@@ -178,15 +263,15 @@ cfResourceCreationLimitPolicy :: Lens' CreateFleet (Maybe ResourceCreationLimitPolicy) cfResourceCreationLimitPolicy = lens _cfResourceCreationLimitPolicy (\ s a -> s{_cfResourceCreationLimitPolicy = a}); --- | Descriptive label associated with a fleet. Fleet names do not need to be unique.+-- | Descriptive label that is associated with a fleet. Fleet names do not need to be unique. cfName :: Lens' CreateFleet Text cfName = lens _cfName (\ s a -> s{_cfName = a}); --- | Unique identifier of the build to be deployed on the new fleet. The build must have been successfully uploaded to GameLift and be in a @READY@ status. This fleet setting cannot be changed once the fleet is created.+-- | Unique identifier for a build to be deployed on the new fleet. The build must have been successfully uploaded to Amazon GameLift and be in a @READY@ status. This fleet setting cannot be changed once the fleet is created. cfBuildId :: Lens' CreateFleet Text cfBuildId = lens _cfBuildId (\ s a -> s{_cfBuildId = a}); --- | Name of an EC2 instance type that is supported in Amazon GameLift. A fleet instance type determines the computing resources of each instance in the fleet, including CPU, memory, storage, and networking capacity. GameLift supports the following EC2 instance types. See <http://aws.amazon.com/ec2/instance-types/ Amazon EC2 Instance Types> for detailed descriptions.+-- | Name of an EC2 instance type that is supported in Amazon GameLift. A fleet instance type determines the computing resources of each instance in the fleet, including CPU, memory, storage, and networking capacity. Amazon GameLift supports the following EC2 instance types. See <http://aws.amazon.com/ec2/instance-types/ Amazon EC2 Instance Types> for detailed descriptions. cfEC2InstanceType :: Lens' CreateFleet EC2InstanceType cfEC2InstanceType = lens _cfEC2InstanceType (\ s a -> s{_cfEC2InstanceType = a}); @@ -199,9 +284,9 @@                  CreateFleetResponse' <$>                    (x .?> "FleetAttributes") <*> (pure (fromEnum s))) -instance Hashable CreateFleet+instance Hashable CreateFleet where -instance NFData CreateFleet+instance NFData CreateFleet where  instance ToHeaders CreateFleet where         toHeaders@@ -219,6 +304,9 @@                  [("ServerLaunchParameters" .=) <$>                     _cfServerLaunchParameters,                   ("LogPaths" .=) <$> _cfLogPaths,+                  ("PeerVpcId" .=) <$> _cfPeerVPCId,+                  ("PeerVpcAwsAccountId" .=) <$>+                    _cfPeerVPCAWSAccountId,                   ("EC2InboundPermissions" .=) <$>                     _cfEC2InboundPermissions,                   ("RuntimeConfiguration" .=) <$>@@ -226,6 +314,7 @@                   ("NewGameSessionProtectionPolicy" .=) <$>                     _cfNewGameSessionProtectionPolicy,                   ("ServerLaunchPath" .=) <$> _cfServerLaunchPath,+                  ("MetricGroups" .=) <$> _cfMetricGroups,                   ("Description" .=) <$> _cfDescription,                   ("ResourceCreationLimitPolicy" .=) <$>                     _cfResourceCreationLimitPolicy,@@ -245,10 +334,11 @@ -- -- /See:/ 'createFleetResponse' smart constructor. data CreateFleetResponse = CreateFleetResponse'-    { _cfrsFleetAttributes :: !(Maybe FleetAttributes)-    , _cfrsResponseStatus  :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cfrsFleetAttributes :: !(Maybe FleetAttributes)+  , _cfrsResponseStatus  :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateFleetResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -260,11 +350,10 @@     :: Int -- ^ 'cfrsResponseStatus'     -> CreateFleetResponse createFleetResponse pResponseStatus_ =-    CreateFleetResponse'-    { _cfrsFleetAttributes = Nothing-    , _cfrsResponseStatus = pResponseStatus_-    }+  CreateFleetResponse'+  {_cfrsFleetAttributes = Nothing, _cfrsResponseStatus = pResponseStatus_} + -- | Properties for the newly created fleet. cfrsFleetAttributes :: Lens' CreateFleetResponse (Maybe FleetAttributes) cfrsFleetAttributes = lens _cfrsFleetAttributes (\ s a -> s{_cfrsFleetAttributes = a});@@ -273,4 +362,4 @@ cfrsResponseStatus :: Lens' CreateFleetResponse Int cfrsResponseStatus = lens _cfrsResponseStatus (\ s a -> s{_cfrsResponseStatus = a}); -instance NFData CreateFleetResponse+instance NFData CreateFleetResponse where

@@ -12,29 +12,65 @@  -- | -- Module      : Network.AWS.GameLift.CreateGameSession--- 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) ----- Creates a multiplayer game session for players. This action creates a game session record and assigns an available server process in the specified fleet to host the game session. A fleet must be in an @ACTIVE@ status before a game session can be created in it.+-- Creates a multiplayer game session for players. This action creates a game session record and assigns an available server process in the specified fleet to host the game session. A fleet must have an @ACTIVE@ status before a game session can be created in it. -- ----- To create a game session, specify either fleet ID or alias ID, and indicate a maximum number of players to allow in the game session. You can also provide a name and game-specific properties for this game session. If successful, a 'GameSession' object is returned containing session properties, including an IP address. By default, newly created game sessions allow new players to join. Use 'UpdateGameSession' to change the game sessions player session creation policy.+-- To create a game session, specify either fleet ID or alias ID and indicate a maximum number of players to allow in the game session. You can also provide a name and game-specific properties for this game session. If successful, a 'GameSession' object is returned containing the game session properties and other settings you specified. ----- When creating a game session on a fleet with a resource limit creation policy, the request should include a creator ID. If none is provided, GameLift does not evaluate the fleet's resource limit creation policy.+-- __Idempotency tokens.__ You can add a token that uniquely identifies game session requests. This is useful for ensuring that game session requests are idempotent. Multiple requests with the same idempotency token are processed only once; subsequent requests return the original result. All response values are the same with the exception of game session status, which may change. --+-- __Resource creation limits.__ If you are creating a game session on a fleet with a resource creation limit policy in force, then you must specify a creator ID. Without this ID, Amazon GameLift has no way to evaluate the policy for this new game session request.+--+-- __Player acceptance policy.__ By default, newly created game sessions are open to new players. You can restrict new player access by using 'UpdateGameSession' to change the game session's player session creation policy.+--+-- __Game session logs.__ Logs are retained for all active game sessions for 14 days. To access the logs, call 'GetGameSessionLogUrl' to download the log files.+--+-- /Available in Amazon GameLift Local./+--+-- Game-session-related operations include:+--+--     * 'CreateGameSession'+--+--     * 'DescribeGameSessions'+--+--     * 'DescribeGameSessionDetails'+--+--     * 'SearchGameSessions'+--+--     * 'UpdateGameSession'+--+--     * 'GetGameSessionLogUrl'+--+--     * Game session placements+--+--     * 'StartGameSessionPlacement'+--+--     * 'DescribeGameSessionPlacement'+--+--     * 'StopGameSessionPlacement'+--+--+--+--+-- module Network.AWS.GameLift.CreateGameSession     (     -- * Creating a Request       createGameSession     , CreateGameSession     -- * Request Lenses+    , cgsIdempotencyToken     , cgsGameProperties     , cgsGameSessionId     , cgsAliasId     , cgsName+    , cgsGameSessionData     , cgsFleetId     , cgsCreatorId     , cgsMaximumPlayerSessionCount@@ -47,12 +83,12 @@     , cgsrsResponseStatus     ) where -import           Network.AWS.GameLift.Types-import           Network.AWS.GameLift.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.GameLift.Types+import Network.AWS.GameLift.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | Represents the input for a request action. --@@ -60,67 +96,85 @@ -- -- /See:/ 'createGameSession' smart constructor. data CreateGameSession = CreateGameSession'-    { _cgsGameProperties            :: !(Maybe [GameProperty])-    , _cgsGameSessionId             :: !(Maybe Text)-    , _cgsAliasId                   :: !(Maybe Text)-    , _cgsName                      :: !(Maybe Text)-    , _cgsFleetId                   :: !(Maybe Text)-    , _cgsCreatorId                 :: !(Maybe Text)-    , _cgsMaximumPlayerSessionCount :: !Nat-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cgsIdempotencyToken          :: !(Maybe Text)+  , _cgsGameProperties            :: !(Maybe [GameProperty])+  , _cgsGameSessionId             :: !(Maybe Text)+  , _cgsAliasId                   :: !(Maybe Text)+  , _cgsName                      :: !(Maybe Text)+  , _cgsGameSessionData           :: !(Maybe Text)+  , _cgsFleetId                   :: !(Maybe Text)+  , _cgsCreatorId                 :: !(Maybe Text)+  , _cgsMaximumPlayerSessionCount :: !Nat+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateGameSession' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cgsGameProperties' - Set of properties used to administer a game session. These properties are passed to the server process hosting it.+-- * 'cgsIdempotencyToken' - Custom string that uniquely identifies a request for a new game session. Maximum token length is 48 characters. If provided, this string is included in the new game session's ID. (A game session ARN has the following format: @arn:aws:gamelift:<region>::gamesession/<fleet ID>/<custom ID string or idempotency token>@ .) Idempotency tokens remain in use for 30 days after a game session has ended; game session objects are retained for this time period and then deleted. ----- * 'cgsGameSessionId' - Custom string to include in the game session ID, with a maximum length of 48 characters. If this parameter is set, GameLift creates a game session ID in the following format: "arn:aws:gamelift:<region>::gamesession/fleet-<fleet ID>/<custom ID string>". For example, this full game session ID: "arn:aws:gamelift:us-west-2::gamesession/fleet-2ec2aae5-c2c7-43ca-b19d-8249fe5fddf2/my-game-session" includes the custom ID string "my-game-session". If this parameter is not set, GameLift creates a game session ID in the same format with an autogenerated ID string.+-- * 'cgsGameProperties' - Set of developer-defined properties for a game session, formatted as a set of type:value pairs. These properties are included in the 'GameSession' object, which is passed to the game server with a request to start a new game session (see <http://docs.aws.amazon.com/gamelift/latest/developerguide/gamelift-sdk-server-api.html#gamelift-sdk-server-startsession Start a Game Session> ). ----- * 'cgsAliasId' - Unique identifier for a fleet alias. Each request must reference either a fleet ID or alias ID, but not both.+-- * 'cgsGameSessionId' - /This parameter is no longer preferred. Please use @IdempotencyToken@ instead./ Custom string that uniquely identifies a request for a new game session. Maximum token length is 48 characters. If provided, this string is included in the new game session's ID. (A game session ARN has the following format: @arn:aws:gamelift:<region>::gamesession/<fleet ID>/<custom ID string or idempotency token>@ .) ----- * 'cgsName' - Descriptive label associated with a game session. Session names do not need to be unique.+-- * 'cgsAliasId' - Unique identifier for an alias associated with the fleet to create a game session in. Each request must reference either a fleet ID or alias ID, but not both. ----- * 'cgsFleetId' - Unique identifier for a fleet. Each request must reference either a fleet ID or alias ID, but not both.+-- * 'cgsName' - Descriptive label that is associated with a game session. Session names do not need to be unique. ----- * 'cgsCreatorId' - Player ID identifying the person or entity creating the game session. This ID is used to enforce a resource protection policy (if one exists) that limits the number of concurrent active game sessions one player can have.+-- * 'cgsGameSessionData' - Set of developer-defined game session properties, formatted as a single string value. This data is included in the 'GameSession' object, which is passed to the game server with a request to start a new game session (see <http://docs.aws.amazon.com/gamelift/latest/developerguide/gamelift-sdk-server-api.html#gamelift-sdk-server-startsession Start a Game Session> ). --+-- * 'cgsFleetId' - Unique identifier for a fleet to create a game session in. Each request must reference either a fleet ID or alias ID, but not both.+--+-- * 'cgsCreatorId' - Unique identifier for a player or entity creating the game session. This ID is used to enforce a resource protection policy (if one exists) that limits the number of concurrent active game sessions one player can have.+-- -- * 'cgsMaximumPlayerSessionCount' - Maximum number of players that can be connected simultaneously to the game session. createGameSession     :: Natural -- ^ 'cgsMaximumPlayerSessionCount'     -> CreateGameSession createGameSession pMaximumPlayerSessionCount_ =-    CreateGameSession'-    { _cgsGameProperties = Nothing-    , _cgsGameSessionId = Nothing-    , _cgsAliasId = Nothing-    , _cgsName = Nothing-    , _cgsFleetId = Nothing-    , _cgsCreatorId = Nothing-    , _cgsMaximumPlayerSessionCount = _Nat # pMaximumPlayerSessionCount_-    }+  CreateGameSession'+  { _cgsIdempotencyToken = Nothing+  , _cgsGameProperties = Nothing+  , _cgsGameSessionId = Nothing+  , _cgsAliasId = Nothing+  , _cgsName = Nothing+  , _cgsGameSessionData = Nothing+  , _cgsFleetId = Nothing+  , _cgsCreatorId = Nothing+  , _cgsMaximumPlayerSessionCount = _Nat # pMaximumPlayerSessionCount_+  } --- | Set of properties used to administer a game session. These properties are passed to the server process hosting it.++-- | Custom string that uniquely identifies a request for a new game session. Maximum token length is 48 characters. If provided, this string is included in the new game session's ID. (A game session ARN has the following format: @arn:aws:gamelift:<region>::gamesession/<fleet ID>/<custom ID string or idempotency token>@ .) Idempotency tokens remain in use for 30 days after a game session has ended; game session objects are retained for this time period and then deleted.+cgsIdempotencyToken :: Lens' CreateGameSession (Maybe Text)+cgsIdempotencyToken = lens _cgsIdempotencyToken (\ s a -> s{_cgsIdempotencyToken = a});++-- | Set of developer-defined properties for a game session, formatted as a set of type:value pairs. These properties are included in the 'GameSession' object, which is passed to the game server with a request to start a new game session (see <http://docs.aws.amazon.com/gamelift/latest/developerguide/gamelift-sdk-server-api.html#gamelift-sdk-server-startsession Start a Game Session> ). cgsGameProperties :: Lens' CreateGameSession [GameProperty] cgsGameProperties = lens _cgsGameProperties (\ s a -> s{_cgsGameProperties = a}) . _Default . _Coerce; --- | Custom string to include in the game session ID, with a maximum length of 48 characters. If this parameter is set, GameLift creates a game session ID in the following format: "arn:aws:gamelift:<region>::gamesession/fleet-<fleet ID>/<custom ID string>". For example, this full game session ID: "arn:aws:gamelift:us-west-2::gamesession/fleet-2ec2aae5-c2c7-43ca-b19d-8249fe5fddf2/my-game-session" includes the custom ID string "my-game-session". If this parameter is not set, GameLift creates a game session ID in the same format with an autogenerated ID string.+-- | /This parameter is no longer preferred. Please use @IdempotencyToken@ instead./ Custom string that uniquely identifies a request for a new game session. Maximum token length is 48 characters. If provided, this string is included in the new game session's ID. (A game session ARN has the following format: @arn:aws:gamelift:<region>::gamesession/<fleet ID>/<custom ID string or idempotency token>@ .) cgsGameSessionId :: Lens' CreateGameSession (Maybe Text) cgsGameSessionId = lens _cgsGameSessionId (\ s a -> s{_cgsGameSessionId = a}); --- | Unique identifier for a fleet alias. Each request must reference either a fleet ID or alias ID, but not both.+-- | Unique identifier for an alias associated with the fleet to create a game session in. Each request must reference either a fleet ID or alias ID, but not both. cgsAliasId :: Lens' CreateGameSession (Maybe Text) cgsAliasId = lens _cgsAliasId (\ s a -> s{_cgsAliasId = a}); --- | Descriptive label associated with a game session. Session names do not need to be unique.+-- | Descriptive label that is associated with a game session. Session names do not need to be unique. cgsName :: Lens' CreateGameSession (Maybe Text) cgsName = lens _cgsName (\ s a -> s{_cgsName = a}); --- | Unique identifier for a fleet. Each request must reference either a fleet ID or alias ID, but not both.+-- | Set of developer-defined game session properties, formatted as a single string value. This data is included in the 'GameSession' object, which is passed to the game server with a request to start a new game session (see <http://docs.aws.amazon.com/gamelift/latest/developerguide/gamelift-sdk-server-api.html#gamelift-sdk-server-startsession Start a Game Session> ).+cgsGameSessionData :: Lens' CreateGameSession (Maybe Text)+cgsGameSessionData = lens _cgsGameSessionData (\ s a -> s{_cgsGameSessionData = a});++-- | Unique identifier for a fleet to create a game session in. Each request must reference either a fleet ID or alias ID, but not both. cgsFleetId :: Lens' CreateGameSession (Maybe Text) cgsFleetId = lens _cgsFleetId (\ s a -> s{_cgsFleetId = a}); --- | Player ID identifying the person or entity creating the game session. This ID is used to enforce a resource protection policy (if one exists) that limits the number of concurrent active game sessions one player can have.+-- | Unique identifier for a player or entity creating the game session. This ID is used to enforce a resource protection policy (if one exists) that limits the number of concurrent active game sessions one player can have. cgsCreatorId :: Lens' CreateGameSession (Maybe Text) cgsCreatorId = lens _cgsCreatorId (\ s a -> s{_cgsCreatorId = a}); @@ -137,9 +191,9 @@                  CreateGameSessionResponse' <$>                    (x .?> "GameSession") <*> (pure (fromEnum s))) -instance Hashable CreateGameSession+instance Hashable CreateGameSession where -instance NFData CreateGameSession+instance NFData CreateGameSession where  instance ToHeaders CreateGameSession where         toHeaders@@ -154,10 +208,12 @@         toJSON CreateGameSession'{..}           = object               (catMaybes-                 [("GameProperties" .=) <$> _cgsGameProperties,+                 [("IdempotencyToken" .=) <$> _cgsIdempotencyToken,+                  ("GameProperties" .=) <$> _cgsGameProperties,                   ("GameSessionId" .=) <$> _cgsGameSessionId,                   ("AliasId" .=) <$> _cgsAliasId,                   ("Name" .=) <$> _cgsName,+                  ("GameSessionData" .=) <$> _cgsGameSessionData,                   ("FleetId" .=) <$> _cgsFleetId,                   ("CreatorId" .=) <$> _cgsCreatorId,                   Just@@ -176,27 +232,27 @@ -- -- /See:/ 'createGameSessionResponse' smart constructor. data CreateGameSessionResponse = CreateGameSessionResponse'-    { _cgsrsGameSession    :: !(Maybe GameSession)-    , _cgsrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cgsrsGameSession    :: !(Maybe GameSession)+  , _cgsrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateGameSessionResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cgsrsGameSession' - Object containing the newly created game session record.+-- * 'cgsrsGameSession' - Object that describes the newly created game session record. -- -- * 'cgsrsResponseStatus' - -- | The response status code. createGameSessionResponse     :: Int -- ^ 'cgsrsResponseStatus'     -> CreateGameSessionResponse createGameSessionResponse pResponseStatus_ =-    CreateGameSessionResponse'-    { _cgsrsGameSession = Nothing-    , _cgsrsResponseStatus = pResponseStatus_-    }+  CreateGameSessionResponse'+  {_cgsrsGameSession = Nothing, _cgsrsResponseStatus = pResponseStatus_} --- | Object containing the newly created game session record.++-- | Object that describes the newly created game session record. cgsrsGameSession :: Lens' CreateGameSessionResponse (Maybe GameSession) cgsrsGameSession = lens _cgsrsGameSession (\ s a -> s{_cgsrsGameSession = a}); @@ -204,4 +260,4 @@ cgsrsResponseStatus :: Lens' CreateGameSessionResponse Int cgsrsResponseStatus = lens _cgsrsResponseStatus (\ s a -> s{_cgsrsResponseStatus = a}); -instance NFData CreateGameSessionResponse+instance NFData CreateGameSessionResponse where

@@ -0,0 +1,193 @@+{-# 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.GameLift.CreateGameSessionQueue+-- 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)+--+-- Establishes a new queue for processing requests to place new game sessions. A queue identifies where new game sessions can be hosted -- by specifying a list of destinations (fleets or aliases) -- and how long requests can wait in the queue before timing out. You can set up a queue to try to place game sessions on fleets in multiple regions. To add placement requests to a queue, call 'StartGameSessionPlacement' and reference the queue name.+--+--+-- __Destination order.__ When processing a request for a game session, Amazon GameLift tries each destination in order until it finds one with available resources to host the new game session. A queue's default order is determined by how destinations are listed. The default order is overridden when a game session placement request provides player latency information. Player latency information enables Amazon GameLift to prioritize destinations where players report the lowest average latency, as a result placing the new game session where the majority of players will have the best possible gameplay experience.+--+-- __Player latency policies.__ For placement requests containing player latency information, use player latency policies to protect individual players from very high latencies. With a latency cap, even when a destination can deliver a low latency for most players, the game is not placed where any individual player is reporting latency higher than a policy's maximum. A queue can have multiple latency policies, which are enforced consecutively starting with the policy with the lowest latency cap. Use multiple policies to gradually relax latency controls; for example, you might set a policy with a low latency cap for the first 60 seconds, a second policy with a higher cap for the next 60 seconds, etc.+--+-- To create a new queue, provide a name, timeout value, a list of destinations and, if desired, a set of latency policies. If successful, a new queue object is returned.+--+-- Queue-related operations include:+--+--     * 'CreateGameSessionQueue'+--+--     * 'DescribeGameSessionQueues'+--+--     * 'UpdateGameSessionQueue'+--+--     * 'DeleteGameSessionQueue'+--+--+--+module Network.AWS.GameLift.CreateGameSessionQueue+    (+    -- * Creating a Request+      createGameSessionQueue+    , CreateGameSessionQueue+    -- * Request Lenses+    , cgsqPlayerLatencyPolicies+    , cgsqTimeoutInSeconds+    , cgsqDestinations+    , cgsqName++    -- * Destructuring the Response+    , createGameSessionQueueResponse+    , CreateGameSessionQueueResponse+    -- * Response Lenses+    , cgsqrsGameSessionQueue+    , cgsqrsResponseStatus+    ) where++import Network.AWS.GameLift.Types+import Network.AWS.GameLift.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | Represents the input for a request action.+--+--+--+-- /See:/ 'createGameSessionQueue' smart constructor.+data CreateGameSessionQueue = CreateGameSessionQueue'+  { _cgsqPlayerLatencyPolicies :: !(Maybe [PlayerLatencyPolicy])+  , _cgsqTimeoutInSeconds      :: !(Maybe Nat)+  , _cgsqDestinations          :: !(Maybe [GameSessionQueueDestination])+  , _cgsqName                  :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreateGameSessionQueue' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cgsqPlayerLatencyPolicies' - Collection of latency policies to apply when processing game sessions placement requests with player latency information. Multiple policies are evaluated in order of the maximum latency value, starting with the lowest latency values. With just one policy, it is enforced at the start of the game session placement for the duration period. With multiple policies, each policy is enforced consecutively for its duration period. For example, a queue might enforce a 60-second policy followed by a 120-second policy, and then no policy for the remainder of the placement. A player latency policy must set a value for MaximumIndividualPlayerLatencyMilliseconds; if none is set, this API requests will fail.+--+-- * 'cgsqTimeoutInSeconds' - Maximum time, in seconds, that a new game session placement request remains in the queue. When a request exceeds this time, the game session placement changes to a @TIMED_OUT@ status.+--+-- * 'cgsqDestinations' - List of fleets that can be used to fulfill game session placement requests in the queue. Fleets are identified by either a fleet ARN or a fleet alias ARN. Destinations are listed in default preference order.+--+-- * 'cgsqName' - Descriptive label that is associated with game session queue. Queue names must be unique within each region.+createGameSessionQueue+    :: Text -- ^ 'cgsqName'+    -> CreateGameSessionQueue+createGameSessionQueue pName_ =+  CreateGameSessionQueue'+  { _cgsqPlayerLatencyPolicies = Nothing+  , _cgsqTimeoutInSeconds = Nothing+  , _cgsqDestinations = Nothing+  , _cgsqName = pName_+  }+++-- | Collection of latency policies to apply when processing game sessions placement requests with player latency information. Multiple policies are evaluated in order of the maximum latency value, starting with the lowest latency values. With just one policy, it is enforced at the start of the game session placement for the duration period. With multiple policies, each policy is enforced consecutively for its duration period. For example, a queue might enforce a 60-second policy followed by a 120-second policy, and then no policy for the remainder of the placement. A player latency policy must set a value for MaximumIndividualPlayerLatencyMilliseconds; if none is set, this API requests will fail.+cgsqPlayerLatencyPolicies :: Lens' CreateGameSessionQueue [PlayerLatencyPolicy]+cgsqPlayerLatencyPolicies = lens _cgsqPlayerLatencyPolicies (\ s a -> s{_cgsqPlayerLatencyPolicies = a}) . _Default . _Coerce;++-- | Maximum time, in seconds, that a new game session placement request remains in the queue. When a request exceeds this time, the game session placement changes to a @TIMED_OUT@ status.+cgsqTimeoutInSeconds :: Lens' CreateGameSessionQueue (Maybe Natural)+cgsqTimeoutInSeconds = lens _cgsqTimeoutInSeconds (\ s a -> s{_cgsqTimeoutInSeconds = a}) . mapping _Nat;++-- | List of fleets that can be used to fulfill game session placement requests in the queue. Fleets are identified by either a fleet ARN or a fleet alias ARN. Destinations are listed in default preference order.+cgsqDestinations :: Lens' CreateGameSessionQueue [GameSessionQueueDestination]+cgsqDestinations = lens _cgsqDestinations (\ s a -> s{_cgsqDestinations = a}) . _Default . _Coerce;++-- | Descriptive label that is associated with game session queue. Queue names must be unique within each region.+cgsqName :: Lens' CreateGameSessionQueue Text+cgsqName = lens _cgsqName (\ s a -> s{_cgsqName = a});++instance AWSRequest CreateGameSessionQueue where+        type Rs CreateGameSessionQueue =+             CreateGameSessionQueueResponse+        request = postJSON gameLift+        response+          = receiveJSON+              (\ s h x ->+                 CreateGameSessionQueueResponse' <$>+                   (x .?> "GameSessionQueue") <*> (pure (fromEnum s)))++instance Hashable CreateGameSessionQueue where++instance NFData CreateGameSessionQueue where++instance ToHeaders CreateGameSessionQueue where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("GameLift.CreateGameSessionQueue" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON CreateGameSessionQueue where+        toJSON CreateGameSessionQueue'{..}+          = object+              (catMaybes+                 [("PlayerLatencyPolicies" .=) <$>+                    _cgsqPlayerLatencyPolicies,+                  ("TimeoutInSeconds" .=) <$> _cgsqTimeoutInSeconds,+                  ("Destinations" .=) <$> _cgsqDestinations,+                  Just ("Name" .= _cgsqName)])++instance ToPath CreateGameSessionQueue where+        toPath = const "/"++instance ToQuery CreateGameSessionQueue where+        toQuery = const mempty++-- | Represents the returned data in response to a request action.+--+--+--+-- /See:/ 'createGameSessionQueueResponse' smart constructor.+data CreateGameSessionQueueResponse = CreateGameSessionQueueResponse'+  { _cgsqrsGameSessionQueue :: !(Maybe GameSessionQueue)+  , _cgsqrsResponseStatus   :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreateGameSessionQueueResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cgsqrsGameSessionQueue' - Object that describes the newly created game session queue.+--+-- * 'cgsqrsResponseStatus' - -- | The response status code.+createGameSessionQueueResponse+    :: Int -- ^ 'cgsqrsResponseStatus'+    -> CreateGameSessionQueueResponse+createGameSessionQueueResponse pResponseStatus_ =+  CreateGameSessionQueueResponse'+  {_cgsqrsGameSessionQueue = Nothing, _cgsqrsResponseStatus = pResponseStatus_}+++-- | Object that describes the newly created game session queue.+cgsqrsGameSessionQueue :: Lens' CreateGameSessionQueueResponse (Maybe GameSessionQueue)+cgsqrsGameSessionQueue = lens _cgsqrsGameSessionQueue (\ s a -> s{_cgsqrsGameSessionQueue = a});++-- | -- | The response status code.+cgsqrsResponseStatus :: Lens' CreateGameSessionQueueResponse Int+cgsqrsResponseStatus = lens _cgsqrsResponseStatus (\ s a -> s{_cgsqrsResponseStatus = a});++instance NFData CreateGameSessionQueueResponse where

@@ -0,0 +1,293 @@+{-# 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.GameLift.CreateMatchmakingConfiguration+-- 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)+--+-- Defines a new matchmaking configuration for use with FlexMatch. A matchmaking configuration sets out guidelines for matching players and getting the matches into games. You can set up multiple matchmaking configurations to handle the scenarios needed for your game. Each matchmaking request ('StartMatchmaking' ) specifies a configuration for the match and provides player attributes to support the configuration being used.+--+--+-- To create a matchmaking configuration, at a minimum you must specify the following: configuration name; a rule set that governs how to evaluate players and find acceptable matches; a game session queue to use when placing a new game session for the match; and the maximum time allowed for a matchmaking attempt.+--+-- __Player acceptance__ -- In each configuration, you have the option to require that all players accept participation in a proposed match. To enable this feature, set /AcceptanceRequired/ to true and specify a time limit for player acceptance. Players have the option to accept or reject a proposed match, and a match does not move ahead to game session placement unless all matched players accept.+--+-- __Matchmaking status notification__ -- There are two ways to track the progress of matchmaking tickets: (1) polling ticket status with 'DescribeMatchmaking' ; or (2) receiving notifications with Amazon Simple Notification Service (SNS). To use notifications, you first need to set up an SNS topic to receive the notifications, and provide the topic ARN in the matchmaking configuration (see <http://docs.aws.amazon.com/gamelift/latest/developerguide/match-notification.html Setting up Notifications for Matchmaking> ). Since notifications promise only "best effort" delivery, we recommend calling @DescribeMatchmaking@ if no notifications are received within 30 seconds.+--+-- Operations related to match configurations and rule sets include:+--+--     * 'CreateMatchmakingConfiguration'+--+--     * 'DescribeMatchmakingConfigurations'+--+--     * 'UpdateMatchmakingConfiguration'+--+--     * 'DeleteMatchmakingConfiguration'+--+--     * 'CreateMatchmakingRuleSet'+--+--     * 'DescribeMatchmakingRuleSets'+--+--     * 'ValidateMatchmakingRuleSet'+--+--+--+module Network.AWS.GameLift.CreateMatchmakingConfiguration+    (+    -- * Creating a Request+      createMatchmakingConfiguration+    , CreateMatchmakingConfiguration+    -- * Request Lenses+    , cmcGameProperties+    , cmcAcceptanceTimeoutSeconds+    , cmcNotificationTarget+    , cmcCustomEventData+    , cmcGameSessionData+    , cmcDescription+    , cmcAdditionalPlayerCount+    , cmcName+    , cmcGameSessionQueueARNs+    , cmcRequestTimeoutSeconds+    , cmcAcceptanceRequired+    , cmcRuleSetName++    -- * Destructuring the Response+    , createMatchmakingConfigurationResponse+    , CreateMatchmakingConfigurationResponse+    -- * Response Lenses+    , cmcrsConfiguration+    , cmcrsResponseStatus+    ) where++import Network.AWS.GameLift.Types+import Network.AWS.GameLift.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | Represents the input for a request action.+--+--+--+-- /See:/ 'createMatchmakingConfiguration' smart constructor.+data CreateMatchmakingConfiguration = CreateMatchmakingConfiguration'+  { _cmcGameProperties           :: !(Maybe [GameProperty])+  , _cmcAcceptanceTimeoutSeconds :: !(Maybe Nat)+  , _cmcNotificationTarget       :: !(Maybe Text)+  , _cmcCustomEventData          :: !(Maybe Text)+  , _cmcGameSessionData          :: !(Maybe Text)+  , _cmcDescription              :: !(Maybe Text)+  , _cmcAdditionalPlayerCount    :: !(Maybe Nat)+  , _cmcName                     :: !Text+  , _cmcGameSessionQueueARNs     :: ![Text]+  , _cmcRequestTimeoutSeconds    :: !Nat+  , _cmcAcceptanceRequired       :: !Bool+  , _cmcRuleSetName              :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreateMatchmakingConfiguration' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cmcGameProperties' - Set of developer-defined properties for a game session, formatted as a set of type:value pairs. These properties are included in the 'GameSession' object, which is passed to the game server with a request to start a new game session (see <http://docs.aws.amazon.com/gamelift/latest/developerguide/gamelift-sdk-server-api.html#gamelift-sdk-server-startsession Start a Game Session> ). This information is added to the new 'GameSession' object that is created for a successful match.+--+-- * 'cmcAcceptanceTimeoutSeconds' - Length of time (in seconds) to wait for players to accept a proposed match. If any player rejects the match or fails to accept before the timeout, the ticket continues to look for an acceptable match.+--+-- * 'cmcNotificationTarget' - SNS topic ARN that is set up to receive matchmaking notifications.+--+-- * 'cmcCustomEventData' - Information to attached to all events related to the matchmaking configuration.+--+-- * 'cmcGameSessionData' - Set of developer-defined game session properties, formatted as a single string value. This data is included in the 'GameSession' object, which is passed to the game server with a request to start a new game session (see <http://docs.aws.amazon.com/gamelift/latest/developerguide/gamelift-sdk-server-api.html#gamelift-sdk-server-startsession Start a Game Session> ). This information is added to the new 'GameSession' object that is created for a successful match.+--+-- * 'cmcDescription' - Meaningful description of the matchmaking configuration.+--+-- * 'cmcAdditionalPlayerCount' - Number of player slots in a match to keep open for future players. For example, if the configuration's rule set specifies a match for a single 12-person team, and the additional player count is set to 2, only 10 players are selected for the match.+--+-- * 'cmcName' - Unique identifier for a matchmaking configuration. This name is used to identify the configuration associated with a matchmaking request or ticket.+--+-- * 'cmcGameSessionQueueARNs' - Amazon Resource Name (<http://docs.aws.amazon.com/AmazonS3/latest/dev/s3-arn-format.html ARN> ) that is assigned to a game session queue and uniquely identifies it. Format is @arn:aws:gamelift:<region>::fleet/fleet-a1234567-b8c9-0d1e-2fa3-b45c6d7e8912@ . These queues are used when placing game sessions for matches that are created with this matchmaking configuration. Queues can be located in any region.+--+-- * 'cmcRequestTimeoutSeconds' - Maximum duration, in seconds, that a matchmaking ticket can remain in process before timing out. Requests that time out can be resubmitted as needed.+--+-- * 'cmcAcceptanceRequired' - Flag that determines whether or not a match that was created with this configuration must be accepted by the matched players. To require acceptance, set to TRUE.+--+-- * 'cmcRuleSetName' - Unique identifier for a matchmaking rule set to use with this configuration. A matchmaking configuration can only use rule sets that are defined in the same region.+createMatchmakingConfiguration+    :: Text -- ^ 'cmcName'+    -> Natural -- ^ 'cmcRequestTimeoutSeconds'+    -> Bool -- ^ 'cmcAcceptanceRequired'+    -> Text -- ^ 'cmcRuleSetName'+    -> CreateMatchmakingConfiguration+createMatchmakingConfiguration pName_ pRequestTimeoutSeconds_ pAcceptanceRequired_ pRuleSetName_ =+  CreateMatchmakingConfiguration'+  { _cmcGameProperties = Nothing+  , _cmcAcceptanceTimeoutSeconds = Nothing+  , _cmcNotificationTarget = Nothing+  , _cmcCustomEventData = Nothing+  , _cmcGameSessionData = Nothing+  , _cmcDescription = Nothing+  , _cmcAdditionalPlayerCount = Nothing+  , _cmcName = pName_+  , _cmcGameSessionQueueARNs = mempty+  , _cmcRequestTimeoutSeconds = _Nat # pRequestTimeoutSeconds_+  , _cmcAcceptanceRequired = pAcceptanceRequired_+  , _cmcRuleSetName = pRuleSetName_+  }+++-- | Set of developer-defined properties for a game session, formatted as a set of type:value pairs. These properties are included in the 'GameSession' object, which is passed to the game server with a request to start a new game session (see <http://docs.aws.amazon.com/gamelift/latest/developerguide/gamelift-sdk-server-api.html#gamelift-sdk-server-startsession Start a Game Session> ). This information is added to the new 'GameSession' object that is created for a successful match.+cmcGameProperties :: Lens' CreateMatchmakingConfiguration [GameProperty]+cmcGameProperties = lens _cmcGameProperties (\ s a -> s{_cmcGameProperties = a}) . _Default . _Coerce;++-- | Length of time (in seconds) to wait for players to accept a proposed match. If any player rejects the match or fails to accept before the timeout, the ticket continues to look for an acceptable match.+cmcAcceptanceTimeoutSeconds :: Lens' CreateMatchmakingConfiguration (Maybe Natural)+cmcAcceptanceTimeoutSeconds = lens _cmcAcceptanceTimeoutSeconds (\ s a -> s{_cmcAcceptanceTimeoutSeconds = a}) . mapping _Nat;++-- | SNS topic ARN that is set up to receive matchmaking notifications.+cmcNotificationTarget :: Lens' CreateMatchmakingConfiguration (Maybe Text)+cmcNotificationTarget = lens _cmcNotificationTarget (\ s a -> s{_cmcNotificationTarget = a});++-- | Information to attached to all events related to the matchmaking configuration.+cmcCustomEventData :: Lens' CreateMatchmakingConfiguration (Maybe Text)+cmcCustomEventData = lens _cmcCustomEventData (\ s a -> s{_cmcCustomEventData = a});++-- | Set of developer-defined game session properties, formatted as a single string value. This data is included in the 'GameSession' object, which is passed to the game server with a request to start a new game session (see <http://docs.aws.amazon.com/gamelift/latest/developerguide/gamelift-sdk-server-api.html#gamelift-sdk-server-startsession Start a Game Session> ). This information is added to the new 'GameSession' object that is created for a successful match.+cmcGameSessionData :: Lens' CreateMatchmakingConfiguration (Maybe Text)+cmcGameSessionData = lens _cmcGameSessionData (\ s a -> s{_cmcGameSessionData = a});++-- | Meaningful description of the matchmaking configuration.+cmcDescription :: Lens' CreateMatchmakingConfiguration (Maybe Text)+cmcDescription = lens _cmcDescription (\ s a -> s{_cmcDescription = a});++-- | Number of player slots in a match to keep open for future players. For example, if the configuration's rule set specifies a match for a single 12-person team, and the additional player count is set to 2, only 10 players are selected for the match.+cmcAdditionalPlayerCount :: Lens' CreateMatchmakingConfiguration (Maybe Natural)+cmcAdditionalPlayerCount = lens _cmcAdditionalPlayerCount (\ s a -> s{_cmcAdditionalPlayerCount = a}) . mapping _Nat;++-- | Unique identifier for a matchmaking configuration. This name is used to identify the configuration associated with a matchmaking request or ticket.+cmcName :: Lens' CreateMatchmakingConfiguration Text+cmcName = lens _cmcName (\ s a -> s{_cmcName = a});++-- | Amazon Resource Name (<http://docs.aws.amazon.com/AmazonS3/latest/dev/s3-arn-format.html ARN> ) that is assigned to a game session queue and uniquely identifies it. Format is @arn:aws:gamelift:<region>::fleet/fleet-a1234567-b8c9-0d1e-2fa3-b45c6d7e8912@ . These queues are used when placing game sessions for matches that are created with this matchmaking configuration. Queues can be located in any region.+cmcGameSessionQueueARNs :: Lens' CreateMatchmakingConfiguration [Text]+cmcGameSessionQueueARNs = lens _cmcGameSessionQueueARNs (\ s a -> s{_cmcGameSessionQueueARNs = a}) . _Coerce;++-- | Maximum duration, in seconds, that a matchmaking ticket can remain in process before timing out. Requests that time out can be resubmitted as needed.+cmcRequestTimeoutSeconds :: Lens' CreateMatchmakingConfiguration Natural+cmcRequestTimeoutSeconds = lens _cmcRequestTimeoutSeconds (\ s a -> s{_cmcRequestTimeoutSeconds = a}) . _Nat;++-- | Flag that determines whether or not a match that was created with this configuration must be accepted by the matched players. To require acceptance, set to TRUE.+cmcAcceptanceRequired :: Lens' CreateMatchmakingConfiguration Bool+cmcAcceptanceRequired = lens _cmcAcceptanceRequired (\ s a -> s{_cmcAcceptanceRequired = a});++-- | Unique identifier for a matchmaking rule set to use with this configuration. A matchmaking configuration can only use rule sets that are defined in the same region.+cmcRuleSetName :: Lens' CreateMatchmakingConfiguration Text+cmcRuleSetName = lens _cmcRuleSetName (\ s a -> s{_cmcRuleSetName = a});++instance AWSRequest CreateMatchmakingConfiguration+         where+        type Rs CreateMatchmakingConfiguration =+             CreateMatchmakingConfigurationResponse+        request = postJSON gameLift+        response+          = receiveJSON+              (\ s h x ->+                 CreateMatchmakingConfigurationResponse' <$>+                   (x .?> "Configuration") <*> (pure (fromEnum s)))++instance Hashable CreateMatchmakingConfiguration+         where++instance NFData CreateMatchmakingConfiguration where++instance ToHeaders CreateMatchmakingConfiguration+         where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("GameLift.CreateMatchmakingConfiguration" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON CreateMatchmakingConfiguration where+        toJSON CreateMatchmakingConfiguration'{..}+          = object+              (catMaybes+                 [("GameProperties" .=) <$> _cmcGameProperties,+                  ("AcceptanceTimeoutSeconds" .=) <$>+                    _cmcAcceptanceTimeoutSeconds,+                  ("NotificationTarget" .=) <$> _cmcNotificationTarget,+                  ("CustomEventData" .=) <$> _cmcCustomEventData,+                  ("GameSessionData" .=) <$> _cmcGameSessionData,+                  ("Description" .=) <$> _cmcDescription,+                  ("AdditionalPlayerCount" .=) <$>+                    _cmcAdditionalPlayerCount,+                  Just ("Name" .= _cmcName),+                  Just+                    ("GameSessionQueueArns" .= _cmcGameSessionQueueARNs),+                  Just+                    ("RequestTimeoutSeconds" .=+                       _cmcRequestTimeoutSeconds),+                  Just+                    ("AcceptanceRequired" .= _cmcAcceptanceRequired),+                  Just ("RuleSetName" .= _cmcRuleSetName)])++instance ToPath CreateMatchmakingConfiguration where+        toPath = const "/"++instance ToQuery CreateMatchmakingConfiguration where+        toQuery = const mempty++-- | Represents the returned data in response to a request action.+--+--+--+-- /See:/ 'createMatchmakingConfigurationResponse' smart constructor.+data CreateMatchmakingConfigurationResponse = CreateMatchmakingConfigurationResponse'+  { _cmcrsConfiguration  :: !(Maybe MatchmakingConfiguration)+  , _cmcrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreateMatchmakingConfigurationResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cmcrsConfiguration' - Object that describes the newly created matchmaking configuration.+--+-- * 'cmcrsResponseStatus' - -- | The response status code.+createMatchmakingConfigurationResponse+    :: Int -- ^ 'cmcrsResponseStatus'+    -> CreateMatchmakingConfigurationResponse+createMatchmakingConfigurationResponse pResponseStatus_ =+  CreateMatchmakingConfigurationResponse'+  {_cmcrsConfiguration = Nothing, _cmcrsResponseStatus = pResponseStatus_}+++-- | Object that describes the newly created matchmaking configuration.+cmcrsConfiguration :: Lens' CreateMatchmakingConfigurationResponse (Maybe MatchmakingConfiguration)+cmcrsConfiguration = lens _cmcrsConfiguration (\ s a -> s{_cmcrsConfiguration = a});++-- | -- | The response status code.+cmcrsResponseStatus :: Lens' CreateMatchmakingConfigurationResponse Int+cmcrsResponseStatus = lens _cmcrsResponseStatus (\ s a -> s{_cmcrsResponseStatus = a});++instance NFData+           CreateMatchmakingConfigurationResponse+         where

@@ -0,0 +1,177 @@+{-# 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.GameLift.CreateMatchmakingRuleSet+-- 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 a new rule set for FlexMatch matchmaking. A rule set describes the type of match to create, such as the number and size of teams, and sets the parameters for acceptable player matches, such as minimum skill level or character type. Rule sets are used in matchmaking configurations, which define how matchmaking requests are handled. Each 'MatchmakingConfiguration' uses one rule set; you can set up multiple rule sets to handle the scenarios that suit your game (such as for different game modes), and create a separate matchmaking configuration for each rule set. See additional information on rule set content in the 'MatchmakingRuleSet' structure. For help creating rule sets, including useful examples, see the topic <http://docs.aws.amazon.com/gamelift/latest/developerguide/match-intro.html Adding FlexMatch to Your Game> .+--+--+-- Once created, matchmaking rule sets cannot be changed or deleted, so we recommend checking the rule set syntax using 'ValidateMatchmakingRuleSet' before creating the rule set.+--+-- To create a matchmaking rule set, provide the set of rules and a unique name. Rule sets must be defined in the same region as the matchmaking configuration they will be used with. Rule sets cannot be edited or deleted. If you need to change a rule set, create a new one with the necessary edits and then update matchmaking configurations to use the new rule set.+--+-- Operations related to match configurations and rule sets include:+--+--     * 'CreateMatchmakingConfiguration'+--+--     * 'DescribeMatchmakingConfigurations'+--+--     * 'UpdateMatchmakingConfiguration'+--+--     * 'DeleteMatchmakingConfiguration'+--+--     * 'CreateMatchmakingRuleSet'+--+--     * 'DescribeMatchmakingRuleSets'+--+--     * 'ValidateMatchmakingRuleSet'+--+--+--+module Network.AWS.GameLift.CreateMatchmakingRuleSet+    (+    -- * Creating a Request+      createMatchmakingRuleSet+    , CreateMatchmakingRuleSet+    -- * Request Lenses+    , cmrsName+    , cmrsRuleSetBody++    -- * Destructuring the Response+    , createMatchmakingRuleSetResponse+    , CreateMatchmakingRuleSetResponse+    -- * Response Lenses+    , cmrsrsResponseStatus+    , cmrsrsRuleSet+    ) where++import Network.AWS.GameLift.Types+import Network.AWS.GameLift.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | Represents the input for a request action.+--+--+--+-- /See:/ 'createMatchmakingRuleSet' smart constructor.+data CreateMatchmakingRuleSet = CreateMatchmakingRuleSet'+  { _cmrsName        :: !Text+  , _cmrsRuleSetBody :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreateMatchmakingRuleSet' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cmrsName' - Unique identifier for a matchmaking rule set. This name is used to identify the rule set associated with a matchmaking configuration.+--+-- * 'cmrsRuleSetBody' - Collection of matchmaking rules, formatted as a JSON string. (Note that comments are not allowed in JSON, but most elements support a description field.)+createMatchmakingRuleSet+    :: Text -- ^ 'cmrsName'+    -> Text -- ^ 'cmrsRuleSetBody'+    -> CreateMatchmakingRuleSet+createMatchmakingRuleSet pName_ pRuleSetBody_ =+  CreateMatchmakingRuleSet'+  {_cmrsName = pName_, _cmrsRuleSetBody = pRuleSetBody_}+++-- | Unique identifier for a matchmaking rule set. This name is used to identify the rule set associated with a matchmaking configuration.+cmrsName :: Lens' CreateMatchmakingRuleSet Text+cmrsName = lens _cmrsName (\ s a -> s{_cmrsName = a});++-- | Collection of matchmaking rules, formatted as a JSON string. (Note that comments are not allowed in JSON, but most elements support a description field.)+cmrsRuleSetBody :: Lens' CreateMatchmakingRuleSet Text+cmrsRuleSetBody = lens _cmrsRuleSetBody (\ s a -> s{_cmrsRuleSetBody = a});++instance AWSRequest CreateMatchmakingRuleSet where+        type Rs CreateMatchmakingRuleSet =+             CreateMatchmakingRuleSetResponse+        request = postJSON gameLift+        response+          = receiveJSON+              (\ s h x ->+                 CreateMatchmakingRuleSetResponse' <$>+                   (pure (fromEnum s)) <*> (x .:> "RuleSet"))++instance Hashable CreateMatchmakingRuleSet where++instance NFData CreateMatchmakingRuleSet where++instance ToHeaders CreateMatchmakingRuleSet where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("GameLift.CreateMatchmakingRuleSet" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON CreateMatchmakingRuleSet where+        toJSON CreateMatchmakingRuleSet'{..}+          = object+              (catMaybes+                 [Just ("Name" .= _cmrsName),+                  Just ("RuleSetBody" .= _cmrsRuleSetBody)])++instance ToPath CreateMatchmakingRuleSet where+        toPath = const "/"++instance ToQuery CreateMatchmakingRuleSet where+        toQuery = const mempty++-- | Represents the returned data in response to a request action.+--+--+--+-- /See:/ 'createMatchmakingRuleSetResponse' smart constructor.+data CreateMatchmakingRuleSetResponse = CreateMatchmakingRuleSetResponse'+  { _cmrsrsResponseStatus :: !Int+  , _cmrsrsRuleSet        :: !MatchmakingRuleSet+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreateMatchmakingRuleSetResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cmrsrsResponseStatus' - -- | The response status code.+--+-- * 'cmrsrsRuleSet' - Object that describes the newly created matchmaking rule set.+createMatchmakingRuleSetResponse+    :: Int -- ^ 'cmrsrsResponseStatus'+    -> MatchmakingRuleSet -- ^ 'cmrsrsRuleSet'+    -> CreateMatchmakingRuleSetResponse+createMatchmakingRuleSetResponse pResponseStatus_ pRuleSet_ =+  CreateMatchmakingRuleSetResponse'+  {_cmrsrsResponseStatus = pResponseStatus_, _cmrsrsRuleSet = pRuleSet_}+++-- | -- | The response status code.+cmrsrsResponseStatus :: Lens' CreateMatchmakingRuleSetResponse Int+cmrsrsResponseStatus = lens _cmrsrsResponseStatus (\ s a -> s{_cmrsrsResponseStatus = a});++-- | Object that describes the newly created matchmaking rule set.+cmrsrsRuleSet :: Lens' CreateMatchmakingRuleSetResponse MatchmakingRuleSet+cmrsrsRuleSet = lens _cmrsrsRuleSet (\ s a -> s{_cmrsrsRuleSet = a});++instance NFData CreateMatchmakingRuleSetResponse+         where

@@ -12,23 +12,46 @@  -- | -- Module      : Network.AWS.GameLift.CreatePlayerSession--- 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) ----- Adds a player to a game session and creates a player session record. A game session must be in an @ACTIVE@ status, have a creation policy of @ALLOW_ALL@ , and have an open player slot before players can be added to the session.+-- Adds a player to a game session and creates a player session record. Before a player can be added, a game session must have an @ACTIVE@ status, have a creation policy of @ALLOW_ALL@ , and have an open player slot. To add a group of players to a game session, use 'CreatePlayerSessions' . -- ----- To create a player session, specify a game session ID and player ID. If successful, the player is added to the game session and a new 'PlayerSession' object is returned.+-- To create a player session, specify a game session ID, player ID, and optionally a string of player data. If successful, the player is added to the game session and a new 'PlayerSession' object is returned. Player sessions cannot be updated. --+-- /Available in Amazon GameLift Local./+--+-- Player-session-related operations include:+--+--     * 'CreatePlayerSession'+--+--     * 'CreatePlayerSessions'+--+--     * 'DescribePlayerSessions'+--+--     * Game session placements+--+--     * 'StartGameSessionPlacement'+--+--     * 'DescribeGameSessionPlacement'+--+--     * 'StopGameSessionPlacement'+--+--+--+--+-- module Network.AWS.GameLift.CreatePlayerSession     (     -- * Creating a Request       createPlayerSession     , CreatePlayerSession     -- * Request Lenses+    , cPlayerData     , cGameSessionId     , cPlayerId @@ -40,12 +63,12 @@     , cpsrsResponseStatus     ) where -import           Network.AWS.GameLift.Types-import           Network.AWS.GameLift.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.GameLift.Types+import Network.AWS.GameLift.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | Represents the input for a request action. --@@ -53,32 +76,42 @@ -- -- /See:/ 'createPlayerSession' smart constructor. data CreatePlayerSession = CreatePlayerSession'-    { _cGameSessionId :: !Text-    , _cPlayerId      :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cPlayerData    :: !(Maybe Text)+  , _cGameSessionId :: !Text+  , _cPlayerId      :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreatePlayerSession' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cGameSessionId' - Unique identifier for the game session to add a player to. Game session ID format is as follows: "arn:aws:gamelift:<region>::gamesession/fleet-<fleet ID>/<ID string>". The value of <ID string> is either a custom ID string (if one was specified when the game session was created) an autogenerated string.+-- * 'cPlayerData' - Developer-defined information related to a player. Amazon GameLift does not use this data, so it can be formatted as needed for use in the game. ----- * 'cPlayerId' - Unique identifier for the player to be added.+-- * 'cGameSessionId' - Unique identifier for the game session to add a player to.+--+-- * 'cPlayerId' - Unique identifier for a player. Player IDs are developer-defined. createPlayerSession     :: Text -- ^ 'cGameSessionId'     -> Text -- ^ 'cPlayerId'     -> CreatePlayerSession createPlayerSession pGameSessionId_ pPlayerId_ =-    CreatePlayerSession'-    { _cGameSessionId = pGameSessionId_-    , _cPlayerId = pPlayerId_-    }+  CreatePlayerSession'+  { _cPlayerData = Nothing+  , _cGameSessionId = pGameSessionId_+  , _cPlayerId = pPlayerId_+  } --- | Unique identifier for the game session to add a player to. Game session ID format is as follows: "arn:aws:gamelift:<region>::gamesession/fleet-<fleet ID>/<ID string>". The value of <ID string> is either a custom ID string (if one was specified when the game session was created) an autogenerated string.++-- | Developer-defined information related to a player. Amazon GameLift does not use this data, so it can be formatted as needed for use in the game.+cPlayerData :: Lens' CreatePlayerSession (Maybe Text)+cPlayerData = lens _cPlayerData (\ s a -> s{_cPlayerData = a});++-- | Unique identifier for the game session to add a player to. cGameSessionId :: Lens' CreatePlayerSession Text cGameSessionId = lens _cGameSessionId (\ s a -> s{_cGameSessionId = a}); --- | Unique identifier for the player to be added.+-- | Unique identifier for a player. Player IDs are developer-defined. cPlayerId :: Lens' CreatePlayerSession Text cPlayerId = lens _cPlayerId (\ s a -> s{_cPlayerId = a}); @@ -92,9 +125,9 @@                  CreatePlayerSessionResponse' <$>                    (x .?> "PlayerSession") <*> (pure (fromEnum s))) -instance Hashable CreatePlayerSession+instance Hashable CreatePlayerSession where -instance NFData CreatePlayerSession+instance NFData CreatePlayerSession where  instance ToHeaders CreatePlayerSession where         toHeaders@@ -109,7 +142,8 @@         toJSON CreatePlayerSession'{..}           = object               (catMaybes-                 [Just ("GameSessionId" .= _cGameSessionId),+                 [("PlayerData" .=) <$> _cPlayerData,+                  Just ("GameSessionId" .= _cGameSessionId),                   Just ("PlayerId" .= _cPlayerId)])  instance ToPath CreatePlayerSession where@@ -124,27 +158,27 @@ -- -- /See:/ 'createPlayerSessionResponse' smart constructor. data CreatePlayerSessionResponse = CreatePlayerSessionResponse'-    { _cpsrsPlayerSession  :: !(Maybe PlayerSession)-    , _cpsrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cpsrsPlayerSession  :: !(Maybe PlayerSession)+  , _cpsrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreatePlayerSessionResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cpsrsPlayerSession' - Object containing the newly created player session record.+-- * 'cpsrsPlayerSession' - Object that describes the newly created player session record. -- -- * 'cpsrsResponseStatus' - -- | The response status code. createPlayerSessionResponse     :: Int -- ^ 'cpsrsResponseStatus'     -> CreatePlayerSessionResponse createPlayerSessionResponse pResponseStatus_ =-    CreatePlayerSessionResponse'-    { _cpsrsPlayerSession = Nothing-    , _cpsrsResponseStatus = pResponseStatus_-    }+  CreatePlayerSessionResponse'+  {_cpsrsPlayerSession = Nothing, _cpsrsResponseStatus = pResponseStatus_} --- | Object containing the newly created player session record.++-- | Object that describes the newly created player session record. cpsrsPlayerSession :: Lens' CreatePlayerSessionResponse (Maybe PlayerSession) cpsrsPlayerSession = lens _cpsrsPlayerSession (\ s a -> s{_cpsrsPlayerSession = a}); @@ -152,4 +186,4 @@ cpsrsResponseStatus :: Lens' CreatePlayerSessionResponse Int cpsrsResponseStatus = lens _cpsrsResponseStatus (\ s a -> s{_cpsrsResponseStatus = a}); -instance NFData CreatePlayerSessionResponse+instance NFData CreatePlayerSessionResponse where

@@ -12,23 +12,46 @@  -- | -- Module      : Network.AWS.GameLift.CreatePlayerSessions--- 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) ----- Adds a group of players to a game session. Similar to 'CreatePlayerSession' , this action allows you to add multiple players in a single call, which is useful for games that provide party and/or matchmaking features. A game session must be in an @ACTIVE@ status, have a creation policy of @ALLOW_ALL@ , and have an open player slot before players can be added to the session.+-- Adds a group of players to a game session. This action is useful with a team matching feature. Before players can be added, a game session must have an @ACTIVE@ status, have a creation policy of @ALLOW_ALL@ , and have an open player slot. To add a single player to a game session, use 'CreatePlayerSession' . -- ----- To create player sessions, specify a game session ID and a list of player IDs. If successful, the players are added to the game session and a set of new 'PlayerSession' objects is returned.+-- To create player sessions, specify a game session ID, a list of player IDs, and optionally a set of player data strings. If successful, the players are added to the game session and a set of new 'PlayerSession' objects is returned. Player sessions cannot be updated. --+-- /Available in Amazon GameLift Local./+--+-- Player-session-related operations include:+--+--     * 'CreatePlayerSession'+--+--     * 'CreatePlayerSessions'+--+--     * 'DescribePlayerSessions'+--+--     * Game session placements+--+--     * 'StartGameSessionPlacement'+--+--     * 'DescribeGameSessionPlacement'+--+--     * 'StopGameSessionPlacement'+--+--+--+--+-- module Network.AWS.GameLift.CreatePlayerSessions     (     -- * Creating a Request       createPlayerSessions     , CreatePlayerSessions     -- * Request Lenses+    , cpsPlayerDataMap     , cpsGameSessionId     , cpsPlayerIds @@ -40,12 +63,12 @@     , crsResponseStatus     ) where -import           Network.AWS.GameLift.Types-import           Network.AWS.GameLift.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.GameLift.Types+import Network.AWS.GameLift.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | Represents the input for a request action. --@@ -53,28 +76,38 @@ -- -- /See:/ 'createPlayerSessions' smart constructor. data CreatePlayerSessions = CreatePlayerSessions'-    { _cpsGameSessionId :: !Text-    , _cpsPlayerIds     :: !(List1 Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cpsPlayerDataMap :: !(Maybe (Map Text Text))+  , _cpsGameSessionId :: !Text+  , _cpsPlayerIds     :: !(List1 Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreatePlayerSessions' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cpsGameSessionId' - Unique identifier for the game session to add players to. Game session ID format is as follows: "arn:aws:gamelift:<region>::gamesession/fleet-<fleet ID>/<ID string>". The value of <ID string> is either a custom ID string (if one was specified when the game session was created) an autogenerated string.+-- * 'cpsPlayerDataMap' - Map of string pairs, each specifying a player ID and a set of developer-defined information related to the player. Amazon GameLift does not use this data, so it can be formatted as needed for use in the game. Player data strings for player IDs not included in the @PlayerIds@ parameter are ignored. --+-- * 'cpsGameSessionId' - Unique identifier for the game session to add players to.+-- -- * 'cpsPlayerIds' - List of unique identifiers for the players to be added. createPlayerSessions     :: Text -- ^ 'cpsGameSessionId'     -> NonEmpty Text -- ^ 'cpsPlayerIds'     -> CreatePlayerSessions createPlayerSessions pGameSessionId_ pPlayerIds_ =-    CreatePlayerSessions'-    { _cpsGameSessionId = pGameSessionId_-    , _cpsPlayerIds = _List1 # pPlayerIds_-    }+  CreatePlayerSessions'+  { _cpsPlayerDataMap = Nothing+  , _cpsGameSessionId = pGameSessionId_+  , _cpsPlayerIds = _List1 # pPlayerIds_+  } --- | Unique identifier for the game session to add players to. Game session ID format is as follows: "arn:aws:gamelift:<region>::gamesession/fleet-<fleet ID>/<ID string>". The value of <ID string> is either a custom ID string (if one was specified when the game session was created) an autogenerated string.++-- | Map of string pairs, each specifying a player ID and a set of developer-defined information related to the player. Amazon GameLift does not use this data, so it can be formatted as needed for use in the game. Player data strings for player IDs not included in the @PlayerIds@ parameter are ignored.+cpsPlayerDataMap :: Lens' CreatePlayerSessions (HashMap Text Text)+cpsPlayerDataMap = lens _cpsPlayerDataMap (\ s a -> s{_cpsPlayerDataMap = a}) . _Default . _Map;++-- | Unique identifier for the game session to add players to. cpsGameSessionId :: Lens' CreatePlayerSessions Text cpsGameSessionId = lens _cpsGameSessionId (\ s a -> s{_cpsGameSessionId = a}); @@ -93,9 +126,9 @@                    (x .?> "PlayerSessions" .!@ mempty) <*>                      (pure (fromEnum s))) -instance Hashable CreatePlayerSessions+instance Hashable CreatePlayerSessions where -instance NFData CreatePlayerSessions+instance NFData CreatePlayerSessions where  instance ToHeaders CreatePlayerSessions where         toHeaders@@ -110,7 +143,8 @@         toJSON CreatePlayerSessions'{..}           = object               (catMaybes-                 [Just ("GameSessionId" .= _cpsGameSessionId),+                 [("PlayerDataMap" .=) <$> _cpsPlayerDataMap,+                  Just ("GameSessionId" .= _cpsGameSessionId),                   Just ("PlayerIds" .= _cpsPlayerIds)])  instance ToPath CreatePlayerSessions where@@ -125,10 +159,11 @@ -- -- /See:/ 'createPlayerSessionsResponse' smart constructor. data CreatePlayerSessionsResponse = CreatePlayerSessionsResponse'-    { _crsPlayerSessions :: !(Maybe [PlayerSession])-    , _crsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _crsPlayerSessions :: !(Maybe [PlayerSession])+  , _crsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreatePlayerSessionsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -140,11 +175,10 @@     :: Int -- ^ 'crsResponseStatus'     -> CreatePlayerSessionsResponse createPlayerSessionsResponse pResponseStatus_ =-    CreatePlayerSessionsResponse'-    { _crsPlayerSessions = Nothing-    , _crsResponseStatus = pResponseStatus_-    }+  CreatePlayerSessionsResponse'+  {_crsPlayerSessions = Nothing, _crsResponseStatus = pResponseStatus_} + -- | Collection of player session objects created for the added players. crsPlayerSessions :: Lens' CreatePlayerSessionsResponse [PlayerSession] crsPlayerSessions = lens _crsPlayerSessions (\ s a -> s{_crsPlayerSessions = a}) . _Default . _Coerce;@@ -153,4 +187,4 @@ crsResponseStatus :: Lens' CreatePlayerSessionsResponse Int crsResponseStatus = lens _crsResponseStatus (\ s a -> s{_crsResponseStatus = a}); -instance NFData CreatePlayerSessionsResponse+instance NFData CreatePlayerSessionsResponse where

@@ -0,0 +1,188 @@+{-# 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.GameLift.CreateVPCPeeringAuthorization+-- 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)+--+-- Requests authorization to create or delete a peer connection between the VPC for your Amazon GameLift fleet and a virtual private cloud (VPC) in your AWS account. VPC peering enables the game servers on your fleet to communicate directly with other AWS resources. Once you've received authorization, call 'CreateVpcPeeringConnection' to establish the peering connection. For more information, see <http://docs.aws.amazon.com/gamelift/latest/developerguide/vpc-peering.html VPC Peering with Amazon GameLift Fleets> .+--+--+-- You can peer with VPCs that are owned by any AWS account you have access to, including the account that you use to manage your Amazon GameLift fleets. You cannot peer with VPCs that are in different regions.+--+-- To request authorization to create a connection, call this operation from the AWS account with the VPC that you want to peer to your Amazon GameLift fleet. For example, to enable your game servers to retrieve data from a DynamoDB table, use the account that manages that DynamoDB resource. Identify the following values: (1) The ID of the VPC that you want to peer with, and (2) the ID of the AWS account that you use to manage Amazon GameLift. If successful, VPC peering is authorized for the specified VPC.+--+-- To request authorization to delete a connection, call this operation from the AWS account with the VPC that is peered with your Amazon GameLift fleet. Identify the following values: (1) VPC ID that you want to delete the peering connection for, and (2) ID of the AWS account that you use to manage Amazon GameLift.+--+-- The authorization remains valid for 24 hours unless it is canceled by a call to 'DeleteVpcPeeringAuthorization' . You must create or delete the peering connection while the authorization is valid.+--+-- VPC peering connection operations include:+--+--     * 'CreateVpcPeeringAuthorization'+--+--     * 'DescribeVpcPeeringAuthorizations'+--+--     * 'DeleteVpcPeeringAuthorization'+--+--     * 'CreateVpcPeeringConnection'+--+--     * 'DescribeVpcPeeringConnections'+--+--     * 'DeleteVpcPeeringConnection'+--+--+--+module Network.AWS.GameLift.CreateVPCPeeringAuthorization+    (+    -- * Creating a Request+      createVPCPeeringAuthorization+    , CreateVPCPeeringAuthorization+    -- * Request Lenses+    , cvpaGameLiftAWSAccountId+    , cvpaPeerVPCId++    -- * Destructuring the Response+    , createVPCPeeringAuthorizationResponse+    , CreateVPCPeeringAuthorizationResponse+    -- * Response Lenses+    , cvparsVPCPeeringAuthorization+    , cvparsResponseStatus+    ) where++import Network.AWS.GameLift.Types+import Network.AWS.GameLift.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | Represents the input for a request action.+--+--+--+-- /See:/ 'createVPCPeeringAuthorization' smart constructor.+data CreateVPCPeeringAuthorization = CreateVPCPeeringAuthorization'+  { _cvpaGameLiftAWSAccountId :: !Text+  , _cvpaPeerVPCId            :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreateVPCPeeringAuthorization' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cvpaGameLiftAWSAccountId' - Unique identifier for the AWS account that you use to manage your Amazon GameLift fleet. You can find your Account ID in the AWS Management Console under account settings.+--+-- * 'cvpaPeerVPCId' - Unique identifier for a VPC with resources to be accessed by your Amazon GameLift fleet. The VPC must be in the same region where your fleet is deployed. To get VPC information, including IDs, use the Virtual Private Cloud service tools, including the VPC Dashboard in the AWS Management Console.+createVPCPeeringAuthorization+    :: Text -- ^ 'cvpaGameLiftAWSAccountId'+    -> Text -- ^ 'cvpaPeerVPCId'+    -> CreateVPCPeeringAuthorization+createVPCPeeringAuthorization pGameLiftAWSAccountId_ pPeerVPCId_ =+  CreateVPCPeeringAuthorization'+  { _cvpaGameLiftAWSAccountId = pGameLiftAWSAccountId_+  , _cvpaPeerVPCId = pPeerVPCId_+  }+++-- | Unique identifier for the AWS account that you use to manage your Amazon GameLift fleet. You can find your Account ID in the AWS Management Console under account settings.+cvpaGameLiftAWSAccountId :: Lens' CreateVPCPeeringAuthorization Text+cvpaGameLiftAWSAccountId = lens _cvpaGameLiftAWSAccountId (\ s a -> s{_cvpaGameLiftAWSAccountId = a});++-- | Unique identifier for a VPC with resources to be accessed by your Amazon GameLift fleet. The VPC must be in the same region where your fleet is deployed. To get VPC information, including IDs, use the Virtual Private Cloud service tools, including the VPC Dashboard in the AWS Management Console.+cvpaPeerVPCId :: Lens' CreateVPCPeeringAuthorization Text+cvpaPeerVPCId = lens _cvpaPeerVPCId (\ s a -> s{_cvpaPeerVPCId = a});++instance AWSRequest CreateVPCPeeringAuthorization+         where+        type Rs CreateVPCPeeringAuthorization =+             CreateVPCPeeringAuthorizationResponse+        request = postJSON gameLift+        response+          = receiveJSON+              (\ s h x ->+                 CreateVPCPeeringAuthorizationResponse' <$>+                   (x .?> "VpcPeeringAuthorization") <*>+                     (pure (fromEnum s)))++instance Hashable CreateVPCPeeringAuthorization where++instance NFData CreateVPCPeeringAuthorization where++instance ToHeaders CreateVPCPeeringAuthorization+         where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("GameLift.CreateVpcPeeringAuthorization" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON CreateVPCPeeringAuthorization where+        toJSON CreateVPCPeeringAuthorization'{..}+          = object+              (catMaybes+                 [Just+                    ("GameLiftAwsAccountId" .=+                       _cvpaGameLiftAWSAccountId),+                  Just ("PeerVpcId" .= _cvpaPeerVPCId)])++instance ToPath CreateVPCPeeringAuthorization where+        toPath = const "/"++instance ToQuery CreateVPCPeeringAuthorization where+        toQuery = const mempty++-- | Represents the returned data in response to a request action.+--+--+--+-- /See:/ 'createVPCPeeringAuthorizationResponse' smart constructor.+data CreateVPCPeeringAuthorizationResponse = CreateVPCPeeringAuthorizationResponse'+  { _cvparsVPCPeeringAuthorization :: !(Maybe VPCPeeringAuthorization)+  , _cvparsResponseStatus          :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreateVPCPeeringAuthorizationResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cvparsVPCPeeringAuthorization' - Details on the requested VPC peering authorization, including expiration.+--+-- * 'cvparsResponseStatus' - -- | The response status code.+createVPCPeeringAuthorizationResponse+    :: Int -- ^ 'cvparsResponseStatus'+    -> CreateVPCPeeringAuthorizationResponse+createVPCPeeringAuthorizationResponse pResponseStatus_ =+  CreateVPCPeeringAuthorizationResponse'+  { _cvparsVPCPeeringAuthorization = Nothing+  , _cvparsResponseStatus = pResponseStatus_+  }+++-- | Details on the requested VPC peering authorization, including expiration.+cvparsVPCPeeringAuthorization :: Lens' CreateVPCPeeringAuthorizationResponse (Maybe VPCPeeringAuthorization)+cvparsVPCPeeringAuthorization = lens _cvparsVPCPeeringAuthorization (\ s a -> s{_cvparsVPCPeeringAuthorization = a});++-- | -- | The response status code.+cvparsResponseStatus :: Lens' CreateVPCPeeringAuthorizationResponse Int+cvparsResponseStatus = lens _cvparsResponseStatus (\ s a -> s{_cvparsResponseStatus = a});++instance NFData CreateVPCPeeringAuthorizationResponse+         where

@@ -0,0 +1,176 @@+{-# 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.GameLift.CreateVPCPeeringConnection+-- 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)+--+-- Establishes a VPC peering connection between a virtual private cloud (VPC) in an AWS account with the VPC for your Amazon GameLift fleet. VPC peering enables the game servers on your fleet to communicate directly with other AWS resources. You can peer with VPCs in any AWS account that you have access to, including the account that you use to manage your Amazon GameLift fleets. You cannot peer with VPCs that are in different regions. For more information, see <http://docs.aws.amazon.com/gamelift/latest/developerguide/vpc-peering.html VPC Peering with Amazon GameLift Fleets> .+--+--+-- Before calling this operation to establish the peering connection, you first need to call 'CreateVpcPeeringAuthorization' and identify the VPC you want to peer with. Once the authorization for the specified VPC is issued, you have 24 hours to establish the connection. These two operations handle all tasks necessary to peer the two VPCs, including acceptance, updating routing tables, etc.+--+-- To establish the connection, call this operation from the AWS account that is used to manage the Amazon GameLift fleets. Identify the following values: (1) The ID of the fleet you want to be enable a VPC peering connection for; (2) The AWS account with the VPC that you want to peer with; and (3) The ID of the VPC you want to peer with. This operation is asynchronous. If successful, a 'VpcPeeringConnection' request is created. You can use continuous polling to track the request's status using 'DescribeVpcPeeringConnections' , or by monitoring fleet events for success or failure using 'DescribeFleetEvents' .+--+-- VPC peering connection operations include:+--+--     * 'CreateVpcPeeringAuthorization'+--+--     * 'DescribeVpcPeeringAuthorizations'+--+--     * 'DeleteVpcPeeringAuthorization'+--+--     * 'CreateVpcPeeringConnection'+--+--     * 'DescribeVpcPeeringConnections'+--+--     * 'DeleteVpcPeeringConnection'+--+--+--+module Network.AWS.GameLift.CreateVPCPeeringConnection+    (+    -- * Creating a Request+      createVPCPeeringConnection+    , CreateVPCPeeringConnection+    -- * Request Lenses+    , cvpcFleetId+    , cvpcPeerVPCAWSAccountId+    , cvpcPeerVPCId++    -- * Destructuring the Response+    , createVPCPeeringConnectionResponse+    , CreateVPCPeeringConnectionResponse+    -- * Response Lenses+    , cvpcrsResponseStatus+    ) where++import Network.AWS.GameLift.Types+import Network.AWS.GameLift.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | Represents the input for a request action.+--+--+--+-- /See:/ 'createVPCPeeringConnection' smart constructor.+data CreateVPCPeeringConnection = CreateVPCPeeringConnection'+  { _cvpcFleetId             :: !Text+  , _cvpcPeerVPCAWSAccountId :: !Text+  , _cvpcPeerVPCId           :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreateVPCPeeringConnection' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cvpcFleetId' - Unique identifier for a fleet. This tells Amazon GameLift which GameLift VPC to peer with.+--+-- * 'cvpcPeerVPCAWSAccountId' - Unique identifier for the AWS account with the VPC that you want to peer your Amazon GameLift fleet with. You can find your Account ID in the AWS Management Console under account settings.+--+-- * 'cvpcPeerVPCId' - Unique identifier for a VPC with resources to be accessed by your Amazon GameLift fleet. The VPC must be in the same region where your fleet is deployed. To get VPC information, including IDs, use the Virtual Private Cloud service tools, including the VPC Dashboard in the AWS Management Console.+createVPCPeeringConnection+    :: Text -- ^ 'cvpcFleetId'+    -> Text -- ^ 'cvpcPeerVPCAWSAccountId'+    -> Text -- ^ 'cvpcPeerVPCId'+    -> CreateVPCPeeringConnection+createVPCPeeringConnection pFleetId_ pPeerVPCAWSAccountId_ pPeerVPCId_ =+  CreateVPCPeeringConnection'+  { _cvpcFleetId = pFleetId_+  , _cvpcPeerVPCAWSAccountId = pPeerVPCAWSAccountId_+  , _cvpcPeerVPCId = pPeerVPCId_+  }+++-- | Unique identifier for a fleet. This tells Amazon GameLift which GameLift VPC to peer with.+cvpcFleetId :: Lens' CreateVPCPeeringConnection Text+cvpcFleetId = lens _cvpcFleetId (\ s a -> s{_cvpcFleetId = a});++-- | Unique identifier for the AWS account with the VPC that you want to peer your Amazon GameLift fleet with. You can find your Account ID in the AWS Management Console under account settings.+cvpcPeerVPCAWSAccountId :: Lens' CreateVPCPeeringConnection Text+cvpcPeerVPCAWSAccountId = lens _cvpcPeerVPCAWSAccountId (\ s a -> s{_cvpcPeerVPCAWSAccountId = a});++-- | Unique identifier for a VPC with resources to be accessed by your Amazon GameLift fleet. The VPC must be in the same region where your fleet is deployed. To get VPC information, including IDs, use the Virtual Private Cloud service tools, including the VPC Dashboard in the AWS Management Console.+cvpcPeerVPCId :: Lens' CreateVPCPeeringConnection Text+cvpcPeerVPCId = lens _cvpcPeerVPCId (\ s a -> s{_cvpcPeerVPCId = a});++instance AWSRequest CreateVPCPeeringConnection where+        type Rs CreateVPCPeeringConnection =+             CreateVPCPeeringConnectionResponse+        request = postJSON gameLift+        response+          = receiveEmpty+              (\ s h x ->+                 CreateVPCPeeringConnectionResponse' <$>+                   (pure (fromEnum s)))++instance Hashable CreateVPCPeeringConnection where++instance NFData CreateVPCPeeringConnection where++instance ToHeaders CreateVPCPeeringConnection where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("GameLift.CreateVpcPeeringConnection" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON CreateVPCPeeringConnection where+        toJSON CreateVPCPeeringConnection'{..}+          = object+              (catMaybes+                 [Just ("FleetId" .= _cvpcFleetId),+                  Just+                    ("PeerVpcAwsAccountId" .= _cvpcPeerVPCAWSAccountId),+                  Just ("PeerVpcId" .= _cvpcPeerVPCId)])++instance ToPath CreateVPCPeeringConnection where+        toPath = const "/"++instance ToQuery CreateVPCPeeringConnection where+        toQuery = const mempty++-- | /See:/ 'createVPCPeeringConnectionResponse' smart constructor.+newtype CreateVPCPeeringConnectionResponse = CreateVPCPeeringConnectionResponse'+  { _cvpcrsResponseStatus :: Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreateVPCPeeringConnectionResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cvpcrsResponseStatus' - -- | The response status code.+createVPCPeeringConnectionResponse+    :: Int -- ^ 'cvpcrsResponseStatus'+    -> CreateVPCPeeringConnectionResponse+createVPCPeeringConnectionResponse pResponseStatus_ =+  CreateVPCPeeringConnectionResponse' {_cvpcrsResponseStatus = pResponseStatus_}+++-- | -- | The response status code.+cvpcrsResponseStatus :: Lens' CreateVPCPeeringConnectionResponse Int+cvpcrsResponseStatus = lens _cvpcrsResponseStatus (\ s a -> s{_cvpcrsResponseStatus = a});++instance NFData CreateVPCPeeringConnectionResponse+         where

@@ -12,15 +12,31 @@  -- | -- Module      : Network.AWS.GameLift.DeleteAlias--- 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) ----- Deletes an alias. This action removes all record of the alias; game clients attempting to access a server process using the deleted alias receive an error. To delete an alias, specify the alias ID to be deleted.+-- Deletes an alias. This action removes all record of the alias. Game clients attempting to access a server process using the deleted alias receive an error. To delete an alias, specify the alias ID to be deleted. -- --+-- Alias-related operations include:+--+--     * 'CreateAlias'+--+--     * 'ListAliases'+--+--     * 'DescribeAlias'+--+--     * 'UpdateAlias'+--+--     * 'DeleteAlias'+--+--     * 'ResolveAlias'+--+--+-- module Network.AWS.GameLift.DeleteAlias     (     -- * Creating a Request@@ -34,12 +50,12 @@     , DeleteAliasResponse     ) where -import           Network.AWS.GameLift.Types-import           Network.AWS.GameLift.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.GameLift.Types+import Network.AWS.GameLift.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | Represents the input for a request action. --@@ -47,9 +63,10 @@ -- -- /See:/ 'deleteAlias' smart constructor. newtype DeleteAlias = DeleteAlias'-    { _daAliasId :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _daAliasId :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteAlias' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -58,11 +75,9 @@ deleteAlias     :: Text -- ^ 'daAliasId'     -> DeleteAlias-deleteAlias pAliasId_ =-    DeleteAlias'-    { _daAliasId = pAliasId_-    }+deleteAlias pAliasId_ = DeleteAlias' {_daAliasId = pAliasId_} + -- | Unique identifier for a fleet alias. Specify the alias you want to delete. daAliasId :: Lens' DeleteAlias Text daAliasId = lens _daAliasId (\ s a -> s{_daAliasId = a});@@ -72,9 +87,9 @@         request = postJSON gameLift         response = receiveNull DeleteAliasResponse' -instance Hashable DeleteAlias+instance Hashable DeleteAlias where -instance NFData DeleteAlias+instance NFData DeleteAlias where  instance ToHeaders DeleteAlias where         toHeaders@@ -97,13 +112,15 @@  -- | /See:/ 'deleteAliasResponse' smart constructor. data DeleteAliasResponse =-    DeleteAliasResponse'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  DeleteAliasResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteAliasResponse' with the minimum fields required to make a request. -- deleteAliasResponse     :: DeleteAliasResponse deleteAliasResponse = DeleteAliasResponse' -instance NFData DeleteAliasResponse++instance NFData DeleteAliasResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.GameLift.DeleteBuild--- 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) --@@ -23,6 +23,20 @@ -- -- To delete a build, specify its ID. Deleting a build does not affect the status of any active fleets using the build, but you can no longer create new fleets with the deleted build. --+-- Build-related operations include:+--+--     * 'CreateBuild'+--+--     * 'ListBuilds'+--+--     * 'DescribeBuild'+--+--     * 'UpdateBuild'+--+--     * 'DeleteBuild'+--+--+-- module Network.AWS.GameLift.DeleteBuild     (     -- * Creating a Request@@ -36,12 +50,12 @@     , DeleteBuildResponse     ) where -import           Network.AWS.GameLift.Types-import           Network.AWS.GameLift.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.GameLift.Types+import Network.AWS.GameLift.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | Represents the input for a request action. --@@ -49,23 +63,22 @@ -- -- /See:/ 'deleteBuild' smart constructor. newtype DeleteBuild = DeleteBuild'-    { _dbBuildId :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dbBuildId :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteBuild' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dbBuildId' - Unique identifier for the build you want to delete.+-- * 'dbBuildId' - Unique identifier for a build to delete. deleteBuild     :: Text -- ^ 'dbBuildId'     -> DeleteBuild-deleteBuild pBuildId_ =-    DeleteBuild'-    { _dbBuildId = pBuildId_-    }+deleteBuild pBuildId_ = DeleteBuild' {_dbBuildId = pBuildId_} --- | Unique identifier for the build you want to delete.++-- | Unique identifier for a build to delete. dbBuildId :: Lens' DeleteBuild Text dbBuildId = lens _dbBuildId (\ s a -> s{_dbBuildId = a}); @@ -74,9 +87,9 @@         request = postJSON gameLift         response = receiveNull DeleteBuildResponse' -instance Hashable DeleteBuild+instance Hashable DeleteBuild where -instance NFData DeleteBuild+instance NFData DeleteBuild where  instance ToHeaders DeleteBuild where         toHeaders@@ -99,13 +112,15 @@  -- | /See:/ 'deleteBuildResponse' smart constructor. data DeleteBuildResponse =-    DeleteBuildResponse'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  DeleteBuildResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteBuildResponse' with the minimum fields required to make a request. -- deleteBuildResponse     :: DeleteBuildResponse deleteBuildResponse = DeleteBuildResponse' -instance NFData DeleteBuildResponse++instance NFData DeleteBuildResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.GameLift.DeleteFleet--- 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) --@@ -23,6 +23,58 @@ -- -- This action removes the fleet's resources and the fleet record. Once a fleet is deleted, you can no longer use that fleet. --+-- Fleet-related operations include:+--+--     * 'CreateFleet'+--+--     * 'ListFleets'+--+--     * Describe fleets:+--+--     * 'DescribeFleetAttributes'+--+--     * 'DescribeFleetPortSettings'+--+--     * 'DescribeFleetUtilization'+--+--     * 'DescribeRuntimeConfiguration'+--+--     * 'DescribeFleetEvents'+--+--+--+--     * Update fleets:+--+--     * 'UpdateFleetAttributes'+--+--     * 'UpdateFleetCapacity'+--+--     * 'UpdateFleetPortSettings'+--+--     * 'UpdateRuntimeConfiguration'+--+--+--+--     * Manage fleet capacity:+--+--     * 'DescribeFleetCapacity'+--+--     * 'UpdateFleetCapacity'+--+--     * 'PutScalingPolicy' (automatic scaling)+--+--     * 'DescribeScalingPolicies' (automatic scaling)+--+--     * 'DeleteScalingPolicy' (automatic scaling)+--+--     * 'DescribeEC2InstanceLimits'+--+--+--+--     * 'DeleteFleet'+--+--+-- module Network.AWS.GameLift.DeleteFleet     (     -- * Creating a Request@@ -36,12 +88,12 @@     , DeleteFleetResponse     ) where -import           Network.AWS.GameLift.Types-import           Network.AWS.GameLift.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.GameLift.Types+import Network.AWS.GameLift.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | Represents the input for a request action. --@@ -49,23 +101,22 @@ -- -- /See:/ 'deleteFleet' smart constructor. newtype DeleteFleet = DeleteFleet'-    { _dfFleetId :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dfFleetId :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteFleet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dfFleetId' - Unique identifier for the fleet you want to delete.+-- * 'dfFleetId' - Unique identifier for a fleet to be deleted. deleteFleet     :: Text -- ^ 'dfFleetId'     -> DeleteFleet-deleteFleet pFleetId_ =-    DeleteFleet'-    { _dfFleetId = pFleetId_-    }+deleteFleet pFleetId_ = DeleteFleet' {_dfFleetId = pFleetId_} --- | Unique identifier for the fleet you want to delete.++-- | Unique identifier for a fleet to be deleted. dfFleetId :: Lens' DeleteFleet Text dfFleetId = lens _dfFleetId (\ s a -> s{_dfFleetId = a}); @@ -74,9 +125,9 @@         request = postJSON gameLift         response = receiveNull DeleteFleetResponse' -instance Hashable DeleteFleet+instance Hashable DeleteFleet where -instance NFData DeleteFleet+instance NFData DeleteFleet where  instance ToHeaders DeleteFleet where         toHeaders@@ -99,13 +150,15 @@  -- | /See:/ 'deleteFleetResponse' smart constructor. data DeleteFleetResponse =-    DeleteFleetResponse'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  DeleteFleetResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteFleetResponse' with the minimum fields required to make a request. -- deleteFleetResponse     :: DeleteFleetResponse deleteFleetResponse = DeleteFleetResponse' -instance NFData DeleteFleetResponse++instance NFData DeleteFleetResponse where

@@ -0,0 +1,138 @@+{-# 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.GameLift.DeleteGameSessionQueue+-- 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 a game session queue. This action means that any 'StartGameSessionPlacement' requests that reference this queue will fail. To delete a queue, specify the queue name.+--+--+-- Queue-related operations include:+--+--     * 'CreateGameSessionQueue'+--+--     * 'DescribeGameSessionQueues'+--+--     * 'UpdateGameSessionQueue'+--+--     * 'DeleteGameSessionQueue'+--+--+--+module Network.AWS.GameLift.DeleteGameSessionQueue+    (+    -- * Creating a Request+      deleteGameSessionQueue+    , DeleteGameSessionQueue+    -- * Request Lenses+    , dgsqName++    -- * Destructuring the Response+    , deleteGameSessionQueueResponse+    , DeleteGameSessionQueueResponse+    -- * Response Lenses+    , dgsqrsResponseStatus+    ) where++import Network.AWS.GameLift.Types+import Network.AWS.GameLift.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | Represents the input for a request action.+--+--+--+-- /See:/ 'deleteGameSessionQueue' smart constructor.+newtype DeleteGameSessionQueue = DeleteGameSessionQueue'+  { _dgsqName :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteGameSessionQueue' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dgsqName' - Descriptive label that is associated with game session queue. Queue names must be unique within each region.+deleteGameSessionQueue+    :: Text -- ^ 'dgsqName'+    -> DeleteGameSessionQueue+deleteGameSessionQueue pName_ = DeleteGameSessionQueue' {_dgsqName = pName_}+++-- | Descriptive label that is associated with game session queue. Queue names must be unique within each region.+dgsqName :: Lens' DeleteGameSessionQueue Text+dgsqName = lens _dgsqName (\ s a -> s{_dgsqName = a});++instance AWSRequest DeleteGameSessionQueue where+        type Rs DeleteGameSessionQueue =+             DeleteGameSessionQueueResponse+        request = postJSON gameLift+        response+          = receiveEmpty+              (\ s h x ->+                 DeleteGameSessionQueueResponse' <$>+                   (pure (fromEnum s)))++instance Hashable DeleteGameSessionQueue where++instance NFData DeleteGameSessionQueue where++instance ToHeaders DeleteGameSessionQueue where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("GameLift.DeleteGameSessionQueue" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DeleteGameSessionQueue where+        toJSON DeleteGameSessionQueue'{..}+          = object (catMaybes [Just ("Name" .= _dgsqName)])++instance ToPath DeleteGameSessionQueue where+        toPath = const "/"++instance ToQuery DeleteGameSessionQueue where+        toQuery = const mempty++-- | /See:/ 'deleteGameSessionQueueResponse' smart constructor.+newtype DeleteGameSessionQueueResponse = DeleteGameSessionQueueResponse'+  { _dgsqrsResponseStatus :: Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteGameSessionQueueResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dgsqrsResponseStatus' - -- | The response status code.+deleteGameSessionQueueResponse+    :: Int -- ^ 'dgsqrsResponseStatus'+    -> DeleteGameSessionQueueResponse+deleteGameSessionQueueResponse pResponseStatus_ =+  DeleteGameSessionQueueResponse' {_dgsqrsResponseStatus = pResponseStatus_}+++-- | -- | The response status code.+dgsqrsResponseStatus :: Lens' DeleteGameSessionQueueResponse Int+dgsqrsResponseStatus = lens _dgsqrsResponseStatus (\ s a -> s{_dgsqrsResponseStatus = a});++instance NFData DeleteGameSessionQueueResponse where

@@ -0,0 +1,152 @@+{-# 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.GameLift.DeleteMatchmakingConfiguration+-- 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)+--+-- Permanently removes a FlexMatch matchmaking configuration. To delete, specify the configuration name. A matchmaking configuration cannot be deleted if it is being used in any active matchmaking tickets.+--+--+-- Operations related to match configurations and rule sets include:+--+--     * 'CreateMatchmakingConfiguration'+--+--     * 'DescribeMatchmakingConfigurations'+--+--     * 'UpdateMatchmakingConfiguration'+--+--     * 'DeleteMatchmakingConfiguration'+--+--     * 'CreateMatchmakingRuleSet'+--+--     * 'DescribeMatchmakingRuleSets'+--+--     * 'ValidateMatchmakingRuleSet'+--+--+--+module Network.AWS.GameLift.DeleteMatchmakingConfiguration+    (+    -- * Creating a Request+      deleteMatchmakingConfiguration+    , DeleteMatchmakingConfiguration+    -- * Request Lenses+    , dmcName++    -- * Destructuring the Response+    , deleteMatchmakingConfigurationResponse+    , DeleteMatchmakingConfigurationResponse+    -- * Response Lenses+    , dmcrsResponseStatus+    ) where++import Network.AWS.GameLift.Types+import Network.AWS.GameLift.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | Represents the input for a request action.+--+--+--+-- /See:/ 'deleteMatchmakingConfiguration' smart constructor.+newtype DeleteMatchmakingConfiguration = DeleteMatchmakingConfiguration'+  { _dmcName :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteMatchmakingConfiguration' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dmcName' - Unique identifier for a matchmaking configuration+deleteMatchmakingConfiguration+    :: Text -- ^ 'dmcName'+    -> DeleteMatchmakingConfiguration+deleteMatchmakingConfiguration pName_ =+  DeleteMatchmakingConfiguration' {_dmcName = pName_}+++-- | Unique identifier for a matchmaking configuration+dmcName :: Lens' DeleteMatchmakingConfiguration Text+dmcName = lens _dmcName (\ s a -> s{_dmcName = a});++instance AWSRequest DeleteMatchmakingConfiguration+         where+        type Rs DeleteMatchmakingConfiguration =+             DeleteMatchmakingConfigurationResponse+        request = postJSON gameLift+        response+          = receiveEmpty+              (\ s h x ->+                 DeleteMatchmakingConfigurationResponse' <$>+                   (pure (fromEnum s)))++instance Hashable DeleteMatchmakingConfiguration+         where++instance NFData DeleteMatchmakingConfiguration where++instance ToHeaders DeleteMatchmakingConfiguration+         where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("GameLift.DeleteMatchmakingConfiguration" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DeleteMatchmakingConfiguration where+        toJSON DeleteMatchmakingConfiguration'{..}+          = object (catMaybes [Just ("Name" .= _dmcName)])++instance ToPath DeleteMatchmakingConfiguration where+        toPath = const "/"++instance ToQuery DeleteMatchmakingConfiguration where+        toQuery = const mempty++-- | /See:/ 'deleteMatchmakingConfigurationResponse' smart constructor.+newtype DeleteMatchmakingConfigurationResponse = DeleteMatchmakingConfigurationResponse'+  { _dmcrsResponseStatus :: Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteMatchmakingConfigurationResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dmcrsResponseStatus' - -- | The response status code.+deleteMatchmakingConfigurationResponse+    :: Int -- ^ 'dmcrsResponseStatus'+    -> DeleteMatchmakingConfigurationResponse+deleteMatchmakingConfigurationResponse pResponseStatus_ =+  DeleteMatchmakingConfigurationResponse'+  {_dmcrsResponseStatus = pResponseStatus_}+++-- | -- | The response status code.+dmcrsResponseStatus :: Lens' DeleteMatchmakingConfigurationResponse Int+dmcrsResponseStatus = lens _dmcrsResponseStatus (\ s a -> s{_dmcrsResponseStatus = a});++instance NFData+           DeleteMatchmakingConfigurationResponse+         where

@@ -12,15 +12,67 @@  -- | -- Module      : Network.AWS.GameLift.DeleteScalingPolicy--- 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) -- -- Deletes a fleet scaling policy. This action means that the policy is no longer in force and removes all record of it. To delete a scaling policy, specify both the scaling policy name and the fleet ID it is associated with. -- --+-- Fleet-related operations include:+--+--     * 'CreateFleet'+--+--     * 'ListFleets'+--+--     * Describe fleets:+--+--     * 'DescribeFleetAttributes'+--+--     * 'DescribeFleetPortSettings'+--+--     * 'DescribeFleetUtilization'+--+--     * 'DescribeRuntimeConfiguration'+--+--     * 'DescribeFleetEvents'+--+--+--+--     * Update fleets:+--+--     * 'UpdateFleetAttributes'+--+--     * 'UpdateFleetCapacity'+--+--     * 'UpdateFleetPortSettings'+--+--     * 'UpdateRuntimeConfiguration'+--+--+--+--     * Manage fleet capacity:+--+--     * 'DescribeFleetCapacity'+--+--     * 'UpdateFleetCapacity'+--+--     * 'PutScalingPolicy' (automatic scaling)+--+--     * 'DescribeScalingPolicies' (automatic scaling)+--+--     * 'DeleteScalingPolicy' (automatic scaling)+--+--     * 'DescribeEC2InstanceLimits'+--+--+--+--     * 'DeleteFleet'+--+--+-- module Network.AWS.GameLift.DeleteScalingPolicy     (     -- * Creating a Request@@ -35,12 +87,12 @@     , DeleteScalingPolicyResponse     ) where -import           Network.AWS.GameLift.Types-import           Network.AWS.GameLift.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.GameLift.Types+import Network.AWS.GameLift.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | Represents the input for a request action. --@@ -48,32 +100,31 @@ -- -- /See:/ 'deleteScalingPolicy' smart constructor. data DeleteScalingPolicy = DeleteScalingPolicy'-    { _dspName    :: !Text-    , _dspFleetId :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dspName    :: !Text+  , _dspFleetId :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteScalingPolicy' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dspName' - Descriptive label associated with a scaling policy. Policy names do not need to be unique.+-- * 'dspName' - Descriptive label that is associated with a scaling policy. Policy names do not need to be unique. ----- * 'dspFleetId' - Unique identifier for a fleet.+-- * 'dspFleetId' - Unique identifier for a fleet to be deleted. deleteScalingPolicy     :: Text -- ^ 'dspName'     -> Text -- ^ 'dspFleetId'     -> DeleteScalingPolicy deleteScalingPolicy pName_ pFleetId_ =-    DeleteScalingPolicy'-    { _dspName = pName_-    , _dspFleetId = pFleetId_-    }+  DeleteScalingPolicy' {_dspName = pName_, _dspFleetId = pFleetId_} --- | Descriptive label associated with a scaling policy. Policy names do not need to be unique.++-- | Descriptive label that is associated with a scaling policy. Policy names do not need to be unique. dspName :: Lens' DeleteScalingPolicy Text dspName = lens _dspName (\ s a -> s{_dspName = a}); --- | Unique identifier for a fleet.+-- | Unique identifier for a fleet to be deleted. dspFleetId :: Lens' DeleteScalingPolicy Text dspFleetId = lens _dspFleetId (\ s a -> s{_dspFleetId = a}); @@ -83,9 +134,9 @@         request = postJSON gameLift         response = receiveNull DeleteScalingPolicyResponse' -instance Hashable DeleteScalingPolicy+instance Hashable DeleteScalingPolicy where -instance NFData DeleteScalingPolicy+instance NFData DeleteScalingPolicy where  instance ToHeaders DeleteScalingPolicy where         toHeaders@@ -111,13 +162,15 @@  -- | /See:/ 'deleteScalingPolicyResponse' smart constructor. data DeleteScalingPolicyResponse =-    DeleteScalingPolicyResponse'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  DeleteScalingPolicyResponse'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteScalingPolicyResponse' with the minimum fields required to make a request. -- deleteScalingPolicyResponse     :: DeleteScalingPolicyResponse deleteScalingPolicyResponse = DeleteScalingPolicyResponse' -instance NFData DeleteScalingPolicyResponse++instance NFData DeleteScalingPolicyResponse where

@@ -0,0 +1,165 @@+{-# 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.GameLift.DeleteVPCPeeringAuthorization+-- 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)+--+-- Cancels a pending VPC peering authorization for the specified VPC. If the authorization has already been used to create a peering connection, call 'DeleteVpcPeeringConnection' to remove the connection.+--+--+-- VPC peering connection operations include:+--+--     * 'CreateVpcPeeringAuthorization'+--+--     * 'DescribeVpcPeeringAuthorizations'+--+--     * 'DeleteVpcPeeringAuthorization'+--+--     * 'CreateVpcPeeringConnection'+--+--     * 'DescribeVpcPeeringConnections'+--+--     * 'DeleteVpcPeeringConnection'+--+--+--+module Network.AWS.GameLift.DeleteVPCPeeringAuthorization+    (+    -- * Creating a Request+      deleteVPCPeeringAuthorization+    , DeleteVPCPeeringAuthorization+    -- * Request Lenses+    , dvpaGameLiftAWSAccountId+    , dvpaPeerVPCId++    -- * Destructuring the Response+    , deleteVPCPeeringAuthorizationResponse+    , DeleteVPCPeeringAuthorizationResponse+    -- * Response Lenses+    , dvparsResponseStatus+    ) where++import Network.AWS.GameLift.Types+import Network.AWS.GameLift.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | Represents the input for a request action.+--+--+--+-- /See:/ 'deleteVPCPeeringAuthorization' smart constructor.+data DeleteVPCPeeringAuthorization = DeleteVPCPeeringAuthorization'+  { _dvpaGameLiftAWSAccountId :: !Text+  , _dvpaPeerVPCId            :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteVPCPeeringAuthorization' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dvpaGameLiftAWSAccountId' - Unique identifier for the AWS account that you use to manage your Amazon GameLift fleet. You can find your Account ID in the AWS Management Console under account settings.+--+-- * 'dvpaPeerVPCId' - Unique identifier for a VPC with resources to be accessed by your Amazon GameLift fleet. The VPC must be in the same region where your fleet is deployed. To get VPC information, including IDs, use the Virtual Private Cloud service tools, including the VPC Dashboard in the AWS Management Console.+deleteVPCPeeringAuthorization+    :: Text -- ^ 'dvpaGameLiftAWSAccountId'+    -> Text -- ^ 'dvpaPeerVPCId'+    -> DeleteVPCPeeringAuthorization+deleteVPCPeeringAuthorization pGameLiftAWSAccountId_ pPeerVPCId_ =+  DeleteVPCPeeringAuthorization'+  { _dvpaGameLiftAWSAccountId = pGameLiftAWSAccountId_+  , _dvpaPeerVPCId = pPeerVPCId_+  }+++-- | Unique identifier for the AWS account that you use to manage your Amazon GameLift fleet. You can find your Account ID in the AWS Management Console under account settings.+dvpaGameLiftAWSAccountId :: Lens' DeleteVPCPeeringAuthorization Text+dvpaGameLiftAWSAccountId = lens _dvpaGameLiftAWSAccountId (\ s a -> s{_dvpaGameLiftAWSAccountId = a});++-- | Unique identifier for a VPC with resources to be accessed by your Amazon GameLift fleet. The VPC must be in the same region where your fleet is deployed. To get VPC information, including IDs, use the Virtual Private Cloud service tools, including the VPC Dashboard in the AWS Management Console.+dvpaPeerVPCId :: Lens' DeleteVPCPeeringAuthorization Text+dvpaPeerVPCId = lens _dvpaPeerVPCId (\ s a -> s{_dvpaPeerVPCId = a});++instance AWSRequest DeleteVPCPeeringAuthorization+         where+        type Rs DeleteVPCPeeringAuthorization =+             DeleteVPCPeeringAuthorizationResponse+        request = postJSON gameLift+        response+          = receiveEmpty+              (\ s h x ->+                 DeleteVPCPeeringAuthorizationResponse' <$>+                   (pure (fromEnum s)))++instance Hashable DeleteVPCPeeringAuthorization where++instance NFData DeleteVPCPeeringAuthorization where++instance ToHeaders DeleteVPCPeeringAuthorization+         where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("GameLift.DeleteVpcPeeringAuthorization" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DeleteVPCPeeringAuthorization where+        toJSON DeleteVPCPeeringAuthorization'{..}+          = object+              (catMaybes+                 [Just+                    ("GameLiftAwsAccountId" .=+                       _dvpaGameLiftAWSAccountId),+                  Just ("PeerVpcId" .= _dvpaPeerVPCId)])++instance ToPath DeleteVPCPeeringAuthorization where+        toPath = const "/"++instance ToQuery DeleteVPCPeeringAuthorization where+        toQuery = const mempty++-- | /See:/ 'deleteVPCPeeringAuthorizationResponse' smart constructor.+newtype DeleteVPCPeeringAuthorizationResponse = DeleteVPCPeeringAuthorizationResponse'+  { _dvparsResponseStatus :: Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteVPCPeeringAuthorizationResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dvparsResponseStatus' - -- | The response status code.+deleteVPCPeeringAuthorizationResponse+    :: Int -- ^ 'dvparsResponseStatus'+    -> DeleteVPCPeeringAuthorizationResponse+deleteVPCPeeringAuthorizationResponse pResponseStatus_ =+  DeleteVPCPeeringAuthorizationResponse'+  {_dvparsResponseStatus = pResponseStatus_}+++-- | -- | The response status code.+dvparsResponseStatus :: Lens' DeleteVPCPeeringAuthorizationResponse Int+dvparsResponseStatus = lens _dvparsResponseStatus (\ s a -> s{_dvparsResponseStatus = a});++instance NFData DeleteVPCPeeringAuthorizationResponse+         where

@@ -0,0 +1,164 @@+{-# 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.GameLift.DeleteVPCPeeringConnection+-- 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)+--+-- Removes a VPC peering connection. To delete the connection, you must have a valid authorization for the VPC peering connection that you want to delete. You can check for an authorization by calling 'DescribeVpcPeeringAuthorizations' or request a new one using 'CreateVpcPeeringAuthorization' .+--+--+-- Once a valid authorization exists, call this operation from the AWS account that is used to manage the Amazon GameLift fleets. Identify the connection to delete by the connection ID and fleet ID. If successful, the connection is removed.+--+-- VPC peering connection operations include:+--+--     * 'CreateVpcPeeringAuthorization'+--+--     * 'DescribeVpcPeeringAuthorizations'+--+--     * 'DeleteVpcPeeringAuthorization'+--+--     * 'CreateVpcPeeringConnection'+--+--     * 'DescribeVpcPeeringConnections'+--+--     * 'DeleteVpcPeeringConnection'+--+--+--+module Network.AWS.GameLift.DeleteVPCPeeringConnection+    (+    -- * Creating a Request+      deleteVPCPeeringConnection+    , DeleteVPCPeeringConnection+    -- * Request Lenses+    , dvpcFleetId+    , dvpcVPCPeeringConnectionId++    -- * Destructuring the Response+    , deleteVPCPeeringConnectionResponse+    , DeleteVPCPeeringConnectionResponse+    -- * Response Lenses+    , dvpcrsResponseStatus+    ) where++import Network.AWS.GameLift.Types+import Network.AWS.GameLift.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | Represents the input for a request action.+--+--+--+-- /See:/ 'deleteVPCPeeringConnection' smart constructor.+data DeleteVPCPeeringConnection = DeleteVPCPeeringConnection'+  { _dvpcFleetId                :: !Text+  , _dvpcVPCPeeringConnectionId :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteVPCPeeringConnection' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dvpcFleetId' - Unique identifier for a fleet. This value must match the fleet ID referenced in the VPC peering connection record.+--+-- * 'dvpcVPCPeeringConnectionId' - Unique identifier for a VPC peering connection. This value is included in the 'VpcPeeringConnection' object, which can be retrieved by calling 'DescribeVpcPeeringConnections' .+deleteVPCPeeringConnection+    :: Text -- ^ 'dvpcFleetId'+    -> Text -- ^ 'dvpcVPCPeeringConnectionId'+    -> DeleteVPCPeeringConnection+deleteVPCPeeringConnection pFleetId_ pVPCPeeringConnectionId_ =+  DeleteVPCPeeringConnection'+  { _dvpcFleetId = pFleetId_+  , _dvpcVPCPeeringConnectionId = pVPCPeeringConnectionId_+  }+++-- | Unique identifier for a fleet. This value must match the fleet ID referenced in the VPC peering connection record.+dvpcFleetId :: Lens' DeleteVPCPeeringConnection Text+dvpcFleetId = lens _dvpcFleetId (\ s a -> s{_dvpcFleetId = a});++-- | Unique identifier for a VPC peering connection. This value is included in the 'VpcPeeringConnection' object, which can be retrieved by calling 'DescribeVpcPeeringConnections' .+dvpcVPCPeeringConnectionId :: Lens' DeleteVPCPeeringConnection Text+dvpcVPCPeeringConnectionId = lens _dvpcVPCPeeringConnectionId (\ s a -> s{_dvpcVPCPeeringConnectionId = a});++instance AWSRequest DeleteVPCPeeringConnection where+        type Rs DeleteVPCPeeringConnection =+             DeleteVPCPeeringConnectionResponse+        request = postJSON gameLift+        response+          = receiveEmpty+              (\ s h x ->+                 DeleteVPCPeeringConnectionResponse' <$>+                   (pure (fromEnum s)))++instance Hashable DeleteVPCPeeringConnection where++instance NFData DeleteVPCPeeringConnection where++instance ToHeaders DeleteVPCPeeringConnection where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("GameLift.DeleteVpcPeeringConnection" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DeleteVPCPeeringConnection where+        toJSON DeleteVPCPeeringConnection'{..}+          = object+              (catMaybes+                 [Just ("FleetId" .= _dvpcFleetId),+                  Just+                    ("VpcPeeringConnectionId" .=+                       _dvpcVPCPeeringConnectionId)])++instance ToPath DeleteVPCPeeringConnection where+        toPath = const "/"++instance ToQuery DeleteVPCPeeringConnection where+        toQuery = const mempty++-- | /See:/ 'deleteVPCPeeringConnectionResponse' smart constructor.+newtype DeleteVPCPeeringConnectionResponse = DeleteVPCPeeringConnectionResponse'+  { _dvpcrsResponseStatus :: Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteVPCPeeringConnectionResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dvpcrsResponseStatus' - -- | The response status code.+deleteVPCPeeringConnectionResponse+    :: Int -- ^ 'dvpcrsResponseStatus'+    -> DeleteVPCPeeringConnectionResponse+deleteVPCPeeringConnectionResponse pResponseStatus_ =+  DeleteVPCPeeringConnectionResponse' {_dvpcrsResponseStatus = pResponseStatus_}+++-- | -- | The response status code.+dvpcrsResponseStatus :: Lens' DeleteVPCPeeringConnectionResponse Int+dvpcrsResponseStatus = lens _dvpcrsResponseStatus (\ s a -> s{_dvpcrsResponseStatus = a});++instance NFData DeleteVPCPeeringConnectionResponse+         where

@@ -12,15 +12,33 @@  -- | -- Module      : Network.AWS.GameLift.DescribeAlias--- 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) ----- Retrieves properties for a specified alias. To get the alias, specify an alias ID. If successful, an 'Alias' object is returned.+-- Retrieves properties for an alias. This operation returns all alias metadata and settings. To get an alias's target fleet ID only, use @ResolveAlias@ . -- --+-- To get alias properties, specify the alias ID. If successful, the requested alias record is returned.+--+-- Alias-related operations include:+--+--     * 'CreateAlias'+--+--     * 'ListAliases'+--+--     * 'DescribeAlias'+--+--     * 'UpdateAlias'+--+--     * 'DeleteAlias'+--+--     * 'ResolveAlias'+--+--+-- module Network.AWS.GameLift.DescribeAlias     (     -- * Creating a Request@@ -37,12 +55,12 @@     , darsResponseStatus     ) where -import           Network.AWS.GameLift.Types-import           Network.AWS.GameLift.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.GameLift.Types+import Network.AWS.GameLift.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | Represents the input for a request action. --@@ -50,9 +68,10 @@ -- -- /See:/ 'describeAlias' smart constructor. newtype DescribeAlias = DescribeAlias'-    { _dAliasId :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dAliasId :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeAlias' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -61,11 +80,9 @@ describeAlias     :: Text -- ^ 'dAliasId'     -> DescribeAlias-describeAlias pAliasId_ =-    DescribeAlias'-    { _dAliasId = pAliasId_-    }+describeAlias pAliasId_ = DescribeAlias' {_dAliasId = pAliasId_} + -- | Unique identifier for a fleet alias. Specify the alias you want to retrieve. dAliasId :: Lens' DescribeAlias Text dAliasId = lens _dAliasId (\ s a -> s{_dAliasId = a});@@ -79,9 +96,9 @@                  DescribeAliasResponse' <$>                    (x .?> "Alias") <*> (pure (fromEnum s))) -instance Hashable DescribeAlias+instance Hashable DescribeAlias where -instance NFData DescribeAlias+instance NFData DescribeAlias where  instance ToHeaders DescribeAlias where         toHeaders@@ -108,27 +125,27 @@ -- -- /See:/ 'describeAliasResponse' smart constructor. data DescribeAliasResponse = DescribeAliasResponse'-    { _darsAlias          :: !(Maybe Alias)-    , _darsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _darsAlias          :: !(Maybe Alias)+  , _darsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeAliasResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'darsAlias' - Object containing the requested alias.+-- * 'darsAlias' - Object that contains the requested alias. -- -- * 'darsResponseStatus' - -- | The response status code. describeAliasResponse     :: Int -- ^ 'darsResponseStatus'     -> DescribeAliasResponse describeAliasResponse pResponseStatus_ =-    DescribeAliasResponse'-    { _darsAlias = Nothing-    , _darsResponseStatus = pResponseStatus_-    }+  DescribeAliasResponse'+  {_darsAlias = Nothing, _darsResponseStatus = pResponseStatus_} --- | Object containing the requested alias.++-- | Object that contains the requested alias. darsAlias :: Lens' DescribeAliasResponse (Maybe Alias) darsAlias = lens _darsAlias (\ s a -> s{_darsAlias = a}); @@ -136,4 +153,4 @@ darsResponseStatus :: Lens' DescribeAliasResponse Int darsResponseStatus = lens _darsResponseStatus (\ s a -> s{_darsResponseStatus = a}); -instance NFData DescribeAliasResponse+instance NFData DescribeAliasResponse where

@@ -12,15 +12,29 @@  -- | -- Module      : Network.AWS.GameLift.DescribeBuild--- 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) -- -- Retrieves properties for a build. To get a build record, specify a build ID. If successful, an object containing the build properties is returned. -- --+-- Build-related operations include:+--+--     * 'CreateBuild'+--+--     * 'ListBuilds'+--+--     * 'DescribeBuild'+--+--     * 'UpdateBuild'+--+--     * 'DeleteBuild'+--+--+-- module Network.AWS.GameLift.DescribeBuild     (     -- * Creating a Request@@ -37,12 +51,12 @@     , dbrsResponseStatus     ) where -import           Network.AWS.GameLift.Types-import           Network.AWS.GameLift.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.GameLift.Types+import Network.AWS.GameLift.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | Represents the input for a request action. --@@ -50,23 +64,22 @@ -- -- /See:/ 'describeBuild' smart constructor. newtype DescribeBuild = DescribeBuild'-    { _dBuildId :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dBuildId :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeBuild' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dBuildId' - Unique identifier of the build that you want to retrieve properties for.+-- * 'dBuildId' - Unique identifier for a build to retrieve properties for. describeBuild     :: Text -- ^ 'dBuildId'     -> DescribeBuild-describeBuild pBuildId_ =-    DescribeBuild'-    { _dBuildId = pBuildId_-    }+describeBuild pBuildId_ = DescribeBuild' {_dBuildId = pBuildId_} --- | Unique identifier of the build that you want to retrieve properties for.++-- | Unique identifier for a build to retrieve properties for. dBuildId :: Lens' DescribeBuild Text dBuildId = lens _dBuildId (\ s a -> s{_dBuildId = a}); @@ -79,9 +92,9 @@                  DescribeBuildResponse' <$>                    (x .?> "Build") <*> (pure (fromEnum s))) -instance Hashable DescribeBuild+instance Hashable DescribeBuild where -instance NFData DescribeBuild+instance NFData DescribeBuild where  instance ToHeaders DescribeBuild where         toHeaders@@ -108,10 +121,11 @@ -- -- /See:/ 'describeBuildResponse' smart constructor. data DescribeBuildResponse = DescribeBuildResponse'-    { _dbrsBuild          :: !(Maybe Build)-    , _dbrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dbrsBuild          :: !(Maybe Build)+  , _dbrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeBuildResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -123,11 +137,10 @@     :: Int -- ^ 'dbrsResponseStatus'     -> DescribeBuildResponse describeBuildResponse pResponseStatus_ =-    DescribeBuildResponse'-    { _dbrsBuild = Nothing-    , _dbrsResponseStatus = pResponseStatus_-    }+  DescribeBuildResponse'+  {_dbrsBuild = Nothing, _dbrsResponseStatus = pResponseStatus_} + -- | Set of properties describing the requested build. dbrsBuild :: Lens' DescribeBuildResponse (Maybe Build) dbrsBuild = lens _dbrsBuild (\ s a -> s{_dbrsBuild = a});@@ -136,4 +149,4 @@ dbrsResponseStatus :: Lens' DescribeBuildResponse Int dbrsResponseStatus = lens _dbrsResponseStatus (\ s a -> s{_dbrsResponseStatus = a}); -instance NFData DescribeBuildResponse+instance NFData DescribeBuildResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.GameLift.DescribeEC2InstanceLimits--- 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) --@@ -27,8 +27,60 @@ -- -- ----- Service limits vary depending on region. Available regions for GameLift can be found in the AWS Management Console for GameLift (see the drop-down list in the upper right corner).+-- Service limits vary depending on region. Available regions for Amazon GameLift can be found in the AWS Management Console for Amazon GameLift (see the drop-down list in the upper right corner). --+-- Fleet-related operations include:+--+--     * 'CreateFleet'+--+--     * 'ListFleets'+--+--     * Describe fleets:+--+--     * 'DescribeFleetAttributes'+--+--     * 'DescribeFleetPortSettings'+--+--     * 'DescribeFleetUtilization'+--+--     * 'DescribeRuntimeConfiguration'+--+--     * 'DescribeFleetEvents'+--+--+--+--     * Update fleets:+--+--     * 'UpdateFleetAttributes'+--+--     * 'UpdateFleetCapacity'+--+--     * 'UpdateFleetPortSettings'+--+--     * 'UpdateRuntimeConfiguration'+--+--+--+--     * Manage fleet capacity:+--+--     * 'DescribeFleetCapacity'+--+--     * 'UpdateFleetCapacity'+--+--     * 'PutScalingPolicy' (automatic scaling)+--+--     * 'DescribeScalingPolicies' (automatic scaling)+--+--     * 'DeleteScalingPolicy' (automatic scaling)+--+--     * 'DescribeEC2InstanceLimits'+--+--+--+--     * 'DeleteFleet'+--+--+-- module Network.AWS.GameLift.DescribeEC2InstanceLimits     (     -- * Creating a Request@@ -45,12 +97,12 @@     , deilrsResponseStatus     ) where -import           Network.AWS.GameLift.Types-import           Network.AWS.GameLift.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.GameLift.Types+import Network.AWS.GameLift.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | Represents the input for a request action. --@@ -58,22 +110,22 @@ -- -- /See:/ 'describeEC2InstanceLimits' smart constructor. newtype DescribeEC2InstanceLimits = DescribeEC2InstanceLimits'-    { _deilEC2InstanceType :: Maybe EC2InstanceType-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _deilEC2InstanceType :: Maybe EC2InstanceType+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeEC2InstanceLimits' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'deilEC2InstanceType' - Name of an EC2 instance type that is supported in Amazon GameLift. A fleet instance type determines the computing resources of each instance in the fleet, including CPU, memory, storage, and networking capacity. GameLift supports the following EC2 instance types. See <http://aws.amazon.com/ec2/instance-types/ Amazon EC2 Instance Types> for detailed descriptions. Leave this parameter blank to retrieve limits for all types.+-- * 'deilEC2InstanceType' - Name of an EC2 instance type that is supported in Amazon GameLift. A fleet instance type determines the computing resources of each instance in the fleet, including CPU, memory, storage, and networking capacity. Amazon GameLift supports the following EC2 instance types. See <http://aws.amazon.com/ec2/instance-types/ Amazon EC2 Instance Types> for detailed descriptions. Leave this parameter blank to retrieve limits for all types. describeEC2InstanceLimits     :: DescribeEC2InstanceLimits describeEC2InstanceLimits =-    DescribeEC2InstanceLimits'-    { _deilEC2InstanceType = Nothing-    }+  DescribeEC2InstanceLimits' {_deilEC2InstanceType = Nothing} --- | Name of an EC2 instance type that is supported in Amazon GameLift. A fleet instance type determines the computing resources of each instance in the fleet, including CPU, memory, storage, and networking capacity. GameLift supports the following EC2 instance types. See <http://aws.amazon.com/ec2/instance-types/ Amazon EC2 Instance Types> for detailed descriptions. Leave this parameter blank to retrieve limits for all types.++-- | Name of an EC2 instance type that is supported in Amazon GameLift. A fleet instance type determines the computing resources of each instance in the fleet, including CPU, memory, storage, and networking capacity. Amazon GameLift supports the following EC2 instance types. See <http://aws.amazon.com/ec2/instance-types/ Amazon EC2 Instance Types> for detailed descriptions. Leave this parameter blank to retrieve limits for all types. deilEC2InstanceType :: Lens' DescribeEC2InstanceLimits (Maybe EC2InstanceType) deilEC2InstanceType = lens _deilEC2InstanceType (\ s a -> s{_deilEC2InstanceType = a}); @@ -88,9 +140,9 @@                    (x .?> "EC2InstanceLimits" .!@ mempty) <*>                      (pure (fromEnum s))) -instance Hashable DescribeEC2InstanceLimits+instance Hashable DescribeEC2InstanceLimits where -instance NFData DescribeEC2InstanceLimits+instance NFData DescribeEC2InstanceLimits where  instance ToHeaders DescribeEC2InstanceLimits where         toHeaders@@ -119,27 +171,27 @@ -- -- /See:/ 'describeEC2InstanceLimitsResponse' smart constructor. data DescribeEC2InstanceLimitsResponse = DescribeEC2InstanceLimitsResponse'-    { _deilrsEC2InstanceLimits :: !(Maybe [EC2InstanceLimit])-    , _deilrsResponseStatus    :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _deilrsEC2InstanceLimits :: !(Maybe [EC2InstanceLimit])+  , _deilrsResponseStatus    :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeEC2InstanceLimitsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'deilrsEC2InstanceLimits' - Object containing the maximum number of instances for the specified instance type.+-- * 'deilrsEC2InstanceLimits' - Object that contains the maximum number of instances for the specified instance type. -- -- * 'deilrsResponseStatus' - -- | The response status code. describeEC2InstanceLimitsResponse     :: Int -- ^ 'deilrsResponseStatus'     -> DescribeEC2InstanceLimitsResponse describeEC2InstanceLimitsResponse pResponseStatus_ =-    DescribeEC2InstanceLimitsResponse'-    { _deilrsEC2InstanceLimits = Nothing-    , _deilrsResponseStatus = pResponseStatus_-    }+  DescribeEC2InstanceLimitsResponse'+  {_deilrsEC2InstanceLimits = Nothing, _deilrsResponseStatus = pResponseStatus_} --- | Object containing the maximum number of instances for the specified instance type.++-- | Object that contains the maximum number of instances for the specified instance type. deilrsEC2InstanceLimits :: Lens' DescribeEC2InstanceLimitsResponse [EC2InstanceLimit] deilrsEC2InstanceLimits = lens _deilrsEC2InstanceLimits (\ s a -> s{_deilrsEC2InstanceLimits = a}) . _Default . _Coerce; @@ -148,3 +200,4 @@ deilrsResponseStatus = lens _deilrsResponseStatus (\ s a -> s{_deilrsResponseStatus = a});  instance NFData DescribeEC2InstanceLimitsResponse+         where

@@ -12,15 +12,67 @@  -- | -- Module      : Network.AWS.GameLift.DescribeFleetAttributes--- 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) -- -- Retrieves fleet properties, including metadata, status, and configuration, for one or more fleets. You can request attributes for all fleets, or specify a list of one or more fleet IDs. When requesting multiple fleets, use the pagination parameters to retrieve results as a set of sequential pages. If successful, a 'FleetAttributes' object is returned for each requested fleet ID. When specifying a list of fleet IDs, attribute objects are returned only for fleets that currently exist. -- --+-- Fleet-related operations include:+--+--     * 'CreateFleet'+--+--     * 'ListFleets'+--+--     * Describe fleets:+--+--     * 'DescribeFleetAttributes'+--+--     * 'DescribeFleetPortSettings'+--+--     * 'DescribeFleetUtilization'+--+--     * 'DescribeRuntimeConfiguration'+--+--     * 'DescribeFleetEvents'+--+--+--+--     * Update fleets:+--+--     * 'UpdateFleetAttributes'+--+--     * 'UpdateFleetCapacity'+--+--     * 'UpdateFleetPortSettings'+--+--     * 'UpdateRuntimeConfiguration'+--+--+--+--     * Manage fleet capacity:+--+--     * 'DescribeFleetCapacity'+--+--     * 'UpdateFleetCapacity'+--+--     * 'PutScalingPolicy' (automatic scaling)+--+--     * 'DescribeScalingPolicies' (automatic scaling)+--+--     * 'DeleteScalingPolicy' (automatic scaling)+--+--     * 'DescribeEC2InstanceLimits'+--+--+--+--     * 'DeleteFleet'+--+--+-- module Network.AWS.GameLift.DescribeFleetAttributes     (     -- * Creating a Request@@ -40,12 +92,12 @@     , dfarsResponseStatus     ) where -import           Network.AWS.GameLift.Types-import           Network.AWS.GameLift.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.GameLift.Types+import Network.AWS.GameLift.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | Represents the input for a request action. --@@ -53,30 +105,29 @@ -- -- /See:/ 'describeFleetAttributes' smart constructor. data DescribeFleetAttributes = DescribeFleetAttributes'-    { _dfaNextToken :: !(Maybe Text)-    , _dfaLimit     :: !(Maybe Nat)-    , _dfaFleetIds  :: !(Maybe (List1 Text))-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dfaNextToken :: !(Maybe Text)+  , _dfaLimit     :: !(Maybe Nat)+  , _dfaFleetIds  :: !(Maybe (List1 Text))+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeFleetAttributes' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dfaNextToken' - Token indicating the start of the next sequential page of results. Use the token that is returned with a previous call to this action. To specify the start of the result set, do not specify a value. This parameter is ignored when the request specifies one or a list of fleet IDs.+-- * 'dfaNextToken' - Token that indicates the start of the next sequential page of results. Use the token that is returned with a previous call to this action. To start at the beginning of the result set, do not specify a value. This parameter is ignored when the request specifies one or a list of fleet IDs. -- -- * 'dfaLimit' - Maximum number of results to return. Use this parameter with @NextToken@ to get results as a set of sequential pages. This parameter is ignored when the request specifies one or a list of fleet IDs. ----- * 'dfaFleetIds' - Unique identifiers for the fleet(s) that you want to retrieve attributes for. To request attributes for all fleets, leave this parameter empty.+-- * 'dfaFleetIds' - Unique identifier for a fleet(s) to retrieve attributes for. To request attributes for all fleets, leave this parameter empty. describeFleetAttributes     :: DescribeFleetAttributes describeFleetAttributes =-    DescribeFleetAttributes'-    { _dfaNextToken = Nothing-    , _dfaLimit = Nothing-    , _dfaFleetIds = Nothing-    }+  DescribeFleetAttributes'+  {_dfaNextToken = Nothing, _dfaLimit = Nothing, _dfaFleetIds = Nothing} --- | Token indicating the start of the next sequential page of results. Use the token that is returned with a previous call to this action. To specify the start of the result set, do not specify a value. This parameter is ignored when the request specifies one or a list of fleet IDs.++-- | Token that indicates the start of the next sequential page of results. Use the token that is returned with a previous call to this action. To start at the beginning of the result set, do not specify a value. This parameter is ignored when the request specifies one or a list of fleet IDs. dfaNextToken :: Lens' DescribeFleetAttributes (Maybe Text) dfaNextToken = lens _dfaNextToken (\ s a -> s{_dfaNextToken = a}); @@ -84,7 +135,7 @@ dfaLimit :: Lens' DescribeFleetAttributes (Maybe Natural) dfaLimit = lens _dfaLimit (\ s a -> s{_dfaLimit = a}) . mapping _Nat; --- | Unique identifiers for the fleet(s) that you want to retrieve attributes for. To request attributes for all fleets, leave this parameter empty.+-- | Unique identifier for a fleet(s) to retrieve attributes for. To request attributes for all fleets, leave this parameter empty. dfaFleetIds :: Lens' DescribeFleetAttributes (Maybe (NonEmpty Text)) dfaFleetIds = lens _dfaFleetIds (\ s a -> s{_dfaFleetIds = a}) . mapping _List1; @@ -100,9 +151,9 @@                      (x .?> "FleetAttributes" .!@ mempty)                      <*> (pure (fromEnum s))) -instance Hashable DescribeFleetAttributes+instance Hashable DescribeFleetAttributes where -instance NFData DescribeFleetAttributes+instance NFData DescribeFleetAttributes where  instance ToHeaders DescribeFleetAttributes where         toHeaders@@ -133,16 +184,17 @@ -- -- /See:/ 'describeFleetAttributesResponse' smart constructor. data DescribeFleetAttributesResponse = DescribeFleetAttributesResponse'-    { _dfarsNextToken       :: !(Maybe Text)-    , _dfarsFleetAttributes :: !(Maybe [FleetAttributes])-    , _dfarsResponseStatus  :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dfarsNextToken       :: !(Maybe Text)+  , _dfarsFleetAttributes :: !(Maybe [FleetAttributes])+  , _dfarsResponseStatus  :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeFleetAttributesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dfarsNextToken' - Token indicating where to resume retrieving results on the next call to this action. If no token is returned, these results represent the end of the list.+-- * 'dfarsNextToken' - Token that indicates where to resume retrieving results on the next call to this action. If no token is returned, these results represent the end of the list. -- -- * 'dfarsFleetAttributes' - Collection of objects containing attribute metadata for each requested fleet ID. --@@ -151,13 +203,14 @@     :: Int -- ^ 'dfarsResponseStatus'     -> DescribeFleetAttributesResponse describeFleetAttributesResponse pResponseStatus_ =-    DescribeFleetAttributesResponse'-    { _dfarsNextToken = Nothing-    , _dfarsFleetAttributes = Nothing-    , _dfarsResponseStatus = pResponseStatus_-    }+  DescribeFleetAttributesResponse'+  { _dfarsNextToken = Nothing+  , _dfarsFleetAttributes = Nothing+  , _dfarsResponseStatus = pResponseStatus_+  } --- | Token indicating where to resume retrieving results on the next call to this action. If no token is returned, these results represent the end of the list.++-- | Token that indicates where to resume retrieving results on the next call to this action. If no token is returned, these results represent the end of the list. dfarsNextToken :: Lens' DescribeFleetAttributesResponse (Maybe Text) dfarsNextToken = lens _dfarsNextToken (\ s a -> s{_dfarsNextToken = a}); @@ -169,4 +222,4 @@ dfarsResponseStatus :: Lens' DescribeFleetAttributesResponse Int dfarsResponseStatus = lens _dfarsResponseStatus (\ s a -> s{_dfarsResponseStatus = a}); -instance NFData DescribeFleetAttributesResponse+instance NFData DescribeFleetAttributesResponse where

@@ -12,15 +12,67 @@  -- | -- Module      : Network.AWS.GameLift.DescribeFleetCapacity--- 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) -- -- Retrieves the current status of fleet capacity for one or more fleets. This information includes the number of instances that have been requested for the fleet and the number currently active. You can request capacity for all fleets, or specify a list of one or more fleet IDs. When requesting multiple fleets, use the pagination parameters to retrieve results as a set of sequential pages. If successful, a 'FleetCapacity' object is returned for each requested fleet ID. When specifying a list of fleet IDs, attribute objects are returned only for fleets that currently exist. -- --+-- Fleet-related operations include:+--+--     * 'CreateFleet'+--+--     * 'ListFleets'+--+--     * Describe fleets:+--+--     * 'DescribeFleetAttributes'+--+--     * 'DescribeFleetPortSettings'+--+--     * 'DescribeFleetUtilization'+--+--     * 'DescribeRuntimeConfiguration'+--+--     * 'DescribeFleetEvents'+--+--+--+--     * Update fleets:+--+--     * 'UpdateFleetAttributes'+--+--     * 'UpdateFleetCapacity'+--+--     * 'UpdateFleetPortSettings'+--+--     * 'UpdateRuntimeConfiguration'+--+--+--+--     * Manage fleet capacity:+--+--     * 'DescribeFleetCapacity'+--+--     * 'UpdateFleetCapacity'+--+--     * 'PutScalingPolicy' (automatic scaling)+--+--     * 'DescribeScalingPolicies' (automatic scaling)+--+--     * 'DeleteScalingPolicy' (automatic scaling)+--+--     * 'DescribeEC2InstanceLimits'+--+--+--+--     * 'DeleteFleet'+--+--+-- module Network.AWS.GameLift.DescribeFleetCapacity     (     -- * Creating a Request@@ -40,12 +92,12 @@     , dfcrsResponseStatus     ) where -import           Network.AWS.GameLift.Types-import           Network.AWS.GameLift.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.GameLift.Types+import Network.AWS.GameLift.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | Represents the input for a request action. --@@ -53,30 +105,29 @@ -- -- /See:/ 'describeFleetCapacity' smart constructor. data DescribeFleetCapacity = DescribeFleetCapacity'-    { _dfcNextToken :: !(Maybe Text)-    , _dfcLimit     :: !(Maybe Nat)-    , _dfcFleetIds  :: !(Maybe (List1 Text))-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dfcNextToken :: !(Maybe Text)+  , _dfcLimit     :: !(Maybe Nat)+  , _dfcFleetIds  :: !(Maybe (List1 Text))+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeFleetCapacity' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dfcNextToken' - Token indicating the start of the next sequential page of results. Use the token that is returned with a previous call to this action. To specify the start of the result set, do not specify a value. This parameter is ignored when the request specifies one or a list of fleet IDs.+-- * 'dfcNextToken' - Token that indicates the start of the next sequential page of results. Use the token that is returned with a previous call to this action. To start at the beginning of the result set, do not specify a value. This parameter is ignored when the request specifies one or a list of fleet IDs. -- -- * 'dfcLimit' - Maximum number of results to return. Use this parameter with @NextToken@ to get results as a set of sequential pages. This parameter is ignored when the request specifies one or a list of fleet IDs. ----- * 'dfcFleetIds' - Unique identifier for the fleet(s) you want to retrieve capacity information for. To request capacity information for all fleets, leave this parameter empty.+-- * 'dfcFleetIds' - Unique identifier for a fleet(s) to retrieve capacity information for. To request capacity information for all fleets, leave this parameter empty. describeFleetCapacity     :: DescribeFleetCapacity describeFleetCapacity =-    DescribeFleetCapacity'-    { _dfcNextToken = Nothing-    , _dfcLimit = Nothing-    , _dfcFleetIds = Nothing-    }+  DescribeFleetCapacity'+  {_dfcNextToken = Nothing, _dfcLimit = Nothing, _dfcFleetIds = Nothing} --- | Token indicating the start of the next sequential page of results. Use the token that is returned with a previous call to this action. To specify the start of the result set, do not specify a value. This parameter is ignored when the request specifies one or a list of fleet IDs.++-- | Token that indicates the start of the next sequential page of results. Use the token that is returned with a previous call to this action. To start at the beginning of the result set, do not specify a value. This parameter is ignored when the request specifies one or a list of fleet IDs. dfcNextToken :: Lens' DescribeFleetCapacity (Maybe Text) dfcNextToken = lens _dfcNextToken (\ s a -> s{_dfcNextToken = a}); @@ -84,7 +135,7 @@ dfcLimit :: Lens' DescribeFleetCapacity (Maybe Natural) dfcLimit = lens _dfcLimit (\ s a -> s{_dfcLimit = a}) . mapping _Nat; --- | Unique identifier for the fleet(s) you want to retrieve capacity information for. To request capacity information for all fleets, leave this parameter empty.+-- | Unique identifier for a fleet(s) to retrieve capacity information for. To request capacity information for all fleets, leave this parameter empty. dfcFleetIds :: Lens' DescribeFleetCapacity (Maybe (NonEmpty Text)) dfcFleetIds = lens _dfcFleetIds (\ s a -> s{_dfcFleetIds = a}) . mapping _List1; @@ -100,9 +151,9 @@                      (x .?> "FleetCapacity" .!@ mempty)                      <*> (pure (fromEnum s))) -instance Hashable DescribeFleetCapacity+instance Hashable DescribeFleetCapacity where -instance NFData DescribeFleetCapacity+instance NFData DescribeFleetCapacity where  instance ToHeaders DescribeFleetCapacity where         toHeaders@@ -133,16 +184,17 @@ -- -- /See:/ 'describeFleetCapacityResponse' smart constructor. data DescribeFleetCapacityResponse = DescribeFleetCapacityResponse'-    { _dfcrsNextToken      :: !(Maybe Text)-    , _dfcrsFleetCapacity  :: !(Maybe [FleetCapacity])-    , _dfcrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dfcrsNextToken      :: !(Maybe Text)+  , _dfcrsFleetCapacity  :: !(Maybe [FleetCapacity])+  , _dfcrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeFleetCapacityResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dfcrsNextToken' - Token indicating where to resume retrieving results on the next call to this action. If no token is returned, these results represent the end of the list.+-- * 'dfcrsNextToken' - Token that indicates where to resume retrieving results on the next call to this action. If no token is returned, these results represent the end of the list. -- -- * 'dfcrsFleetCapacity' - Collection of objects containing capacity information for each requested fleet ID. Leave this parameter empty to retrieve capacity information for all fleets. --@@ -151,13 +203,14 @@     :: Int -- ^ 'dfcrsResponseStatus'     -> DescribeFleetCapacityResponse describeFleetCapacityResponse pResponseStatus_ =-    DescribeFleetCapacityResponse'-    { _dfcrsNextToken = Nothing-    , _dfcrsFleetCapacity = Nothing-    , _dfcrsResponseStatus = pResponseStatus_-    }+  DescribeFleetCapacityResponse'+  { _dfcrsNextToken = Nothing+  , _dfcrsFleetCapacity = Nothing+  , _dfcrsResponseStatus = pResponseStatus_+  } --- | Token indicating where to resume retrieving results on the next call to this action. If no token is returned, these results represent the end of the list.++-- | Token that indicates where to resume retrieving results on the next call to this action. If no token is returned, these results represent the end of the list. dfcrsNextToken :: Lens' DescribeFleetCapacityResponse (Maybe Text) dfcrsNextToken = lens _dfcrsNextToken (\ s a -> s{_dfcrsNextToken = a}); @@ -169,4 +222,4 @@ dfcrsResponseStatus :: Lens' DescribeFleetCapacityResponse Int dfcrsResponseStatus = lens _dfcrsResponseStatus (\ s a -> s{_dfcrsResponseStatus = a}); -instance NFData DescribeFleetCapacityResponse+instance NFData DescribeFleetCapacityResponse where

@@ -12,15 +12,67 @@  -- | -- Module      : Network.AWS.GameLift.DescribeFleetEvents--- 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) -- -- Retrieves entries from the specified fleet's event log. You can specify a time range to limit the result set. Use the pagination parameters to retrieve results as a set of sequential pages. If successful, a collection of event log entries matching the request are returned. -- --+-- Fleet-related operations include:+--+--     * 'CreateFleet'+--+--     * 'ListFleets'+--+--     * Describe fleets:+--+--     * 'DescribeFleetAttributes'+--+--     * 'DescribeFleetPortSettings'+--+--     * 'DescribeFleetUtilization'+--+--     * 'DescribeRuntimeConfiguration'+--+--     * 'DescribeFleetEvents'+--+--+--+--     * Update fleets:+--+--     * 'UpdateFleetAttributes'+--+--     * 'UpdateFleetCapacity'+--+--     * 'UpdateFleetPortSettings'+--+--     * 'UpdateRuntimeConfiguration'+--+--+--+--     * Manage fleet capacity:+--+--     * 'DescribeFleetCapacity'+--+--     * 'UpdateFleetCapacity'+--+--     * 'PutScalingPolicy' (automatic scaling)+--+--     * 'DescribeScalingPolicies' (automatic scaling)+--+--     * 'DeleteScalingPolicy' (automatic scaling)+--+--     * 'DescribeEC2InstanceLimits'+--+--+--+--     * 'DeleteFleet'+--+--+-- module Network.AWS.GameLift.DescribeFleetEvents     (     -- * Creating a Request@@ -42,12 +94,12 @@     , dfersResponseStatus     ) where -import           Network.AWS.GameLift.Types-import           Network.AWS.GameLift.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.GameLift.Types+import Network.AWS.GameLift.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | Represents the input for a request action. --@@ -55,43 +107,45 @@ -- -- /See:/ 'describeFleetEvents' smart constructor. data DescribeFleetEvents = DescribeFleetEvents'-    { _dfeStartTime :: !(Maybe POSIX)-    , _dfeNextToken :: !(Maybe Text)-    , _dfeEndTime   :: !(Maybe POSIX)-    , _dfeLimit     :: !(Maybe Nat)-    , _dfeFleetId   :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dfeStartTime :: !(Maybe POSIX)+  , _dfeNextToken :: !(Maybe Text)+  , _dfeEndTime   :: !(Maybe POSIX)+  , _dfeLimit     :: !(Maybe Nat)+  , _dfeFleetId   :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeFleetEvents' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'dfeStartTime' - Earliest date to retrieve event logs for. If no start time is specified, this call returns entries starting from when the fleet was created to the specified end time. Format is a number expressed in Unix time as milliseconds (ex: "1469498468.057"). ----- * 'dfeNextToken' - Token indicating the start of the next sequential page of results. Use the token that is returned with a previous call to this action. To specify the start of the result set, do not specify a value.+-- * 'dfeNextToken' - Token that indicates the start of the next sequential page of results. Use the token that is returned with a previous call to this action. To start at the beginning of the result set, do not specify a value. -- -- * 'dfeEndTime' - Most recent date to retrieve event logs for. If no end time is specified, this call returns entries from the specified start time up to the present. Format is a number expressed in Unix time as milliseconds (ex: "1469498468.057"). -- -- * 'dfeLimit' - Maximum number of results to return. Use this parameter with @NextToken@ to get results as a set of sequential pages. ----- * 'dfeFleetId' - Unique identifier for the fleet to get event logs for.+-- * 'dfeFleetId' - Unique identifier for a fleet to get event logs for. describeFleetEvents     :: Text -- ^ 'dfeFleetId'     -> DescribeFleetEvents describeFleetEvents pFleetId_ =-    DescribeFleetEvents'-    { _dfeStartTime = Nothing-    , _dfeNextToken = Nothing-    , _dfeEndTime = Nothing-    , _dfeLimit = Nothing-    , _dfeFleetId = pFleetId_-    }+  DescribeFleetEvents'+  { _dfeStartTime = Nothing+  , _dfeNextToken = Nothing+  , _dfeEndTime = Nothing+  , _dfeLimit = Nothing+  , _dfeFleetId = pFleetId_+  } + -- | Earliest date to retrieve event logs for. If no start time is specified, this call returns entries starting from when the fleet was created to the specified end time. Format is a number expressed in Unix time as milliseconds (ex: "1469498468.057"). dfeStartTime :: Lens' DescribeFleetEvents (Maybe UTCTime) dfeStartTime = lens _dfeStartTime (\ s a -> s{_dfeStartTime = a}) . mapping _Time; --- | Token indicating the start of the next sequential page of results. Use the token that is returned with a previous call to this action. To specify the start of the result set, do not specify a value.+-- | Token that indicates the start of the next sequential page of results. Use the token that is returned with a previous call to this action. To start at the beginning of the result set, do not specify a value. dfeNextToken :: Lens' DescribeFleetEvents (Maybe Text) dfeNextToken = lens _dfeNextToken (\ s a -> s{_dfeNextToken = a}); @@ -103,7 +157,7 @@ dfeLimit :: Lens' DescribeFleetEvents (Maybe Natural) dfeLimit = lens _dfeLimit (\ s a -> s{_dfeLimit = a}) . mapping _Nat; --- | Unique identifier for the fleet to get event logs for.+-- | Unique identifier for a fleet to get event logs for. dfeFleetId :: Lens' DescribeFleetEvents Text dfeFleetId = lens _dfeFleetId (\ s a -> s{_dfeFleetId = a}); @@ -118,9 +172,9 @@                    (x .?> "NextToken") <*> (x .?> "Events" .!@ mempty)                      <*> (pure (fromEnum s))) -instance Hashable DescribeFleetEvents+instance Hashable DescribeFleetEvents where -instance NFData DescribeFleetEvents+instance NFData DescribeFleetEvents where  instance ToHeaders DescribeFleetEvents where         toHeaders@@ -153,16 +207,17 @@ -- -- /See:/ 'describeFleetEventsResponse' smart constructor. data DescribeFleetEventsResponse = DescribeFleetEventsResponse'-    { _dfersNextToken      :: !(Maybe Text)-    , _dfersEvents         :: !(Maybe [Event])-    , _dfersResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dfersNextToken      :: !(Maybe Text)+  , _dfersEvents         :: !(Maybe [Event])+  , _dfersResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeFleetEventsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dfersNextToken' - Token indicating where to resume retrieving results on the next call to this action. If no token is returned, these results represent the end of the list.+-- * 'dfersNextToken' - Token that indicates where to resume retrieving results on the next call to this action. If no token is returned, these results represent the end of the list. -- -- * 'dfersEvents' - Collection of objects containing event log entries for the specified fleet. --@@ -171,13 +226,14 @@     :: Int -- ^ 'dfersResponseStatus'     -> DescribeFleetEventsResponse describeFleetEventsResponse pResponseStatus_ =-    DescribeFleetEventsResponse'-    { _dfersNextToken = Nothing-    , _dfersEvents = Nothing-    , _dfersResponseStatus = pResponseStatus_-    }+  DescribeFleetEventsResponse'+  { _dfersNextToken = Nothing+  , _dfersEvents = Nothing+  , _dfersResponseStatus = pResponseStatus_+  } --- | Token indicating where to resume retrieving results on the next call to this action. If no token is returned, these results represent the end of the list.++-- | Token that indicates where to resume retrieving results on the next call to this action. If no token is returned, these results represent the end of the list. dfersNextToken :: Lens' DescribeFleetEventsResponse (Maybe Text) dfersNextToken = lens _dfersNextToken (\ s a -> s{_dfersNextToken = a}); @@ -189,4 +245,4 @@ dfersResponseStatus :: Lens' DescribeFleetEventsResponse Int dfersResponseStatus = lens _dfersResponseStatus (\ s a -> s{_dfersResponseStatus = a}); -instance NFData DescribeFleetEventsResponse+instance NFData DescribeFleetEventsResponse where

@@ -12,15 +12,67 @@  -- | -- Module      : Network.AWS.GameLift.DescribeFleetPortSettings--- 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) -- -- Retrieves the inbound connection permissions for a fleet. Connection permissions include a range of IP addresses and port settings that incoming traffic can use to access server processes in the fleet. To get a fleet's inbound connection permissions, specify a fleet ID. If successful, a collection of 'IpPermission' objects is returned for the requested fleet ID. If the requested fleet has been deleted, the result set is empty. -- --+-- Fleet-related operations include:+--+--     * 'CreateFleet'+--+--     * 'ListFleets'+--+--     * Describe fleets:+--+--     * 'DescribeFleetAttributes'+--+--     * 'DescribeFleetPortSettings'+--+--     * 'DescribeFleetUtilization'+--+--     * 'DescribeRuntimeConfiguration'+--+--     * 'DescribeFleetEvents'+--+--+--+--     * Update fleets:+--+--     * 'UpdateFleetAttributes'+--+--     * 'UpdateFleetCapacity'+--+--     * 'UpdateFleetPortSettings'+--+--     * 'UpdateRuntimeConfiguration'+--+--+--+--     * Manage fleet capacity:+--+--     * 'DescribeFleetCapacity'+--+--     * 'UpdateFleetCapacity'+--+--     * 'PutScalingPolicy' (automatic scaling)+--+--     * 'DescribeScalingPolicies' (automatic scaling)+--+--     * 'DeleteScalingPolicy' (automatic scaling)+--+--     * 'DescribeEC2InstanceLimits'+--+--+--+--     * 'DeleteFleet'+--+--+-- module Network.AWS.GameLift.DescribeFleetPortSettings     (     -- * Creating a Request@@ -37,12 +89,12 @@     , dfpsrsResponseStatus     ) where -import           Network.AWS.GameLift.Types-import           Network.AWS.GameLift.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.GameLift.Types+import Network.AWS.GameLift.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | Represents the input for a request action. --@@ -50,23 +102,23 @@ -- -- /See:/ 'describeFleetPortSettings' smart constructor. newtype DescribeFleetPortSettings = DescribeFleetPortSettings'-    { _dfpsFleetId :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dfpsFleetId :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeFleetPortSettings' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dfpsFleetId' - Unique identifier for the fleet you want to retrieve port settings for.+-- * 'dfpsFleetId' - Unique identifier for a fleet to retrieve port settings for. describeFleetPortSettings     :: Text -- ^ 'dfpsFleetId'     -> DescribeFleetPortSettings describeFleetPortSettings pFleetId_ =-    DescribeFleetPortSettings'-    { _dfpsFleetId = pFleetId_-    }+  DescribeFleetPortSettings' {_dfpsFleetId = pFleetId_} --- | Unique identifier for the fleet you want to retrieve port settings for.++-- | Unique identifier for a fleet to retrieve port settings for. dfpsFleetId :: Lens' DescribeFleetPortSettings Text dfpsFleetId = lens _dfpsFleetId (\ s a -> s{_dfpsFleetId = a}); @@ -81,9 +133,9 @@                    (x .?> "InboundPermissions" .!@ mempty) <*>                      (pure (fromEnum s))) -instance Hashable DescribeFleetPortSettings+instance Hashable DescribeFleetPortSettings where -instance NFData DescribeFleetPortSettings+instance NFData DescribeFleetPortSettings where  instance ToHeaders DescribeFleetPortSettings where         toHeaders@@ -111,27 +163,29 @@ -- -- /See:/ 'describeFleetPortSettingsResponse' smart constructor. data DescribeFleetPortSettingsResponse = DescribeFleetPortSettingsResponse'-    { _dfpsrsInboundPermissions :: !(Maybe [IPPermission])-    , _dfpsrsResponseStatus     :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dfpsrsInboundPermissions :: !(Maybe [IPPermission])+  , _dfpsrsResponseStatus     :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeFleetPortSettingsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dfpsrsInboundPermissions' - Object containing port settings for the requested fleet ID.+-- * 'dfpsrsInboundPermissions' - Object that contains port settings for the requested fleet ID. -- -- * 'dfpsrsResponseStatus' - -- | The response status code. describeFleetPortSettingsResponse     :: Int -- ^ 'dfpsrsResponseStatus'     -> DescribeFleetPortSettingsResponse describeFleetPortSettingsResponse pResponseStatus_ =-    DescribeFleetPortSettingsResponse'-    { _dfpsrsInboundPermissions = Nothing-    , _dfpsrsResponseStatus = pResponseStatus_-    }+  DescribeFleetPortSettingsResponse'+  { _dfpsrsInboundPermissions = Nothing+  , _dfpsrsResponseStatus = pResponseStatus_+  } --- | Object containing port settings for the requested fleet ID.++-- | Object that contains port settings for the requested fleet ID. dfpsrsInboundPermissions :: Lens' DescribeFleetPortSettingsResponse [IPPermission] dfpsrsInboundPermissions = lens _dfpsrsInboundPermissions (\ s a -> s{_dfpsrsInboundPermissions = a}) . _Default . _Coerce; @@ -140,3 +194,4 @@ dfpsrsResponseStatus = lens _dfpsrsResponseStatus (\ s a -> s{_dfpsrsResponseStatus = a});  instance NFData DescribeFleetPortSettingsResponse+         where

@@ -12,15 +12,67 @@  -- | -- Module      : Network.AWS.GameLift.DescribeFleetUtilization--- 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) -- -- Retrieves utilization statistics for one or more fleets. You can request utilization data for all fleets, or specify a list of one or more fleet IDs. When requesting multiple fleets, use the pagination parameters to retrieve results as a set of sequential pages. If successful, a 'FleetUtilization' object is returned for each requested fleet ID. When specifying a list of fleet IDs, utilization objects are returned only for fleets that currently exist. -- --+-- Fleet-related operations include:+--+--     * 'CreateFleet'+--+--     * 'ListFleets'+--+--     * Describe fleets:+--+--     * 'DescribeFleetAttributes'+--+--     * 'DescribeFleetPortSettings'+--+--     * 'DescribeFleetUtilization'+--+--     * 'DescribeRuntimeConfiguration'+--+--     * 'DescribeFleetEvents'+--+--+--+--     * Update fleets:+--+--     * 'UpdateFleetAttributes'+--+--     * 'UpdateFleetCapacity'+--+--     * 'UpdateFleetPortSettings'+--+--     * 'UpdateRuntimeConfiguration'+--+--+--+--     * Manage fleet capacity:+--+--     * 'DescribeFleetCapacity'+--+--     * 'UpdateFleetCapacity'+--+--     * 'PutScalingPolicy' (automatic scaling)+--+--     * 'DescribeScalingPolicies' (automatic scaling)+--+--     * 'DeleteScalingPolicy' (automatic scaling)+--+--     * 'DescribeEC2InstanceLimits'+--+--+--+--     * 'DeleteFleet'+--+--+-- module Network.AWS.GameLift.DescribeFleetUtilization     (     -- * Creating a Request@@ -40,12 +92,12 @@     , dfursResponseStatus     ) where -import           Network.AWS.GameLift.Types-import           Network.AWS.GameLift.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.GameLift.Types+import Network.AWS.GameLift.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | Represents the input for a request action. --@@ -53,30 +105,29 @@ -- -- /See:/ 'describeFleetUtilization' smart constructor. data DescribeFleetUtilization = DescribeFleetUtilization'-    { _dfuNextToken :: !(Maybe Text)-    , _dfuLimit     :: !(Maybe Nat)-    , _dfuFleetIds  :: !(Maybe (List1 Text))-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dfuNextToken :: !(Maybe Text)+  , _dfuLimit     :: !(Maybe Nat)+  , _dfuFleetIds  :: !(Maybe (List1 Text))+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeFleetUtilization' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dfuNextToken' - Token indicating the start of the next sequential page of results. Use the token that is returned with a previous call to this action. To specify the start of the result set, do not specify a value. This parameter is ignored when the request specifies one or a list of fleet IDs.+-- * 'dfuNextToken' - Token that indicates the start of the next sequential page of results. Use the token that is returned with a previous call to this action. To start at the beginning of the result set, do not specify a value. This parameter is ignored when the request specifies one or a list of fleet IDs. -- -- * 'dfuLimit' - Maximum number of results to return. Use this parameter with @NextToken@ to get results as a set of sequential pages. This parameter is ignored when the request specifies one or a list of fleet IDs. ----- * 'dfuFleetIds' - Unique identifier for the fleet(s) you want to retrieve utilization data for. To request utilization data for all fleets, leave this parameter empty.+-- * 'dfuFleetIds' - Unique identifier for a fleet(s) to retrieve utilization data for. To request utilization data for all fleets, leave this parameter empty. describeFleetUtilization     :: DescribeFleetUtilization describeFleetUtilization =-    DescribeFleetUtilization'-    { _dfuNextToken = Nothing-    , _dfuLimit = Nothing-    , _dfuFleetIds = Nothing-    }+  DescribeFleetUtilization'+  {_dfuNextToken = Nothing, _dfuLimit = Nothing, _dfuFleetIds = Nothing} --- | Token indicating the start of the next sequential page of results. Use the token that is returned with a previous call to this action. To specify the start of the result set, do not specify a value. This parameter is ignored when the request specifies one or a list of fleet IDs.++-- | Token that indicates the start of the next sequential page of results. Use the token that is returned with a previous call to this action. To start at the beginning of the result set, do not specify a value. This parameter is ignored when the request specifies one or a list of fleet IDs. dfuNextToken :: Lens' DescribeFleetUtilization (Maybe Text) dfuNextToken = lens _dfuNextToken (\ s a -> s{_dfuNextToken = a}); @@ -84,7 +135,7 @@ dfuLimit :: Lens' DescribeFleetUtilization (Maybe Natural) dfuLimit = lens _dfuLimit (\ s a -> s{_dfuLimit = a}) . mapping _Nat; --- | Unique identifier for the fleet(s) you want to retrieve utilization data for. To request utilization data for all fleets, leave this parameter empty.+-- | Unique identifier for a fleet(s) to retrieve utilization data for. To request utilization data for all fleets, leave this parameter empty. dfuFleetIds :: Lens' DescribeFleetUtilization (Maybe (NonEmpty Text)) dfuFleetIds = lens _dfuFleetIds (\ s a -> s{_dfuFleetIds = a}) . mapping _List1; @@ -100,9 +151,9 @@                      (x .?> "FleetUtilization" .!@ mempty)                      <*> (pure (fromEnum s))) -instance Hashable DescribeFleetUtilization+instance Hashable DescribeFleetUtilization where -instance NFData DescribeFleetUtilization+instance NFData DescribeFleetUtilization where  instance ToHeaders DescribeFleetUtilization where         toHeaders@@ -133,16 +184,17 @@ -- -- /See:/ 'describeFleetUtilizationResponse' smart constructor. data DescribeFleetUtilizationResponse = DescribeFleetUtilizationResponse'-    { _dfursNextToken        :: !(Maybe Text)-    , _dfursFleetUtilization :: !(Maybe [FleetUtilization])-    , _dfursResponseStatus   :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dfursNextToken        :: !(Maybe Text)+  , _dfursFleetUtilization :: !(Maybe [FleetUtilization])+  , _dfursResponseStatus   :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeFleetUtilizationResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dfursNextToken' - Token indicating where to resume retrieving results on the next call to this action. If no token is returned, these results represent the end of the list.+-- * 'dfursNextToken' - Token that indicates where to resume retrieving results on the next call to this action. If no token is returned, these results represent the end of the list. -- -- * 'dfursFleetUtilization' - Collection of objects containing utilization information for each requested fleet ID. --@@ -151,13 +203,14 @@     :: Int -- ^ 'dfursResponseStatus'     -> DescribeFleetUtilizationResponse describeFleetUtilizationResponse pResponseStatus_ =-    DescribeFleetUtilizationResponse'-    { _dfursNextToken = Nothing-    , _dfursFleetUtilization = Nothing-    , _dfursResponseStatus = pResponseStatus_-    }+  DescribeFleetUtilizationResponse'+  { _dfursNextToken = Nothing+  , _dfursFleetUtilization = Nothing+  , _dfursResponseStatus = pResponseStatus_+  } --- | Token indicating where to resume retrieving results on the next call to this action. If no token is returned, these results represent the end of the list.++-- | Token that indicates where to resume retrieving results on the next call to this action. If no token is returned, these results represent the end of the list. dfursNextToken :: Lens' DescribeFleetUtilizationResponse (Maybe Text) dfursNextToken = lens _dfursNextToken (\ s a -> s{_dfursNextToken = a}); @@ -170,3 +223,4 @@ dfursResponseStatus = lens _dfursResponseStatus (\ s a -> s{_dfursResponseStatus = a});  instance NFData DescribeFleetUtilizationResponse+         where