amazonka-appstream 1.4.5 → 1.5.0

raw patch · 60 files changed

+4781/−1528 lines, 60 filesdep ~amazonka-appstreamdep ~amazonka-coredep ~amazonka-testPVP ok

version bump matches the API change (PVP)

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

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-appstream.cabal +27/−11
• fixture/CreateDirectoryConfig.yaml +10/−0
• fixture/CreateDirectoryConfigResponse.proto +0/−0
• fixture/CreateImageBuilder.yaml +10/−0
• fixture/CreateImageBuilderResponse.proto +0/−0
• fixture/CreateImageBuilderStreamingURL.yaml +10/−0
• fixture/CreateImageBuilderStreamingURLResponse.proto +0/−0
• fixture/DeleteDirectoryConfig.yaml +10/−0
• fixture/DeleteDirectoryConfigResponse.proto +0/−0
• fixture/DeleteImage.yaml +10/−0
• fixture/DeleteImageBuilder.yaml +10/−0
• fixture/DeleteImageBuilderResponse.proto +0/−0
• fixture/DeleteImageResponse.proto +0/−0
• fixture/DescribeDirectoryConfigs.yaml +10/−0
• fixture/DescribeDirectoryConfigsResponse.proto +0/−0
• fixture/DescribeImageBuilders.yaml +10/−0
• fixture/DescribeImageBuildersResponse.proto +0/−0
• fixture/StartImageBuilder.yaml +10/−0
• fixture/StartImageBuilderResponse.proto +0/−0
• fixture/StopImageBuilder.yaml +10/−0
• fixture/StopImageBuilderResponse.proto +0/−0
• fixture/UpdateDirectoryConfig.yaml +10/−0
• fixture/UpdateDirectoryConfigResponse.proto +0/−0
• gen/Network/AWS/AppStream.hs +169/−23
• gen/Network/AWS/AppStream/AssociateFleet.hs +27/−28
• gen/Network/AWS/AppStream/CreateDirectoryConfig.hs +162/−0
• gen/Network/AWS/AppStream/CreateFleet.hs +93/−64
• gen/Network/AWS/AppStream/CreateImageBuilder.hs +208/−0
• gen/Network/AWS/AppStream/CreateImageBuilderStreamingURL.hs +160/−0
• gen/Network/AWS/AppStream/CreateStack.hs +49/−37
• gen/Network/AWS/AppStream/CreateStreamingURL.hs +54/−48
• gen/Network/AWS/AppStream/DeleteDirectoryConfig.hs +126/−0
• gen/Network/AWS/AppStream/DeleteFleet.hs +24/−25
• gen/Network/AWS/AppStream/DeleteImage.hs +129/−0
• gen/Network/AWS/AppStream/DeleteImageBuilder.hs +130/−0
• gen/Network/AWS/AppStream/DeleteStack.hs +24/−25
• gen/Network/AWS/AppStream/DescribeDirectoryConfigs.hs +170/−0
• gen/Network/AWS/AppStream/DescribeFleets.hs +33/−33
• gen/Network/AWS/AppStream/DescribeImageBuilders.hs +164/−0
• gen/Network/AWS/AppStream/DescribeImages.hs +36/−37
• gen/Network/AWS/AppStream/DescribeSessions.hs +58/−44
• gen/Network/AWS/AppStream/DescribeStacks.hs +33/−33
• gen/Network/AWS/AppStream/DisassociateFleet.hs +27/−28
• gen/Network/AWS/AppStream/ExpireSession.hs +24/−25
• gen/Network/AWS/AppStream/ListAssociatedFleets.hs +34/−37
• gen/Network/AWS/AppStream/ListAssociatedStacks.hs +34/−37
• gen/Network/AWS/AppStream/StartFleet.hs +24/−25
• gen/Network/AWS/AppStream/StartImageBuilder.hs +129/−0
• gen/Network/AWS/AppStream/StopFleet.hs +29/−30
• gen/Network/AWS/AppStream/StopImageBuilder.hs +129/−0
• gen/Network/AWS/AppStream/Types.hs +162/−32
• gen/Network/AWS/AppStream/Types/Product.hs +1356/−751
• gen/Network/AWS/AppStream/Types/Sum.hs +319/−42
• gen/Network/AWS/AppStream/UpdateDirectoryConfig.hs +159/−0
• gen/Network/AWS/AppStream/UpdateFleet.hs +98/−63
• gen/Network/AWS/AppStream/UpdateStack.hs +60/−37
• gen/Network/AWS/AppStream/Waiters.hs +6/−6
• test/Main.hs +2/−2
• test/Test/AWS/Gen/AppStream.hs +202/−4

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

@@ -1,13 +1,13 @@ name:                  amazonka-appstream-version:               1.4.5+version:               1.5.0 synopsis:              Amazon AppStream 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,24 +29,37 @@     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-appstream  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.AppStream         , Network.AWS.AppStream.AssociateFleet+        , Network.AWS.AppStream.CreateDirectoryConfig         , Network.AWS.AppStream.CreateFleet+        , Network.AWS.AppStream.CreateImageBuilder+        , Network.AWS.AppStream.CreateImageBuilderStreamingURL         , Network.AWS.AppStream.CreateStack         , Network.AWS.AppStream.CreateStreamingURL+        , Network.AWS.AppStream.DeleteDirectoryConfig         , Network.AWS.AppStream.DeleteFleet+        , Network.AWS.AppStream.DeleteImage+        , Network.AWS.AppStream.DeleteImageBuilder         , Network.AWS.AppStream.DeleteStack+        , Network.AWS.AppStream.DescribeDirectoryConfigs         , Network.AWS.AppStream.DescribeFleets+        , Network.AWS.AppStream.DescribeImageBuilders         , Network.AWS.AppStream.DescribeImages         , Network.AWS.AppStream.DescribeSessions         , Network.AWS.AppStream.DescribeStacks@@ -55,8 +68,11 @@         , Network.AWS.AppStream.ListAssociatedFleets         , Network.AWS.AppStream.ListAssociatedStacks         , Network.AWS.AppStream.StartFleet+        , Network.AWS.AppStream.StartImageBuilder         , Network.AWS.AppStream.StopFleet+        , Network.AWS.AppStream.StopImageBuilder         , Network.AWS.AppStream.Types+        , Network.AWS.AppStream.UpdateDirectoryConfig         , Network.AWS.AppStream.UpdateFleet         , Network.AWS.AppStream.UpdateStack         , Network.AWS.AppStream.Waiters@@ -66,7 +82,7 @@         , Network.AWS.AppStream.Types.Sum      build-depends:-          amazonka-core == 1.4.5.*+          amazonka-core == 1.5.0.*         , base          >= 4.7     && < 5  test-suite amazonka-appstream-test@@ -86,9 +102,9 @@         , Test.AWS.AppStream.Internal      build-depends:-          amazonka-core == 1.4.5.*-        , amazonka-test == 1.4.5.*-        , amazonka-appstream == 1.4.5.*+          amazonka-core == 1.5.0.*+        , amazonka-test == 1.5.0.*+        , amazonka-appstream         , base         , bytestring         , tasty

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/appstream2/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  appstream2.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/appstream2/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  appstream2.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/appstream2/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  appstream2.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/appstream2/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  appstream2.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/appstream2/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  appstream2.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/appstream2/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  appstream2.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/appstream2/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  appstream2.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/appstream2/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  appstream2.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/appstream2/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  appstream2.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/appstream2/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  appstream2.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/appstream2/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  appstream2.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,15 +5,15 @@  -- | -- Module      : Network.AWS.AppStream--- 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 AppStream 2.0__ ----- API documentation for Amazon AppStream 2.0.+-- You can use Amazon AppStream 2.0 to stream desktop applications to any device running a web browser, without rewriting them. -- module Network.AWS.AppStream     (@@ -29,12 +29,21 @@     -- ** ResourceAlreadyExistsException     , _ResourceAlreadyExistsException +    -- ** IncompatibleImageException+    , _IncompatibleImageException++    -- ** ConcurrentModificationException+    , _ConcurrentModificationException+     -- ** OperationNotPermittedException     , _OperationNotPermittedException      -- ** ResourceNotFoundException     , _ResourceNotFoundException +    -- ** InvalidParameterCombinationException+    , _InvalidParameterCombinationException+     -- ** ResourceNotAvailableException     , _ResourceNotAvailableException @@ -62,6 +71,9 @@     -- ** UpdateStack     , module Network.AWS.AppStream.UpdateStack +    -- ** CreateDirectoryConfig+    , module Network.AWS.AppStream.CreateDirectoryConfig+     -- ** ListAssociatedStacks     , module Network.AWS.AppStream.ListAssociatedStacks @@ -71,9 +83,21 @@     -- ** UpdateFleet     , module Network.AWS.AppStream.UpdateFleet +    -- ** DeleteImageBuilder+    , module Network.AWS.AppStream.DeleteImageBuilder+     -- ** AssociateFleet     , module Network.AWS.AppStream.AssociateFleet +    -- ** CreateImageBuilder+    , module Network.AWS.AppStream.CreateImageBuilder++    -- ** DescribeDirectoryConfigs+    , module Network.AWS.AppStream.DescribeDirectoryConfigs++    -- ** CreateImageBuilderStreamingURL+    , module Network.AWS.AppStream.CreateImageBuilderStreamingURL+     -- ** DescribeSessions     , module Network.AWS.AppStream.DescribeSessions @@ -83,9 +107,21 @@     -- ** DescribeFleets     , module Network.AWS.AppStream.DescribeFleets +    -- ** DescribeImageBuilders+    , module Network.AWS.AppStream.DescribeImageBuilders+     -- ** StopFleet     , module Network.AWS.AppStream.StopFleet +    -- ** StartImageBuilder+    , module Network.AWS.AppStream.StartImageBuilder++    -- ** DeleteDirectoryConfig+    , module Network.AWS.AppStream.DeleteDirectoryConfig++    -- ** UpdateDirectoryConfig+    , module Network.AWS.AppStream.UpdateDirectoryConfig+     -- ** CreateFleet     , module Network.AWS.AppStream.CreateFleet @@ -101,17 +137,38 @@     -- ** StartFleet     , module Network.AWS.AppStream.StartFleet +    -- ** StopImageBuilder+    , module Network.AWS.AppStream.StopImageBuilder++    -- ** DeleteImage+    , module Network.AWS.AppStream.DeleteImage+     -- ** DescribeImages     , module Network.AWS.AppStream.DescribeImages      -- * Types +    -- ** AuthenticationType+    , AuthenticationType (..)++    -- ** FleetAttribute+    , FleetAttribute (..)+     -- ** FleetErrorCode     , FleetErrorCode (..)      -- ** FleetState     , FleetState (..) +    -- ** FleetType+    , FleetType (..)++    -- ** ImageBuilderState+    , ImageBuilderState (..)++    -- ** ImageBuilderStateChangeReasonCode+    , ImageBuilderStateChangeReasonCode (..)+     -- ** ImageState     , ImageState (..) @@ -124,6 +181,12 @@     -- ** SessionState     , SessionState (..) +    -- ** StackErrorCode+    , StackErrorCode (..)++    -- ** StorageConnectorType+    , StorageConnectorType (..)+     -- ** VisibilityType     , VisibilityType (..) @@ -151,15 +214,32 @@     , ccsAvailable     , ccsDesired +    -- ** DirectoryConfig+    , DirectoryConfig+    , directoryConfig+    , dcCreatedTime+    , dcServiceAccountCredentials+    , dcOrganizationalUnitDistinguishedNames+    , dcDirectoryName++    -- ** DomainJoinInfo+    , DomainJoinInfo+    , domainJoinInfo+    , djiOrganizationalUnitDistinguishedName+    , djiDirectoryName+     -- ** Fleet     , Fleet     , fleet+    , fDomainJoinInfo     , fDisconnectTimeoutInSeconds     , fMaxUserDurationInSeconds     , fCreatedTime+    , fFleetType     , fVPCConfig     , fFleetErrors     , fDisplayName+    , fEnableDefaultInternetAccess     , fDescription     , fARN     , fName@@ -179,9 +259,11 @@     , image     , iState     , iPlatform+    , iPublicBaseImageReleasedDate     , iStateChangeReason     , iARN     , iCreatedTime+    , iImageBuilderSupported     , iVisibility     , iBaseImageARN     , iDisplayName@@ -189,15 +271,53 @@     , iApplications     , iName +    -- ** ImageBuilder+    , ImageBuilder+    , imageBuilder+    , ibDomainJoinInfo+    , ibState+    , ibPlatform+    , ibStateChangeReason+    , ibARN+    , ibCreatedTime+    , ibImageBuilderErrors+    , ibInstanceType+    , ibVPCConfig+    , ibImageARN+    , ibDisplayName+    , ibEnableDefaultInternetAccess+    , ibDescription+    , ibName++    -- ** ImageBuilderStateChangeReason+    , ImageBuilderStateChangeReason+    , imageBuilderStateChangeReason+    , ibscrCode+    , ibscrMessage+     -- ** ImageStateChangeReason     , ImageStateChangeReason     , imageStateChangeReason     , iscrCode     , iscrMessage +    -- ** ResourceError+    , ResourceError+    , resourceError+    , reErrorCode+    , reErrorMessage+    , reErrorTimestamp++    -- ** ServiceAccountCredentials+    , ServiceAccountCredentials+    , serviceAccountCredentials+    , sacAccountName+    , sacAccountPassword+     -- ** Session     , Session     , session+    , sAuthenticationType     , sId     , sUserId     , sStackName@@ -209,36 +329,62 @@     , stack     , sARN     , sCreatedTime+    , sStorageConnectors     , sDisplayName+    , sStackErrors     , sDescription     , sName +    -- ** StackError+    , StackError+    , stackError+    , seErrorCode+    , seErrorMessage++    -- ** StorageConnector+    , StorageConnector+    , storageConnector+    , scResourceIdentifier+    , scConnectorType+     -- ** VPCConfig     , VPCConfig     , vpcConfig+    , vcSecurityGroupIds     , vcSubnetIds     ) where -import           Network.AWS.AppStream.AssociateFleet-import           Network.AWS.AppStream.CreateFleet-import           Network.AWS.AppStream.CreateStack-import           Network.AWS.AppStream.CreateStreamingURL-import           Network.AWS.AppStream.DeleteFleet-import           Network.AWS.AppStream.DeleteStack-import           Network.AWS.AppStream.DescribeFleets-import           Network.AWS.AppStream.DescribeImages-import           Network.AWS.AppStream.DescribeSessions-import           Network.AWS.AppStream.DescribeStacks-import           Network.AWS.AppStream.DisassociateFleet-import           Network.AWS.AppStream.ExpireSession-import           Network.AWS.AppStream.ListAssociatedFleets-import           Network.AWS.AppStream.ListAssociatedStacks-import           Network.AWS.AppStream.StartFleet-import           Network.AWS.AppStream.StopFleet-import           Network.AWS.AppStream.Types-import           Network.AWS.AppStream.UpdateFleet-import           Network.AWS.AppStream.UpdateStack-import           Network.AWS.AppStream.Waiters+import Network.AWS.AppStream.AssociateFleet+import Network.AWS.AppStream.CreateDirectoryConfig+import Network.AWS.AppStream.CreateFleet+import Network.AWS.AppStream.CreateImageBuilder+import Network.AWS.AppStream.CreateImageBuilderStreamingURL+import Network.AWS.AppStream.CreateStack+import Network.AWS.AppStream.CreateStreamingURL+import Network.AWS.AppStream.DeleteDirectoryConfig+import Network.AWS.AppStream.DeleteFleet+import Network.AWS.AppStream.DeleteImage+import Network.AWS.AppStream.DeleteImageBuilder+import Network.AWS.AppStream.DeleteStack+import Network.AWS.AppStream.DescribeDirectoryConfigs+import Network.AWS.AppStream.DescribeFleets+import Network.AWS.AppStream.DescribeImageBuilders+import Network.AWS.AppStream.DescribeImages+import Network.AWS.AppStream.DescribeSessions+import Network.AWS.AppStream.DescribeStacks+import Network.AWS.AppStream.DisassociateFleet+import Network.AWS.AppStream.ExpireSession+import Network.AWS.AppStream.ListAssociatedFleets+import Network.AWS.AppStream.ListAssociatedStacks+import Network.AWS.AppStream.StartFleet+import Network.AWS.AppStream.StartImageBuilder+import Network.AWS.AppStream.StopFleet+import Network.AWS.AppStream.StopImageBuilder+import Network.AWS.AppStream.Types+import Network.AWS.AppStream.UpdateDirectoryConfig+import Network.AWS.AppStream.UpdateFleet+import Network.AWS.AppStream.UpdateStack+import Network.AWS.AppStream.Waiters  {- $errors Error matchers are designed for use with the functions provided by

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.AppStream.AssociateFleet--- 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) ----- Associate a fleet to a stack.+-- Associates the specified fleet with the specified stack. -- -- module Network.AWS.AppStream.AssociateFleet@@ -37,41 +37,40 @@     , afrsResponseStatus     ) where -import           Network.AWS.AppStream.Types-import           Network.AWS.AppStream.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.AppStream.Types+import Network.AWS.AppStream.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'associateFleet' smart constructor. data AssociateFleet = AssociateFleet'-    { _afFleetName :: !Text-    , _afStackName :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _afFleetName :: !Text+  , _afStackName :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'AssociateFleet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'afFleetName' - The name of the fleet to associate.+-- * 'afFleetName' - The name of the fleet. ----- * 'afStackName' - The name of the stack to which the fleet is associated.+-- * 'afStackName' - The name of the stack. associateFleet     :: Text -- ^ 'afFleetName'     -> Text -- ^ 'afStackName'     -> AssociateFleet associateFleet pFleetName_ pStackName_ =-    AssociateFleet'-    { _afFleetName = pFleetName_-    , _afStackName = pStackName_-    }+  AssociateFleet' {_afFleetName = pFleetName_, _afStackName = pStackName_} --- | The name of the fleet to associate.++-- | The name of the fleet. afFleetName :: Lens' AssociateFleet Text afFleetName = lens _afFleetName (\ s a -> s{_afFleetName = a}); --- | The name of the stack to which the fleet is associated.+-- | The name of the stack. afStackName :: Lens' AssociateFleet Text afStackName = lens _afStackName (\ s a -> s{_afStackName = a}); @@ -83,9 +82,9 @@               (\ s h x ->                  AssociateFleetResponse' <$> (pure (fromEnum s))) -instance Hashable AssociateFleet+instance Hashable AssociateFleet where -instance NFData AssociateFleet+instance NFData AssociateFleet where  instance ToHeaders AssociateFleet where         toHeaders@@ -112,9 +111,10 @@  -- | /See:/ 'associateFleetResponse' smart constructor. newtype AssociateFleetResponse = AssociateFleetResponse'-    { _afrsResponseStatus :: Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _afrsResponseStatus :: Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'AssociateFleetResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -124,12 +124,11 @@     :: Int -- ^ 'afrsResponseStatus'     -> AssociateFleetResponse associateFleetResponse pResponseStatus_ =-    AssociateFleetResponse'-    { _afrsResponseStatus = pResponseStatus_-    }+  AssociateFleetResponse' {_afrsResponseStatus = pResponseStatus_} + -- | -- | The response status code. afrsResponseStatus :: Lens' AssociateFleetResponse Int afrsResponseStatus = lens _afrsResponseStatus (\ s a -> s{_afrsResponseStatus = a}); -instance NFData AssociateFleetResponse+instance NFData AssociateFleetResponse where

@@ -0,0 +1,162 @@+{-# 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.AppStream.CreateDirectoryConfig+-- 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 directory configuration.+--+--+module Network.AWS.AppStream.CreateDirectoryConfig+    (+    -- * Creating a Request+      createDirectoryConfig+    , CreateDirectoryConfig+    -- * Request Lenses+    , cdcDirectoryName+    , cdcOrganizationalUnitDistinguishedNames+    , cdcServiceAccountCredentials++    -- * Destructuring the Response+    , createDirectoryConfigResponse+    , CreateDirectoryConfigResponse+    -- * Response Lenses+    , cdcrsDirectoryConfig+    , cdcrsResponseStatus+    ) where++import Network.AWS.AppStream.Types+import Network.AWS.AppStream.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'createDirectoryConfig' smart constructor.+data CreateDirectoryConfig = CreateDirectoryConfig'+  { _cdcDirectoryName                        :: !Text+  , _cdcOrganizationalUnitDistinguishedNames :: ![Text]+  , _cdcServiceAccountCredentials            :: !ServiceAccountCredentials+  } deriving (Eq, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreateDirectoryConfig' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cdcDirectoryName' - The fully qualified name of the directory (for example, corp.example.com).+--+-- * 'cdcOrganizationalUnitDistinguishedNames' - The distinguished names of the organizational units for computer accounts.+--+-- * 'cdcServiceAccountCredentials' - The credentials for the service account used by the streaming instance to connect to the directory.+createDirectoryConfig+    :: Text -- ^ 'cdcDirectoryName'+    -> ServiceAccountCredentials -- ^ 'cdcServiceAccountCredentials'+    -> CreateDirectoryConfig+createDirectoryConfig pDirectoryName_ pServiceAccountCredentials_ =+  CreateDirectoryConfig'+  { _cdcDirectoryName = pDirectoryName_+  , _cdcOrganizationalUnitDistinguishedNames = mempty+  , _cdcServiceAccountCredentials = pServiceAccountCredentials_+  }+++-- | The fully qualified name of the directory (for example, corp.example.com).+cdcDirectoryName :: Lens' CreateDirectoryConfig Text+cdcDirectoryName = lens _cdcDirectoryName (\ s a -> s{_cdcDirectoryName = a});++-- | The distinguished names of the organizational units for computer accounts.+cdcOrganizationalUnitDistinguishedNames :: Lens' CreateDirectoryConfig [Text]+cdcOrganizationalUnitDistinguishedNames = lens _cdcOrganizationalUnitDistinguishedNames (\ s a -> s{_cdcOrganizationalUnitDistinguishedNames = a}) . _Coerce;++-- | The credentials for the service account used by the streaming instance to connect to the directory.+cdcServiceAccountCredentials :: Lens' CreateDirectoryConfig ServiceAccountCredentials+cdcServiceAccountCredentials = lens _cdcServiceAccountCredentials (\ s a -> s{_cdcServiceAccountCredentials = a});++instance AWSRequest CreateDirectoryConfig where+        type Rs CreateDirectoryConfig =+             CreateDirectoryConfigResponse+        request = postJSON appStream+        response+          = receiveJSON+              (\ s h x ->+                 CreateDirectoryConfigResponse' <$>+                   (x .?> "DirectoryConfig") <*> (pure (fromEnum s)))++instance Hashable CreateDirectoryConfig where++instance NFData CreateDirectoryConfig where++instance ToHeaders CreateDirectoryConfig where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("PhotonAdminProxyService.CreateDirectoryConfig" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON CreateDirectoryConfig where+        toJSON CreateDirectoryConfig'{..}+          = object+              (catMaybes+                 [Just ("DirectoryName" .= _cdcDirectoryName),+                  Just+                    ("OrganizationalUnitDistinguishedNames" .=+                       _cdcOrganizationalUnitDistinguishedNames),+                  Just+                    ("ServiceAccountCredentials" .=+                       _cdcServiceAccountCredentials)])++instance ToPath CreateDirectoryConfig where+        toPath = const "/"++instance ToQuery CreateDirectoryConfig where+        toQuery = const mempty++-- | /See:/ 'createDirectoryConfigResponse' smart constructor.+data CreateDirectoryConfigResponse = CreateDirectoryConfigResponse'+  { _cdcrsDirectoryConfig :: !(Maybe DirectoryConfig)+  , _cdcrsResponseStatus  :: !Int+  } deriving (Eq, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreateDirectoryConfigResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cdcrsDirectoryConfig' - Information about the directory configuration.+--+-- * 'cdcrsResponseStatus' - -- | The response status code.+createDirectoryConfigResponse+    :: Int -- ^ 'cdcrsResponseStatus'+    -> CreateDirectoryConfigResponse+createDirectoryConfigResponse pResponseStatus_ =+  CreateDirectoryConfigResponse'+  {_cdcrsDirectoryConfig = Nothing, _cdcrsResponseStatus = pResponseStatus_}+++-- | Information about the directory configuration.+cdcrsDirectoryConfig :: Lens' CreateDirectoryConfigResponse (Maybe DirectoryConfig)+cdcrsDirectoryConfig = lens _cdcrsDirectoryConfig (\ s a -> s{_cdcrsDirectoryConfig = a});++-- | -- | The response status code.+cdcrsResponseStatus :: Lens' CreateDirectoryConfigResponse Int+cdcrsResponseStatus = lens _cdcrsResponseStatus (\ s a -> s{_cdcrsResponseStatus = a});++instance NFData CreateDirectoryConfigResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.AppStream.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.+-- Creates a fleet. -- -- module Network.AWS.AppStream.CreateFleet@@ -27,10 +27,13 @@       createFleet     , CreateFleet     -- * Request Lenses+    , cfDomainJoinInfo     , cfDisconnectTimeoutInSeconds     , cfMaxUserDurationInSeconds+    , cfFleetType     , cfVPCConfig     , cfDisplayName+    , cfEnableDefaultInternetAccess     , cfDescription     , cfName     , cfImageName@@ -45,51 +48,57 @@     , cfrsResponseStatus     ) where -import           Network.AWS.AppStream.Types-import           Network.AWS.AppStream.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.AppStream.Types+import Network.AWS.AppStream.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response --- | Contains the parameters for the new fleet to create.------------ /See:/ 'createFleet' smart constructor.+-- | /See:/ 'createFleet' smart constructor. data CreateFleet = CreateFleet'-    { _cfDisconnectTimeoutInSeconds :: !(Maybe Int)-    , _cfMaxUserDurationInSeconds   :: !(Maybe Int)-    , _cfVPCConfig                  :: !(Maybe VPCConfig)-    , _cfDisplayName                :: !(Maybe Text)-    , _cfDescription                :: !(Maybe Text)-    , _cfName                       :: !Text-    , _cfImageName                  :: !Text-    , _cfInstanceType               :: !Text-    , _cfComputeCapacity            :: !ComputeCapacity-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cfDomainJoinInfo              :: !(Maybe DomainJoinInfo)+  , _cfDisconnectTimeoutInSeconds  :: !(Maybe Int)+  , _cfMaxUserDurationInSeconds    :: !(Maybe Int)+  , _cfFleetType                   :: !(Maybe FleetType)+  , _cfVPCConfig                   :: !(Maybe VPCConfig)+  , _cfDisplayName                 :: !(Maybe Text)+  , _cfEnableDefaultInternetAccess :: !(Maybe Bool)+  , _cfDescription                 :: !(Maybe Text)+  , _cfName                        :: !Text+  , _cfImageName                   :: !Text+  , _cfInstanceType                :: !Text+  , _cfComputeCapacity             :: !ComputeCapacity+  } 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: ----- * 'cfDisconnectTimeoutInSeconds' - The time after disconnection when a session is considered to have ended. If a user who got disconnected reconnects within this timeout interval, the user is connected back to his/her previous session.+-- * 'cfDomainJoinInfo' - The information needed for streaming instances to join a domain. ----- * 'cfMaxUserDurationInSeconds' - The maximum time up to which a streaming session can run.+-- * 'cfDisconnectTimeoutInSeconds' - The time after disconnection when a session is considered to have ended, in seconds. If a user who was disconnected reconnects within this time interval, the user is connected to their previous session. Specify a value between 60 and 57600. --+-- * 'cfMaxUserDurationInSeconds' - The maximum time that a streaming session can run, in seconds. Specify a value between 600 and 57600.+--+-- * 'cfFleetType' - Undocumented member.+-- -- * 'cfVPCConfig' - The VPC configuration for the fleet. ----- * 'cfDisplayName' - The display name of the fleet.+-- * 'cfDisplayName' - The fleet name displayed to end users. ----- * 'cfDescription' - The description of the fleet.+-- * 'cfEnableDefaultInternetAccess' - Enables or disables default internet access for the fleet. ----- * 'cfName' - A unique identifier for the fleet.+-- * 'cfDescription' - The description displayed to end users. ----- * 'cfImageName' - Unique name of the image used by the fleet.+-- * 'cfName' - A unique name for the fleet. ----- * 'cfInstanceType' - The instance type of compute resources for the fleet. Fleet instances are launched from this instance type.+-- * 'cfImageName' - The name of the image used by the fleet. ----- * 'cfComputeCapacity' - The parameters for the capacity allocated to the fleet.+-- * 'cfInstanceType' - The instance type to use when launching fleet instances. The following instance types are available:     * stream.standard.medium     * stream.standard.large     * stream.compute.large     * stream.compute.xlarge     * stream.compute.2xlarge     * stream.compute.4xlarge     * stream.compute.8xlarge     * stream.memory.large     * stream.memory.xlarge     * stream.memory.2xlarge     * stream.memory.4xlarge     * stream.memory.8xlarge     * stream.graphics-design.large     * stream.graphics-design.xlarge     * stream.graphics-design.2xlarge     * stream.graphics-design.4xlarge     * stream.graphics-desktop.2xlarge     * stream.graphics-pro.4xlarge     * stream.graphics-pro.8xlarge     * stream.graphics-pro.16xlarge+--+-- * 'cfComputeCapacity' - The desired capacity for the fleet. createFleet     :: Text -- ^ 'cfName'     -> Text -- ^ 'cfImageName'@@ -97,51 +106,67 @@     -> ComputeCapacity -- ^ 'cfComputeCapacity'     -> CreateFleet createFleet pName_ pImageName_ pInstanceType_ pComputeCapacity_ =-    CreateFleet'-    { _cfDisconnectTimeoutInSeconds = Nothing-    , _cfMaxUserDurationInSeconds = Nothing-    , _cfVPCConfig = Nothing-    , _cfDisplayName = Nothing-    , _cfDescription = Nothing-    , _cfName = pName_-    , _cfImageName = pImageName_-    , _cfInstanceType = pInstanceType_-    , _cfComputeCapacity = pComputeCapacity_-    }+  CreateFleet'+  { _cfDomainJoinInfo = Nothing+  , _cfDisconnectTimeoutInSeconds = Nothing+  , _cfMaxUserDurationInSeconds = Nothing+  , _cfFleetType = Nothing+  , _cfVPCConfig = Nothing+  , _cfDisplayName = Nothing+  , _cfEnableDefaultInternetAccess = Nothing+  , _cfDescription = Nothing+  , _cfName = pName_+  , _cfImageName = pImageName_+  , _cfInstanceType = pInstanceType_+  , _cfComputeCapacity = pComputeCapacity_+  } --- | The time after disconnection when a session is considered to have ended. If a user who got disconnected reconnects within this timeout interval, the user is connected back to his/her previous session.++-- | The information needed for streaming instances to join a domain.+cfDomainJoinInfo :: Lens' CreateFleet (Maybe DomainJoinInfo)+cfDomainJoinInfo = lens _cfDomainJoinInfo (\ s a -> s{_cfDomainJoinInfo = a});++-- | The time after disconnection when a session is considered to have ended, in seconds. If a user who was disconnected reconnects within this time interval, the user is connected to their previous session. Specify a value between 60 and 57600. cfDisconnectTimeoutInSeconds :: Lens' CreateFleet (Maybe Int) cfDisconnectTimeoutInSeconds = lens _cfDisconnectTimeoutInSeconds (\ s a -> s{_cfDisconnectTimeoutInSeconds = a}); --- | The maximum time up to which a streaming session can run.+-- | The maximum time that a streaming session can run, in seconds. Specify a value between 600 and 57600. cfMaxUserDurationInSeconds :: Lens' CreateFleet (Maybe Int) cfMaxUserDurationInSeconds = lens _cfMaxUserDurationInSeconds (\ s a -> s{_cfMaxUserDurationInSeconds = a}); +-- | Undocumented member.+cfFleetType :: Lens' CreateFleet (Maybe FleetType)+cfFleetType = lens _cfFleetType (\ s a -> s{_cfFleetType = a});+ -- | The VPC configuration for the fleet. cfVPCConfig :: Lens' CreateFleet (Maybe VPCConfig) cfVPCConfig = lens _cfVPCConfig (\ s a -> s{_cfVPCConfig = a}); --- | The display name of the fleet.+-- | The fleet name displayed to end users. cfDisplayName :: Lens' CreateFleet (Maybe Text) cfDisplayName = lens _cfDisplayName (\ s a -> s{_cfDisplayName = a}); --- | The description of the fleet.+-- | Enables or disables default internet access for the fleet.+cfEnableDefaultInternetAccess :: Lens' CreateFleet (Maybe Bool)+cfEnableDefaultInternetAccess = lens _cfEnableDefaultInternetAccess (\ s a -> s{_cfEnableDefaultInternetAccess = a});++-- | The description displayed to end users. cfDescription :: Lens' CreateFleet (Maybe Text) cfDescription = lens _cfDescription (\ s a -> s{_cfDescription = a}); --- | A unique identifier for the fleet.+-- | A unique name for the fleet. cfName :: Lens' CreateFleet Text cfName = lens _cfName (\ s a -> s{_cfName = a}); --- | Unique name of the image used by the fleet.+-- | The name of the image used by the fleet. cfImageName :: Lens' CreateFleet Text cfImageName = lens _cfImageName (\ s a -> s{_cfImageName = a}); --- | The instance type of compute resources for the fleet. Fleet instances are launched from this instance type.+-- | The instance type to use when launching fleet instances. The following instance types are available:     * stream.standard.medium     * stream.standard.large     * stream.compute.large     * stream.compute.xlarge     * stream.compute.2xlarge     * stream.compute.4xlarge     * stream.compute.8xlarge     * stream.memory.large     * stream.memory.xlarge     * stream.memory.2xlarge     * stream.memory.4xlarge     * stream.memory.8xlarge     * stream.graphics-design.large     * stream.graphics-design.xlarge     * stream.graphics-design.2xlarge     * stream.graphics-design.4xlarge     * stream.graphics-desktop.2xlarge     * stream.graphics-pro.4xlarge     * stream.graphics-pro.8xlarge     * stream.graphics-pro.16xlarge cfInstanceType :: Lens' CreateFleet Text cfInstanceType = lens _cfInstanceType (\ s a -> s{_cfInstanceType = a}); --- | The parameters for the capacity allocated to the fleet.+-- | The desired capacity for the fleet. cfComputeCapacity :: Lens' CreateFleet ComputeCapacity cfComputeCapacity = lens _cfComputeCapacity (\ s a -> s{_cfComputeCapacity = a}); @@ -154,9 +179,9 @@                  CreateFleetResponse' <$>                    (x .?> "Fleet") <*> (pure (fromEnum s))) -instance Hashable CreateFleet+instance Hashable CreateFleet where -instance NFData CreateFleet+instance NFData CreateFleet where  instance ToHeaders CreateFleet where         toHeaders@@ -172,12 +197,16 @@         toJSON CreateFleet'{..}           = object               (catMaybes-                 [("DisconnectTimeoutInSeconds" .=) <$>+                 [("DomainJoinInfo" .=) <$> _cfDomainJoinInfo,+                  ("DisconnectTimeoutInSeconds" .=) <$>                     _cfDisconnectTimeoutInSeconds,                   ("MaxUserDurationInSeconds" .=) <$>                     _cfMaxUserDurationInSeconds,+                  ("FleetType" .=) <$> _cfFleetType,                   ("VpcConfig" .=) <$> _cfVPCConfig,                   ("DisplayName" .=) <$> _cfDisplayName,+                  ("EnableDefaultInternetAccess" .=) <$>+                    _cfEnableDefaultInternetAccess,                   ("Description" .=) <$> _cfDescription,                   Just ("Name" .= _cfName),                   Just ("ImageName" .= _cfImageName),@@ -192,27 +221,27 @@  -- | /See:/ 'createFleetResponse' smart constructor. data CreateFleetResponse = CreateFleetResponse'-    { _cfrsFleet          :: !(Maybe Fleet)-    , _cfrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cfrsFleet          :: !(Maybe Fleet)+  , _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: ----- * 'cfrsFleet' - The details for the created fleet.+-- * 'cfrsFleet' - Information about the fleet. -- -- * 'cfrsResponseStatus' - -- | The response status code. createFleetResponse     :: Int -- ^ 'cfrsResponseStatus'     -> CreateFleetResponse createFleetResponse pResponseStatus_ =-    CreateFleetResponse'-    { _cfrsFleet = Nothing-    , _cfrsResponseStatus = pResponseStatus_-    }+  CreateFleetResponse'+  {_cfrsFleet = Nothing, _cfrsResponseStatus = pResponseStatus_} --- | The details for the created fleet.++-- | Information about the fleet. cfrsFleet :: Lens' CreateFleetResponse (Maybe Fleet) cfrsFleet = lens _cfrsFleet (\ s a -> s{_cfrsFleet = a}); @@ -220,4 +249,4 @@ cfrsResponseStatus :: Lens' CreateFleetResponse Int cfrsResponseStatus = lens _cfrsResponseStatus (\ s a -> s{_cfrsResponseStatus = a}); -instance NFData CreateFleetResponse+instance NFData CreateFleetResponse where

@@ -0,0 +1,208 @@+{-# 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.AppStream.CreateImageBuilder+-- 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)+--+-- Undocumented operation.+module Network.AWS.AppStream.CreateImageBuilder+    (+    -- * Creating a Request+      createImageBuilder+    , CreateImageBuilder+    -- * Request Lenses+    , cibDomainJoinInfo+    , cibVPCConfig+    , cibDisplayName+    , cibEnableDefaultInternetAccess+    , cibDescription+    , cibName+    , cibImageName+    , cibInstanceType++    -- * Destructuring the Response+    , createImageBuilderResponse+    , CreateImageBuilderResponse+    -- * Response Lenses+    , cibrsImageBuilder+    , cibrsResponseStatus+    ) where++import Network.AWS.AppStream.Types+import Network.AWS.AppStream.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'createImageBuilder' smart constructor.+data CreateImageBuilder = CreateImageBuilder'+  { _cibDomainJoinInfo              :: !(Maybe DomainJoinInfo)+  , _cibVPCConfig                   :: !(Maybe VPCConfig)+  , _cibDisplayName                 :: !(Maybe Text)+  , _cibEnableDefaultInternetAccess :: !(Maybe Bool)+  , _cibDescription                 :: !(Maybe Text)+  , _cibName                        :: !Text+  , _cibImageName                   :: !Text+  , _cibInstanceType                :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreateImageBuilder' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cibDomainJoinInfo' - Undocumented member.+--+-- * 'cibVPCConfig' - Undocumented member.+--+-- * 'cibDisplayName' - Undocumented member.+--+-- * 'cibEnableDefaultInternetAccess' - Undocumented member.+--+-- * 'cibDescription' - Undocumented member.+--+-- * 'cibName' - Undocumented member.+--+-- * 'cibImageName' - Undocumented member.+--+-- * 'cibInstanceType' - Undocumented member.+createImageBuilder+    :: Text -- ^ 'cibName'+    -> Text -- ^ 'cibImageName'+    -> Text -- ^ 'cibInstanceType'+    -> CreateImageBuilder+createImageBuilder pName_ pImageName_ pInstanceType_ =+  CreateImageBuilder'+  { _cibDomainJoinInfo = Nothing+  , _cibVPCConfig = Nothing+  , _cibDisplayName = Nothing+  , _cibEnableDefaultInternetAccess = Nothing+  , _cibDescription = Nothing+  , _cibName = pName_+  , _cibImageName = pImageName_+  , _cibInstanceType = pInstanceType_+  }+++-- | Undocumented member.+cibDomainJoinInfo :: Lens' CreateImageBuilder (Maybe DomainJoinInfo)+cibDomainJoinInfo = lens _cibDomainJoinInfo (\ s a -> s{_cibDomainJoinInfo = a});++-- | Undocumented member.+cibVPCConfig :: Lens' CreateImageBuilder (Maybe VPCConfig)+cibVPCConfig = lens _cibVPCConfig (\ s a -> s{_cibVPCConfig = a});++-- | Undocumented member.+cibDisplayName :: Lens' CreateImageBuilder (Maybe Text)+cibDisplayName = lens _cibDisplayName (\ s a -> s{_cibDisplayName = a});++-- | Undocumented member.+cibEnableDefaultInternetAccess :: Lens' CreateImageBuilder (Maybe Bool)+cibEnableDefaultInternetAccess = lens _cibEnableDefaultInternetAccess (\ s a -> s{_cibEnableDefaultInternetAccess = a});++-- | Undocumented member.+cibDescription :: Lens' CreateImageBuilder (Maybe Text)+cibDescription = lens _cibDescription (\ s a -> s{_cibDescription = a});++-- | Undocumented member.+cibName :: Lens' CreateImageBuilder Text+cibName = lens _cibName (\ s a -> s{_cibName = a});++-- | Undocumented member.+cibImageName :: Lens' CreateImageBuilder Text+cibImageName = lens _cibImageName (\ s a -> s{_cibImageName = a});++-- | Undocumented member.+cibInstanceType :: Lens' CreateImageBuilder Text+cibInstanceType = lens _cibInstanceType (\ s a -> s{_cibInstanceType = a});++instance AWSRequest CreateImageBuilder where+        type Rs CreateImageBuilder =+             CreateImageBuilderResponse+        request = postJSON appStream+        response+          = receiveJSON+              (\ s h x ->+                 CreateImageBuilderResponse' <$>+                   (x .?> "ImageBuilder") <*> (pure (fromEnum s)))++instance Hashable CreateImageBuilder where++instance NFData CreateImageBuilder where++instance ToHeaders CreateImageBuilder where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("PhotonAdminProxyService.CreateImageBuilder" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON CreateImageBuilder where+        toJSON CreateImageBuilder'{..}+          = object+              (catMaybes+                 [("DomainJoinInfo" .=) <$> _cibDomainJoinInfo,+                  ("VpcConfig" .=) <$> _cibVPCConfig,+                  ("DisplayName" .=) <$> _cibDisplayName,+                  ("EnableDefaultInternetAccess" .=) <$>+                    _cibEnableDefaultInternetAccess,+                  ("Description" .=) <$> _cibDescription,+                  Just ("Name" .= _cibName),+                  Just ("ImageName" .= _cibImageName),+                  Just ("InstanceType" .= _cibInstanceType)])++instance ToPath CreateImageBuilder where+        toPath = const "/"++instance ToQuery CreateImageBuilder where+        toQuery = const mempty++-- | /See:/ 'createImageBuilderResponse' smart constructor.+data CreateImageBuilderResponse = CreateImageBuilderResponse'+  { _cibrsImageBuilder   :: !(Maybe ImageBuilder)+  , _cibrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreateImageBuilderResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cibrsImageBuilder' - Undocumented member.+--+-- * 'cibrsResponseStatus' - -- | The response status code.+createImageBuilderResponse+    :: Int -- ^ 'cibrsResponseStatus'+    -> CreateImageBuilderResponse+createImageBuilderResponse pResponseStatus_ =+  CreateImageBuilderResponse'+  {_cibrsImageBuilder = Nothing, _cibrsResponseStatus = pResponseStatus_}+++-- | Undocumented member.+cibrsImageBuilder :: Lens' CreateImageBuilderResponse (Maybe ImageBuilder)+cibrsImageBuilder = lens _cibrsImageBuilder (\ s a -> s{_cibrsImageBuilder = a});++-- | -- | The response status code.+cibrsResponseStatus :: Lens' CreateImageBuilderResponse Int+cibrsResponseStatus = lens _cibrsResponseStatus (\ s a -> s{_cibrsResponseStatus = a});++instance NFData CreateImageBuilderResponse where

@@ -0,0 +1,160 @@+{-# 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.AppStream.CreateImageBuilderStreamingURL+-- 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)+--+-- Undocumented operation.+module Network.AWS.AppStream.CreateImageBuilderStreamingURL+    (+    -- * Creating a Request+      createImageBuilderStreamingURL+    , CreateImageBuilderStreamingURL+    -- * Request Lenses+    , cibsuValidity+    , cibsuName++    -- * Destructuring the Response+    , createImageBuilderStreamingURLResponse+    , CreateImageBuilderStreamingURLResponse+    -- * Response Lenses+    , cibsursStreamingURL+    , cibsursExpires+    , cibsursResponseStatus+    ) where++import Network.AWS.AppStream.Types+import Network.AWS.AppStream.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'createImageBuilderStreamingURL' smart constructor.+data CreateImageBuilderStreamingURL = CreateImageBuilderStreamingURL'+  { _cibsuValidity :: !(Maybe Integer)+  , _cibsuName     :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreateImageBuilderStreamingURL' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cibsuValidity' - Undocumented member.+--+-- * 'cibsuName' - Undocumented member.+createImageBuilderStreamingURL+    :: Text -- ^ 'cibsuName'+    -> CreateImageBuilderStreamingURL+createImageBuilderStreamingURL pName_ =+  CreateImageBuilderStreamingURL'+  {_cibsuValidity = Nothing, _cibsuName = pName_}+++-- | Undocumented member.+cibsuValidity :: Lens' CreateImageBuilderStreamingURL (Maybe Integer)+cibsuValidity = lens _cibsuValidity (\ s a -> s{_cibsuValidity = a});++-- | Undocumented member.+cibsuName :: Lens' CreateImageBuilderStreamingURL Text+cibsuName = lens _cibsuName (\ s a -> s{_cibsuName = a});++instance AWSRequest CreateImageBuilderStreamingURL+         where+        type Rs CreateImageBuilderStreamingURL =+             CreateImageBuilderStreamingURLResponse+        request = postJSON appStream+        response+          = receiveJSON+              (\ s h x ->+                 CreateImageBuilderStreamingURLResponse' <$>+                   (x .?> "StreamingURL") <*> (x .?> "Expires") <*>+                     (pure (fromEnum s)))++instance Hashable CreateImageBuilderStreamingURL+         where++instance NFData CreateImageBuilderStreamingURL where++instance ToHeaders CreateImageBuilderStreamingURL+         where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("PhotonAdminProxyService.CreateImageBuilderStreamingURL"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON CreateImageBuilderStreamingURL where+        toJSON CreateImageBuilderStreamingURL'{..}+          = object+              (catMaybes+                 [("Validity" .=) <$> _cibsuValidity,+                  Just ("Name" .= _cibsuName)])++instance ToPath CreateImageBuilderStreamingURL where+        toPath = const "/"++instance ToQuery CreateImageBuilderStreamingURL where+        toQuery = const mempty++-- | /See:/ 'createImageBuilderStreamingURLResponse' smart constructor.+data CreateImageBuilderStreamingURLResponse = CreateImageBuilderStreamingURLResponse'+  { _cibsursStreamingURL   :: !(Maybe Text)+  , _cibsursExpires        :: !(Maybe POSIX)+  , _cibsursResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreateImageBuilderStreamingURLResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cibsursStreamingURL' - Undocumented member.+--+-- * 'cibsursExpires' - Undocumented member.+--+-- * 'cibsursResponseStatus' - -- | The response status code.+createImageBuilderStreamingURLResponse+    :: Int -- ^ 'cibsursResponseStatus'+    -> CreateImageBuilderStreamingURLResponse+createImageBuilderStreamingURLResponse pResponseStatus_ =+  CreateImageBuilderStreamingURLResponse'+  { _cibsursStreamingURL = Nothing+  , _cibsursExpires = Nothing+  , _cibsursResponseStatus = pResponseStatus_+  }+++-- | Undocumented member.+cibsursStreamingURL :: Lens' CreateImageBuilderStreamingURLResponse (Maybe Text)+cibsursStreamingURL = lens _cibsursStreamingURL (\ s a -> s{_cibsursStreamingURL = a});++-- | Undocumented member.+cibsursExpires :: Lens' CreateImageBuilderStreamingURLResponse (Maybe UTCTime)+cibsursExpires = lens _cibsursExpires (\ s a -> s{_cibsursExpires = a}) . mapping _Time;++-- | -- | The response status code.+cibsursResponseStatus :: Lens' CreateImageBuilderStreamingURLResponse Int+cibsursResponseStatus = lens _cibsursResponseStatus (\ s a -> s{_cibsursResponseStatus = a});++instance NFData+           CreateImageBuilderStreamingURLResponse+         where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.AppStream.CreateStack--- 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) ----- Create a new stack.+-- Creates a stack. -- -- module Network.AWS.AppStream.CreateStack@@ -27,6 +27,7 @@       createStack     , CreateStack     -- * Request Lenses+    , csStorageConnectors     , csDisplayName     , csDescription     , csName@@ -39,48 +40,58 @@     , csrsResponseStatus     ) where -import           Network.AWS.AppStream.Types-import           Network.AWS.AppStream.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.AppStream.Types+import Network.AWS.AppStream.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'createStack' smart constructor. data CreateStack = CreateStack'-    { _csDisplayName :: !(Maybe Text)-    , _csDescription :: !(Maybe Text)-    , _csName        :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _csStorageConnectors :: !(Maybe [StorageConnector])+  , _csDisplayName       :: !(Maybe Text)+  , _csDescription       :: !(Maybe Text)+  , _csName              :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateStack' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'csDisplayName' - The name displayed to end users on the AppStream 2.0 portal.+-- * 'csStorageConnectors' - The storage connectors to enable. ----- * 'csDescription' - The description displayed to end users on the AppStream 2.0 portal.+-- * 'csDisplayName' - The stack name displayed to end users. ----- * 'csName' - The unique identifier for this stack.+-- * 'csDescription' - The description displayed to end users.+--+-- * 'csName' - The name of the stack. createStack     :: Text -- ^ 'csName'     -> CreateStack createStack pName_ =-    CreateStack'-    { _csDisplayName = Nothing-    , _csDescription = Nothing-    , _csName = pName_-    }+  CreateStack'+  { _csStorageConnectors = Nothing+  , _csDisplayName = Nothing+  , _csDescription = Nothing+  , _csName = pName_+  } --- | The name displayed to end users on the AppStream 2.0 portal.++-- | The storage connectors to enable.+csStorageConnectors :: Lens' CreateStack [StorageConnector]+csStorageConnectors = lens _csStorageConnectors (\ s a -> s{_csStorageConnectors = a}) . _Default . _Coerce;++-- | The stack name displayed to end users. csDisplayName :: Lens' CreateStack (Maybe Text) csDisplayName = lens _csDisplayName (\ s a -> s{_csDisplayName = a}); --- | The description displayed to end users on the AppStream 2.0 portal.+-- | The description displayed to end users. csDescription :: Lens' CreateStack (Maybe Text) csDescription = lens _csDescription (\ s a -> s{_csDescription = a}); --- | The unique identifier for this stack.+-- | The name of the stack. csName :: Lens' CreateStack Text csName = lens _csName (\ s a -> s{_csName = a}); @@ -93,9 +104,9 @@                  CreateStackResponse' <$>                    (x .?> "Stack") <*> (pure (fromEnum s))) -instance Hashable CreateStack+instance Hashable CreateStack where -instance NFData CreateStack+instance NFData CreateStack where  instance ToHeaders CreateStack where         toHeaders@@ -111,7 +122,8 @@         toJSON CreateStack'{..}           = object               (catMaybes-                 [("DisplayName" .=) <$> _csDisplayName,+                 [("StorageConnectors" .=) <$> _csStorageConnectors,+                  ("DisplayName" .=) <$> _csDisplayName,                   ("Description" .=) <$> _csDescription,                   Just ("Name" .= _csName)]) @@ -123,27 +135,27 @@  -- | /See:/ 'createStackResponse' smart constructor. data CreateStackResponse = CreateStackResponse'-    { _csrsStack          :: !(Maybe Stack)-    , _csrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _csrsStack          :: !(Maybe Stack)+  , _csrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateStackResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'csrsStack' - The details for the created stack.+-- * 'csrsStack' - Information about the stack. -- -- * 'csrsResponseStatus' - -- | The response status code. createStackResponse     :: Int -- ^ 'csrsResponseStatus'     -> CreateStackResponse createStackResponse pResponseStatus_ =-    CreateStackResponse'-    { _csrsStack = Nothing-    , _csrsResponseStatus = pResponseStatus_-    }+  CreateStackResponse'+  {_csrsStack = Nothing, _csrsResponseStatus = pResponseStatus_} --- | The details for the created stack.++-- | Information about the stack. csrsStack :: Lens' CreateStackResponse (Maybe Stack) csrsStack = lens _csrsStack (\ s a -> s{_csrsStack = a}); @@ -151,4 +163,4 @@ csrsResponseStatus :: Lens' CreateStackResponse Int csrsResponseStatus = lens _csrsResponseStatus (\ s a -> s{_csrsResponseStatus = a}); -instance NFData CreateStackResponse+instance NFData CreateStackResponse where

@@ -12,15 +12,17 @@  -- | -- Module      : Network.AWS.AppStream.CreateStreamingURL--- 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 URL to start an AppStream 2.0 streaming session for a user. By default, the URL is valid only for 1 minute from the time that it is generated.+-- Creates a URL to start a streaming session for the specified user. -- --+-- By default, the URL is valid only for one minute from the time that it is generated.+-- module Network.AWS.AppStream.CreateStreamingURL     (     -- * Creating a Request@@ -43,54 +45,56 @@     , csursResponseStatus     ) where -import           Network.AWS.AppStream.Types-import           Network.AWS.AppStream.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.AppStream.Types+import Network.AWS.AppStream.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'createStreamingURL' smart constructor. data CreateStreamingURL = CreateStreamingURL'-    { _csuSessionContext :: !(Maybe Text)-    , _csuApplicationId  :: !(Maybe Text)-    , _csuValidity       :: !(Maybe Integer)-    , _csuStackName      :: !Text-    , _csuFleetName      :: !Text-    , _csuUserId         :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _csuSessionContext :: !(Maybe Text)+  , _csuApplicationId  :: !(Maybe Text)+  , _csuValidity       :: !(Maybe Integer)+  , _csuStackName      :: !Text+  , _csuFleetName      :: !Text+  , _csuUserId         :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateStreamingURL' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'csuSessionContext' - The sessionContext of the streaming URL.+-- * 'csuSessionContext' - The session context of the streaming URL. -- -- * 'csuApplicationId' - The ID of the application that must be launched after the session starts. ----- * 'csuValidity' - The validity duration of the URL in seconds. After this duration, the URL returned by this operation becomes invalid.+-- * 'csuValidity' - The time that the streaming URL will be valid, in seconds. Specify a value between 1 and 604800 seconds. ----- * 'csuStackName' - The stack for which the URL is generated.+-- * 'csuStackName' - The name of the stack. ----- * 'csuFleetName' - The fleet for which the URL is generated.+-- * 'csuFleetName' - The name of the fleet. ----- * 'csuUserId' - A unique user ID for whom the URL is generated.+-- * 'csuUserId' - The ID of the user. createStreamingURL     :: Text -- ^ 'csuStackName'     -> Text -- ^ 'csuFleetName'     -> Text -- ^ 'csuUserId'     -> CreateStreamingURL createStreamingURL pStackName_ pFleetName_ pUserId_ =-    CreateStreamingURL'-    { _csuSessionContext = Nothing-    , _csuApplicationId = Nothing-    , _csuValidity = Nothing-    , _csuStackName = pStackName_-    , _csuFleetName = pFleetName_-    , _csuUserId = pUserId_-    }+  CreateStreamingURL'+  { _csuSessionContext = Nothing+  , _csuApplicationId = Nothing+  , _csuValidity = Nothing+  , _csuStackName = pStackName_+  , _csuFleetName = pFleetName_+  , _csuUserId = pUserId_+  } --- | The sessionContext of the streaming URL.++-- | The session context of the streaming URL. csuSessionContext :: Lens' CreateStreamingURL (Maybe Text) csuSessionContext = lens _csuSessionContext (\ s a -> s{_csuSessionContext = a}); @@ -98,19 +102,19 @@ csuApplicationId :: Lens' CreateStreamingURL (Maybe Text) csuApplicationId = lens _csuApplicationId (\ s a -> s{_csuApplicationId = a}); --- | The validity duration of the URL in seconds. After this duration, the URL returned by this operation becomes invalid.+-- | The time that the streaming URL will be valid, in seconds. Specify a value between 1 and 604800 seconds. csuValidity :: Lens' CreateStreamingURL (Maybe Integer) csuValidity = lens _csuValidity (\ s a -> s{_csuValidity = a}); --- | The stack for which the URL is generated.+-- | The name of the stack. csuStackName :: Lens' CreateStreamingURL Text csuStackName = lens _csuStackName (\ s a -> s{_csuStackName = a}); --- | The fleet for which the URL is generated.+-- | The name of the fleet. csuFleetName :: Lens' CreateStreamingURL Text csuFleetName = lens _csuFleetName (\ s a -> s{_csuFleetName = a}); --- | A unique user ID for whom the URL is generated.+-- | The ID of the user. csuUserId :: Lens' CreateStreamingURL Text csuUserId = lens _csuUserId (\ s a -> s{_csuUserId = a}); @@ -125,9 +129,9 @@                    (x .?> "StreamingURL") <*> (x .?> "Expires") <*>                      (pure (fromEnum s))) -instance Hashable CreateStreamingURL+instance Hashable CreateStreamingURL where -instance NFData CreateStreamingURL+instance NFData CreateStreamingURL where  instance ToHeaders CreateStreamingURL where         toHeaders@@ -158,35 +162,37 @@  -- | /See:/ 'createStreamingURLResponse' smart constructor. data CreateStreamingURLResponse = CreateStreamingURLResponse'-    { _csursStreamingURL   :: !(Maybe Text)-    , _csursExpires        :: !(Maybe POSIX)-    , _csursResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _csursStreamingURL   :: !(Maybe Text)+  , _csursExpires        :: !(Maybe POSIX)+  , _csursResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateStreamingURLResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'csursStreamingURL' - The URL to start the AppStream 2.0 streaming session. ----- * 'csursExpires' - Elapsed seconds after the Unix epoch, at which time this URL expires.+-- * 'csursExpires' - The elapsed time, in seconds after the Unix epoch, when this URL expires. -- -- * 'csursResponseStatus' - -- | The response status code. createStreamingURLResponse     :: Int -- ^ 'csursResponseStatus'     -> CreateStreamingURLResponse createStreamingURLResponse pResponseStatus_ =-    CreateStreamingURLResponse'-    { _csursStreamingURL = Nothing-    , _csursExpires = Nothing-    , _csursResponseStatus = pResponseStatus_-    }+  CreateStreamingURLResponse'+  { _csursStreamingURL = Nothing+  , _csursExpires = Nothing+  , _csursResponseStatus = pResponseStatus_+  } + -- | The URL to start the AppStream 2.0 streaming session. csursStreamingURL :: Lens' CreateStreamingURLResponse (Maybe Text) csursStreamingURL = lens _csursStreamingURL (\ s a -> s{_csursStreamingURL = a}); --- | Elapsed seconds after the Unix epoch, at which time this URL expires.+-- | The elapsed time, in seconds after the Unix epoch, when this URL expires. csursExpires :: Lens' CreateStreamingURLResponse (Maybe UTCTime) csursExpires = lens _csursExpires (\ s a -> s{_csursExpires = a}) . mapping _Time; @@ -194,4 +200,4 @@ csursResponseStatus :: Lens' CreateStreamingURLResponse Int csursResponseStatus = lens _csursResponseStatus (\ s a -> s{_csursResponseStatus = a}); -instance NFData CreateStreamingURLResponse+instance NFData CreateStreamingURLResponse where

@@ -0,0 +1,126 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.AppStream.DeleteDirectoryConfig+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes the specified directory configuration.+--+--+module Network.AWS.AppStream.DeleteDirectoryConfig+    (+    -- * Creating a Request+      deleteDirectoryConfig+    , DeleteDirectoryConfig+    -- * Request Lenses+    , ddcDirectoryName++    -- * Destructuring the Response+    , deleteDirectoryConfigResponse+    , DeleteDirectoryConfigResponse+    -- * Response Lenses+    , delrsResponseStatus+    ) where++import Network.AWS.AppStream.Types+import Network.AWS.AppStream.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'deleteDirectoryConfig' smart constructor.+newtype DeleteDirectoryConfig = DeleteDirectoryConfig'+  { _ddcDirectoryName :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteDirectoryConfig' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ddcDirectoryName' - The name of the directory configuration.+deleteDirectoryConfig+    :: Text -- ^ 'ddcDirectoryName'+    -> DeleteDirectoryConfig+deleteDirectoryConfig pDirectoryName_ =+  DeleteDirectoryConfig' {_ddcDirectoryName = pDirectoryName_}+++-- | The name of the directory configuration.+ddcDirectoryName :: Lens' DeleteDirectoryConfig Text+ddcDirectoryName = lens _ddcDirectoryName (\ s a -> s{_ddcDirectoryName = a});++instance AWSRequest DeleteDirectoryConfig where+        type Rs DeleteDirectoryConfig =+             DeleteDirectoryConfigResponse+        request = postJSON appStream+        response+          = receiveEmpty+              (\ s h x ->+                 DeleteDirectoryConfigResponse' <$>+                   (pure (fromEnum s)))++instance Hashable DeleteDirectoryConfig where++instance NFData DeleteDirectoryConfig where++instance ToHeaders DeleteDirectoryConfig where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("PhotonAdminProxyService.DeleteDirectoryConfig" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DeleteDirectoryConfig where+        toJSON DeleteDirectoryConfig'{..}+          = object+              (catMaybes+                 [Just ("DirectoryName" .= _ddcDirectoryName)])++instance ToPath DeleteDirectoryConfig where+        toPath = const "/"++instance ToQuery DeleteDirectoryConfig where+        toQuery = const mempty++-- | /See:/ 'deleteDirectoryConfigResponse' smart constructor.+newtype DeleteDirectoryConfigResponse = DeleteDirectoryConfigResponse'+  { _delrsResponseStatus :: Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteDirectoryConfigResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'delrsResponseStatus' - -- | The response status code.+deleteDirectoryConfigResponse+    :: Int -- ^ 'delrsResponseStatus'+    -> DeleteDirectoryConfigResponse+deleteDirectoryConfigResponse pResponseStatus_ =+  DeleteDirectoryConfigResponse' {_delrsResponseStatus = pResponseStatus_}+++-- | -- | The response status code.+delrsResponseStatus :: Lens' DeleteDirectoryConfigResponse Int+delrsResponseStatus = lens _delrsResponseStatus (\ s a -> s{_delrsResponseStatus = a});++instance NFData DeleteDirectoryConfigResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.AppStream.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) ----- Deletes a fleet.+-- Deletes the specified fleet. -- -- module Network.AWS.AppStream.DeleteFleet@@ -36,32 +36,31 @@     , dfrsResponseStatus     ) where -import           Network.AWS.AppStream.Types-import           Network.AWS.AppStream.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.AppStream.Types+import Network.AWS.AppStream.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'deleteFleet' smart constructor. newtype DeleteFleet = DeleteFleet'-    { _dfName :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dfName :: 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: ----- * 'dfName' - The name of the fleet to be deleted.+-- * 'dfName' - The name of the fleet. deleteFleet     :: Text -- ^ 'dfName'     -> DeleteFleet-deleteFleet pName_ =-    DeleteFleet'-    { _dfName = pName_-    }+deleteFleet pName_ = DeleteFleet' {_dfName = pName_} --- | The name of the fleet to be deleted.++-- | The name of the fleet. dfName :: Lens' DeleteFleet Text dfName = lens _dfName (\ s a -> s{_dfName = a}); @@ -73,9 +72,9 @@               (\ s h x ->                  DeleteFleetResponse' <$> (pure (fromEnum s))) -instance Hashable DeleteFleet+instance Hashable DeleteFleet where -instance NFData DeleteFleet+instance NFData DeleteFleet where  instance ToHeaders DeleteFleet where         toHeaders@@ -99,9 +98,10 @@  -- | /See:/ 'deleteFleetResponse' smart constructor. newtype DeleteFleetResponse = DeleteFleetResponse'-    { _dfrsResponseStatus :: Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dfrsResponseStatus :: Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteFleetResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -111,12 +111,11 @@     :: Int -- ^ 'dfrsResponseStatus'     -> DeleteFleetResponse deleteFleetResponse pResponseStatus_ =-    DeleteFleetResponse'-    { _dfrsResponseStatus = pResponseStatus_-    }+  DeleteFleetResponse' {_dfrsResponseStatus = pResponseStatus_} + -- | -- | The response status code. dfrsResponseStatus :: Lens' DeleteFleetResponse Int dfrsResponseStatus = lens _dfrsResponseStatus (\ s a -> s{_dfrsResponseStatus = a}); -instance NFData DeleteFleetResponse+instance NFData DeleteFleetResponse where

@@ -0,0 +1,129 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.AppStream.DeleteImage+-- 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)+--+-- Undocumented operation.+module Network.AWS.AppStream.DeleteImage+    (+    -- * Creating a Request+      deleteImage+    , DeleteImage+    -- * Request Lenses+    , diName++    -- * Destructuring the Response+    , deleteImageResponse+    , DeleteImageResponse+    -- * Response Lenses+    , dirsImage+    , dirsResponseStatus+    ) where++import Network.AWS.AppStream.Types+import Network.AWS.AppStream.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'deleteImage' smart constructor.+newtype DeleteImage = DeleteImage'+  { _diName :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteImage' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'diName' - Undocumented member.+deleteImage+    :: Text -- ^ 'diName'+    -> DeleteImage+deleteImage pName_ = DeleteImage' {_diName = pName_}+++-- | Undocumented member.+diName :: Lens' DeleteImage Text+diName = lens _diName (\ s a -> s{_diName = a});++instance AWSRequest DeleteImage where+        type Rs DeleteImage = DeleteImageResponse+        request = postJSON appStream+        response+          = receiveJSON+              (\ s h x ->+                 DeleteImageResponse' <$>+                   (x .?> "Image") <*> (pure (fromEnum s)))++instance Hashable DeleteImage where++instance NFData DeleteImage where++instance ToHeaders DeleteImage where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("PhotonAdminProxyService.DeleteImage" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DeleteImage where+        toJSON DeleteImage'{..}+          = object (catMaybes [Just ("Name" .= _diName)])++instance ToPath DeleteImage where+        toPath = const "/"++instance ToQuery DeleteImage where+        toQuery = const mempty++-- | /See:/ 'deleteImageResponse' smart constructor.+data DeleteImageResponse = DeleteImageResponse'+  { _dirsImage          :: !(Maybe Image)+  , _dirsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteImageResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dirsImage' - Undocumented member.+--+-- * 'dirsResponseStatus' - -- | The response status code.+deleteImageResponse+    :: Int -- ^ 'dirsResponseStatus'+    -> DeleteImageResponse+deleteImageResponse pResponseStatus_ =+  DeleteImageResponse'+  {_dirsImage = Nothing, _dirsResponseStatus = pResponseStatus_}+++-- | Undocumented member.+dirsImage :: Lens' DeleteImageResponse (Maybe Image)+dirsImage = lens _dirsImage (\ s a -> s{_dirsImage = a});++-- | -- | The response status code.+dirsResponseStatus :: Lens' DeleteImageResponse Int+dirsResponseStatus = lens _dirsResponseStatus (\ s a -> s{_dirsResponseStatus = a});++instance NFData DeleteImageResponse where

@@ -0,0 +1,130 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.AppStream.DeleteImageBuilder+-- 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)+--+-- Undocumented operation.+module Network.AWS.AppStream.DeleteImageBuilder+    (+    -- * Creating a Request+      deleteImageBuilder+    , DeleteImageBuilder+    -- * Request Lenses+    , dibName++    -- * Destructuring the Response+    , deleteImageBuilderResponse+    , DeleteImageBuilderResponse+    -- * Response Lenses+    , dibrsImageBuilder+    , dibrsResponseStatus+    ) where++import Network.AWS.AppStream.Types+import Network.AWS.AppStream.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'deleteImageBuilder' smart constructor.+newtype DeleteImageBuilder = DeleteImageBuilder'+  { _dibName :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteImageBuilder' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dibName' - Undocumented member.+deleteImageBuilder+    :: Text -- ^ 'dibName'+    -> DeleteImageBuilder+deleteImageBuilder pName_ = DeleteImageBuilder' {_dibName = pName_}+++-- | Undocumented member.+dibName :: Lens' DeleteImageBuilder Text+dibName = lens _dibName (\ s a -> s{_dibName = a});++instance AWSRequest DeleteImageBuilder where+        type Rs DeleteImageBuilder =+             DeleteImageBuilderResponse+        request = postJSON appStream+        response+          = receiveJSON+              (\ s h x ->+                 DeleteImageBuilderResponse' <$>+                   (x .?> "ImageBuilder") <*> (pure (fromEnum s)))++instance Hashable DeleteImageBuilder where++instance NFData DeleteImageBuilder where++instance ToHeaders DeleteImageBuilder where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("PhotonAdminProxyService.DeleteImageBuilder" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DeleteImageBuilder where+        toJSON DeleteImageBuilder'{..}+          = object (catMaybes [Just ("Name" .= _dibName)])++instance ToPath DeleteImageBuilder where+        toPath = const "/"++instance ToQuery DeleteImageBuilder where+        toQuery = const mempty++-- | /See:/ 'deleteImageBuilderResponse' smart constructor.+data DeleteImageBuilderResponse = DeleteImageBuilderResponse'+  { _dibrsImageBuilder   :: !(Maybe ImageBuilder)+  , _dibrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteImageBuilderResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dibrsImageBuilder' - Undocumented member.+--+-- * 'dibrsResponseStatus' - -- | The response status code.+deleteImageBuilderResponse+    :: Int -- ^ 'dibrsResponseStatus'+    -> DeleteImageBuilderResponse+deleteImageBuilderResponse pResponseStatus_ =+  DeleteImageBuilderResponse'+  {_dibrsImageBuilder = Nothing, _dibrsResponseStatus = pResponseStatus_}+++-- | Undocumented member.+dibrsImageBuilder :: Lens' DeleteImageBuilderResponse (Maybe ImageBuilder)+dibrsImageBuilder = lens _dibrsImageBuilder (\ s a -> s{_dibrsImageBuilder = a});++-- | -- | The response status code.+dibrsResponseStatus :: Lens' DeleteImageBuilderResponse Int+dibrsResponseStatus = lens _dibrsResponseStatus (\ s a -> s{_dibrsResponseStatus = a});++instance NFData DeleteImageBuilderResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.AppStream.DeleteStack--- 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 the stack. After this operation completes, the environment can no longer be activated, and any reservations made for the stack are released.+-- Deletes the specified stack. After this operation completes, the environment can no longer be activated and any reservations made for the stack are released. -- -- module Network.AWS.AppStream.DeleteStack@@ -36,32 +36,31 @@     , dsrsResponseStatus     ) where -import           Network.AWS.AppStream.Types-import           Network.AWS.AppStream.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.AppStream.Types+import Network.AWS.AppStream.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'deleteStack' smart constructor. newtype DeleteStack = DeleteStack'-    { _dsName :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dsName :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteStack' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dsName' - The name of the stack to delete.+-- * 'dsName' - The name of the stack. deleteStack     :: Text -- ^ 'dsName'     -> DeleteStack-deleteStack pName_ =-    DeleteStack'-    { _dsName = pName_-    }+deleteStack pName_ = DeleteStack' {_dsName = pName_} --- | The name of the stack to delete.++-- | The name of the stack. dsName :: Lens' DeleteStack Text dsName = lens _dsName (\ s a -> s{_dsName = a}); @@ -73,9 +72,9 @@               (\ s h x ->                  DeleteStackResponse' <$> (pure (fromEnum s))) -instance Hashable DeleteStack+instance Hashable DeleteStack where -instance NFData DeleteStack+instance NFData DeleteStack where  instance ToHeaders DeleteStack where         toHeaders@@ -99,9 +98,10 @@  -- | /See:/ 'deleteStackResponse' smart constructor. newtype DeleteStackResponse = DeleteStackResponse'-    { _dsrsResponseStatus :: Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dsrsResponseStatus :: Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteStackResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -111,12 +111,11 @@     :: Int -- ^ 'dsrsResponseStatus'     -> DeleteStackResponse deleteStackResponse pResponseStatus_ =-    DeleteStackResponse'-    { _dsrsResponseStatus = pResponseStatus_-    }+  DeleteStackResponse' {_dsrsResponseStatus = pResponseStatus_} + -- | -- | The response status code. dsrsResponseStatus :: Lens' DeleteStackResponse Int dsrsResponseStatus = lens _dsrsResponseStatus (\ s a -> s{_dsrsResponseStatus = a}); -instance NFData DeleteStackResponse+instance NFData DeleteStackResponse where

@@ -0,0 +1,170 @@+{-# 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.AppStream.DescribeDirectoryConfigs+-- 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)+--+-- Describes the specified directory configurations.+--+--+module Network.AWS.AppStream.DescribeDirectoryConfigs+    (+    -- * Creating a Request+      describeDirectoryConfigs+    , DescribeDirectoryConfigs+    -- * Request Lenses+    , ddcNextToken+    , ddcDirectoryNames+    , ddcMaxResults++    -- * Destructuring the Response+    , describeDirectoryConfigsResponse+    , DescribeDirectoryConfigsResponse+    -- * Response Lenses+    , ddcrsNextToken+    , ddcrsDirectoryConfigs+    , ddcrsResponseStatus+    ) where++import Network.AWS.AppStream.Types+import Network.AWS.AppStream.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'describeDirectoryConfigs' smart constructor.+data DescribeDirectoryConfigs = DescribeDirectoryConfigs'+  { _ddcNextToken      :: !(Maybe Text)+  , _ddcDirectoryNames :: !(Maybe [Text])+  , _ddcMaxResults     :: !(Maybe Int)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DescribeDirectoryConfigs' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ddcNextToken' - The pagination token to use to retrieve the next page of results for this operation. If this value is null, it retrieves the first page.+--+-- * 'ddcDirectoryNames' - The directory names.+--+-- * 'ddcMaxResults' - The maximum size of each page of results.+describeDirectoryConfigs+    :: DescribeDirectoryConfigs+describeDirectoryConfigs =+  DescribeDirectoryConfigs'+  { _ddcNextToken = Nothing+  , _ddcDirectoryNames = Nothing+  , _ddcMaxResults = Nothing+  }+++-- | The pagination token to use to retrieve the next page of results for this operation. If this value is null, it retrieves the first page.+ddcNextToken :: Lens' DescribeDirectoryConfigs (Maybe Text)+ddcNextToken = lens _ddcNextToken (\ s a -> s{_ddcNextToken = a});++-- | The directory names.+ddcDirectoryNames :: Lens' DescribeDirectoryConfigs [Text]+ddcDirectoryNames = lens _ddcDirectoryNames (\ s a -> s{_ddcDirectoryNames = a}) . _Default . _Coerce;++-- | The maximum size of each page of results.+ddcMaxResults :: Lens' DescribeDirectoryConfigs (Maybe Int)+ddcMaxResults = lens _ddcMaxResults (\ s a -> s{_ddcMaxResults = a});++instance AWSRequest DescribeDirectoryConfigs where+        type Rs DescribeDirectoryConfigs =+             DescribeDirectoryConfigsResponse+        request = postJSON appStream+        response+          = receiveJSON+              (\ s h x ->+                 DescribeDirectoryConfigsResponse' <$>+                   (x .?> "NextToken") <*>+                     (x .?> "DirectoryConfigs" .!@ mempty)+                     <*> (pure (fromEnum s)))++instance Hashable DescribeDirectoryConfigs where++instance NFData DescribeDirectoryConfigs where++instance ToHeaders DescribeDirectoryConfigs where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("PhotonAdminProxyService.DescribeDirectoryConfigs"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DescribeDirectoryConfigs where+        toJSON DescribeDirectoryConfigs'{..}+          = object+              (catMaybes+                 [("NextToken" .=) <$> _ddcNextToken,+                  ("DirectoryNames" .=) <$> _ddcDirectoryNames,+                  ("MaxResults" .=) <$> _ddcMaxResults])++instance ToPath DescribeDirectoryConfigs where+        toPath = const "/"++instance ToQuery DescribeDirectoryConfigs where+        toQuery = const mempty++-- | /See:/ 'describeDirectoryConfigsResponse' smart constructor.+data DescribeDirectoryConfigsResponse = DescribeDirectoryConfigsResponse'+  { _ddcrsNextToken        :: !(Maybe Text)+  , _ddcrsDirectoryConfigs :: !(Maybe [DirectoryConfig])+  , _ddcrsResponseStatus   :: !Int+  } deriving (Eq, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DescribeDirectoryConfigsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ddcrsNextToken' - The pagination token to use to retrieve the next page of results for this operation. If there are no more pages, this value is null.+--+-- * 'ddcrsDirectoryConfigs' - Information about the directory configurations.+--+-- * 'ddcrsResponseStatus' - -- | The response status code.+describeDirectoryConfigsResponse+    :: Int -- ^ 'ddcrsResponseStatus'+    -> DescribeDirectoryConfigsResponse+describeDirectoryConfigsResponse pResponseStatus_ =+  DescribeDirectoryConfigsResponse'+  { _ddcrsNextToken = Nothing+  , _ddcrsDirectoryConfigs = Nothing+  , _ddcrsResponseStatus = pResponseStatus_+  }+++-- | The pagination token to use to retrieve the next page of results for this operation. If there are no more pages, this value is null.+ddcrsNextToken :: Lens' DescribeDirectoryConfigsResponse (Maybe Text)+ddcrsNextToken = lens _ddcrsNextToken (\ s a -> s{_ddcrsNextToken = a});++-- | Information about the directory configurations.+ddcrsDirectoryConfigs :: Lens' DescribeDirectoryConfigsResponse [DirectoryConfig]+ddcrsDirectoryConfigs = lens _ddcrsDirectoryConfigs (\ s a -> s{_ddcrsDirectoryConfigs = a}) . _Default . _Coerce;++-- | -- | The response status code.+ddcrsResponseStatus :: Lens' DescribeDirectoryConfigsResponse Int+ddcrsResponseStatus = lens _ddcrsResponseStatus (\ s a -> s{_ddcrsResponseStatus = a});++instance NFData DescribeDirectoryConfigsResponse+         where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.AppStream.DescribeFleets--- 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) ----- If fleet names are provided, this operation describes the specified fleets; otherwise, all the fleets in the account are described.+-- Describes the specified fleets or all fleets in the account. -- -- module Network.AWS.AppStream.DescribeFleets@@ -39,39 +39,37 @@     , dfsrsResponseStatus     ) where -import           Network.AWS.AppStream.Types-import           Network.AWS.AppStream.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.AppStream.Types+import Network.AWS.AppStream.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'describeFleets' smart constructor. data DescribeFleets = DescribeFleets'-    { _dfNextToken :: !(Maybe Text)-    , _dfNames     :: !(Maybe [Text])-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dfNextToken :: !(Maybe Text)+  , _dfNames     :: !(Maybe [Text])+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeFleets' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'dfNextToken' - The pagination token to use to retrieve the next page of results for this operation. If this value is null, it retrieves the first page. ----- * 'dfNames' - The fleet names to describe. Use null to describe all the fleets for the AWS account.+-- * 'dfNames' - The names of the fleets to describe. describeFleets     :: DescribeFleets-describeFleets =-    DescribeFleets'-    { _dfNextToken = Nothing-    , _dfNames = Nothing-    }+describeFleets = DescribeFleets' {_dfNextToken = Nothing, _dfNames = Nothing} + -- | The pagination token to use to retrieve the next page of results for this operation. If this value is null, it retrieves the first page. dfNextToken :: Lens' DescribeFleets (Maybe Text) dfNextToken = lens _dfNextToken (\ s a -> s{_dfNextToken = a}); --- | The fleet names to describe. Use null to describe all the fleets for the AWS account.+-- | The names of the fleets to describe. dfNames :: Lens' DescribeFleets [Text] dfNames = lens _dfNames (\ s a -> s{_dfNames = a}) . _Default . _Coerce; @@ -85,9 +83,9 @@                    (x .?> "NextToken") <*> (x .?> "Fleets" .!@ mempty)                      <*> (pure (fromEnum s))) -instance Hashable DescribeFleets+instance Hashable DescribeFleets where -instance NFData DescribeFleets+instance NFData DescribeFleets where  instance ToHeaders DescribeFleets where         toHeaders@@ -114,35 +112,37 @@  -- | /See:/ 'describeFleetsResponse' smart constructor. data DescribeFleetsResponse = DescribeFleetsResponse'-    { _dfsrsNextToken      :: !(Maybe Text)-    , _dfsrsFleets         :: !(Maybe [Fleet])-    , _dfsrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dfsrsNextToken      :: !(Maybe Text)+  , _dfsrsFleets         :: !(Maybe [Fleet])+  , _dfsrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeFleetsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'dfsrsNextToken' - The pagination token to use to retrieve the next page of results for this operation. If there are no more pages, this value is null. ----- * 'dfsrsFleets' - The list of fleet details.+-- * 'dfsrsFleets' - Information about the fleets. -- -- * 'dfsrsResponseStatus' - -- | The response status code. describeFleetsResponse     :: Int -- ^ 'dfsrsResponseStatus'     -> DescribeFleetsResponse describeFleetsResponse pResponseStatus_ =-    DescribeFleetsResponse'-    { _dfsrsNextToken = Nothing-    , _dfsrsFleets = Nothing-    , _dfsrsResponseStatus = pResponseStatus_-    }+  DescribeFleetsResponse'+  { _dfsrsNextToken = Nothing+  , _dfsrsFleets = Nothing+  , _dfsrsResponseStatus = pResponseStatus_+  } + -- | The pagination token to use to retrieve the next page of results for this operation. If there are no more pages, this value is null. dfsrsNextToken :: Lens' DescribeFleetsResponse (Maybe Text) dfsrsNextToken = lens _dfsrsNextToken (\ s a -> s{_dfsrsNextToken = a}); --- | The list of fleet details.+-- | Information about the fleets. dfsrsFleets :: Lens' DescribeFleetsResponse [Fleet] dfsrsFleets = lens _dfsrsFleets (\ s a -> s{_dfsrsFleets = a}) . _Default . _Coerce; @@ -150,4 +150,4 @@ dfsrsResponseStatus :: Lens' DescribeFleetsResponse Int dfsrsResponseStatus = lens _dfsrsResponseStatus (\ s a -> s{_dfsrsResponseStatus = a}); -instance NFData DescribeFleetsResponse+instance NFData DescribeFleetsResponse 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.AppStream.DescribeImageBuilders+-- 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)+--+-- Undocumented operation.+module Network.AWS.AppStream.DescribeImageBuilders+    (+    -- * Creating a Request+      describeImageBuilders+    , DescribeImageBuilders+    -- * Request Lenses+    , dibNextToken+    , dibNames+    , dibMaxResults++    -- * Destructuring the Response+    , describeImageBuildersResponse+    , DescribeImageBuildersResponse+    -- * Response Lenses+    , dibsrsImageBuilders+    , dibsrsNextToken+    , dibsrsResponseStatus+    ) where++import Network.AWS.AppStream.Types+import Network.AWS.AppStream.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'describeImageBuilders' smart constructor.+data DescribeImageBuilders = DescribeImageBuilders'+  { _dibNextToken  :: !(Maybe Text)+  , _dibNames      :: !(Maybe [Text])+  , _dibMaxResults :: !(Maybe Int)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DescribeImageBuilders' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dibNextToken' - Undocumented member.+--+-- * 'dibNames' - Undocumented member.+--+-- * 'dibMaxResults' - Undocumented member.+describeImageBuilders+    :: DescribeImageBuilders+describeImageBuilders =+  DescribeImageBuilders'+  {_dibNextToken = Nothing, _dibNames = Nothing, _dibMaxResults = Nothing}+++-- | Undocumented member.+dibNextToken :: Lens' DescribeImageBuilders (Maybe Text)+dibNextToken = lens _dibNextToken (\ s a -> s{_dibNextToken = a});++-- | Undocumented member.+dibNames :: Lens' DescribeImageBuilders [Text]+dibNames = lens _dibNames (\ s a -> s{_dibNames = a}) . _Default . _Coerce;++-- | Undocumented member.+dibMaxResults :: Lens' DescribeImageBuilders (Maybe Int)+dibMaxResults = lens _dibMaxResults (\ s a -> s{_dibMaxResults = a});++instance AWSRequest DescribeImageBuilders where+        type Rs DescribeImageBuilders =+             DescribeImageBuildersResponse+        request = postJSON appStream+        response+          = receiveJSON+              (\ s h x ->+                 DescribeImageBuildersResponse' <$>+                   (x .?> "ImageBuilders" .!@ mempty) <*>+                     (x .?> "NextToken")+                     <*> (pure (fromEnum s)))++instance Hashable DescribeImageBuilders where++instance NFData DescribeImageBuilders where++instance ToHeaders DescribeImageBuilders where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("PhotonAdminProxyService.DescribeImageBuilders" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DescribeImageBuilders where+        toJSON DescribeImageBuilders'{..}+          = object+              (catMaybes+                 [("NextToken" .=) <$> _dibNextToken,+                  ("Names" .=) <$> _dibNames,+                  ("MaxResults" .=) <$> _dibMaxResults])++instance ToPath DescribeImageBuilders where+        toPath = const "/"++instance ToQuery DescribeImageBuilders where+        toQuery = const mempty++-- | /See:/ 'describeImageBuildersResponse' smart constructor.+data DescribeImageBuildersResponse = DescribeImageBuildersResponse'+  { _dibsrsImageBuilders  :: !(Maybe [ImageBuilder])+  , _dibsrsNextToken      :: !(Maybe Text)+  , _dibsrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DescribeImageBuildersResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dibsrsImageBuilders' - Undocumented member.+--+-- * 'dibsrsNextToken' - Undocumented member.+--+-- * 'dibsrsResponseStatus' - -- | The response status code.+describeImageBuildersResponse+    :: Int -- ^ 'dibsrsResponseStatus'+    -> DescribeImageBuildersResponse+describeImageBuildersResponse pResponseStatus_ =+  DescribeImageBuildersResponse'+  { _dibsrsImageBuilders = Nothing+  , _dibsrsNextToken = Nothing+  , _dibsrsResponseStatus = pResponseStatus_+  }+++-- | Undocumented member.+dibsrsImageBuilders :: Lens' DescribeImageBuildersResponse [ImageBuilder]+dibsrsImageBuilders = lens _dibsrsImageBuilders (\ s a -> s{_dibsrsImageBuilders = a}) . _Default . _Coerce;++-- | Undocumented member.+dibsrsNextToken :: Lens' DescribeImageBuildersResponse (Maybe Text)+dibsrsNextToken = lens _dibsrsNextToken (\ s a -> s{_dibsrsNextToken = a});++-- | -- | The response status code.+dibsrsResponseStatus :: Lens' DescribeImageBuildersResponse Int+dibsrsResponseStatus = lens _dibsrsResponseStatus (\ s a -> s{_dibsrsResponseStatus = a});++instance NFData DescribeImageBuildersResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.AppStream.DescribeImages--- 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) ----- Describes the images. If a list of names is not provided, all images in your account are returned. This operation does not return a paginated result.+-- Describes the specified images or all images in the account. -- -- module Network.AWS.AppStream.DescribeImages@@ -33,35 +33,34 @@     , describeImagesResponse     , DescribeImagesResponse     -- * Response Lenses-    , dirsImages-    , dirsResponseStatus+    , disrsImages+    , disrsResponseStatus     ) where -import           Network.AWS.AppStream.Types-import           Network.AWS.AppStream.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.AppStream.Types+import Network.AWS.AppStream.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'describeImages' smart constructor. newtype DescribeImages = DescribeImages'-    { _diNames :: Maybe [Text]-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _diNames :: Maybe [Text]+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeImages' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'diNames' - A specific list of images to describe.+-- * 'diNames' - The names of the images to describe. describeImages     :: DescribeImages-describeImages =-    DescribeImages'-    { _diNames = Nothing-    }+describeImages = DescribeImages' {_diNames = Nothing} --- | A specific list of images to describe.++-- | The names of the images to describe. diNames :: Lens' DescribeImages [Text] diNames = lens _diNames (\ s a -> s{_diNames = a}) . _Default . _Coerce; @@ -74,9 +73,9 @@                  DescribeImagesResponse' <$>                    (x .?> "Images" .!@ mempty) <*> (pure (fromEnum s))) -instance Hashable DescribeImages+instance Hashable DescribeImages where -instance NFData DescribeImages+instance NFData DescribeImages where  instance ToHeaders DescribeImages where         toHeaders@@ -100,32 +99,32 @@  -- | /See:/ 'describeImagesResponse' smart constructor. data DescribeImagesResponse = DescribeImagesResponse'-    { _dirsImages         :: !(Maybe [Image])-    , _dirsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _disrsImages         :: !(Maybe [Image])+  , _disrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeImagesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dirsImages' - The list of images.+-- * 'disrsImages' - Information about the images. ----- * 'dirsResponseStatus' - -- | The response status code.+-- * 'disrsResponseStatus' - -- | The response status code. describeImagesResponse-    :: Int -- ^ 'dirsResponseStatus'+    :: Int -- ^ 'disrsResponseStatus'     -> DescribeImagesResponse describeImagesResponse pResponseStatus_ =-    DescribeImagesResponse'-    { _dirsImages = Nothing-    , _dirsResponseStatus = pResponseStatus_-    }+  DescribeImagesResponse'+  {_disrsImages = Nothing, _disrsResponseStatus = pResponseStatus_} --- | The list of images.-dirsImages :: Lens' DescribeImagesResponse [Image]-dirsImages = lens _dirsImages (\ s a -> s{_dirsImages = a}) . _Default . _Coerce; +-- | Information about the images.+disrsImages :: Lens' DescribeImagesResponse [Image]+disrsImages = lens _disrsImages (\ s a -> s{_disrsImages = a}) . _Default . _Coerce;+ -- | -- | The response status code.-dirsResponseStatus :: Lens' DescribeImagesResponse Int-dirsResponseStatus = lens _dirsResponseStatus (\ s a -> s{_dirsResponseStatus = a});+disrsResponseStatus :: Lens' DescribeImagesResponse Int+disrsResponseStatus = lens _disrsResponseStatus (\ s a -> s{_disrsResponseStatus = a}); -instance NFData DescribeImagesResponse+instance NFData DescribeImagesResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.AppStream.DescribeSessions--- 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) ----- Describes the streaming sessions for a stack and a fleet. If a user ID is provided, this operation returns streaming sessions for only that user. Pass this value for the @nextToken@ parameter in a subsequent call to this operation to retrieve the next set of items.+-- Describes the streaming sessions for the specified stack and fleet. If a user ID is provided, only the streaming sessions for only that user are returned. If an authentication type is not provided, the default is to authenticate users using a streaming URL. -- -- module Network.AWS.AppStream.DescribeSessions@@ -30,6 +30,7 @@     , dsUserId     , dsNextToken     , dsLimit+    , dsAuthenticationType     , dsStackName     , dsFleetName @@ -42,49 +43,55 @@     , dssrsResponseStatus     ) where -import           Network.AWS.AppStream.Types-import           Network.AWS.AppStream.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.AppStream.Types+import Network.AWS.AppStream.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'describeSessions' smart constructor. data DescribeSessions = DescribeSessions'-    { _dsUserId    :: !(Maybe Text)-    , _dsNextToken :: !(Maybe Text)-    , _dsLimit     :: !(Maybe Int)-    , _dsStackName :: !Text-    , _dsFleetName :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dsUserId             :: !(Maybe Text)+  , _dsNextToken          :: !(Maybe Text)+  , _dsLimit              :: !(Maybe Int)+  , _dsAuthenticationType :: !(Maybe AuthenticationType)+  , _dsStackName          :: !Text+  , _dsFleetName          :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeSessions' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dsUserId' - The user for whom to list sessions. Use null to describe all the sessions for the stack and fleet.+-- * 'dsUserId' - The user ID. -- -- * 'dsNextToken' - The pagination token to use to retrieve the next page of results for this operation. If this value is null, it retrieves the first page. ----- * 'dsLimit' - The size of each page of results. The default value is 20 and the maximum supported value is 50.+-- * 'dsLimit' - The size of each page of results. The default value is 20 and the maximum value is 50. ----- * 'dsStackName' - The name of the stack for which to list sessions.+-- * 'dsAuthenticationType' - The authentication method. Specify @API@ for a user authenticated using a streaming URL or @SAML@ for a SAML federated user. The default is to authenticate users using a streaming URL. ----- * 'dsFleetName' - The name of the fleet for which to list sessions.+-- * 'dsStackName' - The name of the stack.+--+-- * 'dsFleetName' - The name of the fleet. describeSessions     :: Text -- ^ 'dsStackName'     -> Text -- ^ 'dsFleetName'     -> DescribeSessions describeSessions pStackName_ pFleetName_ =-    DescribeSessions'-    { _dsUserId = Nothing-    , _dsNextToken = Nothing-    , _dsLimit = Nothing-    , _dsStackName = pStackName_-    , _dsFleetName = pFleetName_-    }+  DescribeSessions'+  { _dsUserId = Nothing+  , _dsNextToken = Nothing+  , _dsLimit = Nothing+  , _dsAuthenticationType = Nothing+  , _dsStackName = pStackName_+  , _dsFleetName = pFleetName_+  } --- | The user for whom to list sessions. Use null to describe all the sessions for the stack and fleet.++-- | The user ID. dsUserId :: Lens' DescribeSessions (Maybe Text) dsUserId = lens _dsUserId (\ s a -> s{_dsUserId = a}); @@ -92,15 +99,19 @@ dsNextToken :: Lens' DescribeSessions (Maybe Text) dsNextToken = lens _dsNextToken (\ s a -> s{_dsNextToken = a}); --- | The size of each page of results. The default value is 20 and the maximum supported value is 50.+-- | The size of each page of results. The default value is 20 and the maximum value is 50. dsLimit :: Lens' DescribeSessions (Maybe Int) dsLimit = lens _dsLimit (\ s a -> s{_dsLimit = a}); --- | The name of the stack for which to list sessions.+-- | The authentication method. Specify @API@ for a user authenticated using a streaming URL or @SAML@ for a SAML federated user. The default is to authenticate users using a streaming URL.+dsAuthenticationType :: Lens' DescribeSessions (Maybe AuthenticationType)+dsAuthenticationType = lens _dsAuthenticationType (\ s a -> s{_dsAuthenticationType = a});++-- | The name of the stack. dsStackName :: Lens' DescribeSessions Text dsStackName = lens _dsStackName (\ s a -> s{_dsStackName = a}); --- | The name of the fleet for which to list sessions.+-- | The name of the fleet. dsFleetName :: Lens' DescribeSessions Text dsFleetName = lens _dsFleetName (\ s a -> s{_dsFleetName = a}); @@ -114,9 +125,9 @@                    (x .?> "NextToken") <*> (x .?> "Sessions" .!@ mempty)                      <*> (pure (fromEnum s))) -instance Hashable DescribeSessions+instance Hashable DescribeSessions where -instance NFData DescribeSessions+instance NFData DescribeSessions where  instance ToHeaders DescribeSessions where         toHeaders@@ -135,6 +146,7 @@                  [("UserId" .=) <$> _dsUserId,                   ("NextToken" .=) <$> _dsNextToken,                   ("Limit" .=) <$> _dsLimit,+                  ("AuthenticationType" .=) <$> _dsAuthenticationType,                   Just ("StackName" .= _dsStackName),                   Just ("FleetName" .= _dsFleetName)]) @@ -146,35 +158,37 @@  -- | /See:/ 'describeSessionsResponse' smart constructor. data DescribeSessionsResponse = DescribeSessionsResponse'-    { _dssrsNextToken      :: !(Maybe Text)-    , _dssrsSessions       :: !(Maybe [Session])-    , _dssrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dssrsNextToken      :: !(Maybe Text)+  , _dssrsSessions       :: !(Maybe [Session])+  , _dssrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeSessionsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'dssrsNextToken' - The pagination token to use to retrieve the next page of results for this operation. If there are no more pages, this value is null. ----- * 'dssrsSessions' - The list of streaming sessions.+-- * 'dssrsSessions' - Information about the streaming sessions. -- -- * 'dssrsResponseStatus' - -- | The response status code. describeSessionsResponse     :: Int -- ^ 'dssrsResponseStatus'     -> DescribeSessionsResponse describeSessionsResponse pResponseStatus_ =-    DescribeSessionsResponse'-    { _dssrsNextToken = Nothing-    , _dssrsSessions = Nothing-    , _dssrsResponseStatus = pResponseStatus_-    }+  DescribeSessionsResponse'+  { _dssrsNextToken = Nothing+  , _dssrsSessions = Nothing+  , _dssrsResponseStatus = pResponseStatus_+  } + -- | The pagination token to use to retrieve the next page of results for this operation. If there are no more pages, this value is null. dssrsNextToken :: Lens' DescribeSessionsResponse (Maybe Text) dssrsNextToken = lens _dssrsNextToken (\ s a -> s{_dssrsNextToken = a}); --- | The list of streaming sessions.+-- | Information about the streaming sessions. dssrsSessions :: Lens' DescribeSessionsResponse [Session] dssrsSessions = lens _dssrsSessions (\ s a -> s{_dssrsSessions = a}) . _Default . _Coerce; @@ -182,4 +196,4 @@ dssrsResponseStatus :: Lens' DescribeSessionsResponse Int dssrsResponseStatus = lens _dssrsResponseStatus (\ s a -> s{_dssrsResponseStatus = a}); -instance NFData DescribeSessionsResponse+instance NFData DescribeSessionsResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.AppStream.DescribeStacks--- 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) ----- If stack names are not provided, this operation describes the specified stacks; otherwise, all stacks in the account are described. Pass the @nextToken@ value in a subsequent call to this operation to retrieve the next set of items.+-- Describes the specified stacks or all stacks in the account. -- -- module Network.AWS.AppStream.DescribeStacks@@ -39,39 +39,37 @@     , desrsResponseStatus     ) where -import           Network.AWS.AppStream.Types-import           Network.AWS.AppStream.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.AppStream.Types+import Network.AWS.AppStream.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'describeStacks' smart constructor. data DescribeStacks = DescribeStacks'-    { _dNextToken :: !(Maybe Text)-    , _dNames     :: !(Maybe [Text])-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dNextToken :: !(Maybe Text)+  , _dNames     :: !(Maybe [Text])+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeStacks' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'dNextToken' - The pagination token to use to retrieve the next page of results for this operation. If this value is null, it retrieves the first page. ----- * 'dNames' - The stack names to describe. Use null to describe all the stacks for the AWS account.+-- * 'dNames' - The names of the stacks to describe. describeStacks     :: DescribeStacks-describeStacks =-    DescribeStacks'-    { _dNextToken = Nothing-    , _dNames = Nothing-    }+describeStacks = DescribeStacks' {_dNextToken = Nothing, _dNames = Nothing} + -- | The pagination token to use to retrieve the next page of results for this operation. If this value is null, it retrieves the first page. dNextToken :: Lens' DescribeStacks (Maybe Text) dNextToken = lens _dNextToken (\ s a -> s{_dNextToken = a}); --- | The stack names to describe. Use null to describe all the stacks for the AWS account.+-- | The names of the stacks to describe. dNames :: Lens' DescribeStacks [Text] dNames = lens _dNames (\ s a -> s{_dNames = a}) . _Default . _Coerce; @@ -85,9 +83,9 @@                    (x .?> "NextToken") <*> (x .?> "Stacks" .!@ mempty)                      <*> (pure (fromEnum s))) -instance Hashable DescribeStacks+instance Hashable DescribeStacks where -instance NFData DescribeStacks+instance NFData DescribeStacks where  instance ToHeaders DescribeStacks where         toHeaders@@ -114,35 +112,37 @@  -- | /See:/ 'describeStacksResponse' smart constructor. data DescribeStacksResponse = DescribeStacksResponse'-    { _desrsNextToken      :: !(Maybe Text)-    , _desrsStacks         :: !(Maybe [Stack])-    , _desrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _desrsNextToken      :: !(Maybe Text)+  , _desrsStacks         :: !(Maybe [Stack])+  , _desrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeStacksResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'desrsNextToken' - The pagination token to use to retrieve the next page of results for this operation. If there are no more pages, this value is null. ----- * 'desrsStacks' - The list of stack details.+-- * 'desrsStacks' - Information about the stacks. -- -- * 'desrsResponseStatus' - -- | The response status code. describeStacksResponse     :: Int -- ^ 'desrsResponseStatus'     -> DescribeStacksResponse describeStacksResponse pResponseStatus_ =-    DescribeStacksResponse'-    { _desrsNextToken = Nothing-    , _desrsStacks = Nothing-    , _desrsResponseStatus = pResponseStatus_-    }+  DescribeStacksResponse'+  { _desrsNextToken = Nothing+  , _desrsStacks = Nothing+  , _desrsResponseStatus = pResponseStatus_+  } + -- | The pagination token to use to retrieve the next page of results for this operation. If there are no more pages, this value is null. desrsNextToken :: Lens' DescribeStacksResponse (Maybe Text) desrsNextToken = lens _desrsNextToken (\ s a -> s{_desrsNextToken = a}); --- | The list of stack details.+-- | Information about the stacks. desrsStacks :: Lens' DescribeStacksResponse [Stack] desrsStacks = lens _desrsStacks (\ s a -> s{_desrsStacks = a}) . _Default . _Coerce; @@ -150,4 +150,4 @@ desrsResponseStatus :: Lens' DescribeStacksResponse Int desrsResponseStatus = lens _desrsResponseStatus (\ s a -> s{_desrsResponseStatus = a}); -instance NFData DescribeStacksResponse+instance NFData DescribeStacksResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.AppStream.DisassociateFleet--- 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) ----- Disassociates a fleet from a stack.+-- Disassociates the specified fleet from the specified stack. -- -- module Network.AWS.AppStream.DisassociateFleet@@ -37,41 +37,40 @@     , drsResponseStatus     ) where -import           Network.AWS.AppStream.Types-import           Network.AWS.AppStream.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.AppStream.Types+import Network.AWS.AppStream.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'disassociateFleet' smart constructor. data DisassociateFleet = DisassociateFleet'-    { _dfFleetName :: !Text-    , _dfStackName :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dfFleetName :: !Text+  , _dfStackName :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DisassociateFleet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dfFleetName' - The name of the fleet to disassociate.+-- * 'dfFleetName' - The name of the fleet. ----- * 'dfStackName' - The name of the stack with which the fleet is associated.+-- * 'dfStackName' - The name of the stack. disassociateFleet     :: Text -- ^ 'dfFleetName'     -> Text -- ^ 'dfStackName'     -> DisassociateFleet disassociateFleet pFleetName_ pStackName_ =-    DisassociateFleet'-    { _dfFleetName = pFleetName_-    , _dfStackName = pStackName_-    }+  DisassociateFleet' {_dfFleetName = pFleetName_, _dfStackName = pStackName_} --- | The name of the fleet to disassociate.++-- | The name of the fleet. dfFleetName :: Lens' DisassociateFleet Text dfFleetName = lens _dfFleetName (\ s a -> s{_dfFleetName = a}); --- | The name of the stack with which the fleet is associated.+-- | The name of the stack. dfStackName :: Lens' DisassociateFleet Text dfStackName = lens _dfStackName (\ s a -> s{_dfStackName = a}); @@ -83,9 +82,9 @@               (\ s h x ->                  DisassociateFleetResponse' <$> (pure (fromEnum s))) -instance Hashable DisassociateFleet+instance Hashable DisassociateFleet where -instance NFData DisassociateFleet+instance NFData DisassociateFleet where  instance ToHeaders DisassociateFleet where         toHeaders@@ -112,9 +111,10 @@  -- | /See:/ 'disassociateFleetResponse' smart constructor. newtype DisassociateFleetResponse = DisassociateFleetResponse'-    { _drsResponseStatus :: Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _drsResponseStatus :: Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DisassociateFleetResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -124,12 +124,11 @@     :: Int -- ^ 'drsResponseStatus'     -> DisassociateFleetResponse disassociateFleetResponse pResponseStatus_ =-    DisassociateFleetResponse'-    { _drsResponseStatus = pResponseStatus_-    }+  DisassociateFleetResponse' {_drsResponseStatus = pResponseStatus_} + -- | -- | The response status code. drsResponseStatus :: Lens' DisassociateFleetResponse Int drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a}); -instance NFData DisassociateFleetResponse+instance NFData DisassociateFleetResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.AppStream.ExpireSession--- 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) ----- This operation immediately stops a streaming session.+-- Stops the specified streaming session. -- -- module Network.AWS.AppStream.ExpireSession@@ -36,32 +36,31 @@     , esrsResponseStatus     ) where -import           Network.AWS.AppStream.Types-import           Network.AWS.AppStream.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.AppStream.Types+import Network.AWS.AppStream.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'expireSession' smart constructor. newtype ExpireSession = ExpireSession'-    { _esSessionId :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _esSessionId :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ExpireSession' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'esSessionId' - The unique identifier of the streaming session to be stopped.+-- * 'esSessionId' - The ID of the streaming session. expireSession     :: Text -- ^ 'esSessionId'     -> ExpireSession-expireSession pSessionId_ =-    ExpireSession'-    { _esSessionId = pSessionId_-    }+expireSession pSessionId_ = ExpireSession' {_esSessionId = pSessionId_} --- | The unique identifier of the streaming session to be stopped.++-- | The ID of the streaming session. esSessionId :: Lens' ExpireSession Text esSessionId = lens _esSessionId (\ s a -> s{_esSessionId = a}); @@ -73,9 +72,9 @@               (\ s h x ->                  ExpireSessionResponse' <$> (pure (fromEnum s))) -instance Hashable ExpireSession+instance Hashable ExpireSession where -instance NFData ExpireSession+instance NFData ExpireSession where  instance ToHeaders ExpireSession where         toHeaders@@ -100,9 +99,10 @@  -- | /See:/ 'expireSessionResponse' smart constructor. newtype ExpireSessionResponse = ExpireSessionResponse'-    { _esrsResponseStatus :: Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _esrsResponseStatus :: Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ExpireSessionResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -112,12 +112,11 @@     :: Int -- ^ 'esrsResponseStatus'     -> ExpireSessionResponse expireSessionResponse pResponseStatus_ =-    ExpireSessionResponse'-    { _esrsResponseStatus = pResponseStatus_-    }+  ExpireSessionResponse' {_esrsResponseStatus = pResponseStatus_} + -- | -- | The response status code. esrsResponseStatus :: Lens' ExpireSessionResponse Int esrsResponseStatus = lens _esrsResponseStatus (\ s a -> s{_esrsResponseStatus = a}); -instance NFData ExpireSessionResponse+instance NFData ExpireSessionResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.AppStream.ListAssociatedFleets--- 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) ----- Lists all fleets associated with the stack.+-- Lists the fleets associated with the specified stack. -- -- module Network.AWS.AppStream.ListAssociatedFleets@@ -39,40 +39,39 @@     , lafrsResponseStatus     ) where -import           Network.AWS.AppStream.Types-import           Network.AWS.AppStream.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.AppStream.Types+import Network.AWS.AppStream.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'listAssociatedFleets' smart constructor. data ListAssociatedFleets = ListAssociatedFleets'-    { _lafNextToken :: !(Maybe Text)-    , _lafStackName :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lafNextToken :: !(Maybe Text)+  , _lafStackName :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListAssociatedFleets' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'lafNextToken' - The pagination token to use to retrieve the next page of results for this operation. If this value is null, it retrieves the first page. ----- * 'lafStackName' - The name of the stack whose associated fleets are listed.+-- * 'lafStackName' - The name of the stack. listAssociatedFleets     :: Text -- ^ 'lafStackName'     -> ListAssociatedFleets listAssociatedFleets pStackName_ =-    ListAssociatedFleets'-    { _lafNextToken = Nothing-    , _lafStackName = pStackName_-    }+  ListAssociatedFleets' {_lafNextToken = Nothing, _lafStackName = pStackName_} + -- | The pagination token to use to retrieve the next page of results for this operation. If this value is null, it retrieves the first page. lafNextToken :: Lens' ListAssociatedFleets (Maybe Text) lafNextToken = lens _lafNextToken (\ s a -> s{_lafNextToken = a}); --- | The name of the stack whose associated fleets are listed.+-- | The name of the stack. lafStackName :: Lens' ListAssociatedFleets Text lafStackName = lens _lafStackName (\ s a -> s{_lafStackName = a}); @@ -87,9 +86,9 @@                    (x .?> "NextToken") <*> (x .?> "Names" .!@ mempty)                      <*> (pure (fromEnum s))) -instance Hashable ListAssociatedFleets+instance Hashable ListAssociatedFleets where -instance NFData ListAssociatedFleets+instance NFData ListAssociatedFleets where  instance ToHeaders ListAssociatedFleets where         toHeaders@@ -114,41 +113,39 @@ instance ToQuery ListAssociatedFleets where         toQuery = const mempty --- | The response from a successful operation.------------ /See:/ 'listAssociatedFleetsResponse' smart constructor.+-- | /See:/ 'listAssociatedFleetsResponse' smart constructor. data ListAssociatedFleetsResponse = ListAssociatedFleetsResponse'-    { _lafrsNextToken      :: !(Maybe Text)-    , _lafrsNames          :: !(Maybe [Text])-    , _lafrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lafrsNextToken      :: !(Maybe Text)+  , _lafrsNames          :: !(Maybe [Text])+  , _lafrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListAssociatedFleetsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'lafrsNextToken' - The pagination token to use to retrieve the next page of results for this operation. If there are no more pages, this value is null. ----- * 'lafrsNames' - The names of associated fleets.+-- * 'lafrsNames' - The names of the fleets. -- -- * 'lafrsResponseStatus' - -- | The response status code. listAssociatedFleetsResponse     :: Int -- ^ 'lafrsResponseStatus'     -> ListAssociatedFleetsResponse listAssociatedFleetsResponse pResponseStatus_ =-    ListAssociatedFleetsResponse'-    { _lafrsNextToken = Nothing-    , _lafrsNames = Nothing-    , _lafrsResponseStatus = pResponseStatus_-    }+  ListAssociatedFleetsResponse'+  { _lafrsNextToken = Nothing+  , _lafrsNames = Nothing+  , _lafrsResponseStatus = pResponseStatus_+  } + -- | The pagination token to use to retrieve the next page of results for this operation. If there are no more pages, this value is null. lafrsNextToken :: Lens' ListAssociatedFleetsResponse (Maybe Text) lafrsNextToken = lens _lafrsNextToken (\ s a -> s{_lafrsNextToken = a}); --- | The names of associated fleets.+-- | The names of the fleets. lafrsNames :: Lens' ListAssociatedFleetsResponse [Text] lafrsNames = lens _lafrsNames (\ s a -> s{_lafrsNames = a}) . _Default . _Coerce; @@ -156,4 +153,4 @@ lafrsResponseStatus :: Lens' ListAssociatedFleetsResponse Int lafrsResponseStatus = lens _lafrsResponseStatus (\ s a -> s{_lafrsResponseStatus = a}); -instance NFData ListAssociatedFleetsResponse+instance NFData ListAssociatedFleetsResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.AppStream.ListAssociatedStacks--- 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) ----- Lists all stacks to which the specified fleet is associated.+-- Lists the stacks associated with the specified fleet. -- -- module Network.AWS.AppStream.ListAssociatedStacks@@ -39,40 +39,39 @@     , lasrsResponseStatus     ) where -import           Network.AWS.AppStream.Types-import           Network.AWS.AppStream.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.AppStream.Types+import Network.AWS.AppStream.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'listAssociatedStacks' smart constructor. data ListAssociatedStacks = ListAssociatedStacks'-    { _lasNextToken :: !(Maybe Text)-    , _lasFleetName :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lasNextToken :: !(Maybe Text)+  , _lasFleetName :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListAssociatedStacks' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'lasNextToken' - The pagination token to use to retrieve the next page of results for this operation. If this value is null, it retrieves the first page. ----- * 'lasFleetName' - The name of the fleet whose associated stacks are listed.+-- * 'lasFleetName' - The name of the fleet. listAssociatedStacks     :: Text -- ^ 'lasFleetName'     -> ListAssociatedStacks listAssociatedStacks pFleetName_ =-    ListAssociatedStacks'-    { _lasNextToken = Nothing-    , _lasFleetName = pFleetName_-    }+  ListAssociatedStacks' {_lasNextToken = Nothing, _lasFleetName = pFleetName_} + -- | The pagination token to use to retrieve the next page of results for this operation. If this value is null, it retrieves the first page. lasNextToken :: Lens' ListAssociatedStacks (Maybe Text) lasNextToken = lens _lasNextToken (\ s a -> s{_lasNextToken = a}); --- | The name of the fleet whose associated stacks are listed.+-- | The name of the fleet. lasFleetName :: Lens' ListAssociatedStacks Text lasFleetName = lens _lasFleetName (\ s a -> s{_lasFleetName = a}); @@ -87,9 +86,9 @@                    (x .?> "NextToken") <*> (x .?> "Names" .!@ mempty)                      <*> (pure (fromEnum s))) -instance Hashable ListAssociatedStacks+instance Hashable ListAssociatedStacks where -instance NFData ListAssociatedStacks+instance NFData ListAssociatedStacks where  instance ToHeaders ListAssociatedStacks where         toHeaders@@ -114,41 +113,39 @@ instance ToQuery ListAssociatedStacks where         toQuery = const mempty --- | The response from a successful operation.------------ /See:/ 'listAssociatedStacksResponse' smart constructor.+-- | /See:/ 'listAssociatedStacksResponse' smart constructor. data ListAssociatedStacksResponse = ListAssociatedStacksResponse'-    { _lasrsNextToken      :: !(Maybe Text)-    , _lasrsNames          :: !(Maybe [Text])-    , _lasrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lasrsNextToken      :: !(Maybe Text)+  , _lasrsNames          :: !(Maybe [Text])+  , _lasrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListAssociatedStacksResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'lasrsNextToken' - The pagination token to use to retrieve the next page of results for this operation. If there are no more pages, this value is null. ----- * 'lasrsNames' - The names of associated stacks.+-- * 'lasrsNames' - The names of the stacks. -- -- * 'lasrsResponseStatus' - -- | The response status code. listAssociatedStacksResponse     :: Int -- ^ 'lasrsResponseStatus'     -> ListAssociatedStacksResponse listAssociatedStacksResponse pResponseStatus_ =-    ListAssociatedStacksResponse'-    { _lasrsNextToken = Nothing-    , _lasrsNames = Nothing-    , _lasrsResponseStatus = pResponseStatus_-    }+  ListAssociatedStacksResponse'+  { _lasrsNextToken = Nothing+  , _lasrsNames = Nothing+  , _lasrsResponseStatus = pResponseStatus_+  } + -- | The pagination token to use to retrieve the next page of results for this operation. If there are no more pages, this value is null. lasrsNextToken :: Lens' ListAssociatedStacksResponse (Maybe Text) lasrsNextToken = lens _lasrsNextToken (\ s a -> s{_lasrsNextToken = a}); --- | The names of associated stacks.+-- | The names of the stacks. lasrsNames :: Lens' ListAssociatedStacksResponse [Text] lasrsNames = lens _lasrsNames (\ s a -> s{_lasrsNames = a}) . _Default . _Coerce; @@ -156,4 +153,4 @@ lasrsResponseStatus :: Lens' ListAssociatedStacksResponse Int lasrsResponseStatus = lens _lasrsResponseStatus (\ s a -> s{_lasrsResponseStatus = a}); -instance NFData ListAssociatedStacksResponse+instance NFData ListAssociatedStacksResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.AppStream.StartFleet--- 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) ----- Starts a fleet.+-- Starts the specified fleet. -- -- module Network.AWS.AppStream.StartFleet@@ -36,32 +36,31 @@     , sfrsResponseStatus     ) where -import           Network.AWS.AppStream.Types-import           Network.AWS.AppStream.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.AppStream.Types+import Network.AWS.AppStream.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'startFleet' smart constructor. newtype StartFleet = StartFleet'-    { _staName :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _staName :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'StartFleet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'staName' - The name of the fleet to start.+-- * 'staName' - The name of the fleet. startFleet     :: Text -- ^ 'staName'     -> StartFleet-startFleet pName_ =-    StartFleet'-    { _staName = pName_-    }+startFleet pName_ = StartFleet' {_staName = pName_} --- | The name of the fleet to start.++-- | The name of the fleet. staName :: Lens' StartFleet Text staName = lens _staName (\ s a -> s{_staName = a}); @@ -73,9 +72,9 @@               (\ s h x ->                  StartFleetResponse' <$> (pure (fromEnum s))) -instance Hashable StartFleet+instance Hashable StartFleet where -instance NFData StartFleet+instance NFData StartFleet where  instance ToHeaders StartFleet where         toHeaders@@ -98,9 +97,10 @@  -- | /See:/ 'startFleetResponse' smart constructor. newtype StartFleetResponse = StartFleetResponse'-    { _sfrsResponseStatus :: Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _sfrsResponseStatus :: Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'StartFleetResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -110,12 +110,11 @@     :: Int -- ^ 'sfrsResponseStatus'     -> StartFleetResponse startFleetResponse pResponseStatus_ =-    StartFleetResponse'-    { _sfrsResponseStatus = pResponseStatus_-    }+  StartFleetResponse' {_sfrsResponseStatus = pResponseStatus_} + -- | -- | The response status code. sfrsResponseStatus :: Lens' StartFleetResponse Int sfrsResponseStatus = lens _sfrsResponseStatus (\ s a -> s{_sfrsResponseStatus = a}); -instance NFData StartFleetResponse+instance NFData StartFleetResponse where

@@ -0,0 +1,129 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.AppStream.StartImageBuilder+-- 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)+--+-- Undocumented operation.+module Network.AWS.AppStream.StartImageBuilder+    (+    -- * Creating a Request+      startImageBuilder+    , StartImageBuilder+    -- * Request Lenses+    , sibName++    -- * Destructuring the Response+    , startImageBuilderResponse+    , StartImageBuilderResponse+    -- * Response Lenses+    , srsImageBuilder+    , srsResponseStatus+    ) where++import Network.AWS.AppStream.Types+import Network.AWS.AppStream.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'startImageBuilder' smart constructor.+newtype StartImageBuilder = StartImageBuilder'+  { _sibName :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'StartImageBuilder' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'sibName' - Undocumented member.+startImageBuilder+    :: Text -- ^ 'sibName'+    -> StartImageBuilder+startImageBuilder pName_ = StartImageBuilder' {_sibName = pName_}+++-- | Undocumented member.+sibName :: Lens' StartImageBuilder Text+sibName = lens _sibName (\ s a -> s{_sibName = a});++instance AWSRequest StartImageBuilder where+        type Rs StartImageBuilder = StartImageBuilderResponse+        request = postJSON appStream+        response+          = receiveJSON+              (\ s h x ->+                 StartImageBuilderResponse' <$>+                   (x .?> "ImageBuilder") <*> (pure (fromEnum s)))++instance Hashable StartImageBuilder where++instance NFData StartImageBuilder where++instance ToHeaders StartImageBuilder where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("PhotonAdminProxyService.StartImageBuilder" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON StartImageBuilder where+        toJSON StartImageBuilder'{..}+          = object (catMaybes [Just ("Name" .= _sibName)])++instance ToPath StartImageBuilder where+        toPath = const "/"++instance ToQuery StartImageBuilder where+        toQuery = const mempty++-- | /See:/ 'startImageBuilderResponse' smart constructor.+data StartImageBuilderResponse = StartImageBuilderResponse'+  { _srsImageBuilder   :: !(Maybe ImageBuilder)+  , _srsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'StartImageBuilderResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'srsImageBuilder' - Undocumented member.+--+-- * 'srsResponseStatus' - -- | The response status code.+startImageBuilderResponse+    :: Int -- ^ 'srsResponseStatus'+    -> StartImageBuilderResponse+startImageBuilderResponse pResponseStatus_ =+  StartImageBuilderResponse'+  {_srsImageBuilder = Nothing, _srsResponseStatus = pResponseStatus_}+++-- | Undocumented member.+srsImageBuilder :: Lens' StartImageBuilderResponse (Maybe ImageBuilder)+srsImageBuilder = lens _srsImageBuilder (\ s a -> s{_srsImageBuilder = a});++-- | -- | The response status code.+srsResponseStatus :: Lens' StartImageBuilderResponse Int+srsResponseStatus = lens _srsResponseStatus (\ s a -> s{_srsResponseStatus = a});++instance NFData StartImageBuilderResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.AppStream.StopFleet--- 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) ----- Stops a fleet.+-- Stops the specified fleet. -- -- module Network.AWS.AppStream.StopFleet@@ -33,35 +33,34 @@     , stopFleetResponse     , StopFleetResponse     -- * Response Lenses-    , srsResponseStatus+    , storsResponseStatus     ) where -import           Network.AWS.AppStream.Types-import           Network.AWS.AppStream.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.AppStream.Types+import Network.AWS.AppStream.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'stopFleet' smart constructor. newtype StopFleet = StopFleet'-    { _sfName :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _sfName :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'StopFleet' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'sfName' - The name of the fleet to stop.+-- * 'sfName' - The name of the fleet. stopFleet     :: Text -- ^ 'sfName'     -> StopFleet-stopFleet pName_ =-    StopFleet'-    { _sfName = pName_-    }+stopFleet pName_ = StopFleet' {_sfName = pName_} --- | The name of the fleet to stop.++-- | The name of the fleet. sfName :: Lens' StopFleet Text sfName = lens _sfName (\ s a -> s{_sfName = a}); @@ -73,9 +72,9 @@               (\ s h x ->                  StopFleetResponse' <$> (pure (fromEnum s))) -instance Hashable StopFleet+instance Hashable StopFleet where -instance NFData StopFleet+instance NFData StopFleet where  instance ToHeaders StopFleet where         toHeaders@@ -98,24 +97,24 @@  -- | /See:/ 'stopFleetResponse' smart constructor. newtype StopFleetResponse = StopFleetResponse'-    { _srsResponseStatus :: Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _storsResponseStatus :: Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'StopFleetResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'srsResponseStatus' - -- | The response status code.+-- * 'storsResponseStatus' - -- | The response status code. stopFleetResponse-    :: Int -- ^ 'srsResponseStatus'+    :: Int -- ^ 'storsResponseStatus'     -> StopFleetResponse stopFleetResponse pResponseStatus_ =-    StopFleetResponse'-    { _srsResponseStatus = pResponseStatus_-    }+  StopFleetResponse' {_storsResponseStatus = pResponseStatus_} + -- | -- | The response status code.-srsResponseStatus :: Lens' StopFleetResponse Int-srsResponseStatus = lens _srsResponseStatus (\ s a -> s{_srsResponseStatus = a});+storsResponseStatus :: Lens' StopFleetResponse Int+storsResponseStatus = lens _storsResponseStatus (\ s a -> s{_storsResponseStatus = a}); -instance NFData StopFleetResponse+instance NFData StopFleetResponse where

@@ -0,0 +1,129 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.AppStream.StopImageBuilder+-- 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)+--+-- Undocumented operation.+module Network.AWS.AppStream.StopImageBuilder+    (+    -- * Creating a Request+      stopImageBuilder+    , StopImageBuilder+    -- * Request Lenses+    , stoName++    -- * Destructuring the Response+    , stopImageBuilderResponse+    , StopImageBuilderResponse+    -- * Response Lenses+    , sibrsImageBuilder+    , sibrsResponseStatus+    ) where++import Network.AWS.AppStream.Types+import Network.AWS.AppStream.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'stopImageBuilder' smart constructor.+newtype StopImageBuilder = StopImageBuilder'+  { _stoName :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'StopImageBuilder' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'stoName' - Undocumented member.+stopImageBuilder+    :: Text -- ^ 'stoName'+    -> StopImageBuilder+stopImageBuilder pName_ = StopImageBuilder' {_stoName = pName_}+++-- | Undocumented member.+stoName :: Lens' StopImageBuilder Text+stoName = lens _stoName (\ s a -> s{_stoName = a});++instance AWSRequest StopImageBuilder where+        type Rs StopImageBuilder = StopImageBuilderResponse+        request = postJSON appStream+        response+          = receiveJSON+              (\ s h x ->+                 StopImageBuilderResponse' <$>+                   (x .?> "ImageBuilder") <*> (pure (fromEnum s)))++instance Hashable StopImageBuilder where++instance NFData StopImageBuilder where++instance ToHeaders StopImageBuilder where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("PhotonAdminProxyService.StopImageBuilder" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON StopImageBuilder where+        toJSON StopImageBuilder'{..}+          = object (catMaybes [Just ("Name" .= _stoName)])++instance ToPath StopImageBuilder where+        toPath = const "/"++instance ToQuery StopImageBuilder where+        toQuery = const mempty++-- | /See:/ 'stopImageBuilderResponse' smart constructor.+data StopImageBuilderResponse = StopImageBuilderResponse'+  { _sibrsImageBuilder   :: !(Maybe ImageBuilder)+  , _sibrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'StopImageBuilderResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'sibrsImageBuilder' - Undocumented member.+--+-- * 'sibrsResponseStatus' - -- | The response status code.+stopImageBuilderResponse+    :: Int -- ^ 'sibrsResponseStatus'+    -> StopImageBuilderResponse+stopImageBuilderResponse pResponseStatus_ =+  StopImageBuilderResponse'+  {_sibrsImageBuilder = Nothing, _sibrsResponseStatus = pResponseStatus_}+++-- | Undocumented member.+sibrsImageBuilder :: Lens' StopImageBuilderResponse (Maybe ImageBuilder)+sibrsImageBuilder = lens _sibrsImageBuilder (\ s a -> s{_sibrsImageBuilder = a});++-- | -- | The response status code.+sibrsResponseStatus :: Lens' StopImageBuilderResponse Int+sibrsResponseStatus = lens _sibrsResponseStatus (\ s a -> s{_sibrsResponseStatus = a});++instance NFData StopImageBuilderResponse where

@@ -4,9 +4,9 @@  -- | -- Module      : Network.AWS.AppStream.Types--- 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) --@@ -18,18 +18,36 @@     -- * Errors     , _InvalidRoleException     , _ResourceAlreadyExistsException+    , _IncompatibleImageException+    , _ConcurrentModificationException     , _OperationNotPermittedException     , _ResourceNotFoundException+    , _InvalidParameterCombinationException     , _ResourceNotAvailableException     , _LimitExceededException     , _ResourceInUseException +    -- * AuthenticationType+    , AuthenticationType (..)++    -- * FleetAttribute+    , FleetAttribute (..)+     -- * FleetErrorCode     , FleetErrorCode (..)      -- * FleetState     , FleetState (..) +    -- * FleetType+    , FleetType (..)++    -- * ImageBuilderState+    , ImageBuilderState (..)++    -- * ImageBuilderStateChangeReasonCode+    , ImageBuilderStateChangeReasonCode (..)+     -- * ImageState     , ImageState (..) @@ -42,6 +60,12 @@     -- * SessionState     , SessionState (..) +    -- * StackErrorCode+    , StackErrorCode (..)++    -- * StorageConnectorType+    , StorageConnectorType (..)+     -- * VisibilityType     , VisibilityType (..) @@ -69,15 +93,32 @@     , ccsAvailable     , ccsDesired +    -- * DirectoryConfig+    , DirectoryConfig+    , directoryConfig+    , dcCreatedTime+    , dcServiceAccountCredentials+    , dcOrganizationalUnitDistinguishedNames+    , dcDirectoryName++    -- * DomainJoinInfo+    , DomainJoinInfo+    , domainJoinInfo+    , djiOrganizationalUnitDistinguishedName+    , djiDirectoryName+     -- * Fleet     , Fleet     , fleet+    , fDomainJoinInfo     , fDisconnectTimeoutInSeconds     , fMaxUserDurationInSeconds     , fCreatedTime+    , fFleetType     , fVPCConfig     , fFleetErrors     , fDisplayName+    , fEnableDefaultInternetAccess     , fDescription     , fARN     , fName@@ -97,9 +138,11 @@     , image     , iState     , iPlatform+    , iPublicBaseImageReleasedDate     , iStateChangeReason     , iARN     , iCreatedTime+    , iImageBuilderSupported     , iVisibility     , iBaseImageARN     , iDisplayName@@ -107,15 +150,53 @@     , iApplications     , iName +    -- * ImageBuilder+    , ImageBuilder+    , imageBuilder+    , ibDomainJoinInfo+    , ibState+    , ibPlatform+    , ibStateChangeReason+    , ibARN+    , ibCreatedTime+    , ibImageBuilderErrors+    , ibInstanceType+    , ibVPCConfig+    , ibImageARN+    , ibDisplayName+    , ibEnableDefaultInternetAccess+    , ibDescription+    , ibName++    -- * ImageBuilderStateChangeReason+    , ImageBuilderStateChangeReason+    , imageBuilderStateChangeReason+    , ibscrCode+    , ibscrMessage+     -- * ImageStateChangeReason     , ImageStateChangeReason     , imageStateChangeReason     , iscrCode     , iscrMessage +    -- * ResourceError+    , ResourceError+    , resourceError+    , reErrorCode+    , reErrorMessage+    , reErrorTimestamp++    -- * ServiceAccountCredentials+    , ServiceAccountCredentials+    , serviceAccountCredentials+    , sacAccountName+    , sacAccountPassword+     -- * Session     , Session     , session+    , sAuthenticationType     , sId     , sUserId     , sStackName@@ -127,48 +208,65 @@     , stack     , sARN     , sCreatedTime+    , sStorageConnectors     , sDisplayName+    , sStackErrors     , sDescription     , sName +    -- * StackError+    , StackError+    , stackError+    , seErrorCode+    , seErrorMessage++    -- * StorageConnector+    , StorageConnector+    , storageConnector+    , scResourceIdentifier+    , scConnectorType+     -- * VPCConfig     , VPCConfig     , vpcConfig+    , vcSecurityGroupIds     , vcSubnetIds     ) where -import           Network.AWS.AppStream.Types.Product-import           Network.AWS.AppStream.Types.Sum-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Sign.V4+import Network.AWS.AppStream.Types.Product+import Network.AWS.AppStream.Types.Sum+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Sign.V4  -- | API version @2016-12-01@ of the Amazon AppStream SDK configuration. appStream :: Service appStream =-    Service-    { _svcAbbrev = "AppStream"-    , _svcSigner = v4-    , _svcPrefix = "appstream2"-    , _svcVersion = "2016-12-01"-    , _svcEndpoint = defaultEndpoint appStream-    , _svcTimeout = Just 70-    , _svcCheck = statusSuccess-    , _svcError = parseJSONError "AppStream"-    , _svcRetry = retry-    }+  Service+  { _svcAbbrev = "AppStream"+  , _svcSigner = v4+  , _svcPrefix = "appstream2"+  , _svcVersion = "2016-12-01"+  , _svcEndpoint = defaultEndpoint appStream+  , _svcTimeout = Just 70+  , _svcCheck = statusSuccess+  , _svcError = parseJSONError "AppStream"+  , _svcRetry = retry+  }   where     retry =-        Exponential-        { _retryBase = 5.0e-2-        , _retryGrowth = 2-        , _retryAttempts = 5-        , _retryCheck = check-        }+      Exponential+      { _retryBase = 5.0e-2+      , _retryGrowth = 2+      , _retryAttempts = 5+      , _retryCheck = check+      }     check e+      | has (hasCode "ThrottledException" . hasStatus 400) e =+        Just "throttled_exception"       | has (hasStatus 429) e = Just "too_many_requests"       | has (hasCode "ThrottlingException" . hasStatus 400) e =-          Just "throttling_exception"+        Just "throttling_exception"       | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"       | has (hasStatus 504) e = Just "gateway_timeout"       | has (hasStatus 502) e = Just "bad_gateway"@@ -177,48 +275,80 @@       | has (hasStatus 509) e = Just "limit_exceeded"       | otherwise = Nothing + -- | The specified role is invalid. -- -- _InvalidRoleException :: AsError a => Getting (First ServiceError) a ServiceError-_InvalidRoleException = _ServiceError . hasCode "InvalidRoleException"+_InvalidRoleException = _MatchServiceError appStream "InvalidRoleException" + -- | The specified resource already exists. -- -- _ResourceAlreadyExistsException :: AsError a => Getting (First ServiceError) a ServiceError _ResourceAlreadyExistsException =-    _ServiceError . hasCode "ResourceAlreadyExistsException"+  _MatchServiceError appStream "ResourceAlreadyExistsException" ++-- | The image does not support storage connectors.+--+--+_IncompatibleImageException :: AsError a => Getting (First ServiceError) a ServiceError+_IncompatibleImageException =+  _MatchServiceError appStream "IncompatibleImageException"+++-- | An API error occurred. Wait a few minutes and try again.+--+--+_ConcurrentModificationException :: AsError a => Getting (First ServiceError) a ServiceError+_ConcurrentModificationException =+  _MatchServiceError appStream "ConcurrentModificationException"++ -- | The attempted operation is not permitted. -- -- _OperationNotPermittedException :: AsError a => Getting (First ServiceError) a ServiceError _OperationNotPermittedException =-    _ServiceError . hasCode "OperationNotPermittedException"+  _MatchServiceError appStream "OperationNotPermittedException" + -- | The specified resource was not found. -- -- _ResourceNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError _ResourceNotFoundException =-    _ServiceError . hasCode "ResourceNotFoundException"+  _MatchServiceError appStream "ResourceNotFoundException" ++-- | Indicates an incorrect combination of parameters, or a missing parameter.+--+--+_InvalidParameterCombinationException :: AsError a => Getting (First ServiceError) a ServiceError+_InvalidParameterCombinationException =+  _MatchServiceError appStream "InvalidParameterCombinationException"++ -- | The specified resource exists and is not in use, but isn't available. -- -- _ResourceNotAvailableException :: AsError a => Getting (First ServiceError) a ServiceError _ResourceNotAvailableException =-    _ServiceError . hasCode "ResourceNotAvailableException"+  _MatchServiceError appStream "ResourceNotAvailableException" + -- | The requested limit exceeds the permitted limit for an account. -- -- _LimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError-_LimitExceededException = _ServiceError . hasCode "LimitExceededException"+_LimitExceededException = _MatchServiceError appStream "LimitExceededException" + -- | The specified resource is in use. -- -- _ResourceInUseException :: AsError a => Getting (First ServiceError) a ServiceError-_ResourceInUseException = _ServiceError . hasCode "ResourceInUseException"+_ResourceInUseException = _MatchServiceError appStream "ResourceInUseException"+

@@ -9,754 +9,1359 @@  -- | -- Module      : Network.AWS.AppStream.Types.Product--- Copyright   : (c) 2013-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)----module Network.AWS.AppStream.Types.Product where--import           Network.AWS.AppStream.Types.Sum-import           Network.AWS.Lens-import           Network.AWS.Prelude---- | An entry for a single application in the application catalog.------------ /See:/ 'application' smart constructor.-data Application = Application'-    { _aEnabled          :: !(Maybe Bool)-    , _aLaunchPath       :: !(Maybe Text)-    , _aLaunchParameters :: !(Maybe Text)-    , _aName             :: !(Maybe Text)-    , _aDisplayName      :: !(Maybe Text)-    , _aMetadata         :: !(Maybe (Map Text Text))-    , _aIconURL          :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'Application' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'aEnabled' - An application can be disabled after image creation if there is a problem.------ * 'aLaunchPath' - The path to the application executable in the instance.------ * 'aLaunchParameters' - A list of arguments that are passed to the application at launch.------ * 'aName' - The unique identifier for the application.------ * 'aDisplayName' - The name of the application shown to the end users.------ * 'aMetadata' - Additional attributes that describes the application.------ * 'aIconURL' - The URL for the application icon. This URL may be time-limited.-application-    :: Application-application =-    Application'-    { _aEnabled = Nothing-    , _aLaunchPath = Nothing-    , _aLaunchParameters = Nothing-    , _aName = Nothing-    , _aDisplayName = Nothing-    , _aMetadata = Nothing-    , _aIconURL = Nothing-    }---- | An application can be disabled after image creation if there is a problem.-aEnabled :: Lens' Application (Maybe Bool)-aEnabled = lens _aEnabled (\ s a -> s{_aEnabled = a});---- | The path to the application executable in the instance.-aLaunchPath :: Lens' Application (Maybe Text)-aLaunchPath = lens _aLaunchPath (\ s a -> s{_aLaunchPath = a});---- | A list of arguments that are passed to the application at launch.-aLaunchParameters :: Lens' Application (Maybe Text)-aLaunchParameters = lens _aLaunchParameters (\ s a -> s{_aLaunchParameters = a});---- | The unique identifier for the application.-aName :: Lens' Application (Maybe Text)-aName = lens _aName (\ s a -> s{_aName = a});---- | The name of the application shown to the end users.-aDisplayName :: Lens' Application (Maybe Text)-aDisplayName = lens _aDisplayName (\ s a -> s{_aDisplayName = a});---- | Additional attributes that describes the application.-aMetadata :: Lens' Application (HashMap Text Text)-aMetadata = lens _aMetadata (\ s a -> s{_aMetadata = a}) . _Default . _Map;---- | The URL for the application icon. This URL may be time-limited.-aIconURL :: Lens' Application (Maybe Text)-aIconURL = lens _aIconURL (\ s a -> s{_aIconURL = a});--instance FromJSON Application where-        parseJSON-          = withObject "Application"-              (\ x ->-                 Application' <$>-                   (x .:? "Enabled") <*> (x .:? "LaunchPath") <*>-                     (x .:? "LaunchParameters")-                     <*> (x .:? "Name")-                     <*> (x .:? "DisplayName")-                     <*> (x .:? "Metadata" .!= mempty)-                     <*> (x .:? "IconURL"))--instance Hashable Application--instance NFData Application---- | The capacity configuration for the fleet.------------ /See:/ 'computeCapacity' smart constructor.-newtype ComputeCapacity = ComputeCapacity'-    { _ccDesiredInstances :: Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'ComputeCapacity' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ccDesiredInstances' - The desired number of streaming instances.-computeCapacity-    :: Int -- ^ 'ccDesiredInstances'-    -> ComputeCapacity-computeCapacity pDesiredInstances_ =-    ComputeCapacity'-    { _ccDesiredInstances = pDesiredInstances_-    }---- | The desired number of streaming instances.-ccDesiredInstances :: Lens' ComputeCapacity Int-ccDesiredInstances = lens _ccDesiredInstances (\ s a -> s{_ccDesiredInstances = a});--instance Hashable ComputeCapacity--instance NFData ComputeCapacity--instance ToJSON ComputeCapacity where-        toJSON ComputeCapacity'{..}-          = object-              (catMaybes-                 [Just ("DesiredInstances" .= _ccDesiredInstances)])---- | The capacity information for the fleet.------------ /See:/ 'computeCapacityStatus' smart constructor.-data ComputeCapacityStatus = ComputeCapacityStatus'-    { _ccsInUse     :: !(Maybe Int)-    , _ccsRunning   :: !(Maybe Int)-    , _ccsAvailable :: !(Maybe Int)-    , _ccsDesired   :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'ComputeCapacityStatus' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ccsInUse' - The number of instances that are being used for streaming.------ * 'ccsRunning' - The total number of simultaneous streaming instances that are running.------ * 'ccsAvailable' - The number of currently available instances that can be used to stream sessions.------ * 'ccsDesired' - The desired number of streaming instances.-computeCapacityStatus-    :: Int -- ^ 'ccsDesired'-    -> ComputeCapacityStatus-computeCapacityStatus pDesired_ =-    ComputeCapacityStatus'-    { _ccsInUse = Nothing-    , _ccsRunning = Nothing-    , _ccsAvailable = Nothing-    , _ccsDesired = pDesired_-    }---- | The number of instances that are being used for streaming.-ccsInUse :: Lens' ComputeCapacityStatus (Maybe Int)-ccsInUse = lens _ccsInUse (\ s a -> s{_ccsInUse = a});---- | The total number of simultaneous streaming instances that are running.-ccsRunning :: Lens' ComputeCapacityStatus (Maybe Int)-ccsRunning = lens _ccsRunning (\ s a -> s{_ccsRunning = a});---- | The number of currently available instances that can be used to stream sessions.-ccsAvailable :: Lens' ComputeCapacityStatus (Maybe Int)-ccsAvailable = lens _ccsAvailable (\ s a -> s{_ccsAvailable = a});---- | The desired number of streaming instances.-ccsDesired :: Lens' ComputeCapacityStatus Int-ccsDesired = lens _ccsDesired (\ s a -> s{_ccsDesired = a});--instance FromJSON ComputeCapacityStatus where-        parseJSON-          = withObject "ComputeCapacityStatus"-              (\ x ->-                 ComputeCapacityStatus' <$>-                   (x .:? "InUse") <*> (x .:? "Running") <*>-                     (x .:? "Available")-                     <*> (x .: "Desired"))--instance Hashable ComputeCapacityStatus--instance NFData ComputeCapacityStatus---- | Contains the parameters for a fleet.------------ /See:/ 'fleet' smart constructor.-data Fleet = Fleet'-    { _fDisconnectTimeoutInSeconds :: !(Maybe Int)-    , _fMaxUserDurationInSeconds   :: !(Maybe Int)-    , _fCreatedTime                :: !(Maybe POSIX)-    , _fVPCConfig                  :: !(Maybe VPCConfig)-    , _fFleetErrors                :: !(Maybe [FleetError])-    , _fDisplayName                :: !(Maybe Text)-    , _fDescription                :: !(Maybe Text)-    , _fARN                        :: !Text-    , _fName                       :: !Text-    , _fImageName                  :: !Text-    , _fInstanceType               :: !Text-    , _fComputeCapacityStatus      :: !ComputeCapacityStatus-    , _fState                      :: !FleetState-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'Fleet' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'fDisconnectTimeoutInSeconds' - The time after disconnection when a session is considered to have ended. When a user reconnects after a disconnection, the user is connected to the same session and instance within this time interval.------ * 'fMaxUserDurationInSeconds' - The maximum time during which a streaming session can run.------ * 'fCreatedTime' - The time at which the fleet was created.------ * 'fVPCConfig' - The VPC configuration for the fleet.------ * 'fFleetErrors' - The list of fleet errors is appended to this list.------ * 'fDisplayName' - The name displayed to end users on the AppStream 2.0 portal.------ * 'fDescription' - The description displayed to end users on the AppStream 2.0 portal.------ * 'fARN' - The ARN for the fleet.------ * 'fName' - The name of the fleet.------ * 'fImageName' - The image used by the fleet.------ * 'fInstanceType' - The instance type of compute resources for the fleet. The fleet instances are launched from this instance type.------ * 'fComputeCapacityStatus' - The capacity information for the fleet.------ * 'fState' - The current state for the fleet.-fleet-    :: Text -- ^ 'fARN'-    -> Text -- ^ 'fName'-    -> Text -- ^ 'fImageName'-    -> Text -- ^ 'fInstanceType'-    -> ComputeCapacityStatus -- ^ 'fComputeCapacityStatus'-    -> FleetState -- ^ 'fState'-    -> Fleet-fleet pARN_ pName_ pImageName_ pInstanceType_ pComputeCapacityStatus_ pState_ =-    Fleet'-    { _fDisconnectTimeoutInSeconds = Nothing-    , _fMaxUserDurationInSeconds = Nothing-    , _fCreatedTime = Nothing-    , _fVPCConfig = Nothing-    , _fFleetErrors = Nothing-    , _fDisplayName = Nothing-    , _fDescription = Nothing-    , _fARN = pARN_-    , _fName = pName_-    , _fImageName = pImageName_-    , _fInstanceType = pInstanceType_-    , _fComputeCapacityStatus = pComputeCapacityStatus_-    , _fState = pState_-    }---- | The time after disconnection when a session is considered to have ended. When a user reconnects after a disconnection, the user is connected to the same session and instance within this time interval.-fDisconnectTimeoutInSeconds :: Lens' Fleet (Maybe Int)-fDisconnectTimeoutInSeconds = lens _fDisconnectTimeoutInSeconds (\ s a -> s{_fDisconnectTimeoutInSeconds = a});---- | The maximum time during which a streaming session can run.-fMaxUserDurationInSeconds :: Lens' Fleet (Maybe Int)-fMaxUserDurationInSeconds = lens _fMaxUserDurationInSeconds (\ s a -> s{_fMaxUserDurationInSeconds = a});---- | The time at which the fleet was created.-fCreatedTime :: Lens' Fleet (Maybe UTCTime)-fCreatedTime = lens _fCreatedTime (\ s a -> s{_fCreatedTime = a}) . mapping _Time;---- | The VPC configuration for the fleet.-fVPCConfig :: Lens' Fleet (Maybe VPCConfig)-fVPCConfig = lens _fVPCConfig (\ s a -> s{_fVPCConfig = a});---- | The list of fleet errors is appended to this list.-fFleetErrors :: Lens' Fleet [FleetError]-fFleetErrors = lens _fFleetErrors (\ s a -> s{_fFleetErrors = a}) . _Default . _Coerce;---- | The name displayed to end users on the AppStream 2.0 portal.-fDisplayName :: Lens' Fleet (Maybe Text)-fDisplayName = lens _fDisplayName (\ s a -> s{_fDisplayName = a});---- | The description displayed to end users on the AppStream 2.0 portal.-fDescription :: Lens' Fleet (Maybe Text)-fDescription = lens _fDescription (\ s a -> s{_fDescription = a});---- | The ARN for the fleet.-fARN :: Lens' Fleet Text-fARN = lens _fARN (\ s a -> s{_fARN = a});---- | The name of the fleet.-fName :: Lens' Fleet Text-fName = lens _fName (\ s a -> s{_fName = a});---- | The image used by the fleet.-fImageName :: Lens' Fleet Text-fImageName = lens _fImageName (\ s a -> s{_fImageName = a});---- | The instance type of compute resources for the fleet. The fleet instances are launched from this instance type.-fInstanceType :: Lens' Fleet Text-fInstanceType = lens _fInstanceType (\ s a -> s{_fInstanceType = a});---- | The capacity information for the fleet.-fComputeCapacityStatus :: Lens' Fleet ComputeCapacityStatus-fComputeCapacityStatus = lens _fComputeCapacityStatus (\ s a -> s{_fComputeCapacityStatus = a});---- | The current state for the fleet.-fState :: Lens' Fleet FleetState-fState = lens _fState (\ s a -> s{_fState = a});--instance FromJSON Fleet where-        parseJSON-          = withObject "Fleet"-              (\ x ->-                 Fleet' <$>-                   (x .:? "DisconnectTimeoutInSeconds") <*>-                     (x .:? "MaxUserDurationInSeconds")-                     <*> (x .:? "CreatedTime")-                     <*> (x .:? "VpcConfig")-                     <*> (x .:? "FleetErrors" .!= mempty)-                     <*> (x .:? "DisplayName")-                     <*> (x .:? "Description")-                     <*> (x .: "Arn")-                     <*> (x .: "Name")-                     <*> (x .: "ImageName")-                     <*> (x .: "InstanceType")-                     <*> (x .: "ComputeCapacityStatus")-                     <*> (x .: "State"))--instance Hashable Fleet--instance NFData Fleet---- | The details of the fleet error.------------ /See:/ 'fleetError' smart constructor.-data FleetError = FleetError'-    { _feErrorCode    :: !(Maybe FleetErrorCode)-    , _feErrorMessage :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'FleetError' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'feErrorCode' - The error code for the fleet error.------ * 'feErrorMessage' - The error message generated when the fleet has errors.-fleetError-    :: FleetError-fleetError =-    FleetError'-    { _feErrorCode = Nothing-    , _feErrorMessage = Nothing-    }---- | The error code for the fleet error.-feErrorCode :: Lens' FleetError (Maybe FleetErrorCode)-feErrorCode = lens _feErrorCode (\ s a -> s{_feErrorCode = a});---- | The error message generated when the fleet has errors.-feErrorMessage :: Lens' FleetError (Maybe Text)-feErrorMessage = lens _feErrorMessage (\ s a -> s{_feErrorMessage = a});--instance FromJSON FleetError where-        parseJSON-          = withObject "FleetError"-              (\ x ->-                 FleetError' <$>-                   (x .:? "ErrorCode") <*> (x .:? "ErrorMessage"))--instance Hashable FleetError--instance NFData FleetError---- | New streaming instances are booted from images. The image stores the application catalog and is connected to fleets.------------ /See:/ 'image' smart constructor.-data Image = Image'-    { _iState             :: !(Maybe ImageState)-    , _iPlatform          :: !(Maybe PlatformType)-    , _iStateChangeReason :: !(Maybe ImageStateChangeReason)-    , _iARN               :: !(Maybe Text)-    , _iCreatedTime       :: !(Maybe POSIX)-    , _iVisibility        :: !(Maybe VisibilityType)-    , _iBaseImageARN      :: !(Maybe Text)-    , _iDisplayName       :: !(Maybe Text)-    , _iDescription       :: !(Maybe Text)-    , _iApplications      :: !(Maybe [Application])-    , _iName              :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'Image' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'iState' - The image starts in the __PENDING__ state, and then moves to __AVAILABLE__ if image creation succeeds and __FAILED__ if image creation has failed.------ * 'iPlatform' - The operating system platform of the image.------ * 'iStateChangeReason' - The reason why the last state change occurred.------ * 'iARN' - The ARN for the image.------ * 'iCreatedTime' - The timestamp when the image was created.------ * 'iVisibility' - The visibility of an image to the user; images can be public or private.------ * 'iBaseImageARN' - The source image ARN from which this image was created.------ * 'iDisplayName' - The display name for the image.------ * 'iDescription' - A meaningful description for the image.------ * 'iApplications' - The applications associated with an image.------ * 'iName' - The unique identifier for the image.-image-    :: Text -- ^ 'iName'-    -> Image-image pName_ =-    Image'-    { _iState = Nothing-    , _iPlatform = Nothing-    , _iStateChangeReason = Nothing-    , _iARN = Nothing-    , _iCreatedTime = Nothing-    , _iVisibility = Nothing-    , _iBaseImageARN = Nothing-    , _iDisplayName = Nothing-    , _iDescription = Nothing-    , _iApplications = Nothing-    , _iName = pName_-    }---- | The image starts in the __PENDING__ state, and then moves to __AVAILABLE__ if image creation succeeds and __FAILED__ if image creation has failed.-iState :: Lens' Image (Maybe ImageState)-iState = lens _iState (\ s a -> s{_iState = a});---- | The operating system platform of the image.-iPlatform :: Lens' Image (Maybe PlatformType)-iPlatform = lens _iPlatform (\ s a -> s{_iPlatform = a});---- | The reason why the last state change occurred.-iStateChangeReason :: Lens' Image (Maybe ImageStateChangeReason)-iStateChangeReason = lens _iStateChangeReason (\ s a -> s{_iStateChangeReason = a});---- | The ARN for the image.-iARN :: Lens' Image (Maybe Text)-iARN = lens _iARN (\ s a -> s{_iARN = a});---- | The timestamp when the image was created.-iCreatedTime :: Lens' Image (Maybe UTCTime)-iCreatedTime = lens _iCreatedTime (\ s a -> s{_iCreatedTime = a}) . mapping _Time;---- | The visibility of an image to the user; images can be public or private.-iVisibility :: Lens' Image (Maybe VisibilityType)-iVisibility = lens _iVisibility (\ s a -> s{_iVisibility = a});---- | The source image ARN from which this image was created.-iBaseImageARN :: Lens' Image (Maybe Text)-iBaseImageARN = lens _iBaseImageARN (\ s a -> s{_iBaseImageARN = a});---- | The display name for the image.-iDisplayName :: Lens' Image (Maybe Text)-iDisplayName = lens _iDisplayName (\ s a -> s{_iDisplayName = a});---- | A meaningful description for the image.-iDescription :: Lens' Image (Maybe Text)-iDescription = lens _iDescription (\ s a -> s{_iDescription = a});---- | The applications associated with an image.-iApplications :: Lens' Image [Application]-iApplications = lens _iApplications (\ s a -> s{_iApplications = a}) . _Default . _Coerce;---- | The unique identifier for the image.-iName :: Lens' Image Text-iName = lens _iName (\ s a -> s{_iName = a});--instance FromJSON Image where-        parseJSON-          = withObject "Image"-              (\ x ->-                 Image' <$>-                   (x .:? "State") <*> (x .:? "Platform") <*>-                     (x .:? "StateChangeReason")-                     <*> (x .:? "Arn")-                     <*> (x .:? "CreatedTime")-                     <*> (x .:? "Visibility")-                     <*> (x .:? "BaseImageArn")-                     <*> (x .:? "DisplayName")-                     <*> (x .:? "Description")-                     <*> (x .:? "Applications" .!= mempty)-                     <*> (x .: "Name"))--instance Hashable Image--instance NFData Image---- | The reason why the last state change occurred.------------ /See:/ 'imageStateChangeReason' smart constructor.-data ImageStateChangeReason = ImageStateChangeReason'-    { _iscrCode    :: !(Maybe ImageStateChangeReasonCode)-    , _iscrMessage :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'ImageStateChangeReason' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'iscrCode' - The state change reason code of the image.------ * 'iscrMessage' - The state change reason message to the end user.-imageStateChangeReason-    :: ImageStateChangeReason-imageStateChangeReason =-    ImageStateChangeReason'-    { _iscrCode = Nothing-    , _iscrMessage = Nothing-    }---- | The state change reason code of the image.-iscrCode :: Lens' ImageStateChangeReason (Maybe ImageStateChangeReasonCode)-iscrCode = lens _iscrCode (\ s a -> s{_iscrCode = a});---- | The state change reason message to the end user.-iscrMessage :: Lens' ImageStateChangeReason (Maybe Text)-iscrMessage = lens _iscrMessage (\ s a -> s{_iscrMessage = a});--instance FromJSON ImageStateChangeReason where-        parseJSON-          = withObject "ImageStateChangeReason"-              (\ x ->-                 ImageStateChangeReason' <$>-                   (x .:? "Code") <*> (x .:? "Message"))--instance Hashable ImageStateChangeReason--instance NFData ImageStateChangeReason---- | Contains the parameters for a streaming session.------------ /See:/ 'session' smart constructor.-data Session = Session'-    { _sId        :: !Text-    , _sUserId    :: !Text-    , _sStackName :: !Text-    , _sFleetName :: !Text-    , _sState     :: !SessionState-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'Session' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'sId' - The unique ID for a streaming session.------ * 'sUserId' - The identifier of the user for whom the session was created.------ * 'sStackName' - The name of the stack for which the streaming session was created.------ * 'sFleetName' - The name of the fleet for which the streaming session was created.------ * 'sState' - The current state of the streaming session.-session-    :: Text -- ^ 'sId'-    -> Text -- ^ 'sUserId'-    -> Text -- ^ 'sStackName'-    -> Text -- ^ 'sFleetName'-    -> SessionState -- ^ 'sState'-    -> Session-session pId_ pUserId_ pStackName_ pFleetName_ pState_ =-    Session'-    { _sId = pId_-    , _sUserId = pUserId_-    , _sStackName = pStackName_-    , _sFleetName = pFleetName_-    , _sState = pState_-    }---- | The unique ID for a streaming session.-sId :: Lens' Session Text-sId = lens _sId (\ s a -> s{_sId = a});---- | The identifier of the user for whom the session was created.-sUserId :: Lens' Session Text-sUserId = lens _sUserId (\ s a -> s{_sUserId = a});---- | The name of the stack for which the streaming session was created.-sStackName :: Lens' Session Text-sStackName = lens _sStackName (\ s a -> s{_sStackName = a});---- | The name of the fleet for which the streaming session was created.-sFleetName :: Lens' Session Text-sFleetName = lens _sFleetName (\ s a -> s{_sFleetName = a});---- | The current state of the streaming session.-sState :: Lens' Session SessionState-sState = lens _sState (\ s a -> s{_sState = a});--instance FromJSON Session where-        parseJSON-          = withObject "Session"-              (\ x ->-                 Session' <$>-                   (x .: "Id") <*> (x .: "UserId") <*>-                     (x .: "StackName")-                     <*> (x .: "FleetName")-                     <*> (x .: "State"))--instance Hashable Session--instance NFData Session---- | Details about a stack.------------ /See:/ 'stack' smart constructor.-data Stack = Stack'-    { _sARN         :: !(Maybe Text)-    , _sCreatedTime :: !(Maybe POSIX)-    , _sDisplayName :: !(Maybe Text)-    , _sDescription :: !(Maybe Text)-    , _sName        :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'Stack' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'sARN' - The ARN of the stack.------ * 'sCreatedTime' - The timestamp when the stack was created.------ * 'sDisplayName' - A display name for the stack.------ * 'sDescription' - A meaningful description for the stack.------ * 'sName' - The unique identifier of the stack.-stack-    :: Text -- ^ 'sName'-    -> Stack-stack pName_ =-    Stack'-    { _sARN = Nothing-    , _sCreatedTime = Nothing-    , _sDisplayName = Nothing-    , _sDescription = Nothing-    , _sName = pName_-    }---- | The ARN of the stack.-sARN :: Lens' Stack (Maybe Text)-sARN = lens _sARN (\ s a -> s{_sARN = a});---- | The timestamp when the stack was created.-sCreatedTime :: Lens' Stack (Maybe UTCTime)-sCreatedTime = lens _sCreatedTime (\ s a -> s{_sCreatedTime = a}) . mapping _Time;---- | A display name for the stack.-sDisplayName :: Lens' Stack (Maybe Text)-sDisplayName = lens _sDisplayName (\ s a -> s{_sDisplayName = a});---- | A meaningful description for the stack.-sDescription :: Lens' Stack (Maybe Text)-sDescription = lens _sDescription (\ s a -> s{_sDescription = a});---- | The unique identifier of the stack.-sName :: Lens' Stack Text-sName = lens _sName (\ s a -> s{_sName = a});--instance FromJSON Stack where-        parseJSON-          = withObject "Stack"-              (\ x ->-                 Stack' <$>-                   (x .:? "Arn") <*> (x .:? "CreatedTime") <*>-                     (x .:? "DisplayName")-                     <*> (x .:? "Description")-                     <*> (x .: "Name"))--instance Hashable Stack--instance NFData Stack---- | The VPC in which the fleet is launched.------------ /See:/ 'vpcConfig' smart constructor.-newtype VPCConfig = VPCConfig'-    { _vcSubnetIds :: List1 Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'VPCConfig' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'vcSubnetIds' - The list of subnets to which a network interface is established from the fleet instance.-vpcConfig-    :: NonEmpty Text -- ^ 'vcSubnetIds'-    -> VPCConfig-vpcConfig pSubnetIds_ =-    VPCConfig'-    { _vcSubnetIds = _List1 # pSubnetIds_-    }---- | The list of subnets to which a network interface is established from the fleet instance.-vcSubnetIds :: Lens' VPCConfig (NonEmpty Text)-vcSubnetIds = lens _vcSubnetIds (\ s a -> s{_vcSubnetIds = a}) . _List1;--instance FromJSON VPCConfig where-        parseJSON-          = withObject "VPCConfig"-              (\ x -> VPCConfig' <$> (x .: "SubnetIds"))--instance Hashable VPCConfig--instance NFData VPCConfig--instance ToJSON VPCConfig where-        toJSON VPCConfig'{..}-          = object-              (catMaybes [Just ("SubnetIds" .= _vcSubnetIds)])+-- 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)+--+module Network.AWS.AppStream.Types.Product where++import Network.AWS.AppStream.Types.Sum+import Network.AWS.Lens+import Network.AWS.Prelude++-- | Describes an application in the application catalog.+--+--+--+-- /See:/ 'application' smart constructor.+data Application = Application'+  { _aEnabled          :: !(Maybe Bool)+  , _aLaunchPath       :: !(Maybe Text)+  , _aLaunchParameters :: !(Maybe Text)+  , _aName             :: !(Maybe Text)+  , _aDisplayName      :: !(Maybe Text)+  , _aMetadata         :: !(Maybe (Map Text Text))+  , _aIconURL          :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'Application' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'aEnabled' - If there is a problem, the application can be disabled after image creation.+--+-- * 'aLaunchPath' - The path to the application executable in the instance.+--+-- * 'aLaunchParameters' - The arguments that are passed to the application at launch.+--+-- * 'aName' - The name of the application.+--+-- * 'aDisplayName' - The application name displayed to end users.+--+-- * 'aMetadata' - Additional attributes that describe the application.+--+-- * 'aIconURL' - The URL for the application icon. This URL might be time-limited.+application+    :: Application+application =+  Application'+  { _aEnabled = Nothing+  , _aLaunchPath = Nothing+  , _aLaunchParameters = Nothing+  , _aName = Nothing+  , _aDisplayName = Nothing+  , _aMetadata = Nothing+  , _aIconURL = Nothing+  }+++-- | If there is a problem, the application can be disabled after image creation.+aEnabled :: Lens' Application (Maybe Bool)+aEnabled = lens _aEnabled (\ s a -> s{_aEnabled = a});++-- | The path to the application executable in the instance.+aLaunchPath :: Lens' Application (Maybe Text)+aLaunchPath = lens _aLaunchPath (\ s a -> s{_aLaunchPath = a});++-- | The arguments that are passed to the application at launch.+aLaunchParameters :: Lens' Application (Maybe Text)+aLaunchParameters = lens _aLaunchParameters (\ s a -> s{_aLaunchParameters = a});++-- | The name of the application.+aName :: Lens' Application (Maybe Text)+aName = lens _aName (\ s a -> s{_aName = a});++-- | The application name displayed to end users.+aDisplayName :: Lens' Application (Maybe Text)+aDisplayName = lens _aDisplayName (\ s a -> s{_aDisplayName = a});++-- | Additional attributes that describe the application.+aMetadata :: Lens' Application (HashMap Text Text)+aMetadata = lens _aMetadata (\ s a -> s{_aMetadata = a}) . _Default . _Map;++-- | The URL for the application icon. This URL might be time-limited.+aIconURL :: Lens' Application (Maybe Text)+aIconURL = lens _aIconURL (\ s a -> s{_aIconURL = a});++instance FromJSON Application where+        parseJSON+          = withObject "Application"+              (\ x ->+                 Application' <$>+                   (x .:? "Enabled") <*> (x .:? "LaunchPath") <*>+                     (x .:? "LaunchParameters")+                     <*> (x .:? "Name")+                     <*> (x .:? "DisplayName")+                     <*> (x .:? "Metadata" .!= mempty)+                     <*> (x .:? "IconURL"))++instance Hashable Application where++instance NFData Application where++-- | Describes the capacity for a fleet.+--+--+--+-- /See:/ 'computeCapacity' smart constructor.+newtype ComputeCapacity = ComputeCapacity'+  { _ccDesiredInstances :: Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ComputeCapacity' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ccDesiredInstances' - The desired number of streaming instances.+computeCapacity+    :: Int -- ^ 'ccDesiredInstances'+    -> ComputeCapacity+computeCapacity pDesiredInstances_ =+  ComputeCapacity' {_ccDesiredInstances = pDesiredInstances_}+++-- | The desired number of streaming instances.+ccDesiredInstances :: Lens' ComputeCapacity Int+ccDesiredInstances = lens _ccDesiredInstances (\ s a -> s{_ccDesiredInstances = a});++instance Hashable ComputeCapacity where++instance NFData ComputeCapacity where++instance ToJSON ComputeCapacity where+        toJSON ComputeCapacity'{..}+          = object+              (catMaybes+                 [Just ("DesiredInstances" .= _ccDesiredInstances)])++-- | Describes the capacity status for a fleet.+--+--+--+-- /See:/ 'computeCapacityStatus' smart constructor.+data ComputeCapacityStatus = ComputeCapacityStatus'+  { _ccsInUse     :: !(Maybe Int)+  , _ccsRunning   :: !(Maybe Int)+  , _ccsAvailable :: !(Maybe Int)+  , _ccsDesired   :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ComputeCapacityStatus' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ccsInUse' - The number of instances in use for streaming.+--+-- * 'ccsRunning' - The total number of simultaneous streaming instances that are running.+--+-- * 'ccsAvailable' - The number of currently available instances that can be used to stream sessions.+--+-- * 'ccsDesired' - The desired number of streaming instances.+computeCapacityStatus+    :: Int -- ^ 'ccsDesired'+    -> ComputeCapacityStatus+computeCapacityStatus pDesired_ =+  ComputeCapacityStatus'+  { _ccsInUse = Nothing+  , _ccsRunning = Nothing+  , _ccsAvailable = Nothing+  , _ccsDesired = pDesired_+  }+++-- | The number of instances in use for streaming.+ccsInUse :: Lens' ComputeCapacityStatus (Maybe Int)+ccsInUse = lens _ccsInUse (\ s a -> s{_ccsInUse = a});++-- | The total number of simultaneous streaming instances that are running.+ccsRunning :: Lens' ComputeCapacityStatus (Maybe Int)+ccsRunning = lens _ccsRunning (\ s a -> s{_ccsRunning = a});++-- | The number of currently available instances that can be used to stream sessions.+ccsAvailable :: Lens' ComputeCapacityStatus (Maybe Int)+ccsAvailable = lens _ccsAvailable (\ s a -> s{_ccsAvailable = a});++-- | The desired number of streaming instances.+ccsDesired :: Lens' ComputeCapacityStatus Int+ccsDesired = lens _ccsDesired (\ s a -> s{_ccsDesired = a});++instance FromJSON ComputeCapacityStatus where+        parseJSON+          = withObject "ComputeCapacityStatus"+              (\ x ->+                 ComputeCapacityStatus' <$>+                   (x .:? "InUse") <*> (x .:? "Running") <*>+                     (x .:? "Available")+                     <*> (x .: "Desired"))++instance Hashable ComputeCapacityStatus where++instance NFData ComputeCapacityStatus where++-- | Configuration information for the directory used to join domains.+--+--+--+-- /See:/ 'directoryConfig' smart constructor.+data DirectoryConfig = DirectoryConfig'+  { _dcCreatedTime :: !(Maybe POSIX)+  , _dcServiceAccountCredentials :: !(Maybe ServiceAccountCredentials)+  , _dcOrganizationalUnitDistinguishedNames :: !(Maybe [Text])+  , _dcDirectoryName :: !Text+  } deriving (Eq, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DirectoryConfig' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dcCreatedTime' - The time the directory configuration was created.+--+-- * 'dcServiceAccountCredentials' - The credentials for the service account used by the streaming instance to connect to the directory.+--+-- * 'dcOrganizationalUnitDistinguishedNames' - The distinguished names of the organizational units for computer accounts.+--+-- * 'dcDirectoryName' - The fully qualified name of the directory (for example, corp.example.com).+directoryConfig+    :: Text -- ^ 'dcDirectoryName'+    -> DirectoryConfig+directoryConfig pDirectoryName_ =+  DirectoryConfig'+  { _dcCreatedTime = Nothing+  , _dcServiceAccountCredentials = Nothing+  , _dcOrganizationalUnitDistinguishedNames = Nothing+  , _dcDirectoryName = pDirectoryName_+  }+++-- | The time the directory configuration was created.+dcCreatedTime :: Lens' DirectoryConfig (Maybe UTCTime)+dcCreatedTime = lens _dcCreatedTime (\ s a -> s{_dcCreatedTime = a}) . mapping _Time;++-- | The credentials for the service account used by the streaming instance to connect to the directory.+dcServiceAccountCredentials :: Lens' DirectoryConfig (Maybe ServiceAccountCredentials)+dcServiceAccountCredentials = lens _dcServiceAccountCredentials (\ s a -> s{_dcServiceAccountCredentials = a});++-- | The distinguished names of the organizational units for computer accounts.+dcOrganizationalUnitDistinguishedNames :: Lens' DirectoryConfig [Text]+dcOrganizationalUnitDistinguishedNames = lens _dcOrganizationalUnitDistinguishedNames (\ s a -> s{_dcOrganizationalUnitDistinguishedNames = a}) . _Default . _Coerce;++-- | The fully qualified name of the directory (for example, corp.example.com).+dcDirectoryName :: Lens' DirectoryConfig Text+dcDirectoryName = lens _dcDirectoryName (\ s a -> s{_dcDirectoryName = a});++instance FromJSON DirectoryConfig where+        parseJSON+          = withObject "DirectoryConfig"+              (\ x ->+                 DirectoryConfig' <$>+                   (x .:? "CreatedTime") <*>+                     (x .:? "ServiceAccountCredentials")+                     <*>+                     (x .:? "OrganizationalUnitDistinguishedNames" .!=+                        mempty)+                     <*> (x .: "DirectoryName"))++instance Hashable DirectoryConfig where++instance NFData DirectoryConfig where++-- | Contains the information needed for streaming instances to join a domain.+--+--+--+-- /See:/ 'domainJoinInfo' smart constructor.+data DomainJoinInfo = DomainJoinInfo'+  { _djiOrganizationalUnitDistinguishedName :: !(Maybe Text)+  , _djiDirectoryName                       :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DomainJoinInfo' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'djiOrganizationalUnitDistinguishedName' - The distinguished name of the organizational unit for computer accounts.+--+-- * 'djiDirectoryName' - The fully qualified name of the directory (for example, corp.example.com).+domainJoinInfo+    :: DomainJoinInfo+domainJoinInfo =+  DomainJoinInfo'+  { _djiOrganizationalUnitDistinguishedName = Nothing+  , _djiDirectoryName = Nothing+  }+++-- | The distinguished name of the organizational unit for computer accounts.+djiOrganizationalUnitDistinguishedName :: Lens' DomainJoinInfo (Maybe Text)+djiOrganizationalUnitDistinguishedName = lens _djiOrganizationalUnitDistinguishedName (\ s a -> s{_djiOrganizationalUnitDistinguishedName = a});++-- | The fully qualified name of the directory (for example, corp.example.com).+djiDirectoryName :: Lens' DomainJoinInfo (Maybe Text)+djiDirectoryName = lens _djiDirectoryName (\ s a -> s{_djiDirectoryName = a});++instance FromJSON DomainJoinInfo where+        parseJSON+          = withObject "DomainJoinInfo"+              (\ x ->+                 DomainJoinInfo' <$>+                   (x .:? "OrganizationalUnitDistinguishedName") <*>+                     (x .:? "DirectoryName"))++instance Hashable DomainJoinInfo where++instance NFData DomainJoinInfo where++instance ToJSON DomainJoinInfo where+        toJSON DomainJoinInfo'{..}+          = object+              (catMaybes+                 [("OrganizationalUnitDistinguishedName" .=) <$>+                    _djiOrganizationalUnitDistinguishedName,+                  ("DirectoryName" .=) <$> _djiDirectoryName])++-- | Contains the parameters for a fleet.+--+--+--+-- /See:/ 'fleet' smart constructor.+data Fleet = Fleet'+  { _fDomainJoinInfo              :: !(Maybe DomainJoinInfo)+  , _fDisconnectTimeoutInSeconds  :: !(Maybe Int)+  , _fMaxUserDurationInSeconds    :: !(Maybe Int)+  , _fCreatedTime                 :: !(Maybe POSIX)+  , _fFleetType                   :: !(Maybe FleetType)+  , _fVPCConfig                   :: !(Maybe VPCConfig)+  , _fFleetErrors                 :: !(Maybe [FleetError])+  , _fDisplayName                 :: !(Maybe Text)+  , _fEnableDefaultInternetAccess :: !(Maybe Bool)+  , _fDescription                 :: !(Maybe Text)+  , _fARN                         :: !Text+  , _fName                        :: !Text+  , _fImageName                   :: !Text+  , _fInstanceType                :: !Text+  , _fComputeCapacityStatus       :: !ComputeCapacityStatus+  , _fState                       :: !FleetState+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'Fleet' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'fDomainJoinInfo' - The information needed for streaming instances to join a domain.+--+-- * 'fDisconnectTimeoutInSeconds' - The time after disconnection when a session is considered to have ended, in seconds. If a user who was disconnected reconnects within this time interval, the user is connected to their previous session. Specify a value between 60 and 57600.+--+-- * 'fMaxUserDurationInSeconds' - The maximum time that a streaming session can run, in seconds. Specify a value between 600 and 57600.+--+-- * 'fCreatedTime' - The time the fleet was created.+--+-- * 'fFleetType' - Undocumented member.+--+-- * 'fVPCConfig' - The VPC configuration for the fleet.+--+-- * 'fFleetErrors' - The fleet errors.+--+-- * 'fDisplayName' - The fleet name displayed to end users.+--+-- * 'fEnableDefaultInternetAccess' - Indicates whether default internet access is enabled for the fleet.+--+-- * 'fDescription' - The description displayed to end users.+--+-- * 'fARN' - The ARN for the fleet.+--+-- * 'fName' - The name of the fleet.+--+-- * 'fImageName' - The image used by the fleet.+--+-- * 'fInstanceType' - The instance type to use when launching fleet instances.+--+-- * 'fComputeCapacityStatus' - The capacity status for the fleet.+--+-- * 'fState' - The current state for the fleet.+fleet+    :: Text -- ^ 'fARN'+    -> Text -- ^ 'fName'+    -> Text -- ^ 'fImageName'+    -> Text -- ^ 'fInstanceType'+    -> ComputeCapacityStatus -- ^ 'fComputeCapacityStatus'+    -> FleetState -- ^ 'fState'+    -> Fleet+fleet pARN_ pName_ pImageName_ pInstanceType_ pComputeCapacityStatus_ pState_ =+  Fleet'+  { _fDomainJoinInfo = Nothing+  , _fDisconnectTimeoutInSeconds = Nothing+  , _fMaxUserDurationInSeconds = Nothing+  , _fCreatedTime = Nothing+  , _fFleetType = Nothing+  , _fVPCConfig = Nothing+  , _fFleetErrors = Nothing+  , _fDisplayName = Nothing+  , _fEnableDefaultInternetAccess = Nothing+  , _fDescription = Nothing+  , _fARN = pARN_+  , _fName = pName_+  , _fImageName = pImageName_+  , _fInstanceType = pInstanceType_+  , _fComputeCapacityStatus = pComputeCapacityStatus_+  , _fState = pState_+  }+++-- | The information needed for streaming instances to join a domain.+fDomainJoinInfo :: Lens' Fleet (Maybe DomainJoinInfo)+fDomainJoinInfo = lens _fDomainJoinInfo (\ s a -> s{_fDomainJoinInfo = a});++-- | The time after disconnection when a session is considered to have ended, in seconds. If a user who was disconnected reconnects within this time interval, the user is connected to their previous session. Specify a value between 60 and 57600.+fDisconnectTimeoutInSeconds :: Lens' Fleet (Maybe Int)+fDisconnectTimeoutInSeconds = lens _fDisconnectTimeoutInSeconds (\ s a -> s{_fDisconnectTimeoutInSeconds = a});++-- | The maximum time that a streaming session can run, in seconds. Specify a value between 600 and 57600.+fMaxUserDurationInSeconds :: Lens' Fleet (Maybe Int)+fMaxUserDurationInSeconds = lens _fMaxUserDurationInSeconds (\ s a -> s{_fMaxUserDurationInSeconds = a});++-- | The time the fleet was created.+fCreatedTime :: Lens' Fleet (Maybe UTCTime)+fCreatedTime = lens _fCreatedTime (\ s a -> s{_fCreatedTime = a}) . mapping _Time;++-- | Undocumented member.+fFleetType :: Lens' Fleet (Maybe FleetType)+fFleetType = lens _fFleetType (\ s a -> s{_fFleetType = a});++-- | The VPC configuration for the fleet.+fVPCConfig :: Lens' Fleet (Maybe VPCConfig)+fVPCConfig = lens _fVPCConfig (\ s a -> s{_fVPCConfig = a});++-- | The fleet errors.+fFleetErrors :: Lens' Fleet [FleetError]+fFleetErrors = lens _fFleetErrors (\ s a -> s{_fFleetErrors = a}) . _Default . _Coerce;++-- | The fleet name displayed to end users.+fDisplayName :: Lens' Fleet (Maybe Text)+fDisplayName = lens _fDisplayName (\ s a -> s{_fDisplayName = a});++-- | Indicates whether default internet access is enabled for the fleet.+fEnableDefaultInternetAccess :: Lens' Fleet (Maybe Bool)+fEnableDefaultInternetAccess = lens _fEnableDefaultInternetAccess (\ s a -> s{_fEnableDefaultInternetAccess = a});++-- | The description displayed to end users.+fDescription :: Lens' Fleet (Maybe Text)+fDescription = lens _fDescription (\ s a -> s{_fDescription = a});++-- | The ARN for the fleet.+fARN :: Lens' Fleet Text+fARN = lens _fARN (\ s a -> s{_fARN = a});++-- | The name of the fleet.+fName :: Lens' Fleet Text+fName = lens _fName (\ s a -> s{_fName = a});++-- | The image used by the fleet.+fImageName :: Lens' Fleet Text+fImageName = lens _fImageName (\ s a -> s{_fImageName = a});++-- | The instance type to use when launching fleet instances.+fInstanceType :: Lens' Fleet Text+fInstanceType = lens _fInstanceType (\ s a -> s{_fInstanceType = a});++-- | The capacity status for the fleet.+fComputeCapacityStatus :: Lens' Fleet ComputeCapacityStatus+fComputeCapacityStatus = lens _fComputeCapacityStatus (\ s a -> s{_fComputeCapacityStatus = a});++-- | The current state for the fleet.+fState :: Lens' Fleet FleetState+fState = lens _fState (\ s a -> s{_fState = a});++instance FromJSON Fleet where+        parseJSON+          = withObject "Fleet"+              (\ x ->+                 Fleet' <$>+                   (x .:? "DomainJoinInfo") <*>+                     (x .:? "DisconnectTimeoutInSeconds")+                     <*> (x .:? "MaxUserDurationInSeconds")+                     <*> (x .:? "CreatedTime")+                     <*> (x .:? "FleetType")+                     <*> (x .:? "VpcConfig")+                     <*> (x .:? "FleetErrors" .!= mempty)+                     <*> (x .:? "DisplayName")+                     <*> (x .:? "EnableDefaultInternetAccess")+                     <*> (x .:? "Description")+                     <*> (x .: "Arn")+                     <*> (x .: "Name")+                     <*> (x .: "ImageName")+                     <*> (x .: "InstanceType")+                     <*> (x .: "ComputeCapacityStatus")+                     <*> (x .: "State"))++instance Hashable Fleet where++instance NFData Fleet where++-- | Describes a fleet error.+--+--+--+-- /See:/ 'fleetError' smart constructor.+data FleetError = FleetError'+  { _feErrorCode    :: !(Maybe FleetErrorCode)+  , _feErrorMessage :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'FleetError' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'feErrorCode' - The error code.+--+-- * 'feErrorMessage' - The error message.+fleetError+    :: FleetError+fleetError = FleetError' {_feErrorCode = Nothing, _feErrorMessage = Nothing}+++-- | The error code.+feErrorCode :: Lens' FleetError (Maybe FleetErrorCode)+feErrorCode = lens _feErrorCode (\ s a -> s{_feErrorCode = a});++-- | The error message.+feErrorMessage :: Lens' FleetError (Maybe Text)+feErrorMessage = lens _feErrorMessage (\ s a -> s{_feErrorMessage = a});++instance FromJSON FleetError where+        parseJSON+          = withObject "FleetError"+              (\ x ->+                 FleetError' <$>+                   (x .:? "ErrorCode") <*> (x .:? "ErrorMessage"))++instance Hashable FleetError where++instance NFData FleetError where++-- | Describes an image.+--+--+--+-- /See:/ 'image' smart constructor.+data Image = Image'+  { _iState                       :: !(Maybe ImageState)+  , _iPlatform                    :: !(Maybe PlatformType)+  , _iPublicBaseImageReleasedDate :: !(Maybe POSIX)+  , _iStateChangeReason           :: !(Maybe ImageStateChangeReason)+  , _iARN                         :: !(Maybe Text)+  , _iCreatedTime                 :: !(Maybe POSIX)+  , _iImageBuilderSupported       :: !(Maybe Bool)+  , _iVisibility                  :: !(Maybe VisibilityType)+  , _iBaseImageARN                :: !(Maybe Text)+  , _iDisplayName                 :: !(Maybe Text)+  , _iDescription                 :: !(Maybe Text)+  , _iApplications                :: !(Maybe [Application])+  , _iName                        :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'Image' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'iState' - The image starts in the @PENDING@ state. If image creation succeeds, the state is @AVAILABLE@ . If image creation fails, the state is @FAILED@ .+--+-- * 'iPlatform' - The operating system platform of the image.+--+-- * 'iPublicBaseImageReleasedDate' - The release date of the public base image. For private images, this date is the release date of the base image from which the image was created.+--+-- * 'iStateChangeReason' - The reason why the last state change occurred.+--+-- * 'iARN' - The ARN of the image.+--+-- * 'iCreatedTime' - The time the image was created.+--+-- * 'iImageBuilderSupported' - Indicates whether an image builder can be launched from this image.+--+-- * 'iVisibility' - Indicates whether the image is public or private.+--+-- * 'iBaseImageARN' - The ARN of the image from which this image was created.+--+-- * 'iDisplayName' - The image name displayed to end users.+--+-- * 'iDescription' - The description displayed to end users.+--+-- * 'iApplications' - The applications associated with the image.+--+-- * 'iName' - The name of the image.+image+    :: Text -- ^ 'iName'+    -> Image+image pName_ =+  Image'+  { _iState = Nothing+  , _iPlatform = Nothing+  , _iPublicBaseImageReleasedDate = Nothing+  , _iStateChangeReason = Nothing+  , _iARN = Nothing+  , _iCreatedTime = Nothing+  , _iImageBuilderSupported = Nothing+  , _iVisibility = Nothing+  , _iBaseImageARN = Nothing+  , _iDisplayName = Nothing+  , _iDescription = Nothing+  , _iApplications = Nothing+  , _iName = pName_+  }+++-- | The image starts in the @PENDING@ state. If image creation succeeds, the state is @AVAILABLE@ . If image creation fails, the state is @FAILED@ .+iState :: Lens' Image (Maybe ImageState)+iState = lens _iState (\ s a -> s{_iState = a});++-- | The operating system platform of the image.+iPlatform :: Lens' Image (Maybe PlatformType)+iPlatform = lens _iPlatform (\ s a -> s{_iPlatform = a});++-- | The release date of the public base image. For private images, this date is the release date of the base image from which the image was created.+iPublicBaseImageReleasedDate :: Lens' Image (Maybe UTCTime)+iPublicBaseImageReleasedDate = lens _iPublicBaseImageReleasedDate (\ s a -> s{_iPublicBaseImageReleasedDate = a}) . mapping _Time;++-- | The reason why the last state change occurred.+iStateChangeReason :: Lens' Image (Maybe ImageStateChangeReason)+iStateChangeReason = lens _iStateChangeReason (\ s a -> s{_iStateChangeReason = a});++-- | The ARN of the image.+iARN :: Lens' Image (Maybe Text)+iARN = lens _iARN (\ s a -> s{_iARN = a});++-- | The time the image was created.+iCreatedTime :: Lens' Image (Maybe UTCTime)+iCreatedTime = lens _iCreatedTime (\ s a -> s{_iCreatedTime = a}) . mapping _Time;++-- | Indicates whether an image builder can be launched from this image.+iImageBuilderSupported :: Lens' Image (Maybe Bool)+iImageBuilderSupported = lens _iImageBuilderSupported (\ s a -> s{_iImageBuilderSupported = a});++-- | Indicates whether the image is public or private.+iVisibility :: Lens' Image (Maybe VisibilityType)+iVisibility = lens _iVisibility (\ s a -> s{_iVisibility = a});++-- | The ARN of the image from which this image was created.+iBaseImageARN :: Lens' Image (Maybe Text)+iBaseImageARN = lens _iBaseImageARN (\ s a -> s{_iBaseImageARN = a});++-- | The image name displayed to end users.+iDisplayName :: Lens' Image (Maybe Text)+iDisplayName = lens _iDisplayName (\ s a -> s{_iDisplayName = a});++-- | The description displayed to end users.+iDescription :: Lens' Image (Maybe Text)+iDescription = lens _iDescription (\ s a -> s{_iDescription = a});++-- | The applications associated with the image.+iApplications :: Lens' Image [Application]+iApplications = lens _iApplications (\ s a -> s{_iApplications = a}) . _Default . _Coerce;++-- | The name of the image.+iName :: Lens' Image Text+iName = lens _iName (\ s a -> s{_iName = a});++instance FromJSON Image where+        parseJSON+          = withObject "Image"+              (\ x ->+                 Image' <$>+                   (x .:? "State") <*> (x .:? "Platform") <*>+                     (x .:? "PublicBaseImageReleasedDate")+                     <*> (x .:? "StateChangeReason")+                     <*> (x .:? "Arn")+                     <*> (x .:? "CreatedTime")+                     <*> (x .:? "ImageBuilderSupported")+                     <*> (x .:? "Visibility")+                     <*> (x .:? "BaseImageArn")+                     <*> (x .:? "DisplayName")+                     <*> (x .:? "Description")+                     <*> (x .:? "Applications" .!= mempty)+                     <*> (x .: "Name"))++instance Hashable Image where++instance NFData Image where++-- | /See:/ 'imageBuilder' smart constructor.+data ImageBuilder = ImageBuilder'+  { _ibDomainJoinInfo              :: !(Maybe DomainJoinInfo)+  , _ibState                       :: !(Maybe ImageBuilderState)+  , _ibPlatform                    :: !(Maybe PlatformType)+  , _ibStateChangeReason           :: !(Maybe ImageBuilderStateChangeReason)+  , _ibARN                         :: !(Maybe Text)+  , _ibCreatedTime                 :: !(Maybe POSIX)+  , _ibImageBuilderErrors          :: !(Maybe [ResourceError])+  , _ibInstanceType                :: !(Maybe Text)+  , _ibVPCConfig                   :: !(Maybe VPCConfig)+  , _ibImageARN                    :: !(Maybe Text)+  , _ibDisplayName                 :: !(Maybe Text)+  , _ibEnableDefaultInternetAccess :: !(Maybe Bool)+  , _ibDescription                 :: !(Maybe Text)+  , _ibName                        :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ImageBuilder' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ibDomainJoinInfo' - Undocumented member.+--+-- * 'ibState' - Undocumented member.+--+-- * 'ibPlatform' - Undocumented member.+--+-- * 'ibStateChangeReason' - Undocumented member.+--+-- * 'ibARN' - Undocumented member.+--+-- * 'ibCreatedTime' - Undocumented member.+--+-- * 'ibImageBuilderErrors' - Undocumented member.+--+-- * 'ibInstanceType' - Undocumented member.+--+-- * 'ibVPCConfig' - Undocumented member.+--+-- * 'ibImageARN' - Undocumented member.+--+-- * 'ibDisplayName' - Undocumented member.+--+-- * 'ibEnableDefaultInternetAccess' - Undocumented member.+--+-- * 'ibDescription' - Undocumented member.+--+-- * 'ibName' - Undocumented member.+imageBuilder+    :: Text -- ^ 'ibName'+    -> ImageBuilder+imageBuilder pName_ =+  ImageBuilder'+  { _ibDomainJoinInfo = Nothing+  , _ibState = Nothing+  , _ibPlatform = Nothing+  , _ibStateChangeReason = Nothing+  , _ibARN = Nothing+  , _ibCreatedTime = Nothing+  , _ibImageBuilderErrors = Nothing+  , _ibInstanceType = Nothing+  , _ibVPCConfig = Nothing+  , _ibImageARN = Nothing+  , _ibDisplayName = Nothing+  , _ibEnableDefaultInternetAccess = Nothing+  , _ibDescription = Nothing+  , _ibName = pName_+  }+++-- | Undocumented member.+ibDomainJoinInfo :: Lens' ImageBuilder (Maybe DomainJoinInfo)+ibDomainJoinInfo = lens _ibDomainJoinInfo (\ s a -> s{_ibDomainJoinInfo = a});++-- | Undocumented member.+ibState :: Lens' ImageBuilder (Maybe ImageBuilderState)+ibState = lens _ibState (\ s a -> s{_ibState = a});++-- | Undocumented member.+ibPlatform :: Lens' ImageBuilder (Maybe PlatformType)+ibPlatform = lens _ibPlatform (\ s a -> s{_ibPlatform = a});++-- | Undocumented member.+ibStateChangeReason :: Lens' ImageBuilder (Maybe ImageBuilderStateChangeReason)+ibStateChangeReason = lens _ibStateChangeReason (\ s a -> s{_ibStateChangeReason = a});++-- | Undocumented member.+ibARN :: Lens' ImageBuilder (Maybe Text)+ibARN = lens _ibARN (\ s a -> s{_ibARN = a});++-- | Undocumented member.+ibCreatedTime :: Lens' ImageBuilder (Maybe UTCTime)+ibCreatedTime = lens _ibCreatedTime (\ s a -> s{_ibCreatedTime = a}) . mapping _Time;++-- | Undocumented member.+ibImageBuilderErrors :: Lens' ImageBuilder [ResourceError]+ibImageBuilderErrors = lens _ibImageBuilderErrors (\ s a -> s{_ibImageBuilderErrors = a}) . _Default . _Coerce;++-- | Undocumented member.+ibInstanceType :: Lens' ImageBuilder (Maybe Text)+ibInstanceType = lens _ibInstanceType (\ s a -> s{_ibInstanceType = a});++-- | Undocumented member.+ibVPCConfig :: Lens' ImageBuilder (Maybe VPCConfig)+ibVPCConfig = lens _ibVPCConfig (\ s a -> s{_ibVPCConfig = a});++-- | Undocumented member.+ibImageARN :: Lens' ImageBuilder (Maybe Text)+ibImageARN = lens _ibImageARN (\ s a -> s{_ibImageARN = a});++-- | Undocumented member.+ibDisplayName :: Lens' ImageBuilder (Maybe Text)+ibDisplayName = lens _ibDisplayName (\ s a -> s{_ibDisplayName = a});++-- | Undocumented member.+ibEnableDefaultInternetAccess :: Lens' ImageBuilder (Maybe Bool)+ibEnableDefaultInternetAccess = lens _ibEnableDefaultInternetAccess (\ s a -> s{_ibEnableDefaultInternetAccess = a});++-- | Undocumented member.+ibDescription :: Lens' ImageBuilder (Maybe Text)+ibDescription = lens _ibDescription (\ s a -> s{_ibDescription = a});++-- | Undocumented member.+ibName :: Lens' ImageBuilder Text+ibName = lens _ibName (\ s a -> s{_ibName = a});++instance FromJSON ImageBuilder where+        parseJSON+          = withObject "ImageBuilder"+              (\ x ->+                 ImageBuilder' <$>+                   (x .:? "DomainJoinInfo") <*> (x .:? "State") <*>+                     (x .:? "Platform")+                     <*> (x .:? "StateChangeReason")+                     <*> (x .:? "Arn")+                     <*> (x .:? "CreatedTime")+                     <*> (x .:? "ImageBuilderErrors" .!= mempty)+                     <*> (x .:? "InstanceType")+                     <*> (x .:? "VpcConfig")+                     <*> (x .:? "ImageArn")+                     <*> (x .:? "DisplayName")+                     <*> (x .:? "EnableDefaultInternetAccess")+                     <*> (x .:? "Description")+                     <*> (x .: "Name"))++instance Hashable ImageBuilder where++instance NFData ImageBuilder where++-- | /See:/ 'imageBuilderStateChangeReason' smart constructor.+data ImageBuilderStateChangeReason = ImageBuilderStateChangeReason'+  { _ibscrCode    :: !(Maybe ImageBuilderStateChangeReasonCode)+  , _ibscrMessage :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ImageBuilderStateChangeReason' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ibscrCode' - Undocumented member.+--+-- * 'ibscrMessage' - Undocumented member.+imageBuilderStateChangeReason+    :: ImageBuilderStateChangeReason+imageBuilderStateChangeReason =+  ImageBuilderStateChangeReason' {_ibscrCode = Nothing, _ibscrMessage = Nothing}+++-- | Undocumented member.+ibscrCode :: Lens' ImageBuilderStateChangeReason (Maybe ImageBuilderStateChangeReasonCode)+ibscrCode = lens _ibscrCode (\ s a -> s{_ibscrCode = a});++-- | Undocumented member.+ibscrMessage :: Lens' ImageBuilderStateChangeReason (Maybe Text)+ibscrMessage = lens _ibscrMessage (\ s a -> s{_ibscrMessage = a});++instance FromJSON ImageBuilderStateChangeReason where+        parseJSON+          = withObject "ImageBuilderStateChangeReason"+              (\ x ->+                 ImageBuilderStateChangeReason' <$>+                   (x .:? "Code") <*> (x .:? "Message"))++instance Hashable ImageBuilderStateChangeReason where++instance NFData ImageBuilderStateChangeReason where++-- | Describes the reason why the last state change occurred.+--+--+--+-- /See:/ 'imageStateChangeReason' smart constructor.+data ImageStateChangeReason = ImageStateChangeReason'+  { _iscrCode    :: !(Maybe ImageStateChangeReasonCode)+  , _iscrMessage :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ImageStateChangeReason' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'iscrCode' - The state change reason code.+--+-- * 'iscrMessage' - The state change reason message.+imageStateChangeReason+    :: ImageStateChangeReason+imageStateChangeReason =+  ImageStateChangeReason' {_iscrCode = Nothing, _iscrMessage = Nothing}+++-- | The state change reason code.+iscrCode :: Lens' ImageStateChangeReason (Maybe ImageStateChangeReasonCode)+iscrCode = lens _iscrCode (\ s a -> s{_iscrCode = a});++-- | The state change reason message.+iscrMessage :: Lens' ImageStateChangeReason (Maybe Text)+iscrMessage = lens _iscrMessage (\ s a -> s{_iscrMessage = a});++instance FromJSON ImageStateChangeReason where+        parseJSON+          = withObject "ImageStateChangeReason"+              (\ x ->+                 ImageStateChangeReason' <$>+                   (x .:? "Code") <*> (x .:? "Message"))++instance Hashable ImageStateChangeReason where++instance NFData ImageStateChangeReason where++-- | /See:/ 'resourceError' smart constructor.+data ResourceError = ResourceError'+  { _reErrorCode      :: !(Maybe FleetErrorCode)+  , _reErrorMessage   :: !(Maybe Text)+  , _reErrorTimestamp :: !(Maybe POSIX)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ResourceError' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'reErrorCode' - Undocumented member.+--+-- * 'reErrorMessage' - Undocumented member.+--+-- * 'reErrorTimestamp' - Undocumented member.+resourceError+    :: ResourceError+resourceError =+  ResourceError'+  { _reErrorCode = Nothing+  , _reErrorMessage = Nothing+  , _reErrorTimestamp = Nothing+  }+++-- | Undocumented member.+reErrorCode :: Lens' ResourceError (Maybe FleetErrorCode)+reErrorCode = lens _reErrorCode (\ s a -> s{_reErrorCode = a});++-- | Undocumented member.+reErrorMessage :: Lens' ResourceError (Maybe Text)+reErrorMessage = lens _reErrorMessage (\ s a -> s{_reErrorMessage = a});++-- | Undocumented member.+reErrorTimestamp :: Lens' ResourceError (Maybe UTCTime)+reErrorTimestamp = lens _reErrorTimestamp (\ s a -> s{_reErrorTimestamp = a}) . mapping _Time;++instance FromJSON ResourceError where+        parseJSON+          = withObject "ResourceError"+              (\ x ->+                 ResourceError' <$>+                   (x .:? "ErrorCode") <*> (x .:? "ErrorMessage") <*>+                     (x .:? "ErrorTimestamp"))++instance Hashable ResourceError where++instance NFData ResourceError where++-- | Describes the credentials for the service account used by the streaming instance to connect to the directory.+--+--+--+-- /See:/ 'serviceAccountCredentials' smart constructor.+data ServiceAccountCredentials = ServiceAccountCredentials'+  { _sacAccountName     :: !(Sensitive Text)+  , _sacAccountPassword :: !(Sensitive Text)+  } deriving (Eq, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ServiceAccountCredentials' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'sacAccountName' - The user name of the account. This account must have the following privileges: create computer objects, join computers to the domain, and change/reset the password on descendant computer objects for the organizational units specified.+--+-- * 'sacAccountPassword' - The password for the account.+serviceAccountCredentials+    :: Text -- ^ 'sacAccountName'+    -> Text -- ^ 'sacAccountPassword'+    -> ServiceAccountCredentials+serviceAccountCredentials pAccountName_ pAccountPassword_ =+  ServiceAccountCredentials'+  { _sacAccountName = _Sensitive # pAccountName_+  , _sacAccountPassword = _Sensitive # pAccountPassword_+  }+++-- | The user name of the account. This account must have the following privileges: create computer objects, join computers to the domain, and change/reset the password on descendant computer objects for the organizational units specified.+sacAccountName :: Lens' ServiceAccountCredentials Text+sacAccountName = lens _sacAccountName (\ s a -> s{_sacAccountName = a}) . _Sensitive;++-- | The password for the account.+sacAccountPassword :: Lens' ServiceAccountCredentials Text+sacAccountPassword = lens _sacAccountPassword (\ s a -> s{_sacAccountPassword = a}) . _Sensitive;++instance FromJSON ServiceAccountCredentials where+        parseJSON+          = withObject "ServiceAccountCredentials"+              (\ x ->+                 ServiceAccountCredentials' <$>+                   (x .: "AccountName") <*> (x .: "AccountPassword"))++instance Hashable ServiceAccountCredentials where++instance NFData ServiceAccountCredentials where++instance ToJSON ServiceAccountCredentials where+        toJSON ServiceAccountCredentials'{..}+          = object+              (catMaybes+                 [Just ("AccountName" .= _sacAccountName),+                  Just ("AccountPassword" .= _sacAccountPassword)])++-- | Describes a streaming session.+--+--+--+-- /See:/ 'session' smart constructor.+data Session = Session'+  { _sAuthenticationType :: !(Maybe AuthenticationType)+  , _sId                 :: !Text+  , _sUserId             :: !Text+  , _sStackName          :: !Text+  , _sFleetName          :: !Text+  , _sState              :: !SessionState+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'Session' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'sAuthenticationType' - The authentication method. The user is authenticated using a streaming URL (@API@ ) or SAML federation (@SAML@ ).+--+-- * 'sId' - The ID of the streaming session.+--+-- * 'sUserId' - The identifier of the user for whom the session was created.+--+-- * 'sStackName' - The name of the stack for the streaming session.+--+-- * 'sFleetName' - The name of the fleet for the streaming session.+--+-- * 'sState' - The current state of the streaming session.+session+    :: Text -- ^ 'sId'+    -> Text -- ^ 'sUserId'+    -> Text -- ^ 'sStackName'+    -> Text -- ^ 'sFleetName'+    -> SessionState -- ^ 'sState'+    -> Session+session pId_ pUserId_ pStackName_ pFleetName_ pState_ =+  Session'+  { _sAuthenticationType = Nothing+  , _sId = pId_+  , _sUserId = pUserId_+  , _sStackName = pStackName_+  , _sFleetName = pFleetName_+  , _sState = pState_+  }+++-- | The authentication method. The user is authenticated using a streaming URL (@API@ ) or SAML federation (@SAML@ ).+sAuthenticationType :: Lens' Session (Maybe AuthenticationType)+sAuthenticationType = lens _sAuthenticationType (\ s a -> s{_sAuthenticationType = a});++-- | The ID of the streaming session.+sId :: Lens' Session Text+sId = lens _sId (\ s a -> s{_sId = a});++-- | The identifier of the user for whom the session was created.+sUserId :: Lens' Session Text+sUserId = lens _sUserId (\ s a -> s{_sUserId = a});++-- | The name of the stack for the streaming session.+sStackName :: Lens' Session Text+sStackName = lens _sStackName (\ s a -> s{_sStackName = a});++-- | The name of the fleet for the streaming session.+sFleetName :: Lens' Session Text+sFleetName = lens _sFleetName (\ s a -> s{_sFleetName = a});++-- | The current state of the streaming session.+sState :: Lens' Session SessionState+sState = lens _sState (\ s a -> s{_sState = a});++instance FromJSON Session where+        parseJSON+          = withObject "Session"+              (\ x ->+                 Session' <$>+                   (x .:? "AuthenticationType") <*> (x .: "Id") <*>+                     (x .: "UserId")+                     <*> (x .: "StackName")+                     <*> (x .: "FleetName")+                     <*> (x .: "State"))++instance Hashable Session where++instance NFData Session where++-- | Describes a stack.+--+--+--+-- /See:/ 'stack' smart constructor.+data Stack = Stack'+  { _sARN               :: !(Maybe Text)+  , _sCreatedTime       :: !(Maybe POSIX)+  , _sStorageConnectors :: !(Maybe [StorageConnector])+  , _sDisplayName       :: !(Maybe Text)+  , _sStackErrors       :: !(Maybe [StackError])+  , _sDescription       :: !(Maybe Text)+  , _sName              :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'Stack' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'sARN' - The ARN of the stack.+--+-- * 'sCreatedTime' - The time the stack was created.+--+-- * 'sStorageConnectors' - The storage connectors to enable.+--+-- * 'sDisplayName' - The stack name displayed to end users.+--+-- * 'sStackErrors' - The errors for the stack.+--+-- * 'sDescription' - The description displayed to end users.+--+-- * 'sName' - The name of the stack.+stack+    :: Text -- ^ 'sName'+    -> Stack+stack pName_ =+  Stack'+  { _sARN = Nothing+  , _sCreatedTime = Nothing+  , _sStorageConnectors = Nothing+  , _sDisplayName = Nothing+  , _sStackErrors = Nothing+  , _sDescription = Nothing+  , _sName = pName_+  }+++-- | The ARN of the stack.+sARN :: Lens' Stack (Maybe Text)+sARN = lens _sARN (\ s a -> s{_sARN = a});++-- | The time the stack was created.+sCreatedTime :: Lens' Stack (Maybe UTCTime)+sCreatedTime = lens _sCreatedTime (\ s a -> s{_sCreatedTime = a}) . mapping _Time;++-- | The storage connectors to enable.+sStorageConnectors :: Lens' Stack [StorageConnector]+sStorageConnectors = lens _sStorageConnectors (\ s a -> s{_sStorageConnectors = a}) . _Default . _Coerce;++-- | The stack name displayed to end users.+sDisplayName :: Lens' Stack (Maybe Text)+sDisplayName = lens _sDisplayName (\ s a -> s{_sDisplayName = a});++-- | The errors for the stack.+sStackErrors :: Lens' Stack [StackError]+sStackErrors = lens _sStackErrors (\ s a -> s{_sStackErrors = a}) . _Default . _Coerce;++-- | The description displayed to end users.+sDescription :: Lens' Stack (Maybe Text)+sDescription = lens _sDescription (\ s a -> s{_sDescription = a});++-- | The name of the stack.+sName :: Lens' Stack Text+sName = lens _sName (\ s a -> s{_sName = a});++instance FromJSON Stack where+        parseJSON+          = withObject "Stack"+              (\ x ->+                 Stack' <$>+                   (x .:? "Arn") <*> (x .:? "CreatedTime") <*>+                     (x .:? "StorageConnectors" .!= mempty)+                     <*> (x .:? "DisplayName")+                     <*> (x .:? "StackErrors" .!= mempty)+                     <*> (x .:? "Description")+                     <*> (x .: "Name"))++instance Hashable Stack where++instance NFData Stack where++-- | Describes a stack error.+--+--+--+-- /See:/ 'stackError' smart constructor.+data StackError = StackError'+  { _seErrorCode    :: !(Maybe StackErrorCode)+  , _seErrorMessage :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'StackError' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'seErrorCode' - The error code.+--+-- * 'seErrorMessage' - The error message.+stackError+    :: StackError+stackError = StackError' {_seErrorCode = Nothing, _seErrorMessage = Nothing}+++-- | The error code.+seErrorCode :: Lens' StackError (Maybe StackErrorCode)+seErrorCode = lens _seErrorCode (\ s a -> s{_seErrorCode = a});++-- | The error message.+seErrorMessage :: Lens' StackError (Maybe Text)+seErrorMessage = lens _seErrorMessage (\ s a -> s{_seErrorMessage = a});++instance FromJSON StackError where+        parseJSON+          = withObject "StackError"+              (\ x ->+                 StackError' <$>+                   (x .:? "ErrorCode") <*> (x .:? "ErrorMessage"))++instance Hashable StackError where++instance NFData StackError where++-- | Describes a storage connector.+--+--+--+-- /See:/ 'storageConnector' smart constructor.+data StorageConnector = StorageConnector'+  { _scResourceIdentifier :: !(Maybe Text)+  , _scConnectorType      :: !StorageConnectorType+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'StorageConnector' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'scResourceIdentifier' - The ARN of the storage connector.+--+-- * 'scConnectorType' - The type of storage connector.+storageConnector+    :: StorageConnectorType -- ^ 'scConnectorType'+    -> StorageConnector+storageConnector pConnectorType_ =+  StorageConnector'+  {_scResourceIdentifier = Nothing, _scConnectorType = pConnectorType_}+++-- | The ARN of the storage connector.+scResourceIdentifier :: Lens' StorageConnector (Maybe Text)+scResourceIdentifier = lens _scResourceIdentifier (\ s a -> s{_scResourceIdentifier = a});++-- | The type of storage connector.+scConnectorType :: Lens' StorageConnector StorageConnectorType+scConnectorType = lens _scConnectorType (\ s a -> s{_scConnectorType = a});++instance FromJSON StorageConnector where+        parseJSON+          = withObject "StorageConnector"+              (\ x ->+                 StorageConnector' <$>+                   (x .:? "ResourceIdentifier") <*>+                     (x .: "ConnectorType"))++instance Hashable StorageConnector where++instance NFData StorageConnector where++instance ToJSON StorageConnector where+        toJSON StorageConnector'{..}+          = object+              (catMaybes+                 [("ResourceIdentifier" .=) <$> _scResourceIdentifier,+                  Just ("ConnectorType" .= _scConnectorType)])++-- | Describes VPC configuration information.+--+--+--+-- /See:/ 'vpcConfig' smart constructor.+data VPCConfig = VPCConfig'+  { _vcSecurityGroupIds :: !(Maybe [Text])+  , _vcSubnetIds        :: !(Maybe [Text])+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'VPCConfig' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'vcSecurityGroupIds' - The security groups for the fleet.+--+-- * 'vcSubnetIds' - The subnets to which a network interface is established from the fleet instance.+vpcConfig+    :: VPCConfig+vpcConfig = VPCConfig' {_vcSecurityGroupIds = Nothing, _vcSubnetIds = Nothing}+++-- | The security groups for the fleet.+vcSecurityGroupIds :: Lens' VPCConfig [Text]+vcSecurityGroupIds = lens _vcSecurityGroupIds (\ s a -> s{_vcSecurityGroupIds = a}) . _Default . _Coerce;++-- | The subnets to which a network interface is established from the fleet instance.+vcSubnetIds :: Lens' VPCConfig [Text]+vcSubnetIds = lens _vcSubnetIds (\ s a -> s{_vcSubnetIds = a}) . _Default . _Coerce;++instance FromJSON VPCConfig where+        parseJSON+          = withObject "VPCConfig"+              (\ x ->+                 VPCConfig' <$>+                   (x .:? "SecurityGroupIds" .!= mempty) <*>+                     (x .:? "SubnetIds" .!= mempty))++instance Hashable VPCConfig where++instance NFData VPCConfig where++instance ToJSON VPCConfig where+        toJSON VPCConfig'{..}+          = object+              (catMaybes+                 [("SecurityGroupIds" .=) <$> _vcSecurityGroupIds,+                  ("SubnetIds" .=) <$> _vcSubnetIds])

@@ -9,57 +9,169 @@  -- | -- Module      : Network.AWS.AppStream.Types.Sum--- 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) -- module Network.AWS.AppStream.Types.Sum where -import           Network.AWS.Prelude+import Network.AWS.Prelude +data AuthenticationType+  = API+  | Saml+  | Userpool+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)+++instance FromText AuthenticationType where+    parser = takeLowerText >>= \case+        "api" -> pure API+        "saml" -> pure Saml+        "userpool" -> pure Userpool+        e -> fromTextError $ "Failure parsing AuthenticationType from value: '" <> e+           <> "'. Accepted values: api, saml, userpool"++instance ToText AuthenticationType where+    toText = \case+        API -> "API"+        Saml -> "SAML"+        Userpool -> "USERPOOL"++instance Hashable     AuthenticationType+instance NFData       AuthenticationType+instance ToByteString AuthenticationType+instance ToQuery      AuthenticationType+instance ToHeader     AuthenticationType++instance ToJSON AuthenticationType where+    toJSON = toJSONText++instance FromJSON AuthenticationType where+    parseJSON = parseJSONText "AuthenticationType"++-- | The fleet attribute.+--+--+data FleetAttribute+  = DomainJoinInfo+  | VPCConfiguration+  | VPCConfigurationSecurityGroupIds+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)+++instance FromText FleetAttribute where+    parser = takeLowerText >>= \case+        "domain_join_info" -> pure DomainJoinInfo+        "vpc_configuration" -> pure VPCConfiguration+        "vpc_configuration_security_group_ids" -> pure VPCConfigurationSecurityGroupIds+        e -> fromTextError $ "Failure parsing FleetAttribute from value: '" <> e+           <> "'. Accepted values: domain_join_info, vpc_configuration, vpc_configuration_security_group_ids"++instance ToText FleetAttribute where+    toText = \case+        DomainJoinInfo -> "DOMAIN_JOIN_INFO"+        VPCConfiguration -> "VPC_CONFIGURATION"+        VPCConfigurationSecurityGroupIds -> "VPC_CONFIGURATION_SECURITY_GROUP_IDS"++instance Hashable     FleetAttribute+instance NFData       FleetAttribute+instance ToByteString FleetAttribute+instance ToQuery      FleetAttribute+instance ToHeader     FleetAttribute++instance ToJSON FleetAttribute where+    toJSON = toJSONText+ data FleetErrorCode-    = IAMServiceRoleIsMissing-    | IAMServiceRoleMissingDescribeSubnetAction-    | IAMServiceRoleMissingEniCreateAction-    | IAMServiceRoleMissingEniDeleteAction-    | IAMServiceRoleMissingEniDescribeAction-    | ImageNotFound-    | InternalServiceError-    | InvalidSubnetConfiguration-    | NetworkInterfaceLimitExceeded-    | SubnetHasInsufficientIPAddresses-    | SubnetNotFound-    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+  = DomainJoinErrorAccessDenied+  | DomainJoinErrorDsMachineAccountQuotaExceeded+  | DomainJoinErrorFileNotFound+  | DomainJoinErrorInvalidParameter+  | DomainJoinErrorLogonFailure+  | DomainJoinErrorMoreData+  | DomainJoinErrorNoSuchDomain+  | DomainJoinErrorNotSupported+  | DomainJoinInternalServiceError+  | DomainJoinNerrInvalidWorkgroupName+  | DomainJoinNerrPasswordExpired+  | DomainJoinNerrWorkstationNotStarted+  | IAMServiceRoleIsMissing+  | IAMServiceRoleMissingDescribeSecurityGroupsAction+  | IAMServiceRoleMissingDescribeSubnetAction+  | IAMServiceRoleMissingEniCreateAction+  | IAMServiceRoleMissingEniDeleteAction+  | IAMServiceRoleMissingEniDescribeAction+  | IgwNotAttached+  | ImageNotFound+  | InternalServiceError+  | InvalidSubnetConfiguration+  | NetworkInterfaceLimitExceeded+  | SecurityGroupsNotFound+  | SubnetHasInsufficientIPAddresses+  | SubnetNotFound+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText FleetErrorCode where     parser = takeLowerText >>= \case+        "domain_join_error_access_denied" -> pure DomainJoinErrorAccessDenied+        "domain_join_error_ds_machine_account_quota_exceeded" -> pure DomainJoinErrorDsMachineAccountQuotaExceeded+        "domain_join_error_file_not_found" -> pure DomainJoinErrorFileNotFound+        "domain_join_error_invalid_parameter" -> pure DomainJoinErrorInvalidParameter+        "domain_join_error_logon_failure" -> pure DomainJoinErrorLogonFailure+        "domain_join_error_more_data" -> pure DomainJoinErrorMoreData+        "domain_join_error_no_such_domain" -> pure DomainJoinErrorNoSuchDomain+        "domain_join_error_not_supported" -> pure DomainJoinErrorNotSupported+        "domain_join_internal_service_error" -> pure DomainJoinInternalServiceError+        "domain_join_nerr_invalid_workgroup_name" -> pure DomainJoinNerrInvalidWorkgroupName+        "domain_join_nerr_password_expired" -> pure DomainJoinNerrPasswordExpired+        "domain_join_nerr_workstation_not_started" -> pure DomainJoinNerrWorkstationNotStarted         "iam_service_role_is_missing" -> pure IAMServiceRoleIsMissing+        "iam_service_role_missing_describe_security_groups_action" -> pure IAMServiceRoleMissingDescribeSecurityGroupsAction         "iam_service_role_missing_describe_subnet_action" -> pure IAMServiceRoleMissingDescribeSubnetAction         "iam_service_role_missing_eni_create_action" -> pure IAMServiceRoleMissingEniCreateAction         "iam_service_role_missing_eni_delete_action" -> pure IAMServiceRoleMissingEniDeleteAction         "iam_service_role_missing_eni_describe_action" -> pure IAMServiceRoleMissingEniDescribeAction+        "igw_not_attached" -> pure IgwNotAttached         "image_not_found" -> pure ImageNotFound         "internal_service_error" -> pure InternalServiceError         "invalid_subnet_configuration" -> pure InvalidSubnetConfiguration         "network_interface_limit_exceeded" -> pure NetworkInterfaceLimitExceeded+        "security_groups_not_found" -> pure SecurityGroupsNotFound         "subnet_has_insufficient_ip_addresses" -> pure SubnetHasInsufficientIPAddresses         "subnet_not_found" -> pure SubnetNotFound         e -> fromTextError $ "Failure parsing FleetErrorCode from value: '" <> e-           <> "'. Accepted values: iam_service_role_is_missing, iam_service_role_missing_describe_subnet_action, iam_service_role_missing_eni_create_action, iam_service_role_missing_eni_delete_action, iam_service_role_missing_eni_describe_action, image_not_found, internal_service_error, invalid_subnet_configuration, network_interface_limit_exceeded, subnet_has_insufficient_ip_addresses, subnet_not_found"+           <> "'. Accepted values: domain_join_error_access_denied, domain_join_error_ds_machine_account_quota_exceeded, domain_join_error_file_not_found, domain_join_error_invalid_parameter, domain_join_error_logon_failure, domain_join_error_more_data, domain_join_error_no_such_domain, domain_join_error_not_supported, domain_join_internal_service_error, domain_join_nerr_invalid_workgroup_name, domain_join_nerr_password_expired, domain_join_nerr_workstation_not_started, iam_service_role_is_missing, iam_service_role_missing_describe_security_groups_action, iam_service_role_missing_describe_subnet_action, iam_service_role_missing_eni_create_action, iam_service_role_missing_eni_delete_action, iam_service_role_missing_eni_describe_action, igw_not_attached, image_not_found, internal_service_error, invalid_subnet_configuration, network_interface_limit_exceeded, security_groups_not_found, subnet_has_insufficient_ip_addresses, subnet_not_found"  instance ToText FleetErrorCode where     toText = \case+        DomainJoinErrorAccessDenied -> "DOMAIN_JOIN_ERROR_ACCESS_DENIED"+        DomainJoinErrorDsMachineAccountQuotaExceeded -> "DOMAIN_JOIN_ERROR_DS_MACHINE_ACCOUNT_QUOTA_EXCEEDED"+        DomainJoinErrorFileNotFound -> "DOMAIN_JOIN_ERROR_FILE_NOT_FOUND"+        DomainJoinErrorInvalidParameter -> "DOMAIN_JOIN_ERROR_INVALID_PARAMETER"+        DomainJoinErrorLogonFailure -> "DOMAIN_JOIN_ERROR_LOGON_FAILURE"+        DomainJoinErrorMoreData -> "DOMAIN_JOIN_ERROR_MORE_DATA"+        DomainJoinErrorNoSuchDomain -> "DOMAIN_JOIN_ERROR_NO_SUCH_DOMAIN"+        DomainJoinErrorNotSupported -> "DOMAIN_JOIN_ERROR_NOT_SUPPORTED"+        DomainJoinInternalServiceError -> "DOMAIN_JOIN_INTERNAL_SERVICE_ERROR"+        DomainJoinNerrInvalidWorkgroupName -> "DOMAIN_JOIN_NERR_INVALID_WORKGROUP_NAME"+        DomainJoinNerrPasswordExpired -> "DOMAIN_JOIN_NERR_PASSWORD_EXPIRED"+        DomainJoinNerrWorkstationNotStarted -> "DOMAIN_JOIN_NERR_WORKSTATION_NOT_STARTED"         IAMServiceRoleIsMissing -> "IAM_SERVICE_ROLE_IS_MISSING"+        IAMServiceRoleMissingDescribeSecurityGroupsAction -> "IAM_SERVICE_ROLE_MISSING_DESCRIBE_SECURITY_GROUPS_ACTION"         IAMServiceRoleMissingDescribeSubnetAction -> "IAM_SERVICE_ROLE_MISSING_DESCRIBE_SUBNET_ACTION"         IAMServiceRoleMissingEniCreateAction -> "IAM_SERVICE_ROLE_MISSING_ENI_CREATE_ACTION"         IAMServiceRoleMissingEniDeleteAction -> "IAM_SERVICE_ROLE_MISSING_ENI_DELETE_ACTION"         IAMServiceRoleMissingEniDescribeAction -> "IAM_SERVICE_ROLE_MISSING_ENI_DESCRIBE_ACTION"+        IgwNotAttached -> "IGW_NOT_ATTACHED"         ImageNotFound -> "IMAGE_NOT_FOUND"         InternalServiceError -> "INTERNAL_SERVICE_ERROR"         InvalidSubnetConfiguration -> "INVALID_SUBNET_CONFIGURATION"         NetworkInterfaceLimitExceeded -> "NETWORK_INTERFACE_LIMIT_EXCEEDED"+        SecurityGroupsNotFound -> "SECURITY_GROUPS_NOT_FOUND"         SubnetHasInsufficientIPAddresses -> "SUBNET_HAS_INSUFFICIENT_IP_ADDRESSES"         SubnetNotFound -> "SUBNET_NOT_FOUND" @@ -73,12 +185,13 @@     parseJSON = parseJSONText "FleetErrorCode"  data FleetState-    = Running-    | Starting-    | Stopped-    | Stopping-    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+  = Running+  | Starting+  | Stopped+  | Stopping+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText FleetState where     parser = takeLowerText >>= \case         "running" -> pure Running@@ -104,13 +217,116 @@ instance FromJSON FleetState where     parseJSON = parseJSONText "FleetState" +data FleetType+  = AlwaysOn+  | OnDemand+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)+++instance FromText FleetType where+    parser = takeLowerText >>= \case+        "always_on" -> pure AlwaysOn+        "on_demand" -> pure OnDemand+        e -> fromTextError $ "Failure parsing FleetType from value: '" <> e+           <> "'. Accepted values: always_on, on_demand"++instance ToText FleetType where+    toText = \case+        AlwaysOn -> "ALWAYS_ON"+        OnDemand -> "ON_DEMAND"++instance Hashable     FleetType+instance NFData       FleetType+instance ToByteString FleetType+instance ToQuery      FleetType+instance ToHeader     FleetType++instance ToJSON FleetType where+    toJSON = toJSONText++instance FromJSON FleetType where+    parseJSON = parseJSONText "FleetType"++data ImageBuilderState+  = IBSDeleting+  | IBSFailed+  | IBSPending+  | IBSRebooting+  | IBSRunning+  | IBSSnapshotting+  | IBSStopped+  | IBSStopping+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)+++instance FromText ImageBuilderState where+    parser = takeLowerText >>= \case+        "deleting" -> pure IBSDeleting+        "failed" -> pure IBSFailed+        "pending" -> pure IBSPending+        "rebooting" -> pure IBSRebooting+        "running" -> pure IBSRunning+        "snapshotting" -> pure IBSSnapshotting+        "stopped" -> pure IBSStopped+        "stopping" -> pure IBSStopping+        e -> fromTextError $ "Failure parsing ImageBuilderState from value: '" <> e+           <> "'. Accepted values: deleting, failed, pending, rebooting, running, snapshotting, stopped, stopping"++instance ToText ImageBuilderState where+    toText = \case+        IBSDeleting -> "DELETING"+        IBSFailed -> "FAILED"+        IBSPending -> "PENDING"+        IBSRebooting -> "REBOOTING"+        IBSRunning -> "RUNNING"+        IBSSnapshotting -> "SNAPSHOTTING"+        IBSStopped -> "STOPPED"+        IBSStopping -> "STOPPING"++instance Hashable     ImageBuilderState+instance NFData       ImageBuilderState+instance ToByteString ImageBuilderState+instance ToQuery      ImageBuilderState+instance ToHeader     ImageBuilderState++instance FromJSON ImageBuilderState where+    parseJSON = parseJSONText "ImageBuilderState"++data ImageBuilderStateChangeReasonCode+  = ImageUnavailable+  | InternalError+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)+++instance FromText ImageBuilderStateChangeReasonCode where+    parser = takeLowerText >>= \case+        "image_unavailable" -> pure ImageUnavailable+        "internal_error" -> pure InternalError+        e -> fromTextError $ "Failure parsing ImageBuilderStateChangeReasonCode from value: '" <> e+           <> "'. Accepted values: image_unavailable, internal_error"++instance ToText ImageBuilderStateChangeReasonCode where+    toText = \case+        ImageUnavailable -> "IMAGE_UNAVAILABLE"+        InternalError -> "INTERNAL_ERROR"++instance Hashable     ImageBuilderStateChangeReasonCode+instance NFData       ImageBuilderStateChangeReasonCode+instance ToByteString ImageBuilderStateChangeReasonCode+instance ToQuery      ImageBuilderStateChangeReasonCode+instance ToHeader     ImageBuilderStateChangeReasonCode++instance FromJSON ImageBuilderStateChangeReasonCode where+    parseJSON = parseJSONText "ImageBuilderStateChangeReasonCode"+ data ImageState-    = ISAvailable-    | ISDeleting-    | ISFailed-    | ISPending-    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+  = ISAvailable+  | ISDeleting+  | ISFailed+  | ISPending+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText ImageState where     parser = takeLowerText >>= \case         "available" -> pure ISAvailable@@ -137,21 +353,22 @@     parseJSON = parseJSONText "ImageState"  data ImageStateChangeReasonCode-    = ImageBuilderNotAvailable-    | InternalError-    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+  = ISCRCImageBuilderNotAvailable+  | ISCRCInternalError+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText ImageStateChangeReasonCode where     parser = takeLowerText >>= \case-        "image_builder_not_available" -> pure ImageBuilderNotAvailable-        "internal_error" -> pure InternalError+        "image_builder_not_available" -> pure ISCRCImageBuilderNotAvailable+        "internal_error" -> pure ISCRCInternalError         e -> fromTextError $ "Failure parsing ImageStateChangeReasonCode from value: '" <> e            <> "'. Accepted values: image_builder_not_available, internal_error"  instance ToText ImageStateChangeReasonCode where     toText = \case-        ImageBuilderNotAvailable -> "IMAGE_BUILDER_NOT_AVAILABLE"-        InternalError -> "INTERNAL_ERROR"+        ISCRCImageBuilderNotAvailable -> "IMAGE_BUILDER_NOT_AVAILABLE"+        ISCRCInternalError -> "INTERNAL_ERROR"  instance Hashable     ImageStateChangeReasonCode instance NFData       ImageStateChangeReasonCode@@ -163,9 +380,10 @@     parseJSON = parseJSONText "ImageStateChangeReasonCode"  data PlatformType =-    Windows-    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+  Windows+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText PlatformType where     parser = takeLowerText >>= \case         "windows" -> pure Windows@@ -189,11 +407,12 @@ -- -- data SessionState-    = Active-    | Expired-    | Pending-    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+  = Active+  | Expired+  | Pending+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText SessionState where     parser = takeLowerText >>= \case         "active" -> pure Active@@ -217,10 +436,68 @@ instance FromJSON SessionState where     parseJSON = parseJSONText "SessionState" +data StackErrorCode+  = SECInternalServiceError+  | SECStorageConnectorError+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)+++instance FromText StackErrorCode where+    parser = takeLowerText >>= \case+        "internal_service_error" -> pure SECInternalServiceError+        "storage_connector_error" -> pure SECStorageConnectorError+        e -> fromTextError $ "Failure parsing StackErrorCode from value: '" <> e+           <> "'. Accepted values: internal_service_error, storage_connector_error"++instance ToText StackErrorCode where+    toText = \case+        SECInternalServiceError -> "INTERNAL_SERVICE_ERROR"+        SECStorageConnectorError -> "STORAGE_CONNECTOR_ERROR"++instance Hashable     StackErrorCode+instance NFData       StackErrorCode+instance ToByteString StackErrorCode+instance ToQuery      StackErrorCode+instance ToHeader     StackErrorCode++instance FromJSON StackErrorCode where+    parseJSON = parseJSONText "StackErrorCode"++-- | The type of storage connector.+--+--+data StorageConnectorType =+  Homefolders+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)+++instance FromText StorageConnectorType where+    parser = takeLowerText >>= \case+        "homefolders" -> pure Homefolders+        e -> fromTextError $ "Failure parsing StorageConnectorType from value: '" <> e+           <> "'. Accepted values: homefolders"++instance ToText StorageConnectorType where+    toText = \case+        Homefolders -> "HOMEFOLDERS"++instance Hashable     StorageConnectorType+instance NFData       StorageConnectorType+instance ToByteString StorageConnectorType+instance ToQuery      StorageConnectorType+instance ToHeader     StorageConnectorType++instance ToJSON StorageConnectorType where+    toJSON = toJSONText++instance FromJSON StorageConnectorType where+    parseJSON = parseJSONText "StorageConnectorType"+ data VisibilityType-    = Private-    | Public-    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+  = Private+  | Public+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)+  instance FromText VisibilityType where     parser = takeLowerText >>= \case