diff --git a/amazonka-importexport.cabal b/amazonka-importexport.cabal --- a/amazonka-importexport.cabal +++ b/amazonka-importexport.cabal @@ -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 diff --git a/gen/Network/AWS/ImportExport.hs b/gen/Network/AWS/ImportExport.hs --- a/gen/Network/AWS/ImportExport.hs +++ b/gen/Network/AWS/ImportExport.hs @@ -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 diff --git a/gen/Network/AWS/ImportExport/CancelJob.hs b/gen/Network/AWS/ImportExport/CancelJob.hs --- a/gen/Network/AWS/ImportExport/CancelJob.hs +++ b/gen/Network/AWS/ImportExport/CancelJob.hs @@ -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 diff --git a/gen/Network/AWS/ImportExport/CreateJob.hs b/gen/Network/AWS/ImportExport/CreateJob.hs --- a/gen/Network/AWS/ImportExport/CreateJob.hs +++ b/gen/Network/AWS/ImportExport/CreateJob.hs @@ -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" diff --git a/gen/Network/AWS/ImportExport/GetShippingLabel.hs b/gen/Network/AWS/ImportExport/GetShippingLabel.hs new file mode 100644 --- /dev/null +++ b/gen/Network/AWS/ImportExport/GetShippingLabel.hs @@ -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 +-- 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 +-- 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. +-- +-- +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" diff --git a/gen/Network/AWS/ImportExport/GetStatus.hs b/gen/Network/AWS/ImportExport/GetStatus.hs --- a/gen/Network/AWS/ImportExport/GetStatus.hs +++ b/gen/Network/AWS/ImportExport/GetStatus.hs @@ -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" diff --git a/gen/Network/AWS/ImportExport/ListJobs.hs b/gen/Network/AWS/ImportExport/ListJobs.hs --- a/gen/Network/AWS/ImportExport/ListJobs.hs +++ b/gen/Network/AWS/ImportExport/ListJobs.hs @@ -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 diff --git a/gen/Network/AWS/ImportExport/Types.hs b/gen/Network/AWS/ImportExport/Types.hs --- a/gen/Network/AWS/ImportExport/Types.hs +++ b/gen/Network/AWS/ImportExport/Types.hs @@ -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 diff --git a/gen/Network/AWS/ImportExport/UpdateJob.hs b/gen/Network/AWS/ImportExport/UpdateJob.hs --- a/gen/Network/AWS/ImportExport/UpdateJob.hs +++ b/gen/Network/AWS/ImportExport/UpdateJob.hs @@ -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"