amazonka-devicefarm 1.4.3 → 1.4.4

raw patch · 27 files changed

+1338/−41 lines, 27 filesdep ~amazonka-coredep ~amazonka-devicefarmdep ~amazonka-testPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

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

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-devicefarm.cabal +12/−6
• fixture/CreateRemoteAccessSession.yaml +0/−0
• fixture/CreateRemoteAccessSessionResponse.proto +0/−0
• fixture/DeleteRemoteAccessSession.yaml +0/−0
• fixture/DeleteRemoteAccessSessionResponse.proto +0/−0
• fixture/GetRemoteAccessSession.yaml +0/−0
• fixture/GetRemoteAccessSessionResponse.proto +0/−0
• fixture/InstallToRemoteAccessSession.yaml +0/−0
• fixture/InstallToRemoteAccessSessionResponse.proto +0/−0
• fixture/ListRemoteAccessSessions.yaml +0/−0
• fixture/ListRemoteAccessSessionsResponse.proto +0/−0
• fixture/StopRemoteAccessSession.yaml +0/−0
• fixture/StopRemoteAccessSessionResponse.proto +0/−0
• gen/Network/AWS/DeviceFarm.hs +48/−0
• gen/Network/AWS/DeviceFarm/CreateRemoteAccessSession.hs +169/−0
• gen/Network/AWS/DeviceFarm/CreateUpload.hs +1/−1
• gen/Network/AWS/DeviceFarm/DeleteRemoteAccessSession.hs +126/−0
• gen/Network/AWS/DeviceFarm/GetRemoteAccessSession.hs +136/−0
• gen/Network/AWS/DeviceFarm/InstallToRemoteAccessSession.hs +151/−0
• gen/Network/AWS/DeviceFarm/ListRemoteAccessSessions.hs +158/−0
• gen/Network/AWS/DeviceFarm/StopRemoteAccessSession.hs +136/−0
• gen/Network/AWS/DeviceFarm/Types.hs +24/−0
• gen/Network/AWS/DeviceFarm/Types/Product.hs +244/−15
• gen/Network/AWS/DeviceFarm/Types/Sum.hs +24/−18
• src/.gitkeep +0/−0
• test/Test/AWS/Gen/DeviceFarm.hs +108/−0

@@ -8,7 +8,7 @@  ## Version -`1.4.3`+`1.4.4`   ## Description

@@ -1,5 +1,5 @@ name:                  amazonka-devicefarm-version:               1.4.3+version:               1.4.4 synopsis:              Amazon Device Farm SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -11,7 +11,7 @@ category:              Network, AWS, Cloud, Distributed Computing build-type:            Simple cabal-version:         >= 1.10-extra-source-files:    README.md fixture/*.yaml fixture/*.proto+extra-source-files:    README.md fixture/*.yaml fixture/*.proto src/.gitkeep description:     AWS Device Farm is a service that enables mobile app developers to test Android, iOS, and Fire OS apps on physical phones, tablets, and other devices in the cloud.     .@@ -43,9 +43,11 @@           Network.AWS.DeviceFarm         , Network.AWS.DeviceFarm.CreateDevicePool         , Network.AWS.DeviceFarm.CreateProject+        , Network.AWS.DeviceFarm.CreateRemoteAccessSession         , Network.AWS.DeviceFarm.CreateUpload         , Network.AWS.DeviceFarm.DeleteDevicePool         , Network.AWS.DeviceFarm.DeleteProject+        , Network.AWS.DeviceFarm.DeleteRemoteAccessSession         , Network.AWS.DeviceFarm.DeleteRun         , Network.AWS.DeviceFarm.DeleteUpload         , Network.AWS.DeviceFarm.GetAccountSettings@@ -55,10 +57,12 @@         , Network.AWS.DeviceFarm.GetJob         , Network.AWS.DeviceFarm.GetOfferingStatus         , Network.AWS.DeviceFarm.GetProject+        , Network.AWS.DeviceFarm.GetRemoteAccessSession         , Network.AWS.DeviceFarm.GetRun         , Network.AWS.DeviceFarm.GetSuite         , Network.AWS.DeviceFarm.GetTest         , Network.AWS.DeviceFarm.GetUpload+        , Network.AWS.DeviceFarm.InstallToRemoteAccessSession         , Network.AWS.DeviceFarm.ListArtifacts         , Network.AWS.DeviceFarm.ListDevicePools         , Network.AWS.DeviceFarm.ListDevices@@ -66,6 +70,7 @@         , Network.AWS.DeviceFarm.ListOfferingTransactions         , Network.AWS.DeviceFarm.ListOfferings         , Network.AWS.DeviceFarm.ListProjects+        , Network.AWS.DeviceFarm.ListRemoteAccessSessions         , Network.AWS.DeviceFarm.ListRuns         , Network.AWS.DeviceFarm.ListSamples         , Network.AWS.DeviceFarm.ListSuites@@ -75,6 +80,7 @@         , Network.AWS.DeviceFarm.PurchaseOffering         , Network.AWS.DeviceFarm.RenewOffering         , Network.AWS.DeviceFarm.ScheduleRun+        , Network.AWS.DeviceFarm.StopRemoteAccessSession         , Network.AWS.DeviceFarm.StopRun         , Network.AWS.DeviceFarm.Types         , Network.AWS.DeviceFarm.UpdateDevicePool@@ -86,7 +92,7 @@         , Network.AWS.DeviceFarm.Types.Sum      build-depends:-          amazonka-core == 1.4.3.*+          amazonka-core == 1.4.4.*         , base          >= 4.7     && < 5  test-suite amazonka-devicefarm-test@@ -106,9 +112,9 @@         , Test.AWS.DeviceFarm.Internal      build-depends:-          amazonka-core == 1.4.3.*-        , amazonka-test == 1.4.3.*-        , amazonka-devicefarm == 1.4.3.*+          amazonka-core == 1.4.4.*+        , amazonka-test == 1.4.4.*+        , amazonka-devicefarm == 1.4.4.*         , base         , bytestring         , tasty

@@ -56,6 +56,9 @@     -- ** GetDevicePoolCompatibility     , module Network.AWS.DeviceFarm.GetDevicePoolCompatibility +    -- ** InstallToRemoteAccessSession+    , module Network.AWS.DeviceFarm.InstallToRemoteAccessSession+     -- ** ListTests (Paginated)     , module Network.AWS.DeviceFarm.ListTests @@ -65,6 +68,9 @@     -- ** CreateUpload     , module Network.AWS.DeviceFarm.CreateUpload +    -- ** DeleteRemoteAccessSession+    , module Network.AWS.DeviceFarm.DeleteRemoteAccessSession+     -- ** DeleteUpload     , module Network.AWS.DeviceFarm.DeleteUpload @@ -107,6 +113,9 @@     -- ** ListJobs (Paginated)     , module Network.AWS.DeviceFarm.ListJobs +    -- ** StopRemoteAccessSession+    , module Network.AWS.DeviceFarm.StopRemoteAccessSession+     -- ** GetJob     , module Network.AWS.DeviceFarm.GetJob @@ -122,9 +131,15 @@     -- ** ListSuites (Paginated)     , module Network.AWS.DeviceFarm.ListSuites +    -- ** ListRemoteAccessSessions+    , module Network.AWS.DeviceFarm.ListRemoteAccessSessions+     -- ** GetAccountSettings     , module Network.AWS.DeviceFarm.GetAccountSettings +    -- ** CreateRemoteAccessSession+    , module Network.AWS.DeviceFarm.CreateRemoteAccessSession+     -- ** GetOfferingStatus     , module Network.AWS.DeviceFarm.GetOfferingStatus @@ -134,6 +149,9 @@     -- ** GetSuite     , module Network.AWS.DeviceFarm.GetSuite +    -- ** GetRemoteAccessSession+    , module Network.AWS.DeviceFarm.GetRemoteAccessSession+     -- ** PurchaseOffering     , module Network.AWS.DeviceFarm.PurchaseOffering @@ -245,6 +263,11 @@     , cFailed     , cErrored +    -- ** CreateRemoteAccessSessionConfiguration+    , CreateRemoteAccessSessionConfiguration+    , createRemoteAccessSessionConfiguration+    , crascBillingMethod+     -- ** Device     , Device     , device@@ -252,8 +275,10 @@     , devImage     , devManufacturer     , devPlatform+    , devRemoteAccessEnabled     , devArn     , devFormFactor+    , devFleetType     , devResolution     , devMemory     , devRadio@@ -262,6 +287,7 @@     , devModel     , devCpu     , devHeapSize+    , devFleetName      -- ** DeviceMinutes     , DeviceMinutes@@ -383,6 +409,22 @@     , rcFrequency     , rcCost +    -- ** RemoteAccessSession+    , RemoteAccessSession+    , remoteAccessSession+    , rasBillingMethod+    , rasStatus+    , rasArn+    , rasCreated+    , rasDevice+    , rasStopped+    , rasResult+    , rasName+    , rasDeviceMinutes+    , rasEndpoint+    , rasMessage+    , rasStarted+     -- ** Resolution     , Resolution     , resolution@@ -493,9 +535,11 @@  import           Network.AWS.DeviceFarm.CreateDevicePool import           Network.AWS.DeviceFarm.CreateProject+import           Network.AWS.DeviceFarm.CreateRemoteAccessSession import           Network.AWS.DeviceFarm.CreateUpload import           Network.AWS.DeviceFarm.DeleteDevicePool import           Network.AWS.DeviceFarm.DeleteProject+import           Network.AWS.DeviceFarm.DeleteRemoteAccessSession import           Network.AWS.DeviceFarm.DeleteRun import           Network.AWS.DeviceFarm.DeleteUpload import           Network.AWS.DeviceFarm.GetAccountSettings@@ -505,10 +549,12 @@ import           Network.AWS.DeviceFarm.GetJob import           Network.AWS.DeviceFarm.GetOfferingStatus import           Network.AWS.DeviceFarm.GetProject+import           Network.AWS.DeviceFarm.GetRemoteAccessSession import           Network.AWS.DeviceFarm.GetRun import           Network.AWS.DeviceFarm.GetSuite import           Network.AWS.DeviceFarm.GetTest import           Network.AWS.DeviceFarm.GetUpload+import           Network.AWS.DeviceFarm.InstallToRemoteAccessSession import           Network.AWS.DeviceFarm.ListArtifacts import           Network.AWS.DeviceFarm.ListDevicePools import           Network.AWS.DeviceFarm.ListDevices@@ -516,6 +562,7 @@ import           Network.AWS.DeviceFarm.ListOfferings import           Network.AWS.DeviceFarm.ListOfferingTransactions import           Network.AWS.DeviceFarm.ListProjects+import           Network.AWS.DeviceFarm.ListRemoteAccessSessions import           Network.AWS.DeviceFarm.ListRuns import           Network.AWS.DeviceFarm.ListSamples import           Network.AWS.DeviceFarm.ListSuites@@ -525,6 +572,7 @@ import           Network.AWS.DeviceFarm.PurchaseOffering import           Network.AWS.DeviceFarm.RenewOffering import           Network.AWS.DeviceFarm.ScheduleRun+import           Network.AWS.DeviceFarm.StopRemoteAccessSession import           Network.AWS.DeviceFarm.StopRun import           Network.AWS.DeviceFarm.Types import           Network.AWS.DeviceFarm.UpdateDevicePool

@@ -0,0 +1,169 @@+{-# 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.DeviceFarm.CreateRemoteAccessSession+-- 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)+--+-- Specifies and starts a remote access session.+module Network.AWS.DeviceFarm.CreateRemoteAccessSession+    (+    -- * Creating a Request+      createRemoteAccessSession+    , CreateRemoteAccessSession+    -- * Request Lenses+    , crasName+    , crasConfiguration+    , crasProjectARN+    , crasDeviceARN++    -- * Destructuring the Response+    , createRemoteAccessSessionResponse+    , CreateRemoteAccessSessionResponse+    -- * Response Lenses+    , crasrsRemoteAccessSession+    , crasrsResponseStatus+    ) where++import           Network.AWS.DeviceFarm.Types+import           Network.AWS.DeviceFarm.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | Creates and submits a request to start a remote access session.+--+-- /See:/ 'createRemoteAccessSession' smart constructor.+data CreateRemoteAccessSession = CreateRemoteAccessSession'+    { _crasName          :: !(Maybe Text)+    , _crasConfiguration :: !(Maybe CreateRemoteAccessSessionConfiguration)+    , _crasProjectARN    :: !Text+    , _crasDeviceARN     :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'CreateRemoteAccessSession' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'crasName'+--+-- * 'crasConfiguration'+--+-- * 'crasProjectARN'+--+-- * 'crasDeviceARN'+createRemoteAccessSession+    :: Text -- ^ 'crasProjectARN'+    -> Text -- ^ 'crasDeviceARN'+    -> CreateRemoteAccessSession+createRemoteAccessSession pProjectARN_ pDeviceARN_ =+    CreateRemoteAccessSession'+    { _crasName = Nothing+    , _crasConfiguration = Nothing+    , _crasProjectARN = pProjectARN_+    , _crasDeviceARN = pDeviceARN_+    }++-- | The name of the remote access session that you wish to create.+crasName :: Lens' CreateRemoteAccessSession (Maybe Text)+crasName = lens _crasName (\ s a -> s{_crasName = a});++-- | The configuration information for the remote access session request.+crasConfiguration :: Lens' CreateRemoteAccessSession (Maybe CreateRemoteAccessSessionConfiguration)+crasConfiguration = lens _crasConfiguration (\ s a -> s{_crasConfiguration = a});++-- | The Amazon Resource Name (ARN) of the project for which you want to create a remote access session.+crasProjectARN :: Lens' CreateRemoteAccessSession Text+crasProjectARN = lens _crasProjectARN (\ s a -> s{_crasProjectARN = a});++-- | The Amazon Resource Name (ARN) of the device for which you want to create a remote access session.+crasDeviceARN :: Lens' CreateRemoteAccessSession Text+crasDeviceARN = lens _crasDeviceARN (\ s a -> s{_crasDeviceARN = a});++instance AWSRequest CreateRemoteAccessSession where+        type Rs CreateRemoteAccessSession =+             CreateRemoteAccessSessionResponse+        request = postJSON deviceFarm+        response+          = receiveJSON+              (\ s h x ->+                 CreateRemoteAccessSessionResponse' <$>+                   (x .?> "remoteAccessSession") <*>+                     (pure (fromEnum s)))++instance Hashable CreateRemoteAccessSession++instance NFData CreateRemoteAccessSession++instance ToHeaders CreateRemoteAccessSession where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("DeviceFarm_20150623.CreateRemoteAccessSession" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON CreateRemoteAccessSession where+        toJSON CreateRemoteAccessSession'{..}+          = object+              (catMaybes+                 [("name" .=) <$> _crasName,+                  ("configuration" .=) <$> _crasConfiguration,+                  Just ("projectArn" .= _crasProjectARN),+                  Just ("deviceArn" .= _crasDeviceARN)])++instance ToPath CreateRemoteAccessSession where+        toPath = const "/"++instance ToQuery CreateRemoteAccessSession where+        toQuery = const mempty++-- | Represents the server response from a request to create a remote access session.+--+-- /See:/ 'createRemoteAccessSessionResponse' smart constructor.+data CreateRemoteAccessSessionResponse = CreateRemoteAccessSessionResponse'+    { _crasrsRemoteAccessSession :: !(Maybe RemoteAccessSession)+    , _crasrsResponseStatus      :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'CreateRemoteAccessSessionResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'crasrsRemoteAccessSession'+--+-- * 'crasrsResponseStatus'+createRemoteAccessSessionResponse+    :: Int -- ^ 'crasrsResponseStatus'+    -> CreateRemoteAccessSessionResponse+createRemoteAccessSessionResponse pResponseStatus_ =+    CreateRemoteAccessSessionResponse'+    { _crasrsRemoteAccessSession = Nothing+    , _crasrsResponseStatus = pResponseStatus_+    }++-- | A container that describes the remote access session when the request to create a remote access session is sent.+crasrsRemoteAccessSession :: Lens' CreateRemoteAccessSessionResponse (Maybe RemoteAccessSession)+crasrsRemoteAccessSession = lens _crasrsRemoteAccessSession (\ s a -> s{_crasrsRemoteAccessSession = a});++-- | The response status code.+crasrsResponseStatus :: Lens' CreateRemoteAccessSessionResponse Int+crasrsResponseStatus = lens _crasrsResponseStatus (\ s a -> s{_crasrsResponseStatus = a});++instance NFData CreateRemoteAccessSessionResponse

@@ -87,7 +87,7 @@ cuProjectARN :: Lens' CreateUpload Text cuProjectARN = lens _cuProjectARN (\ s a -> s{_cuProjectARN = a}); --- | The upload\'s file name.+-- | The upload\'s file name. The name should not contain the \'\/\' character. cuName :: Lens' CreateUpload Text cuName = lens _cuName (\ s a -> s{_cuName = a}); 

@@ -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.DeviceFarm.DeleteRemoteAccessSession+-- 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)+--+-- Deletes a completed remote access session and its results.+module Network.AWS.DeviceFarm.DeleteRemoteAccessSession+    (+    -- * Creating a Request+      deleteRemoteAccessSession+    , DeleteRemoteAccessSession+    -- * Request Lenses+    , drasArn++    -- * Destructuring the Response+    , deleteRemoteAccessSessionResponse+    , DeleteRemoteAccessSessionResponse+    -- * Response Lenses+    , drasrsResponseStatus+    ) where++import           Network.AWS.DeviceFarm.Types+import           Network.AWS.DeviceFarm.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | Represents the request to delete the specified remote access session.+--+-- /See:/ 'deleteRemoteAccessSession' smart constructor.+newtype DeleteRemoteAccessSession = DeleteRemoteAccessSession'+    { _drasArn :: Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DeleteRemoteAccessSession' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'drasArn'+deleteRemoteAccessSession+    :: Text -- ^ 'drasArn'+    -> DeleteRemoteAccessSession+deleteRemoteAccessSession pArn_ =+    DeleteRemoteAccessSession'+    { _drasArn = pArn_+    }++-- | The Amazon Resource Name (ARN) of the sesssion for which you want to delete remote access.+drasArn :: Lens' DeleteRemoteAccessSession Text+drasArn = lens _drasArn (\ s a -> s{_drasArn = a});++instance AWSRequest DeleteRemoteAccessSession where+        type Rs DeleteRemoteAccessSession =+             DeleteRemoteAccessSessionResponse+        request = postJSON deviceFarm+        response+          = receiveEmpty+              (\ s h x ->+                 DeleteRemoteAccessSessionResponse' <$>+                   (pure (fromEnum s)))++instance Hashable DeleteRemoteAccessSession++instance NFData DeleteRemoteAccessSession++instance ToHeaders DeleteRemoteAccessSession where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("DeviceFarm_20150623.DeleteRemoteAccessSession" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DeleteRemoteAccessSession where+        toJSON DeleteRemoteAccessSession'{..}+          = object (catMaybes [Just ("arn" .= _drasArn)])++instance ToPath DeleteRemoteAccessSession where+        toPath = const "/"++instance ToQuery DeleteRemoteAccessSession where+        toQuery = const mempty++-- | The response from the server when a request is made to delete the remote access session.+--+-- /See:/ 'deleteRemoteAccessSessionResponse' smart constructor.+newtype DeleteRemoteAccessSessionResponse = DeleteRemoteAccessSessionResponse'+    { _drasrsResponseStatus :: Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DeleteRemoteAccessSessionResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'drasrsResponseStatus'+deleteRemoteAccessSessionResponse+    :: Int -- ^ 'drasrsResponseStatus'+    -> DeleteRemoteAccessSessionResponse+deleteRemoteAccessSessionResponse pResponseStatus_ =+    DeleteRemoteAccessSessionResponse'+    { _drasrsResponseStatus = pResponseStatus_+    }++-- | The response status code.+drasrsResponseStatus :: Lens' DeleteRemoteAccessSessionResponse Int+drasrsResponseStatus = lens _drasrsResponseStatus (\ s a -> s{_drasrsResponseStatus = a});++instance NFData DeleteRemoteAccessSessionResponse

@@ -0,0 +1,136 @@+{-# 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.DeviceFarm.GetRemoteAccessSession+-- 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)+--+-- Returns a link to a currently running remote access session.+module Network.AWS.DeviceFarm.GetRemoteAccessSession+    (+    -- * Creating a Request+      getRemoteAccessSession+    , GetRemoteAccessSession+    -- * Request Lenses+    , grasArn++    -- * Destructuring the Response+    , getRemoteAccessSessionResponse+    , GetRemoteAccessSessionResponse+    -- * Response Lenses+    , grasrsRemoteAccessSession+    , grasrsResponseStatus+    ) where++import           Network.AWS.DeviceFarm.Types+import           Network.AWS.DeviceFarm.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | Represents the request to get information about the specified remote access session.+--+-- /See:/ 'getRemoteAccessSession' smart constructor.+newtype GetRemoteAccessSession = GetRemoteAccessSession'+    { _grasArn :: Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'GetRemoteAccessSession' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'grasArn'+getRemoteAccessSession+    :: Text -- ^ 'grasArn'+    -> GetRemoteAccessSession+getRemoteAccessSession pArn_ =+    GetRemoteAccessSession'+    { _grasArn = pArn_+    }++-- | The Amazon Resource Name (ARN) of the remote access session about which you want to get session information.+grasArn :: Lens' GetRemoteAccessSession Text+grasArn = lens _grasArn (\ s a -> s{_grasArn = a});++instance AWSRequest GetRemoteAccessSession where+        type Rs GetRemoteAccessSession =+             GetRemoteAccessSessionResponse+        request = postJSON deviceFarm+        response+          = receiveJSON+              (\ s h x ->+                 GetRemoteAccessSessionResponse' <$>+                   (x .?> "remoteAccessSession") <*>+                     (pure (fromEnum s)))++instance Hashable GetRemoteAccessSession++instance NFData GetRemoteAccessSession++instance ToHeaders GetRemoteAccessSession where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("DeviceFarm_20150623.GetRemoteAccessSession" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON GetRemoteAccessSession where+        toJSON GetRemoteAccessSession'{..}+          = object (catMaybes [Just ("arn" .= _grasArn)])++instance ToPath GetRemoteAccessSession where+        toPath = const "/"++instance ToQuery GetRemoteAccessSession where+        toQuery = const mempty++-- | Represents the response from the server that lists detailed information about the remote access session.+--+-- /See:/ 'getRemoteAccessSessionResponse' smart constructor.+data GetRemoteAccessSessionResponse = GetRemoteAccessSessionResponse'+    { _grasrsRemoteAccessSession :: !(Maybe RemoteAccessSession)+    , _grasrsResponseStatus      :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'GetRemoteAccessSessionResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'grasrsRemoteAccessSession'+--+-- * 'grasrsResponseStatus'+getRemoteAccessSessionResponse+    :: Int -- ^ 'grasrsResponseStatus'+    -> GetRemoteAccessSessionResponse+getRemoteAccessSessionResponse pResponseStatus_ =+    GetRemoteAccessSessionResponse'+    { _grasrsRemoteAccessSession = Nothing+    , _grasrsResponseStatus = pResponseStatus_+    }++-- | A container that lists detailed information about the remote access session.+grasrsRemoteAccessSession :: Lens' GetRemoteAccessSessionResponse (Maybe RemoteAccessSession)+grasrsRemoteAccessSession = lens _grasrsRemoteAccessSession (\ s a -> s{_grasrsRemoteAccessSession = a});++-- | The response status code.+grasrsResponseStatus :: Lens' GetRemoteAccessSessionResponse Int+grasrsResponseStatus = lens _grasrsResponseStatus (\ s a -> s{_grasrsResponseStatus = a});++instance NFData GetRemoteAccessSessionResponse

@@ -0,0 +1,151 @@+{-# 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.DeviceFarm.InstallToRemoteAccessSession+-- 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)+--+-- Installs an application to the device in a remote access session. For Android applications, the file must be in .apk format. For iOS applications, the file must be in .ipa format.+module Network.AWS.DeviceFarm.InstallToRemoteAccessSession+    (+    -- * Creating a Request+      installToRemoteAccessSession+    , InstallToRemoteAccessSession+    -- * Request Lenses+    , itrasRemoteAccessSessionARN+    , itrasAppARN++    -- * Destructuring the Response+    , installToRemoteAccessSessionResponse+    , InstallToRemoteAccessSessionResponse+    -- * Response Lenses+    , itrasrsAppUpload+    , itrasrsResponseStatus+    ) where++import           Network.AWS.DeviceFarm.Types+import           Network.AWS.DeviceFarm.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | Represents the request to install an Android application (in .apk format) or an iOS application (in .ipa format) as part of a remote access session.+--+-- /See:/ 'installToRemoteAccessSession' smart constructor.+data InstallToRemoteAccessSession = InstallToRemoteAccessSession'+    { _itrasRemoteAccessSessionARN :: !Text+    , _itrasAppARN                 :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'InstallToRemoteAccessSession' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'itrasRemoteAccessSessionARN'+--+-- * 'itrasAppARN'+installToRemoteAccessSession+    :: Text -- ^ 'itrasRemoteAccessSessionARN'+    -> Text -- ^ 'itrasAppARN'+    -> InstallToRemoteAccessSession+installToRemoteAccessSession pRemoteAccessSessionARN_ pAppARN_ =+    InstallToRemoteAccessSession'+    { _itrasRemoteAccessSessionARN = pRemoteAccessSessionARN_+    , _itrasAppARN = pAppARN_+    }++-- | The Amazon Resource Name (ARN) of the remote access session about which you are requesting information.+itrasRemoteAccessSessionARN :: Lens' InstallToRemoteAccessSession Text+itrasRemoteAccessSessionARN = lens _itrasRemoteAccessSessionARN (\ s a -> s{_itrasRemoteAccessSessionARN = a});++-- | The Amazon Resource Name (ARN) of the app about which you are requesting information.+itrasAppARN :: Lens' InstallToRemoteAccessSession Text+itrasAppARN = lens _itrasAppARN (\ s a -> s{_itrasAppARN = a});++instance AWSRequest InstallToRemoteAccessSession+         where+        type Rs InstallToRemoteAccessSession =+             InstallToRemoteAccessSessionResponse+        request = postJSON deviceFarm+        response+          = receiveJSON+              (\ s h x ->+                 InstallToRemoteAccessSessionResponse' <$>+                   (x .?> "appUpload") <*> (pure (fromEnum s)))++instance Hashable InstallToRemoteAccessSession++instance NFData InstallToRemoteAccessSession++instance ToHeaders InstallToRemoteAccessSession where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("DeviceFarm_20150623.InstallToRemoteAccessSession"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON InstallToRemoteAccessSession where+        toJSON InstallToRemoteAccessSession'{..}+          = object+              (catMaybes+                 [Just+                    ("remoteAccessSessionArn" .=+                       _itrasRemoteAccessSessionARN),+                  Just ("appArn" .= _itrasAppARN)])++instance ToPath InstallToRemoteAccessSession where+        toPath = const "/"++instance ToQuery InstallToRemoteAccessSession where+        toQuery = const mempty++-- | Represents the response from the server after AWS Device Farm makes a request to install to a remote access session.+--+-- /See:/ 'installToRemoteAccessSessionResponse' smart constructor.+data InstallToRemoteAccessSessionResponse = InstallToRemoteAccessSessionResponse'+    { _itrasrsAppUpload      :: !(Maybe Upload)+    , _itrasrsResponseStatus :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'InstallToRemoteAccessSessionResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'itrasrsAppUpload'+--+-- * 'itrasrsResponseStatus'+installToRemoteAccessSessionResponse+    :: Int -- ^ 'itrasrsResponseStatus'+    -> InstallToRemoteAccessSessionResponse+installToRemoteAccessSessionResponse pResponseStatus_ =+    InstallToRemoteAccessSessionResponse'+    { _itrasrsAppUpload = Nothing+    , _itrasrsResponseStatus = pResponseStatus_+    }++-- | Undocumented member.+itrasrsAppUpload :: Lens' InstallToRemoteAccessSessionResponse (Maybe Upload)+itrasrsAppUpload = lens _itrasrsAppUpload (\ s a -> s{_itrasrsAppUpload = a});++-- | The response status code.+itrasrsResponseStatus :: Lens' InstallToRemoteAccessSessionResponse Int+itrasrsResponseStatus = lens _itrasrsResponseStatus (\ s a -> s{_itrasrsResponseStatus = a});++instance NFData InstallToRemoteAccessSessionResponse

@@ -0,0 +1,158 @@+{-# 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.DeviceFarm.ListRemoteAccessSessions+-- 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)+--+-- Returns a list of all currently running remote access sessions.+module Network.AWS.DeviceFarm.ListRemoteAccessSessions+    (+    -- * Creating a Request+      listRemoteAccessSessions+    , ListRemoteAccessSessions+    -- * Request Lenses+    , lrasNextToken+    , lrasArn++    -- * Destructuring the Response+    , listRemoteAccessSessionsResponse+    , ListRemoteAccessSessionsResponse+    -- * Response Lenses+    , lrasrsNextToken+    , lrasrsRemoteAccessSessions+    , lrasrsResponseStatus+    ) where++import           Network.AWS.DeviceFarm.Types+import           Network.AWS.DeviceFarm.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | Represents the request to return information about the remote access session.+--+-- /See:/ 'listRemoteAccessSessions' smart constructor.+data ListRemoteAccessSessions = ListRemoteAccessSessions'+    { _lrasNextToken :: !(Maybe Text)+    , _lrasArn       :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'ListRemoteAccessSessions' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lrasNextToken'+--+-- * 'lrasArn'+listRemoteAccessSessions+    :: Text -- ^ 'lrasArn'+    -> ListRemoteAccessSessions+listRemoteAccessSessions pArn_ =+    ListRemoteAccessSessions'+    { _lrasNextToken = Nothing+    , _lrasArn = pArn_+    }++-- | An identifier that was returned from the previous call to this operation, which can be used to return the next set of items in the list.+lrasNextToken :: Lens' ListRemoteAccessSessions (Maybe Text)+lrasNextToken = lens _lrasNextToken (\ s a -> s{_lrasNextToken = a});++-- | The Amazon Resource Name (ARN) of the remote access session about which you are requesting information.+lrasArn :: Lens' ListRemoteAccessSessions Text+lrasArn = lens _lrasArn (\ s a -> s{_lrasArn = a});++instance AWSRequest ListRemoteAccessSessions where+        type Rs ListRemoteAccessSessions =+             ListRemoteAccessSessionsResponse+        request = postJSON deviceFarm+        response+          = receiveJSON+              (\ s h x ->+                 ListRemoteAccessSessionsResponse' <$>+                   (x .?> "nextToken") <*>+                     (x .?> "remoteAccessSessions" .!@ mempty)+                     <*> (pure (fromEnum s)))++instance Hashable ListRemoteAccessSessions++instance NFData ListRemoteAccessSessions++instance ToHeaders ListRemoteAccessSessions where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("DeviceFarm_20150623.ListRemoteAccessSessions" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON ListRemoteAccessSessions where+        toJSON ListRemoteAccessSessions'{..}+          = object+              (catMaybes+                 [("nextToken" .=) <$> _lrasNextToken,+                  Just ("arn" .= _lrasArn)])++instance ToPath ListRemoteAccessSessions where+        toPath = const "/"++instance ToQuery ListRemoteAccessSessions where+        toQuery = const mempty++-- | Represents the response from the server after AWS Device Farm makes a request to return information about the remote access session.+--+-- /See:/ 'listRemoteAccessSessionsResponse' smart constructor.+data ListRemoteAccessSessionsResponse = ListRemoteAccessSessionsResponse'+    { _lrasrsNextToken            :: !(Maybe Text)+    , _lrasrsRemoteAccessSessions :: !(Maybe [RemoteAccessSession])+    , _lrasrsResponseStatus       :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'ListRemoteAccessSessionsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lrasrsNextToken'+--+-- * 'lrasrsRemoteAccessSessions'+--+-- * 'lrasrsResponseStatus'+listRemoteAccessSessionsResponse+    :: Int -- ^ 'lrasrsResponseStatus'+    -> ListRemoteAccessSessionsResponse+listRemoteAccessSessionsResponse pResponseStatus_ =+    ListRemoteAccessSessionsResponse'+    { _lrasrsNextToken = Nothing+    , _lrasrsRemoteAccessSessions = Nothing+    , _lrasrsResponseStatus = pResponseStatus_+    }++-- | An identifier that was returned from the previous call to this operation, which can be used to return the next set of items in the list.+lrasrsNextToken :: Lens' ListRemoteAccessSessionsResponse (Maybe Text)+lrasrsNextToken = lens _lrasrsNextToken (\ s a -> s{_lrasrsNextToken = a});++-- | A container representing the metadata from the service about each remote access session you are requesting.+lrasrsRemoteAccessSessions :: Lens' ListRemoteAccessSessionsResponse [RemoteAccessSession]+lrasrsRemoteAccessSessions = lens _lrasrsRemoteAccessSessions (\ s a -> s{_lrasrsRemoteAccessSessions = a}) . _Default . _Coerce;++-- | The response status code.+lrasrsResponseStatus :: Lens' ListRemoteAccessSessionsResponse Int+lrasrsResponseStatus = lens _lrasrsResponseStatus (\ s a -> s{_lrasrsResponseStatus = a});++instance NFData ListRemoteAccessSessionsResponse

@@ -0,0 +1,136 @@+{-# 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.DeviceFarm.StopRemoteAccessSession+-- 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)+--+-- Ends a specified remote access session.+module Network.AWS.DeviceFarm.StopRemoteAccessSession+    (+    -- * Creating a Request+      stopRemoteAccessSession+    , StopRemoteAccessSession+    -- * Request Lenses+    , srasArn++    -- * Destructuring the Response+    , stopRemoteAccessSessionResponse+    , StopRemoteAccessSessionResponse+    -- * Response Lenses+    , srasrsRemoteAccessSession+    , srasrsResponseStatus+    ) where++import           Network.AWS.DeviceFarm.Types+import           Network.AWS.DeviceFarm.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | Represents the request to stop the remote access session.+--+-- /See:/ 'stopRemoteAccessSession' smart constructor.+newtype StopRemoteAccessSession = StopRemoteAccessSession'+    { _srasArn :: Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'StopRemoteAccessSession' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'srasArn'+stopRemoteAccessSession+    :: Text -- ^ 'srasArn'+    -> StopRemoteAccessSession+stopRemoteAccessSession pArn_ =+    StopRemoteAccessSession'+    { _srasArn = pArn_+    }++-- | The Amazon Resource Name (ARN) of the remote access session you wish to stop.+srasArn :: Lens' StopRemoteAccessSession Text+srasArn = lens _srasArn (\ s a -> s{_srasArn = a});++instance AWSRequest StopRemoteAccessSession where+        type Rs StopRemoteAccessSession =+             StopRemoteAccessSessionResponse+        request = postJSON deviceFarm+        response+          = receiveJSON+              (\ s h x ->+                 StopRemoteAccessSessionResponse' <$>+                   (x .?> "remoteAccessSession") <*>+                     (pure (fromEnum s)))++instance Hashable StopRemoteAccessSession++instance NFData StopRemoteAccessSession++instance ToHeaders StopRemoteAccessSession where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("DeviceFarm_20150623.StopRemoteAccessSession" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON StopRemoteAccessSession where+        toJSON StopRemoteAccessSession'{..}+          = object (catMaybes [Just ("arn" .= _srasArn)])++instance ToPath StopRemoteAccessSession where+        toPath = const "/"++instance ToQuery StopRemoteAccessSession where+        toQuery = const mempty++-- | Represents the response from the server that describes the remote access session when AWS Device Farm stops the session.+--+-- /See:/ 'stopRemoteAccessSessionResponse' smart constructor.+data StopRemoteAccessSessionResponse = StopRemoteAccessSessionResponse'+    { _srasrsRemoteAccessSession :: !(Maybe RemoteAccessSession)+    , _srasrsResponseStatus      :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'StopRemoteAccessSessionResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'srasrsRemoteAccessSession'+--+-- * 'srasrsResponseStatus'+stopRemoteAccessSessionResponse+    :: Int -- ^ 'srasrsResponseStatus'+    -> StopRemoteAccessSessionResponse+stopRemoteAccessSessionResponse pResponseStatus_ =+    StopRemoteAccessSessionResponse'+    { _srasrsRemoteAccessSession = Nothing+    , _srasrsResponseStatus = pResponseStatus_+    }++-- | A container representing the metadata from the service about the remote access session you are stopping.+srasrsRemoteAccessSession :: Lens' StopRemoteAccessSessionResponse (Maybe RemoteAccessSession)+srasrsRemoteAccessSession = lens _srasrsRemoteAccessSession (\ s a -> s{_srasrsRemoteAccessSession = a});++-- | The response status code.+srasrsResponseStatus :: Lens' StopRemoteAccessSessionResponse Int+srasrsResponseStatus = lens _srasrsResponseStatus (\ s a -> s{_srasrsResponseStatus = a});++instance NFData StopRemoteAccessSessionResponse

@@ -111,6 +111,11 @@     , cFailed     , cErrored +    -- * CreateRemoteAccessSessionConfiguration+    , CreateRemoteAccessSessionConfiguration+    , createRemoteAccessSessionConfiguration+    , crascBillingMethod+     -- * Device     , Device     , device@@ -118,8 +123,10 @@     , devImage     , devManufacturer     , devPlatform+    , devRemoteAccessEnabled     , devArn     , devFormFactor+    , devFleetType     , devResolution     , devMemory     , devRadio@@ -128,6 +135,7 @@     , devModel     , devCpu     , devHeapSize+    , devFleetName      -- * DeviceMinutes     , DeviceMinutes@@ -248,6 +256,22 @@     , recurringCharge     , rcFrequency     , rcCost++    -- * RemoteAccessSession+    , RemoteAccessSession+    , remoteAccessSession+    , rasBillingMethod+    , rasStatus+    , rasArn+    , rasCreated+    , rasDevice+    , rasStopped+    , rasResult+    , rasName+    , rasDeviceMinutes+    , rasEndpoint+    , rasMessage+    , rasStarted      -- * Resolution     , Resolution

@@ -332,24 +332,63 @@  instance NFData Counters +-- | Creates the configuration settings for a remote access session, including the device model and type.+--+-- /See:/ 'createRemoteAccessSessionConfiguration' smart constructor.+newtype CreateRemoteAccessSessionConfiguration = CreateRemoteAccessSessionConfiguration'+    { _crascBillingMethod :: Maybe BillingMethod+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'CreateRemoteAccessSessionConfiguration' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'crascBillingMethod'+createRemoteAccessSessionConfiguration+    :: CreateRemoteAccessSessionConfiguration+createRemoteAccessSessionConfiguration =+    CreateRemoteAccessSessionConfiguration'+    { _crascBillingMethod = Nothing+    }++-- | Returns the billing method for purposes of configuring a remote access session.+crascBillingMethod :: Lens' CreateRemoteAccessSessionConfiguration (Maybe BillingMethod)+crascBillingMethod = lens _crascBillingMethod (\ s a -> s{_crascBillingMethod = a});++instance Hashable+         CreateRemoteAccessSessionConfiguration++instance NFData+         CreateRemoteAccessSessionConfiguration++instance ToJSON+         CreateRemoteAccessSessionConfiguration where+        toJSON CreateRemoteAccessSessionConfiguration'{..}+          = object+              (catMaybes+                 [("billingMethod" .=) <$> _crascBillingMethod])+ -- | Represents a device type that an app is tested against. -- -- /See:/ 'device' smart constructor. data Device = Device'-    { _devCarrier      :: !(Maybe Text)-    , _devImage        :: !(Maybe Text)-    , _devManufacturer :: !(Maybe Text)-    , _devPlatform     :: !(Maybe DevicePlatform)-    , _devArn          :: !(Maybe Text)-    , _devFormFactor   :: !(Maybe DeviceFormFactor)-    , _devResolution   :: !(Maybe Resolution)-    , _devMemory       :: !(Maybe Integer)-    , _devRadio        :: !(Maybe Text)-    , _devOs           :: !(Maybe Text)-    , _devName         :: !(Maybe Text)-    , _devModel        :: !(Maybe Text)-    , _devCpu          :: !(Maybe CPU)-    , _devHeapSize     :: !(Maybe Integer)+    { _devCarrier             :: !(Maybe Text)+    , _devImage               :: !(Maybe Text)+    , _devManufacturer        :: !(Maybe Text)+    , _devPlatform            :: !(Maybe DevicePlatform)+    , _devRemoteAccessEnabled :: !(Maybe Bool)+    , _devArn                 :: !(Maybe Text)+    , _devFormFactor          :: !(Maybe DeviceFormFactor)+    , _devFleetType           :: !(Maybe Text)+    , _devResolution          :: !(Maybe Resolution)+    , _devMemory              :: !(Maybe Integer)+    , _devRadio               :: !(Maybe Text)+    , _devOs                  :: !(Maybe Text)+    , _devName                :: !(Maybe Text)+    , _devModel               :: !(Maybe Text)+    , _devCpu                 :: !(Maybe CPU)+    , _devHeapSize            :: !(Maybe Integer)+    , _devFleetName           :: !(Maybe Text)     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'Device' with the minimum fields required to make a request.@@ -364,10 +403,14 @@ -- -- * 'devPlatform' --+-- * 'devRemoteAccessEnabled'+-- -- * 'devArn' -- -- * 'devFormFactor' --+-- * 'devFleetType'+-- -- * 'devResolution' -- -- * 'devMemory'@@ -383,6 +426,8 @@ -- * 'devCpu' -- -- * 'devHeapSize'+--+-- * 'devFleetName' device     :: Device device =@@ -391,8 +436,10 @@     , _devImage = Nothing     , _devManufacturer = Nothing     , _devPlatform = Nothing+    , _devRemoteAccessEnabled = Nothing     , _devArn = Nothing     , _devFormFactor = Nothing+    , _devFleetType = Nothing     , _devResolution = Nothing     , _devMemory = Nothing     , _devRadio = Nothing@@ -401,6 +448,7 @@     , _devModel = Nothing     , _devCpu = Nothing     , _devHeapSize = Nothing+    , _devFleetName = Nothing     }  -- | The device\'s carrier.@@ -426,6 +474,10 @@ devPlatform :: Lens' Device (Maybe DevicePlatform) devPlatform = lens _devPlatform (\ s a -> s{_devPlatform = a}); +-- | Specifies whether remote access has been enabled for the specified device.+devRemoteAccessEnabled :: Lens' Device (Maybe Bool)+devRemoteAccessEnabled = lens _devRemoteAccessEnabled (\ s a -> s{_devRemoteAccessEnabled = a});+ -- | The device\'s ARN. devArn :: Lens' Device (Maybe Text) devArn = lens _devArn (\ s a -> s{_devArn = a});@@ -441,6 +493,10 @@ devFormFactor :: Lens' Device (Maybe DeviceFormFactor) devFormFactor = lens _devFormFactor (\ s a -> s{_devFormFactor = a}); +-- | The type of fleet to which this device belongs. Possible values for fleet type are PRIVATE and PUBLIC.+devFleetType :: Lens' Device (Maybe Text)+devFleetType = lens _devFleetType (\ s a -> s{_devFleetType = a});+ -- | Undocumented member. devResolution :: Lens' Device (Maybe Resolution) devResolution = lens _devResolution (\ s a -> s{_devResolution = a});@@ -473,6 +529,10 @@ devHeapSize :: Lens' Device (Maybe Integer) devHeapSize = lens _devHeapSize (\ s a -> s{_devHeapSize = a}); +-- | The name of the fleet to which this device belongs.+devFleetName :: Lens' Device (Maybe Text)+devFleetName = lens _devFleetName (\ s a -> s{_devFleetName = a});+ instance FromJSON Device where         parseJSON           = withObject "Device"@@ -481,8 +541,10 @@                    (x .:? "carrier") <*> (x .:? "image") <*>                      (x .:? "manufacturer")                      <*> (x .:? "platform")+                     <*> (x .:? "remoteAccessEnabled")                      <*> (x .:? "arn")                      <*> (x .:? "formFactor")+                     <*> (x .:? "fleetType")                      <*> (x .:? "resolution")                      <*> (x .:? "memory")                      <*> (x .:? "radio")@@ -490,7 +552,8 @@                      <*> (x .:? "name")                      <*> (x .:? "model")                      <*> (x .:? "cpu")-                     <*> (x .:? "heapSize"))+                     <*> (x .:? "heapSize")+                     <*> (x .:? "fleetName"))  instance Hashable Device @@ -1501,6 +1564,172 @@ instance Hashable RecurringCharge  instance NFData RecurringCharge++-- | Represents information about the remote access session.+--+-- /See:/ 'remoteAccessSession' smart constructor.+data RemoteAccessSession = RemoteAccessSession'+    { _rasBillingMethod :: !(Maybe BillingMethod)+    , _rasStatus        :: !(Maybe ExecutionStatus)+    , _rasArn           :: !(Maybe Text)+    , _rasCreated       :: !(Maybe POSIX)+    , _rasDevice        :: !(Maybe Device)+    , _rasStopped       :: !(Maybe POSIX)+    , _rasResult        :: !(Maybe ExecutionResult)+    , _rasName          :: !(Maybe Text)+    , _rasDeviceMinutes :: !(Maybe DeviceMinutes)+    , _rasEndpoint      :: !(Maybe Text)+    , _rasMessage       :: !(Maybe Text)+    , _rasStarted       :: !(Maybe POSIX)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'RemoteAccessSession' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'rasBillingMethod'+--+-- * 'rasStatus'+--+-- * 'rasArn'+--+-- * 'rasCreated'+--+-- * 'rasDevice'+--+-- * 'rasStopped'+--+-- * 'rasResult'+--+-- * 'rasName'+--+-- * 'rasDeviceMinutes'+--+-- * 'rasEndpoint'+--+-- * 'rasMessage'+--+-- * 'rasStarted'+remoteAccessSession+    :: RemoteAccessSession+remoteAccessSession =+    RemoteAccessSession'+    { _rasBillingMethod = Nothing+    , _rasStatus = Nothing+    , _rasArn = Nothing+    , _rasCreated = Nothing+    , _rasDevice = Nothing+    , _rasStopped = Nothing+    , _rasResult = Nothing+    , _rasName = Nothing+    , _rasDeviceMinutes = Nothing+    , _rasEndpoint = Nothing+    , _rasMessage = Nothing+    , _rasStarted = Nothing+    }++-- | The billing method of the remote access session. Possible values include 'METERED' or 'UNMETERED'. For more information about metered devices, see <http://docs.aws.amazon.com/devicefarm/latest/developerguide/welcome.html#welcome-terminology AWS Device Farm terminology>.\"+rasBillingMethod :: Lens' RemoteAccessSession (Maybe BillingMethod)+rasBillingMethod = lens _rasBillingMethod (\ s a -> s{_rasBillingMethod = a});++-- | The status of the remote access session. Can be any of the following:+--+-- -   PENDING: A pending status.+--+-- -   PENDING_CONCURRENCY: A pending concurrency status.+--+-- -   PENDING_DEVICE: A pending device status.+--+-- -   PROCESSING: A processing status.+--+-- -   SCHEDULING: A scheduling status.+--+-- -   PREPARING: A preparing status.+--+-- -   RUNNING: A running status.+--+-- -   COMPLETED: A completed status.+--+-- -   STOPPING: A stopping status.+--+rasStatus :: Lens' RemoteAccessSession (Maybe ExecutionStatus)+rasStatus = lens _rasStatus (\ s a -> s{_rasStatus = a});++-- | The Amazon Resource Name (ARN) of the remote access session.+rasArn :: Lens' RemoteAccessSession (Maybe Text)+rasArn = lens _rasArn (\ s a -> s{_rasArn = a});++-- | The date and time the remote access session was created.+rasCreated :: Lens' RemoteAccessSession (Maybe UTCTime)+rasCreated = lens _rasCreated (\ s a -> s{_rasCreated = a}) . mapping _Time;++-- | Undocumented member.+rasDevice :: Lens' RemoteAccessSession (Maybe Device)+rasDevice = lens _rasDevice (\ s a -> s{_rasDevice = a});++-- | The date and time the remote access session was stopped.+rasStopped :: Lens' RemoteAccessSession (Maybe UTCTime)+rasStopped = lens _rasStopped (\ s a -> s{_rasStopped = a}) . mapping _Time;++-- | The result of the remote access session. Can be any of the following:+--+-- -   PENDING: A pending condition.+--+-- -   PASSED: A passing condition.+--+-- -   WARNED: A warning condition.+--+-- -   FAILED: A failed condition.+--+-- -   SKIPPED: A skipped condition.+--+-- -   ERRORED: An error condition.+--+-- -   STOPPED: A stopped condition.+--+rasResult :: Lens' RemoteAccessSession (Maybe ExecutionResult)+rasResult = lens _rasResult (\ s a -> s{_rasResult = a});++-- | The name of the remote access session.+rasName :: Lens' RemoteAccessSession (Maybe Text)+rasName = lens _rasName (\ s a -> s{_rasName = a});++-- | Undocumented member.+rasDeviceMinutes :: Lens' RemoteAccessSession (Maybe DeviceMinutes)+rasDeviceMinutes = lens _rasDeviceMinutes (\ s a -> s{_rasDeviceMinutes = a});++-- | The endpoint for the remote access sesssion.+rasEndpoint :: Lens' RemoteAccessSession (Maybe Text)+rasEndpoint = lens _rasEndpoint (\ s a -> s{_rasEndpoint = a});++-- | A message about the remote access session.+rasMessage :: Lens' RemoteAccessSession (Maybe Text)+rasMessage = lens _rasMessage (\ s a -> s{_rasMessage = a});++-- | The date and time the remote access session was started.+rasStarted :: Lens' RemoteAccessSession (Maybe UTCTime)+rasStarted = lens _rasStarted (\ s a -> s{_rasStarted = a}) . mapping _Time;++instance FromJSON RemoteAccessSession where+        parseJSON+          = withObject "RemoteAccessSession"+              (\ x ->+                 RemoteAccessSession' <$>+                   (x .:? "billingMethod") <*> (x .:? "status") <*>+                     (x .:? "arn")+                     <*> (x .:? "created")+                     <*> (x .:? "device")+                     <*> (x .:? "stopped")+                     <*> (x .:? "result")+                     <*> (x .:? "name")+                     <*> (x .:? "deviceMinutes")+                     <*> (x .:? "endpoint")+                     <*> (x .:? "message")+                     <*> (x .:? "started"))++instance Hashable RemoteAccessSession++instance NFData RemoteAccessSession  -- | Represents the screen resolution of a device in height and width, expressed in pixels. --

@@ -31,7 +31,7 @@         "log" -> pure ACLog         "screenshot" -> pure ACScreenshot         e -> fromTextError $ "Failure parsing ArtifactCategory from value: '" <> e-           <> "'. Accepted values: FILE, LOG, SCREENSHOT"+           <> "'. Accepted values: file, log, screenshot"  instance ToText ArtifactCategory where     toText = \case@@ -71,6 +71,7 @@     | ServiceLog     | Unknown     | Video+    | VideoLog     | WebkitLog     | XctestLog     deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)@@ -99,10 +100,11 @@         "service_log" -> pure ServiceLog         "unknown" -> pure Unknown         "video" -> pure Video+        "video_log" -> pure VideoLog         "webkit_log" -> pure WebkitLog         "xctest_log" -> pure XctestLog         e -> fromTextError $ "Failure parsing ArtifactType from value: '" <> e-           <> "'. Accepted values: APPIUM_JAVA_OUTPUT, APPIUM_JAVA_XML_OUTPUT, APPIUM_PYTHON_OUTPUT, APPIUM_PYTHON_XML_OUTPUT, APPIUM_SERVER_OUTPUT, APPLICATION_CRASH_REPORT, AUTOMATION_OUTPUT, CALABASH_JSON_OUTPUT, CALABASH_JAVA_XML_OUTPUT, CALABASH_PRETTY_OUTPUT, CALABASH_STANDARD_OUTPUT, DEVICE_LOG, EXERCISER_MONKEY_OUTPUT, EXPLORER_EVENT_LOG, EXPLORER_SUMMARY_LOG, INSTRUMENTATION_OUTPUT, MESSAGE_LOG, RESULT_LOG, SCREENSHOT, SERVICE_LOG, UNKNOWN, VIDEO, WEBKIT_LOG, XCTEST_LOG"+           <> "'. Accepted values: appium_java_output, appium_java_xml_output, appium_python_output, appium_python_xml_output, appium_server_output, application_crash_report, automation_output, calabash_json_output, calabash_java_xml_output, calabash_pretty_output, calabash_standard_output, device_log, exerciser_monkey_output, explorer_event_log, explorer_summary_log, instrumentation_output, message_log, result_log, screenshot, service_log, unknown, video, video_log, webkit_log, xctest_log"  instance ToText ArtifactType where     toText = \case@@ -128,6 +130,7 @@         ServiceLog -> "SERVICE_LOG"         Unknown -> "UNKNOWN"         Video -> "VIDEO"+        VideoLog -> "VIDEO_LOG"         WebkitLog -> "WEBKIT_LOG"         XctestLog -> "XCTEST_LOG" @@ -150,7 +153,7 @@         "metered" -> pure Metered         "unmetered" -> pure Unmetered         e -> fromTextError $ "Failure parsing BillingMethod from value: '" <> e-           <> "'. Accepted values: METERED, UNMETERED"+           <> "'. Accepted values: metered, unmetered"  instance ToText BillingMethod where     toText = \case@@ -177,7 +180,7 @@     parser = takeLowerText >>= \case         "usd" -> pure Usd         e -> fromTextError $ "Failure parsing CurrencyCode from value: '" <> e-           <> "'. Accepted values: USD"+           <> "'. Accepted values: usd"  instance ToText CurrencyCode where     toText = \case@@ -197,6 +200,7 @@     | FormFactor     | Manufacturer     | Platform+    | RemoteAccessEnabled     deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)  instance FromText DeviceAttribute where@@ -205,8 +209,9 @@         "form_factor" -> pure FormFactor         "manufacturer" -> pure Manufacturer         "platform" -> pure Platform+        "remote_access_enabled" -> pure RemoteAccessEnabled         e -> fromTextError $ "Failure parsing DeviceAttribute from value: '" <> e-           <> "'. Accepted values: ARN, FORM_FACTOR, MANUFACTURER, PLATFORM"+           <> "'. Accepted values: arn, form_factor, manufacturer, platform, remote_access_enabled"  instance ToText DeviceAttribute where     toText = \case@@ -214,6 +219,7 @@         FormFactor -> "FORM_FACTOR"         Manufacturer -> "MANUFACTURER"         Platform -> "PLATFORM"+        RemoteAccessEnabled -> "REMOTE_ACCESS_ENABLED"  instance Hashable     DeviceAttribute instance NFData       DeviceAttribute@@ -237,7 +243,7 @@         "phone" -> pure Phone         "tablet" -> pure Tablet         e -> fromTextError $ "Failure parsing DeviceFormFactor from value: '" <> e-           <> "'. Accepted values: PHONE, TABLET"+           <> "'. Accepted values: phone, tablet"  instance ToText DeviceFormFactor where     toText = \case@@ -263,7 +269,7 @@         "android" -> pure Android         "ios" -> pure Ios         e -> fromTextError $ "Failure parsing DevicePlatform from value: '" <> e-           <> "'. Accepted values: ANDROID, IOS"+           <> "'. Accepted values: android, ios"  instance ToText DevicePlatform where     toText = \case@@ -289,7 +295,7 @@         "curated" -> pure Curated         "private" -> pure Private         e -> fromTextError $ "Failure parsing DevicePoolType from value: '" <> e-           <> "'. Accepted values: CURATED, PRIVATE"+           <> "'. Accepted values: curated, private"  instance ToText DevicePoolType where     toText = \case@@ -328,7 +334,7 @@         "stopped" -> pure ERStopped         "warned" -> pure ERWarned         e -> fromTextError $ "Failure parsing ExecutionResult from value: '" <> e-           <> "'. Accepted values: ERRORED, FAILED, PASSED, PENDING, SKIPPED, STOPPED, WARNED"+           <> "'. Accepted values: errored, failed, passed, pending, skipped, stopped, warned"  instance ToText ExecutionResult where     toText = \case@@ -373,7 +379,7 @@         "scheduling" -> pure Scheduling         "stopping" -> pure Stopping         e -> fromTextError $ "Failure parsing ExecutionStatus from value: '" <> e-           <> "'. Accepted values: COMPLETED, PENDING, PENDING_CONCURRENCY, PENDING_DEVICE, PREPARING, PROCESSING, RUNNING, SCHEDULING, STOPPING"+           <> "'. Accepted values: completed, pending, pending_concurrency, pending_device, preparing, processing, running, scheduling, stopping"  instance ToText ExecutionStatus where     toText = \case@@ -408,7 +414,7 @@         "renew" -> pure Renew         "system" -> pure System         e -> fromTextError $ "Failure parsing OfferingTransactionType from value: '" <> e-           <> "'. Accepted values: PURCHASE, RENEW, SYSTEM"+           <> "'. Accepted values: purchase, renew, system"  instance ToText OfferingTransactionType where     toText = \case@@ -433,7 +439,7 @@     parser = takeLowerText >>= \case         "recurring" -> pure Recurring         e -> fromTextError $ "Failure parsing OfferingType from value: '" <> e-           <> "'. Accepted values: RECURRING"+           <> "'. Accepted values: recurring"  instance ToText OfferingType where     toText = \case@@ -456,7 +462,7 @@     parser = takeLowerText >>= \case         "monthly" -> pure Monthly         e -> fromTextError $ "Failure parsing RecurringChargeFrequency from value: '" <> e-           <> "'. Accepted values: MONTHLY"+           <> "'. Accepted values: monthly"  instance ToText RecurringChargeFrequency where     toText = \case@@ -487,7 +493,7 @@         "less_than" -> pure LessThan         "not_in" -> pure NotIn         e -> fromTextError $ "Failure parsing RuleOperator from value: '" <> e-           <> "'. Accepted values: EQUALS, GREATER_THAN, IN, LESS_THAN, NOT_IN"+           <> "'. Accepted values: equals, greater_than, in, less_than, not_in"  instance ToText RuleOperator where     toText = \case@@ -549,7 +555,7 @@         "threads" -> pure Threads         "tx_rate" -> pure TxRate         e -> fromTextError $ "Failure parsing SampleType from value: '" <> e-           <> "'. Accepted values: CPU, MEMORY, NATIVE_AVG_DRAWTIME, NATIVE_FPS, NATIVE_FRAMES, NATIVE_MAX_DRAWTIME, NATIVE_MIN_DRAWTIME, OPENGL_AVG_DRAWTIME, OPENGL_FPS, OPENGL_FRAMES, OPENGL_MAX_DRAWTIME, OPENGL_MIN_DRAWTIME, RX, RX_RATE, TX, THREADS, TX_RATE"+           <> "'. Accepted values: cpu, memory, native_avg_drawtime, native_fps, native_frames, native_max_drawtime, native_min_drawtime, opengl_avg_drawtime, opengl_fps, opengl_frames, opengl_max_drawtime, opengl_min_drawtime, rx, rx_rate, tx, threads, tx_rate"  instance ToText SampleType where     toText = \case@@ -614,7 +620,7 @@         "xctest" -> pure Xctest         "xctest_ui" -> pure XctestUi         e -> fromTextError $ "Failure parsing TestType from value: '" <> e-           <> "'. Accepted values: APPIUM_JAVA_JUNIT, APPIUM_JAVA_TESTNG, APPIUM_PYTHON, APPIUM_WEB_JAVA_JUNIT, APPIUM_WEB_JAVA_TESTNG, APPIUM_WEB_PYTHON, BUILTIN_EXPLORER, BUILTIN_FUZZ, CALABASH, INSTRUMENTATION, UIAUTOMATION, UIAUTOMATOR, XCTEST, XCTEST_UI"+           <> "'. Accepted values: appium_java_junit, appium_java_testng, appium_python, appium_web_java_junit, appium_web_java_testng, appium_web_python, builtin_explorer, builtin_fuzz, calabash, instrumentation, uiautomation, uiautomator, xctest, xctest_ui"  instance ToText TestType where     toText = \case@@ -659,7 +665,7 @@         "processing" -> pure USProcessing         "succeeded" -> pure USSucceeded         e -> fromTextError $ "Failure parsing UploadStatus from value: '" <> e-           <> "'. Accepted values: FAILED, INITIALIZED, PROCESSING, SUCCEEDED"+           <> "'. Accepted values: failed, initialized, processing, succeeded"  instance ToText UploadStatus where     toText = \case@@ -715,7 +721,7 @@         "xctest_test_package" -> pure XctestTestPackage         "xctest_ui_test_package" -> pure XctestUiTestPackage         e -> fromTextError $ "Failure parsing UploadType from value: '" <> e-           <> "'. Accepted values: ANDROID_APP, APPIUM_JAVA_JUNIT_TEST_PACKAGE, APPIUM_JAVA_TESTNG_TEST_PACKAGE, APPIUM_PYTHON_TEST_PACKAGE, APPIUM_WEB_JAVA_JUNIT_TEST_PACKAGE, APPIUM_WEB_JAVA_TESTNG_TEST_PACKAGE, APPIUM_WEB_PYTHON_TEST_PACKAGE, CALABASH_TEST_PACKAGE, EXTERNAL_DATA, INSTRUMENTATION_TEST_PACKAGE, IOS_APP, UIAUTOMATION_TEST_PACKAGE, UIAUTOMATOR_TEST_PACKAGE, WEB_APP, XCTEST_TEST_PACKAGE, XCTEST_UI_TEST_PACKAGE"+           <> "'. Accepted values: android_app, appium_java_junit_test_package, appium_java_testng_test_package, appium_python_test_package, appium_web_java_junit_test_package, appium_web_java_testng_test_package, appium_web_python_test_package, calabash_test_package, external_data, instrumentation_test_package, ios_app, uiautomation_test_package, uiautomator_test_package, web_app, xctest_test_package, xctest_ui_test_package"  instance ToText UploadType where     toText = \case

@@ -40,6 +40,9 @@ --         , requestGetDevicePoolCompatibility $ --             getDevicePoolCompatibility --+--         , requestInstallToRemoteAccessSession $+--             installToRemoteAccessSession+-- --         , requestListTests $ --             listTests --@@ -49,6 +52,9 @@ --         , requestCreateUpload $ --             createUpload --+--         , requestDeleteRemoteAccessSession $+--             deleteRemoteAccessSession+-- --         , requestDeleteUpload $ --             deleteUpload --@@ -91,6 +97,9 @@ --         , requestListJobs $ --             listJobs --+--         , requestStopRemoteAccessSession $+--             stopRemoteAccessSession+-- --         , requestGetJob $ --             getJob --@@ -106,9 +115,15 @@ --         , requestListSuites $ --             listSuites --+--         , requestListRemoteAccessSessions $+--             listRemoteAccessSessions+-- --         , requestGetAccountSettings $ --             getAccountSettings --+--         , requestCreateRemoteAccessSession $+--             createRemoteAccessSession+-- --         , requestGetOfferingStatus $ --             getOfferingStatus --@@ -118,6 +133,9 @@ --         , requestGetSuite $ --             getSuite --+--         , requestGetRemoteAccessSession $+--             getRemoteAccessSession+-- --         , requestPurchaseOffering $ --             purchaseOffering --@@ -154,6 +172,9 @@ --         , responseGetDevicePoolCompatibility $ --             getDevicePoolCompatibilityResponse --+--         , responseInstallToRemoteAccessSession $+--             installToRemoteAccessSessionResponse+-- --         , responseListTests $ --             listTestsResponse --@@ -163,6 +184,9 @@ --         , responseCreateUpload $ --             createUploadResponse --+--         , responseDeleteRemoteAccessSession $+--             deleteRemoteAccessSessionResponse+-- --         , responseDeleteUpload $ --             deleteUploadResponse --@@ -205,6 +229,9 @@ --         , responseListJobs $ --             listJobsResponse --+--         , responseStopRemoteAccessSession $+--             stopRemoteAccessSessionResponse+-- --         , responseGetJob $ --             getJobResponse --@@ -220,9 +247,15 @@ --         , responseListSuites $ --             listSuitesResponse --+--         , responseListRemoteAccessSessions $+--             listRemoteAccessSessionsResponse+-- --         , responseGetAccountSettings $ --             getAccountSettingsResponse --+--         , responseCreateRemoteAccessSession $+--             createRemoteAccessSessionResponse+-- --         , responseGetOfferingStatus $ --             getOfferingStatusResponse --@@ -232,6 +265,9 @@ --         , responseGetSuite $ --             getSuiteResponse --+--         , responseGetRemoteAccessSession $+--             getRemoteAccessSessionResponse+-- --         , responsePurchaseOffering $ --             purchaseOfferingResponse --@@ -278,6 +314,11 @@     "GetDevicePoolCompatibility"     "fixture/GetDevicePoolCompatibility.yaml" +requestInstallToRemoteAccessSession :: InstallToRemoteAccessSession -> TestTree+requestInstallToRemoteAccessSession = req+    "InstallToRemoteAccessSession"+    "fixture/InstallToRemoteAccessSession.yaml"+ requestListTests :: ListTests -> TestTree requestListTests = req     "ListTests"@@ -293,6 +334,11 @@     "CreateUpload"     "fixture/CreateUpload.yaml" +requestDeleteRemoteAccessSession :: DeleteRemoteAccessSession -> TestTree+requestDeleteRemoteAccessSession = req+    "DeleteRemoteAccessSession"+    "fixture/DeleteRemoteAccessSession.yaml"+ requestDeleteUpload :: DeleteUpload -> TestTree requestDeleteUpload = req     "DeleteUpload"@@ -363,6 +409,11 @@     "ListJobs"     "fixture/ListJobs.yaml" +requestStopRemoteAccessSession :: StopRemoteAccessSession -> TestTree+requestStopRemoteAccessSession = req+    "StopRemoteAccessSession"+    "fixture/StopRemoteAccessSession.yaml"+ requestGetJob :: GetJob -> TestTree requestGetJob = req     "GetJob"@@ -388,11 +439,21 @@     "ListSuites"     "fixture/ListSuites.yaml" +requestListRemoteAccessSessions :: ListRemoteAccessSessions -> TestTree+requestListRemoteAccessSessions = req+    "ListRemoteAccessSessions"+    "fixture/ListRemoteAccessSessions.yaml"+ requestGetAccountSettings :: GetAccountSettings -> TestTree requestGetAccountSettings = req     "GetAccountSettings"     "fixture/GetAccountSettings.yaml" +requestCreateRemoteAccessSession :: CreateRemoteAccessSession -> TestTree+requestCreateRemoteAccessSession = req+    "CreateRemoteAccessSession"+    "fixture/CreateRemoteAccessSession.yaml"+ requestGetOfferingStatus :: GetOfferingStatus -> TestTree requestGetOfferingStatus = req     "GetOfferingStatus"@@ -408,6 +469,11 @@     "GetSuite"     "fixture/GetSuite.yaml" +requestGetRemoteAccessSession :: GetRemoteAccessSession -> TestTree+requestGetRemoteAccessSession = req+    "GetRemoteAccessSession"+    "fixture/GetRemoteAccessSession.yaml"+ requestPurchaseOffering :: PurchaseOffering -> TestTree requestPurchaseOffering = req     "PurchaseOffering"@@ -473,6 +539,13 @@     deviceFarm     (Proxy :: Proxy GetDevicePoolCompatibility) +responseInstallToRemoteAccessSession :: InstallToRemoteAccessSessionResponse -> TestTree+responseInstallToRemoteAccessSession = res+    "InstallToRemoteAccessSessionResponse"+    "fixture/InstallToRemoteAccessSessionResponse.proto"+    deviceFarm+    (Proxy :: Proxy InstallToRemoteAccessSession)+ responseListTests :: ListTestsResponse -> TestTree responseListTests = res     "ListTestsResponse"@@ -494,6 +567,13 @@     deviceFarm     (Proxy :: Proxy CreateUpload) +responseDeleteRemoteAccessSession :: DeleteRemoteAccessSessionResponse -> TestTree+responseDeleteRemoteAccessSession = res+    "DeleteRemoteAccessSessionResponse"+    "fixture/DeleteRemoteAccessSessionResponse.proto"+    deviceFarm+    (Proxy :: Proxy DeleteRemoteAccessSession)+ responseDeleteUpload :: DeleteUploadResponse -> TestTree responseDeleteUpload = res     "DeleteUploadResponse"@@ -592,6 +672,13 @@     deviceFarm     (Proxy :: Proxy ListJobs) +responseStopRemoteAccessSession :: StopRemoteAccessSessionResponse -> TestTree+responseStopRemoteAccessSession = res+    "StopRemoteAccessSessionResponse"+    "fixture/StopRemoteAccessSessionResponse.proto"+    deviceFarm+    (Proxy :: Proxy StopRemoteAccessSession)+ responseGetJob :: GetJobResponse -> TestTree responseGetJob = res     "GetJobResponse"@@ -627,6 +714,13 @@     deviceFarm     (Proxy :: Proxy ListSuites) +responseListRemoteAccessSessions :: ListRemoteAccessSessionsResponse -> TestTree+responseListRemoteAccessSessions = res+    "ListRemoteAccessSessionsResponse"+    "fixture/ListRemoteAccessSessionsResponse.proto"+    deviceFarm+    (Proxy :: Proxy ListRemoteAccessSessions)+ responseGetAccountSettings :: GetAccountSettingsResponse -> TestTree responseGetAccountSettings = res     "GetAccountSettingsResponse"@@ -634,6 +728,13 @@     deviceFarm     (Proxy :: Proxy GetAccountSettings) +responseCreateRemoteAccessSession :: CreateRemoteAccessSessionResponse -> TestTree+responseCreateRemoteAccessSession = res+    "CreateRemoteAccessSessionResponse"+    "fixture/CreateRemoteAccessSessionResponse.proto"+    deviceFarm+    (Proxy :: Proxy CreateRemoteAccessSession)+ responseGetOfferingStatus :: GetOfferingStatusResponse -> TestTree responseGetOfferingStatus = res     "GetOfferingStatusResponse"@@ -654,6 +755,13 @@     "fixture/GetSuiteResponse.proto"     deviceFarm     (Proxy :: Proxy GetSuite)++responseGetRemoteAccessSession :: GetRemoteAccessSessionResponse -> TestTree+responseGetRemoteAccessSession = res+    "GetRemoteAccessSessionResponse"+    "fixture/GetRemoteAccessSessionResponse.proto"+    deviceFarm+    (Proxy :: Proxy GetRemoteAccessSession)  responsePurchaseOffering :: PurchaseOfferingResponse -> TestTree responsePurchaseOffering = res