amazonka-importexport 0.2.2 → 0.2.3

raw patch · 9 files changed

+360/−46 lines, 9 filesdep ~amazonka-corePVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependency ranges changed: amazonka-core

API changes (from Hackage documentation)

Files

• amazonka-importexport.cabal +3/−2
• gen/Network/AWS/ImportExport.hs +2/−0
• gen/Network/AWS/ImportExport/CancelJob.hs +19/−10
• gen/Network/AWS/ImportExport/CreateJob.hs +18/−10
• gen/Network/AWS/ImportExport/GetShippingLabel.hs +217/−0
• gen/Network/AWS/ImportExport/GetStatus.hs +21/−13
• gen/Network/AWS/ImportExport/ListJobs.hs +15/−6
• gen/Network/AWS/ImportExport/Types.hs +42/−0
• gen/Network/AWS/ImportExport/UpdateJob.hs +23/−5

@@ -1,5 +1,5 @@ name:                  amazonka-importexport-version:               0.2.2+version:               0.2.3 synopsis:              Amazon Import/Export SDK. homepage:              https://github.com/brendanhay/amazonka license:               OtherLicense@@ -40,6 +40,7 @@           Network.AWS.ImportExport         , Network.AWS.ImportExport.CancelJob         , Network.AWS.ImportExport.CreateJob+        , Network.AWS.ImportExport.GetShippingLabel         , Network.AWS.ImportExport.GetStatus         , Network.AWS.ImportExport.ListJobs         , Network.AWS.ImportExport.Types@@ -48,5 +49,5 @@     other-modules:      build-depends:-          amazonka-core == 0.2.2.*+          amazonka-core == 0.2.3.*         , base          >= 4.7     && < 5

@@ -19,6 +19,7 @@ module Network.AWS.ImportExport     ( module Network.AWS.ImportExport.CancelJob     , module Network.AWS.ImportExport.CreateJob+    , module Network.AWS.ImportExport.GetShippingLabel     , module Network.AWS.ImportExport.GetStatus     , module Network.AWS.ImportExport.ListJobs     , module Network.AWS.ImportExport.Types@@ -27,6 +28,7 @@  import Network.AWS.ImportExport.CancelJob import Network.AWS.ImportExport.CreateJob+import Network.AWS.ImportExport.GetShippingLabel import Network.AWS.ImportExport.GetStatus import Network.AWS.ImportExport.ListJobs import Network.AWS.ImportExport.Types

@@ -33,7 +33,8 @@     -- ** Request constructor     , cancelJob     -- ** Request lenses-    , cjJobId+    , cj1APIVersion+    , cj1JobId      -- * Response     , CancelJobResponse@@ -48,25 +49,32 @@ import Network.AWS.ImportExport.Types import qualified GHC.Exts -newtype CancelJob = CancelJob-    { _cjJobId :: Text-    } deriving (Eq, Ord, Read, Show, Monoid, IsString)+data CancelJob = CancelJob+    { _cj1APIVersion :: Maybe Text+    , _cj1JobId      :: Text+    } deriving (Eq, Ord, Read, Show)  -- | 'CancelJob' constructor. -- -- The fields accessible through corresponding lenses are: ----- * 'cjJobId' @::@ 'Text'+-- * 'cj1APIVersion' @::@ 'Maybe' 'Text' ---cancelJob :: Text -- ^ 'cjJobId'+-- * 'cj1JobId' @::@ 'Text'+--+cancelJob :: Text -- ^ 'cj1JobId'           -> CancelJob cancelJob p1 = CancelJob-    { _cjJobId = p1+    { _cj1JobId      = p1+    , _cj1APIVersion = Nothing     } -cjJobId :: Lens' CancelJob Text-cjJobId = lens _cjJobId (\s a -> s { _cjJobId = a })+cj1APIVersion :: Lens' CancelJob (Maybe Text)+cj1APIVersion = lens _cj1APIVersion (\s a -> s { _cj1APIVersion = a }) +cj1JobId :: Lens' CancelJob Text+cj1JobId = lens _cj1JobId (\s a -> s { _cj1JobId = a })+ newtype CancelJobResponse = CancelJobResponse     { _cjrSuccess :: Maybe Bool     } deriving (Eq, Ord, Read, Show)@@ -90,7 +98,8 @@  instance ToQuery CancelJob where     toQuery CancelJob{..} = mconcat-        [ "JobId" =? _cjJobId+        [ "APIVersion" =? _cj1APIVersion+        , "JobId"      =? _cj1JobId         ]  instance ToHeaders CancelJob

@@ -36,6 +36,7 @@     -- ** Request constructor     , createJob     -- ** Request lenses+    , cjAPIVersion     , cjJobType     , cjManifest     , cjManifestAddendum@@ -46,7 +47,7 @@     -- ** Response constructor     , createJobResponse     -- ** Response lenses-    , cjrAwsShippingAddress+    , cjrArtifactList     , cjrJobId     , cjrJobType     , cjrSignature@@ -60,7 +61,8 @@ import qualified GHC.Exts  data CreateJob = CreateJob-    { _cjJobType          :: JobType+    { _cjAPIVersion       :: Maybe Text+    , _cjJobType          :: JobType     , _cjManifest         :: Text     , _cjManifestAddendum :: Maybe Text     , _cjValidateOnly     :: Bool@@ -70,6 +72,8 @@ -- -- The fields accessible through corresponding lenses are: --+-- * 'cjAPIVersion' @::@ 'Maybe' 'Text'+-- -- * 'cjJobType' @::@ 'JobType' -- -- * 'cjManifest' @::@ 'Text'@@ -87,8 +91,12 @@     , _cjManifest         = p2     , _cjValidateOnly     = p3     , _cjManifestAddendum = Nothing+    , _cjAPIVersion       = Nothing     } +cjAPIVersion :: Lens' CreateJob (Maybe Text)+cjAPIVersion = lens _cjAPIVersion (\s a -> s { _cjAPIVersion = a })+ cjJobType :: Lens' CreateJob JobType cjJobType = lens _cjJobType (\s a -> s { _cjJobType = a }) @@ -103,7 +111,7 @@ cjValidateOnly = lens _cjValidateOnly (\s a -> s { _cjValidateOnly = a })  data CreateJobResponse = CreateJobResponse-    { _cjrAwsShippingAddress    :: Maybe Text+    { _cjrArtifactList          :: List "member" Artifact     , _cjrJobId                 :: Maybe Text     , _cjrJobType               :: Maybe JobType     , _cjrSignature             :: Maybe Text@@ -115,7 +123,7 @@ -- -- The fields accessible through corresponding lenses are: ----- * 'cjrAwsShippingAddress' @::@ 'Maybe' 'Text'+-- * 'cjrArtifactList' @::@ ['Artifact'] -- -- * 'cjrJobId' @::@ 'Maybe' 'Text' --@@ -131,15 +139,14 @@ createJobResponse = CreateJobResponse     { _cjrJobId                 = Nothing     , _cjrJobType               = Nothing-    , _cjrAwsShippingAddress    = Nothing     , _cjrSignature             = Nothing     , _cjrSignatureFileContents = Nothing     , _cjrWarningMessage        = Nothing+    , _cjrArtifactList          = mempty     } -cjrAwsShippingAddress :: Lens' CreateJobResponse (Maybe Text)-cjrAwsShippingAddress =-    lens _cjrAwsShippingAddress (\s a -> s { _cjrAwsShippingAddress = a })+cjrArtifactList :: Lens' CreateJobResponse [Artifact]+cjrArtifactList = lens _cjrArtifactList (\s a -> s { _cjrArtifactList = a }) . _List  cjrJobId :: Lens' CreateJobResponse (Maybe Text) cjrJobId = lens _cjrJobId (\s a -> s { _cjrJobId = a })@@ -164,7 +171,8 @@  instance ToQuery CreateJob where     toQuery CreateJob{..} = mconcat-        [ "JobType"          =? _cjJobType+        [ "APIVersion"       =? _cjAPIVersion+        , "JobType"          =? _cjJobType         , "Manifest"         =? _cjManifest         , "ManifestAddendum" =? _cjManifestAddendum         , "ValidateOnly"     =? _cjValidateOnly@@ -181,7 +189,7 @@  instance FromXML CreateJobResponse where     parseXML = withElement "CreateJobResult" $ \x -> CreateJobResponse-        <$> x .@? "AwsShippingAddress"+        <$> x .@? "ArtifactList" .!@ mempty         <*> x .@? "JobId"         <*> x .@? "JobType"         <*> x .@? "Signature"

@@ -0,0 +1,217 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.ImportExport.GetShippingLabel+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)+--+-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | This operation returns information about a job, including where the job is in+-- the processing pipeline, the status of the results, and the signature value+-- associated with the job. You can only return information about jobs you own.+--+-- <http://docs.aws.amazon.com/AWSImportExport/latest/DG/WebGetShippingLabel.html>+module Network.AWS.ImportExport.GetShippingLabel+    (+    -- * Request+      GetShippingLabel+    -- ** Request constructor+    , getShippingLabel+    -- ** Request lenses+    , gslAPIVersion+    , gslCity+    , gslCompany+    , gslCountry+    , gslJobIds+    , gslName+    , gslPhoneNumber+    , gslPostalCode+    , gslStateOrProvince+    , gslStreet1+    , gslStreet2+    , gslStreet3++    -- * Response+    , GetShippingLabelResponse+    -- ** Response constructor+    , getShippingLabelResponse+    -- ** Response lenses+    , gslrShippingLabelURL+    , gslrWarning+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.ImportExport.Types+import qualified GHC.Exts++data GetShippingLabel = GetShippingLabel+    { _gslAPIVersion      :: Maybe Text+    , _gslCity            :: Maybe Text+    , _gslCompany         :: Maybe Text+    , _gslCountry         :: Maybe Text+    , _gslJobIds          :: List "member" Text+    , _gslName            :: Maybe Text+    , _gslPhoneNumber     :: Maybe Text+    , _gslPostalCode      :: Maybe Text+    , _gslStateOrProvince :: Maybe Text+    , _gslStreet1         :: Maybe Text+    , _gslStreet2         :: Maybe Text+    , _gslStreet3         :: Maybe Text+    } deriving (Eq, Ord, Read, Show)++-- | 'GetShippingLabel' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'gslAPIVersion' @::@ 'Maybe' 'Text'+--+-- * 'gslCity' @::@ 'Maybe' 'Text'+--+-- * 'gslCompany' @::@ 'Maybe' 'Text'+--+-- * 'gslCountry' @::@ 'Maybe' 'Text'+--+-- * 'gslJobIds' @::@ ['Text']+--+-- * 'gslName' @::@ 'Maybe' 'Text'+--+-- * 'gslPhoneNumber' @::@ 'Maybe' 'Text'+--+-- * 'gslPostalCode' @::@ 'Maybe' 'Text'+--+-- * 'gslStateOrProvince' @::@ 'Maybe' 'Text'+--+-- * 'gslStreet1' @::@ 'Maybe' 'Text'+--+-- * 'gslStreet2' @::@ 'Maybe' 'Text'+--+-- * 'gslStreet3' @::@ 'Maybe' 'Text'+--+getShippingLabel :: GetShippingLabel+getShippingLabel = GetShippingLabel+    { _gslJobIds          = mempty+    , _gslName            = Nothing+    , _gslCompany         = Nothing+    , _gslPhoneNumber     = Nothing+    , _gslCountry         = Nothing+    , _gslStateOrProvince = Nothing+    , _gslCity            = Nothing+    , _gslPostalCode      = Nothing+    , _gslStreet1         = Nothing+    , _gslStreet2         = Nothing+    , _gslStreet3         = Nothing+    , _gslAPIVersion      = Nothing+    }++gslAPIVersion :: Lens' GetShippingLabel (Maybe Text)+gslAPIVersion = lens _gslAPIVersion (\s a -> s { _gslAPIVersion = a })++gslCity :: Lens' GetShippingLabel (Maybe Text)+gslCity = lens _gslCity (\s a -> s { _gslCity = a })++gslCompany :: Lens' GetShippingLabel (Maybe Text)+gslCompany = lens _gslCompany (\s a -> s { _gslCompany = a })++gslCountry :: Lens' GetShippingLabel (Maybe Text)+gslCountry = lens _gslCountry (\s a -> s { _gslCountry = a })++gslJobIds :: Lens' GetShippingLabel [Text]+gslJobIds = lens _gslJobIds (\s a -> s { _gslJobIds = a }) . _List++gslName :: Lens' GetShippingLabel (Maybe Text)+gslName = lens _gslName (\s a -> s { _gslName = a })++gslPhoneNumber :: Lens' GetShippingLabel (Maybe Text)+gslPhoneNumber = lens _gslPhoneNumber (\s a -> s { _gslPhoneNumber = a })++gslPostalCode :: Lens' GetShippingLabel (Maybe Text)+gslPostalCode = lens _gslPostalCode (\s a -> s { _gslPostalCode = a })++gslStateOrProvince :: Lens' GetShippingLabel (Maybe Text)+gslStateOrProvince =+    lens _gslStateOrProvince (\s a -> s { _gslStateOrProvince = a })++gslStreet1 :: Lens' GetShippingLabel (Maybe Text)+gslStreet1 = lens _gslStreet1 (\s a -> s { _gslStreet1 = a })++gslStreet2 :: Lens' GetShippingLabel (Maybe Text)+gslStreet2 = lens _gslStreet2 (\s a -> s { _gslStreet2 = a })++gslStreet3 :: Lens' GetShippingLabel (Maybe Text)+gslStreet3 = lens _gslStreet3 (\s a -> s { _gslStreet3 = a })++data GetShippingLabelResponse = GetShippingLabelResponse+    { _gslrShippingLabelURL :: Maybe Text+    , _gslrWarning          :: Maybe Text+    } deriving (Eq, Ord, Read, Show)++-- | 'GetShippingLabelResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'gslrShippingLabelURL' @::@ 'Maybe' 'Text'+--+-- * 'gslrWarning' @::@ 'Maybe' 'Text'+--+getShippingLabelResponse :: GetShippingLabelResponse+getShippingLabelResponse = GetShippingLabelResponse+    { _gslrShippingLabelURL = Nothing+    , _gslrWarning          = Nothing+    }++gslrShippingLabelURL :: Lens' GetShippingLabelResponse (Maybe Text)+gslrShippingLabelURL =+    lens _gslrShippingLabelURL (\s a -> s { _gslrShippingLabelURL = a })++gslrWarning :: Lens' GetShippingLabelResponse (Maybe Text)+gslrWarning = lens _gslrWarning (\s a -> s { _gslrWarning = a })++instance ToPath GetShippingLabel where+    toPath = const "/"++instance ToQuery GetShippingLabel where+    toQuery GetShippingLabel{..} = mconcat+        [ "APIVersion"      =? _gslAPIVersion+        , "city"            =? _gslCity+        , "company"         =? _gslCompany+        , "country"         =? _gslCountry+        , "jobIds"          =? _gslJobIds+        , "name"            =? _gslName+        , "phoneNumber"     =? _gslPhoneNumber+        , "postalCode"      =? _gslPostalCode+        , "stateOrProvince" =? _gslStateOrProvince+        , "street1"         =? _gslStreet1+        , "street2"         =? _gslStreet2+        , "street3"         =? _gslStreet3+        ]++instance ToHeaders GetShippingLabel++instance AWSRequest GetShippingLabel where+    type Sv GetShippingLabel = ImportExport+    type Rs GetShippingLabel = GetShippingLabelResponse++    request  = post "GetShippingLabel"+    response = xmlResponse++instance FromXML GetShippingLabelResponse where+    parseXML = withElement "GetShippingLabelResult" $ \x -> GetShippingLabelResponse+        <$> x .@? "ShippingLabelURL"+        <*> x .@? "Warning"

@@ -34,6 +34,7 @@     -- ** Request constructor     , getStatus     -- ** Request lenses+    , gsAPIVersion     , gsJobId      -- * Response@@ -41,7 +42,7 @@     -- ** Response constructor     , getStatusResponse     -- ** Response lenses-    , gsrAwsShippingAddress+    , gsrArtifactList     , gsrCarrier     , gsrCreationDate     , gsrCurrentManifest@@ -64,27 +65,34 @@ import Network.AWS.ImportExport.Types import qualified GHC.Exts -newtype GetStatus = GetStatus-    { _gsJobId :: Text-    } deriving (Eq, Ord, Read, Show, Monoid, IsString)+data GetStatus = GetStatus+    { _gsAPIVersion :: Maybe Text+    , _gsJobId      :: Text+    } deriving (Eq, Ord, Read, Show)  -- | 'GetStatus' constructor. -- -- The fields accessible through corresponding lenses are: --+-- * 'gsAPIVersion' @::@ 'Maybe' 'Text'+-- -- * 'gsJobId' @::@ 'Text' -- getStatus :: Text -- ^ 'gsJobId'           -> GetStatus getStatus p1 = GetStatus-    { _gsJobId = p1+    { _gsJobId      = p1+    , _gsAPIVersion = Nothing     } +gsAPIVersion :: Lens' GetStatus (Maybe Text)+gsAPIVersion = lens _gsAPIVersion (\s a -> s { _gsAPIVersion = a })+ gsJobId :: Lens' GetStatus Text gsJobId = lens _gsJobId (\s a -> s { _gsJobId = a })  data GetStatusResponse = GetStatusResponse-    { _gsrAwsShippingAddress    :: Maybe Text+    { _gsrArtifactList          :: List "member" Artifact     , _gsrCarrier               :: Maybe Text     , _gsrCreationDate          :: Maybe ISO8601     , _gsrCurrentManifest       :: Maybe Text@@ -106,7 +114,7 @@ -- -- The fields accessible through corresponding lenses are: ----- * 'gsrAwsShippingAddress' @::@ 'Maybe' 'Text'+-- * 'gsrArtifactList' @::@ ['Artifact'] -- -- * 'gsrCarrier' @::@ 'Maybe' 'Text' --@@ -142,7 +150,6 @@ getStatusResponse = GetStatusResponse     { _gsrJobId                 = Nothing     , _gsrJobType               = Nothing-    , _gsrAwsShippingAddress    = Nothing     , _gsrLocationCode          = Nothing     , _gsrLocationMessage       = Nothing     , _gsrProgressCode          = Nothing@@ -156,11 +163,11 @@     , _gsrSignatureFileContents = Nothing     , _gsrCurrentManifest       = Nothing     , _gsrCreationDate          = Nothing+    , _gsrArtifactList          = mempty     } -gsrAwsShippingAddress :: Lens' GetStatusResponse (Maybe Text)-gsrAwsShippingAddress =-    lens _gsrAwsShippingAddress (\s a -> s { _gsrAwsShippingAddress = a })+gsrArtifactList :: Lens' GetStatusResponse [Artifact]+gsrArtifactList = lens _gsrArtifactList (\s a -> s { _gsrArtifactList = a }) . _List  gsrCarrier :: Lens' GetStatusResponse (Maybe Text) gsrCarrier = lens _gsrCarrier (\s a -> s { _gsrCarrier = a })@@ -218,7 +225,8 @@  instance ToQuery GetStatus where     toQuery GetStatus{..} = mconcat-        [ "JobId" =? _gsJobId+        [ "APIVersion" =? _gsAPIVersion+        , "JobId"      =? _gsJobId         ]  instance ToHeaders GetStatus@@ -232,7 +240,7 @@  instance FromXML GetStatusResponse where     parseXML = withElement "GetStatusResult" $ \x -> GetStatusResponse-        <$> x .@? "AwsShippingAddress"+        <$> x .@? "ArtifactList" .!@ mempty         <*> x .@? "Carrier"         <*> x .@? "CreationDate"         <*> x .@? "CurrentManifest"

@@ -36,6 +36,7 @@     -- ** Request constructor     , listJobs     -- ** Request lenses+    , ljAPIVersion     , ljMarker     , ljMaxJobs @@ -54,24 +55,31 @@ import qualified GHC.Exts  data ListJobs = ListJobs-    { _ljMarker  :: Maybe Text-    , _ljMaxJobs :: Maybe Int+    { _ljAPIVersion :: Maybe Text+    , _ljMarker     :: Maybe Text+    , _ljMaxJobs    :: Maybe Int     } deriving (Eq, Ord, Read, Show)  -- | 'ListJobs' constructor. -- -- The fields accessible through corresponding lenses are: --+-- * 'ljAPIVersion' @::@ 'Maybe' 'Text'+-- -- * 'ljMarker' @::@ 'Maybe' 'Text' -- -- * 'ljMaxJobs' @::@ 'Maybe' 'Int' -- listJobs :: ListJobs listJobs = ListJobs-    { _ljMaxJobs = Nothing-    , _ljMarker  = Nothing+    { _ljMaxJobs    = Nothing+    , _ljMarker     = Nothing+    , _ljAPIVersion = Nothing     } +ljAPIVersion :: Lens' ListJobs (Maybe Text)+ljAPIVersion = lens _ljAPIVersion (\s a -> s { _ljAPIVersion = a })+ ljMarker :: Lens' ListJobs (Maybe Text) ljMarker = lens _ljMarker (\s a -> s { _ljMarker = a }) @@ -108,8 +116,9 @@  instance ToQuery ListJobs where     toQuery ListJobs{..} = mconcat-        [ "Marker"  =? _ljMarker-        , "MaxJobs" =? _ljMaxJobs+        [ "APIVersion" =? _ljAPIVersion+        , "Marker"     =? _ljMarker+        , "MaxJobs"    =? _ljMaxJobs         ]  instance ToHeaders ListJobs

@@ -35,6 +35,12 @@     -- * JobType     , JobType (..) +    -- * Artifact+    , Artifact+    , artifact+    , aDescription+    , aURL+     -- * Job     , Job     , job@@ -118,6 +124,42 @@  instance FromXML JobType where     parseXML = parseXMLText "JobType"++data Artifact = Artifact+    { _aDescription :: Maybe Text+    , _aURL         :: Maybe Text+    } deriving (Eq, Ord, Read, Show)++-- | 'Artifact' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'aDescription' @::@ 'Maybe' 'Text'+--+-- * 'aURL' @::@ 'Maybe' 'Text'+--+artifact :: Artifact+artifact = Artifact+    { _aDescription = Nothing+    , _aURL         = Nothing+    }++aDescription :: Lens' Artifact (Maybe Text)+aDescription = lens _aDescription (\s a -> s { _aDescription = a })++aURL :: Lens' Artifact (Maybe Text)+aURL = lens _aURL (\s a -> s { _aURL = a })++instance FromXML Artifact where+    parseXML x = Artifact+        <$> x .@? "Description"+        <*> x .@? "URL"++instance ToQuery Artifact where+    toQuery Artifact{..} = mconcat+        [ "Description" =? _aDescription+        , "URL"         =? _aURL+        ]  data Job = Job     { _jobCreationDate :: ISO8601

@@ -36,6 +36,7 @@     -- ** Request constructor     , updateJob     -- ** Request lenses+    , ujAPIVersion     , ujJobId     , ujJobType     , ujManifest@@ -46,6 +47,7 @@     -- ** Response constructor     , updateJobResponse     -- ** Response lenses+    , ujrArtifactList     , ujrSuccess     , ujrWarningMessage     ) where@@ -56,7 +58,8 @@ import qualified GHC.Exts  data UpdateJob = UpdateJob-    { _ujJobId        :: Text+    { _ujAPIVersion   :: Maybe Text+    , _ujJobId        :: Text     , _ujJobType      :: JobType     , _ujManifest     :: Text     , _ujValidateOnly :: Bool@@ -66,6 +69,8 @@ -- -- The fields accessible through corresponding lenses are: --+-- * 'ujAPIVersion' @::@ 'Maybe' 'Text'+-- -- * 'ujJobId' @::@ 'Text' -- -- * 'ujJobType' @::@ 'JobType'@@ -84,8 +89,12 @@     , _ujManifest     = p2     , _ujJobType      = p3     , _ujValidateOnly = p4+    , _ujAPIVersion   = Nothing     } +ujAPIVersion :: Lens' UpdateJob (Maybe Text)+ujAPIVersion = lens _ujAPIVersion (\s a -> s { _ujAPIVersion = a })+ ujJobId :: Lens' UpdateJob Text ujJobId = lens _ujJobId (\s a -> s { _ujJobId = a }) @@ -99,14 +108,17 @@ ujValidateOnly = lens _ujValidateOnly (\s a -> s { _ujValidateOnly = a })  data UpdateJobResponse = UpdateJobResponse-    { _ujrSuccess        :: Maybe Bool+    { _ujrArtifactList   :: List "member" Artifact+    , _ujrSuccess        :: Maybe Bool     , _ujrWarningMessage :: Maybe Text-    } deriving (Eq, Ord, Read, Show)+    } deriving (Eq, Read, Show)  -- | 'UpdateJobResponse' constructor. -- -- The fields accessible through corresponding lenses are: --+-- * 'ujrArtifactList' @::@ ['Artifact']+-- -- * 'ujrSuccess' @::@ 'Maybe' 'Bool' -- -- * 'ujrWarningMessage' @::@ 'Maybe' 'Text'@@ -115,8 +127,12 @@ updateJobResponse = UpdateJobResponse     { _ujrSuccess        = Nothing     , _ujrWarningMessage = Nothing+    , _ujrArtifactList   = mempty     } +ujrArtifactList :: Lens' UpdateJobResponse [Artifact]+ujrArtifactList = lens _ujrArtifactList (\s a -> s { _ujrArtifactList = a }) . _List+ ujrSuccess :: Lens' UpdateJobResponse (Maybe Bool) ujrSuccess = lens _ujrSuccess (\s a -> s { _ujrSuccess = a }) @@ -129,7 +145,8 @@  instance ToQuery UpdateJob where     toQuery UpdateJob{..} = mconcat-        [ "JobId"        =? _ujJobId+        [ "APIVersion"   =? _ujAPIVersion+        , "JobId"        =? _ujJobId         , "JobType"      =? _ujJobType         , "Manifest"     =? _ujManifest         , "ValidateOnly" =? _ujValidateOnly@@ -146,5 +163,6 @@  instance FromXML UpdateJobResponse where     parseXML = withElement "UpdateJobResult" $ \x -> UpdateJobResponse-        <$> x .@? "Success"+        <$> x .@? "ArtifactList" .!@ mempty+        <*> x .@? "Success"         <*> x .@? "WarningMessage"