amazonka-importexport 0.0.0 → 0.0.1

raw patch · 5 files changed

+30/−28 lines, 5 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/−3
• gen/Network/AWS/ImportExport/CreateJob.hs +9/−9
• gen/Network/AWS/ImportExport/GetStatus.hs +4/−4
• gen/Network/AWS/ImportExport/Types.hs +9/−7
• gen/Network/AWS/ImportExport/UpdateJob.hs +5/−5

@@ -1,5 +1,5 @@ name:                  amazonka-importexport-version:               0.0.0+version:               0.0.1 synopsis:              Amazon Import/Export SDK. homepage:              https://github.com/brendanhay/amazonka license:               OtherLicense@@ -47,5 +47,5 @@     other-modules:      build-depends:-          amazonka-core-        , base          >= 4.7 && < 5+          amazonka-core == 0.0.1.*+        , base          >= 4.7     && < 5

@@ -58,17 +58,17 @@ import qualified GHC.Exts  data CreateJob = CreateJob-    { _cjJobType          :: Text+    { _cjJobType          :: JobType     , _cjManifest         :: Text     , _cjManifestAddendum :: Maybe Text     , _cjValidateOnly     :: Bool-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Show)  -- | 'CreateJob' constructor. -- -- The fields accessible through corresponding lenses are: ----- * 'cjJobType' @::@ 'Text'+-- * 'cjJobType' @::@ 'JobType' -- -- * 'cjManifest' @::@ 'Text' --@@ -76,7 +76,7 @@ -- -- * 'cjValidateOnly' @::@ 'Bool' ---createJob :: Text -- ^ 'cjJobType'+createJob :: JobType -- ^ 'cjJobType'           -> Text -- ^ 'cjManifest'           -> Bool -- ^ 'cjValidateOnly'           -> CreateJob@@ -87,7 +87,7 @@     , _cjManifestAddendum = Nothing     } -cjJobType :: Lens' CreateJob Text+cjJobType :: Lens' CreateJob JobType cjJobType = lens _cjJobType (\s a -> s { _cjJobType = a })  cjManifest :: Lens' CreateJob Text@@ -103,11 +103,11 @@ data CreateJobResponse = CreateJobResponse     { _cjrAwsShippingAddress    :: Maybe Text     , _cjrJobId                 :: Maybe Text-    , _cjrJobType               :: Maybe Text+    , _cjrJobType               :: Maybe JobType     , _cjrSignature             :: Maybe Text     , _cjrSignatureFileContents :: Maybe Text     , _cjrWarningMessage        :: Maybe Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Show)  -- | 'CreateJobResponse' constructor. --@@ -117,7 +117,7 @@ -- -- * 'cjrJobId' @::@ 'Maybe' 'Text' ----- * 'cjrJobType' @::@ 'Maybe' 'Text'+-- * 'cjrJobType' @::@ 'Maybe' 'JobType' -- -- * 'cjrSignature' @::@ 'Maybe' 'Text' --@@ -142,7 +142,7 @@ cjrJobId :: Lens' CreateJobResponse (Maybe Text) cjrJobId = lens _cjrJobId (\s a -> s { _cjrJobId = a }) -cjrJobType :: Lens' CreateJobResponse (Maybe Text)+cjrJobType :: Lens' CreateJobResponse (Maybe JobType) cjrJobType = lens _cjrJobType (\s a -> s { _cjrJobType = a })  cjrSignature :: Lens' CreateJobResponse (Maybe Text)

@@ -89,7 +89,7 @@     , _gsrCurrentManifest       :: Maybe Text     , _gsrErrorCount            :: Maybe Int     , _gsrJobId                 :: Maybe Text-    , _gsrJobType               :: Maybe Text+    , _gsrJobType               :: Maybe JobType     , _gsrLocationCode          :: Maybe Text     , _gsrLocationMessage       :: Maybe Text     , _gsrLogBucket             :: Maybe Text@@ -99,7 +99,7 @@     , _gsrSignature             :: Maybe Text     , _gsrSignatureFileContents :: Maybe Text     , _gsrTrackingNumber        :: Maybe Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Show)  -- | 'GetStatusResponse' constructor. --@@ -117,7 +117,7 @@ -- -- * 'gsrJobId' @::@ 'Maybe' 'Text' ----- * 'gsrJobType' @::@ 'Maybe' 'Text'+-- * 'gsrJobType' @::@ 'Maybe' 'JobType' -- -- * 'gsrLocationCode' @::@ 'Maybe' 'Text' --@@ -177,7 +177,7 @@ gsrJobId :: Lens' GetStatusResponse (Maybe Text) gsrJobId = lens _gsrJobId (\s a -> s { _gsrJobId = a }) -gsrJobType :: Lens' GetStatusResponse (Maybe Text)+gsrJobType :: Lens' GetStatusResponse (Maybe JobType) gsrJobType = lens _gsrJobType (\s a -> s { _gsrJobType = a })  gsrLocationCode :: Lens' GetStatusResponse (Maybe Text)

@@ -83,18 +83,20 @@         Export' -> "Export"         Import' -> "Import" +instance ToByteString JobType+instance ToHeader     JobType+instance ToQuery      JobType+ instance FromXML JobType where     parseXML = parseXMLText "JobType" -instance ToQuery JobType where-    toQuery = toQuery . toText  data Job = Job     { _jobCreationDate :: RFC822     , _jobIsCanceled   :: Bool     , _jobJobId        :: Text-    , _jobJobType      :: Text-    } deriving (Eq, Ord, Show)+    , _jobJobType      :: JobType+    } deriving (Eq, Show)  -- | 'Job' constructor. --@@ -106,12 +108,12 @@ -- -- * 'jobJobId' @::@ 'Text' ----- * 'jobJobType' @::@ 'Text'+-- * 'jobJobType' @::@ 'JobType' -- job :: Text -- ^ 'jobJobId'     -> UTCTime -- ^ 'jobCreationDate'     -> Bool -- ^ 'jobIsCanceled'-    -> Text -- ^ 'jobJobType'+    -> JobType -- ^ 'jobJobType'     -> Job job p1 p2 p3 p4 = Job     { _jobJobId        = p1@@ -129,7 +131,7 @@ jobJobId :: Lens' Job Text jobJobId = lens _jobJobId (\s a -> s { _jobJobId = a }) -jobJobType :: Lens' Job Text+jobJobType :: Lens' Job JobType jobJobType = lens _jobJobType (\s a -> s { _jobJobType = a })  instance FromXML Job where

@@ -55,10 +55,10 @@  data UpdateJob = UpdateJob     { _ujJobId        :: Text-    , _ujJobType      :: Text+    , _ujJobType      :: JobType     , _ujManifest     :: Text     , _ujValidateOnly :: Bool-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Show)  -- | 'UpdateJob' constructor. --@@ -66,7 +66,7 @@ -- -- * 'ujJobId' @::@ 'Text' ----- * 'ujJobType' @::@ 'Text'+-- * 'ujJobType' @::@ 'JobType' -- -- * 'ujManifest' @::@ 'Text' --@@ -74,7 +74,7 @@ -- updateJob :: Text -- ^ 'ujJobId'           -> Text -- ^ 'ujManifest'-          -> Text -- ^ 'ujJobType'+          -> JobType -- ^ 'ujJobType'           -> Bool -- ^ 'ujValidateOnly'           -> UpdateJob updateJob p1 p2 p3 p4 = UpdateJob@@ -87,7 +87,7 @@ ujJobId :: Lens' UpdateJob Text ujJobId = lens _ujJobId (\s a -> s { _ujJobId = a }) -ujJobType :: Lens' UpdateJob Text+ujJobType :: Lens' UpdateJob JobType ujJobType = lens _ujJobType (\s a -> s { _ujJobType = a })  ujManifest :: Lens' UpdateJob Text