amazonka-codedeploy 0.0.0 → 0.0.1

raw patch · 6 files changed

+115/−59 lines, 6 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-codedeploy.cabal +3/−3
• gen/Network/AWS/CodeDeploy/ListApplicationRevisions.hs +10/−10
• gen/Network/AWS/CodeDeploy/ListDeploymentInstances.hs +4/−4
• gen/Network/AWS/CodeDeploy/ListDeployments.hs +3/−3
• gen/Network/AWS/CodeDeploy/StopDeployment.hs +4/−4
• gen/Network/AWS/CodeDeploy/Types.hs +91/−35

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

@@ -54,13 +54,13 @@  data ListApplicationRevisions = ListApplicationRevisions     { _larApplicationName :: Text-    , _larDeployed        :: Maybe Text+    , _larDeployed        :: Maybe ListStateFilterAction     , _larNextToken       :: Maybe Text     , _larS3Bucket        :: Maybe Text     , _larS3KeyPrefix     :: Maybe Text-    , _larSortBy          :: Maybe Text-    , _larSortOrder       :: Maybe Text-    } deriving (Eq, Ord, Show)+    , _larSortBy          :: Maybe ApplicationRevisionSortBy+    , _larSortOrder       :: Maybe SortOrder+    } deriving (Eq, Show)  -- | 'ListApplicationRevisions' constructor. --@@ -68,7 +68,7 @@ -- -- * 'larApplicationName' @::@ 'Text' ----- * 'larDeployed' @::@ 'Maybe' 'Text'+-- * 'larDeployed' @::@ 'Maybe' 'ListStateFilterAction' -- -- * 'larNextToken' @::@ 'Maybe' 'Text' --@@ -76,9 +76,9 @@ -- -- * 'larS3KeyPrefix' @::@ 'Maybe' 'Text' ----- * 'larSortBy' @::@ 'Maybe' 'Text'+-- * 'larSortBy' @::@ 'Maybe' 'ApplicationRevisionSortBy' ----- * 'larSortOrder' @::@ 'Maybe' 'Text'+-- * 'larSortOrder' @::@ 'Maybe' 'SortOrder' -- listApplicationRevisions :: Text -- ^ 'larApplicationName'                          -> ListApplicationRevisions@@ -103,7 +103,7 @@ -- revisions of a deployment group. exclude: Do not list revisions that are -- target revisions of a deployment group. ignore: List all revisions, -- regardless of whether they are target revisions of a deployment group.-larDeployed :: Lens' ListApplicationRevisions (Maybe Text)+larDeployed :: Lens' ListApplicationRevisions (Maybe ListStateFilterAction) larDeployed = lens _larDeployed (\s a -> s { _larDeployed = a })  -- | An identifier that was returned from the previous list application@@ -128,14 +128,14 @@ -- used by in a deployment. lastUsedTime: Sort the list results by when the -- revisions were last used in a deployment. If not specified or set to -- null, the results will be returned in an arbitrary order.-larSortBy :: Lens' ListApplicationRevisions (Maybe Text)+larSortBy :: Lens' ListApplicationRevisions (Maybe ApplicationRevisionSortBy) larSortBy = lens _larSortBy (\s a -> s { _larSortBy = a })  -- | The order to sort the list results by: ascending: Sort the list results -- in ascending order. descending: Sort the list results in descending -- order. If not specified, the results will be sorted in ascending order. -- If set to null, the results will be sorted in an arbitrary order.-larSortOrder :: Lens' ListApplicationRevisions (Maybe Text)+larSortOrder :: Lens' ListApplicationRevisions (Maybe SortOrder) larSortOrder = lens _larSortOrder (\s a -> s { _larSortOrder = a })  data ListApplicationRevisionsResponse = ListApplicationRevisionsResponse

@@ -51,9 +51,9 @@  data ListDeploymentInstances = ListDeploymentInstances     { _ldiDeploymentId         :: Text-    , _ldiInstanceStatusFilter :: List "instanceStatusFilter" Text+    , _ldiInstanceStatusFilter :: List "instanceStatusFilter" InstanceStatus     , _ldiNextToken            :: Maybe Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Show)  -- | 'ListDeploymentInstances' constructor. --@@ -61,7 +61,7 @@ -- -- * 'ldiDeploymentId' @::@ 'Text' ----- * 'ldiInstanceStatusFilter' @::@ ['Text']+-- * 'ldiInstanceStatusFilter' @::@ ['InstanceStatus'] -- -- * 'ldiNextToken' @::@ 'Maybe' 'Text' --@@ -85,7 +85,7 @@ -- instances with failed deployments. Skipped: Include in the resulting list -- those instances with skipped deployments. Unknown: Include in the -- resulting list those instances with deployments in an unknown state.-ldiInstanceStatusFilter :: Lens' ListDeploymentInstances [Text]+ldiInstanceStatusFilter :: Lens' ListDeploymentInstances [InstanceStatus] ldiInstanceStatusFilter =     lens _ldiInstanceStatusFilter (\s a -> s { _ldiInstanceStatusFilter = a })         . _List

@@ -55,7 +55,7 @@     { _ldApplicationName     :: Maybe Text     , _ldCreateTimeRange     :: Maybe TimeRange     , _ldDeploymentGroupName :: Maybe Text-    , _ldIncludeOnlyStatuses :: List "includeOnlyStatuses" Text+    , _ldIncludeOnlyStatuses :: List "includeOnlyStatuses" DeploymentStatus     , _ldNextToken           :: Maybe Text     } deriving (Eq, Show) @@ -69,7 +69,7 @@ -- -- * 'ldDeploymentGroupName' @::@ 'Maybe' 'Text' ----- * 'ldIncludeOnlyStatuses' @::@ ['Text']+-- * 'ldIncludeOnlyStatuses' @::@ ['DeploymentStatus'] -- -- * 'ldNextToken' @::@ 'Maybe' 'Text' --@@ -105,7 +105,7 @@ -- in-progress deployments. Succeeded: Include in the resulting list -- succeeded deployments. Failed: Include in the resulting list failed -- deployments. Aborted: Include in the resulting list aborted deployments.-ldIncludeOnlyStatuses :: Lens' ListDeployments [Text]+ldIncludeOnlyStatuses :: Lens' ListDeployments [DeploymentStatus] ldIncludeOnlyStatuses =     lens _ldIncludeOnlyStatuses (\s a -> s { _ldIncludeOnlyStatuses = a })         . _List

@@ -67,15 +67,15 @@ sdDeploymentId = lens _sdDeploymentId (\s a -> s { _sdDeploymentId = a })  data StopDeploymentResponse = StopDeploymentResponse-    { _sdrStatus        :: Maybe Text+    { _sdrStatus        :: Maybe StopStatus     , _sdrStatusMessage :: Maybe Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Show)  -- | 'StopDeploymentResponse' constructor. -- -- The fields accessible through corresponding lenses are: ----- * 'sdrStatus' @::@ 'Maybe' 'Text'+-- * 'sdrStatus' @::@ 'Maybe' 'StopStatus' -- -- * 'sdrStatusMessage' @::@ 'Maybe' 'Text' --@@ -87,7 +87,7 @@  -- | The status of the stop deployment operation: Pending: The stop operation -- is pending. Succeeded: The stop operation succeeded.-sdrStatus :: Lens' StopDeploymentResponse (Maybe Text)+sdrStatus :: Lens' StopDeploymentResponse (Maybe StopStatus) sdrStatus = lens _sdrStatus (\s a -> s { _sdrStatus = a })  -- | An accompanying status message.

@@ -386,6 +386,10 @@         Tgz -> "tgz"         Zip -> "zip" +instance ToByteString BundleType+instance ToHeader     BundleType+instance ToQuery      BundleType+ instance FromJSON BundleType where     parseJSON = parseJSONText "BundleType" @@ -448,6 +452,10 @@         Autoscaling -> "autoscaling"         User        -> "user" +instance ToByteString DeploymentCreator+instance ToHeader     DeploymentCreator+instance ToQuery      DeploymentCreator+ instance FromJSON DeploymentCreator where     parseJSON = parseJSONText "DeploymentCreator" @@ -459,7 +467,7 @@     , _isInstanceId      :: Maybe Text     , _isLastUpdatedAt   :: Maybe RFC822     , _isLifecycleEvents :: List "lifecycleEvents" LifecycleEvent-    , _isStatus          :: Maybe Text+    , _isStatus          :: Maybe InstanceStatus     } deriving (Eq, Show)  -- | 'InstanceSummary' constructor.@@ -474,7 +482,7 @@ -- -- * 'isLifecycleEvents' @::@ ['LifecycleEvent'] ----- * 'isStatus' @::@ 'Maybe' 'Text'+-- * 'isStatus' @::@ 'Maybe' 'InstanceStatus' -- instanceSummary :: InstanceSummary instanceSummary = InstanceSummary@@ -509,7 +517,7 @@ -- Failed: The deployment has failed for this instance. Skipped: The -- deployment has been skipped for this instance. Unknown: The deployment -- status is unknown for this instance.-isStatus :: Lens' InstanceSummary (Maybe Text)+isStatus :: Lens' InstanceSummary (Maybe InstanceStatus) isStatus = lens _isStatus (\s a -> s { _isStatus = a })  instance FromJSON InstanceSummary where@@ -693,6 +701,10 @@         LastUsedTime  -> "lastUsedTime"         RegisterTime  -> "registerTime" +instance ToByteString ApplicationRevisionSortBy+instance ToHeader     ApplicationRevisionSortBy+instance ToQuery      ApplicationRevisionSortBy+ instance FromJSON ApplicationRevisionSortBy where     parseJSON = parseJSONText "ApplicationRevisionSortBy" @@ -700,15 +712,15 @@     toJSON = toJSONText  data MinimumHealthyHosts = MinimumHealthyHosts-    { _mhhType  :: Maybe Text+    { _mhhType  :: Maybe MinimumHealthyHostsType     , _mhhValue :: Maybe Int-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Show)  -- | 'MinimumHealthyHosts' constructor. -- -- The fields accessible through corresponding lenses are: ----- * 'mhhType' @::@ 'Maybe' 'Text'+-- * 'mhhType' @::@ 'Maybe' 'MinimumHealthyHostsType' -- -- * 'mhhValue' @::@ 'Maybe' 'Int' --@@ -732,7 +744,7 @@ -- instances type of MOST_CONCURRENCY and a value of 1. This means a -- deployment to only one Amazon EC2 instance at a time. (You cannot set the -- type to MOST_CONCURRENCY, only to HOST_COUNT or FLEET_PERCENT.).-mhhType :: Lens' MinimumHealthyHosts (Maybe Text)+mhhType :: Lens' MinimumHealthyHosts (Maybe MinimumHealthyHostsType) mhhType = lens _mhhType (\s a -> s { _mhhType = a })  -- | The minimum healthy instances value.@@ -769,6 +781,10 @@         Ignore  -> "ignore"         Include -> "include" +instance ToByteString ListStateFilterAction+instance ToHeader     ListStateFilterAction+instance ToQuery      ListStateFilterAction+ instance FromJSON ListStateFilterAction where     parseJSON = parseJSONText "ListStateFilterAction" @@ -803,6 +819,10 @@         Success             -> "Success"         UnknownError        -> "UnknownError" +instance ToByteString LifecycleErrorCode+instance ToHeader     LifecycleErrorCode+instance ToQuery      LifecycleErrorCode+ instance FromJSON LifecycleErrorCode where     parseJSON = parseJSONText "LifecycleErrorCode" @@ -811,7 +831,7 @@  data RevisionLocation = RevisionLocation     { _rlGitHubLocation :: Maybe GitHubLocation-    , _rlRevisionType   :: Maybe Text+    , _rlRevisionType   :: Maybe RevisionLocationType     , _rlS3Location     :: Maybe S3Location     } deriving (Eq, Show) @@ -821,7 +841,7 @@ -- -- * 'rlGitHubLocation' @::@ 'Maybe' 'GitHubLocation' ----- * 'rlRevisionType' @::@ 'Maybe' 'Text'+-- * 'rlRevisionType' @::@ 'Maybe' 'RevisionLocationType' -- -- * 'rlS3Location' @::@ 'Maybe' 'S3Location' --@@ -837,7 +857,7 @@  -- | The application revision's type: S3: An application revision stored in -- Amazon S3. GitHub: An application revision stored in GitHub.-rlRevisionType :: Lens' RevisionLocation (Maybe Text)+rlRevisionType :: Lens' RevisionLocation (Maybe RevisionLocationType) rlRevisionType = lens _rlRevisionType (\s a -> s { _rlRevisionType = a })  rlS3Location :: Lens' RevisionLocation (Maybe S3Location)@@ -884,6 +904,10 @@         Succeeded  -> "Succeeded"         Unknown    -> "Unknown" +instance ToByteString LifecycleEventStatus+instance ToHeader     LifecycleEventStatus+instance ToQuery      LifecycleEventStatus+ instance FromJSON LifecycleEventStatus where     parseJSON = parseJSONText "LifecycleEventStatus" @@ -892,9 +916,9 @@  data EC2TagFilter = EC2TagFilter     { _ectfKey   :: Maybe Text-    , _ectfType  :: Maybe Text+    , _ectfType  :: Maybe EC2TagFilterType     , _ectfValue :: Maybe Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Show)  -- | 'EC2TagFilter' constructor. --@@ -902,7 +926,7 @@ -- -- * 'ectfKey' @::@ 'Maybe' 'Text' ----- * 'ectfType' @::@ 'Maybe' 'Text'+-- * 'ectfType' @::@ 'Maybe' 'EC2TagFilterType' -- -- * 'ectfValue' @::@ 'Maybe' 'Text' --@@ -919,7 +943,7 @@  -- | The Amazon EC2 tag filter type: KEY_ONLY: Key only. VALUE_ONLY: Value -- only. KEY_AND_VALUE: Key and value.-ectfType :: Lens' EC2TagFilter (Maybe Text)+ectfType :: Lens' EC2TagFilter (Maybe EC2TagFilterType) ectfType = lens _ectfType (\s a -> s { _ectfType = a })  -- | The Amazon EC2 tag filter value.@@ -940,17 +964,17 @@         ]  data Diagnostics = Diagnostics-    { _dErrorCode  :: Maybe Text+    { _dErrorCode  :: Maybe LifecycleErrorCode     , _dLogTail    :: Maybe Text     , _dMessage    :: Maybe Text     , _dScriptName :: Maybe Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Show)  -- | 'Diagnostics' constructor. -- -- The fields accessible through corresponding lenses are: ----- * 'dErrorCode' @::@ 'Maybe' 'Text'+-- * 'dErrorCode' @::@ 'Maybe' 'LifecycleErrorCode' -- -- * 'dLogTail' @::@ 'Maybe' 'Text' --@@ -973,7 +997,7 @@ -- running in the specified time period. ScriptFailed: The specified script -- failed to run as expected. UnknownError: The specified script did not run -- for an unknown reason.-dErrorCode :: Lens' Diagnostics (Maybe Text)+dErrorCode :: Lens' Diagnostics (Maybe LifecycleErrorCode) dErrorCode = lens _dErrorCode (\s a -> s { _dErrorCode = a })  -- | The last portion of the associated diagnostic log.@@ -1019,6 +1043,10 @@         SSPending   -> "Pending"         SSSucceeded -> "Succeeded" +instance ToByteString StopStatus+instance ToHeader     StopStatus+instance ToQuery      StopStatus+ instance FromJSON StopStatus where     parseJSON = parseJSONText "StopStatus" @@ -1026,15 +1054,15 @@     toJSON = toJSONText  data ErrorInformation = ErrorInformation-    { _eiCode    :: Maybe Text+    { _eiCode    :: Maybe ErrorCode     , _eiMessage :: Maybe Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Show)  -- | 'ErrorInformation' constructor. -- -- The fields accessible through corresponding lenses are: ----- * 'eiCode' @::@ 'Maybe' 'Text'+-- * 'eiCode' @::@ 'Maybe' 'ErrorCode' -- -- * 'eiMessage' @::@ 'Maybe' 'Text' --@@ -1062,7 +1090,7 @@ -- The deployment failed on too many instances to be able to successfully -- deploy under the specified instance health constraints. INTERNAL_ERROR: -- There was an internal error.-eiCode :: Lens' ErrorInformation (Maybe Text)+eiCode :: Lens' ErrorInformation (Maybe ErrorCode) eiCode = lens _eiCode (\s a -> s { _eiCode = a })  -- | An accompanying error message.@@ -1096,6 +1124,10 @@         Ascending  -> "ascending"         Descending -> "descending" +instance ToByteString SortOrder+instance ToHeader     SortOrder+instance ToQuery      SortOrder+ instance FromJSON SortOrder where     parseJSON = parseJSONText "SortOrder" @@ -1106,7 +1138,7 @@     { _diApplicationName               :: Maybe Text     , _diCompleteTime                  :: Maybe RFC822     , _diCreateTime                    :: Maybe RFC822-    , _diCreator                       :: Maybe Text+    , _diCreator                       :: Maybe DeploymentCreator     , _diDeploymentConfigName          :: Maybe Text     , _diDeploymentGroupName           :: Maybe Text     , _diDeploymentId                  :: Maybe Text@@ -1116,7 +1148,7 @@     , _diIgnoreApplicationStopFailures :: Maybe Bool     , _diRevision                      :: Maybe RevisionLocation     , _diStartTime                     :: Maybe RFC822-    , _diStatus                        :: Maybe Text+    , _diStatus                        :: Maybe DeploymentStatus     } deriving (Eq, Show)  -- | 'DeploymentInfo' constructor.@@ -1129,7 +1161,7 @@ -- -- * 'diCreateTime' @::@ 'Maybe' 'UTCTime' ----- * 'diCreator' @::@ 'Maybe' 'Text'+-- * 'diCreator' @::@ 'Maybe' 'DeploymentCreator' -- -- * 'diDeploymentConfigName' @::@ 'Maybe' 'Text' --@@ -1149,7 +1181,7 @@ -- -- * 'diStartTime' @::@ 'Maybe' 'UTCTime' ----- * 'diStatus' @::@ 'Maybe' 'Text'+-- * 'diStatus' @::@ 'Maybe' 'DeploymentStatus' -- deploymentInfo :: DeploymentInfo deploymentInfo = DeploymentInfo@@ -1184,7 +1216,7 @@  -- | How the deployment was created: user: A user created the deployment. -- autoscaling: Auto Scaling created the deployment.-diCreator :: Lens' DeploymentInfo (Maybe Text)+diCreator :: Lens' DeploymentInfo (Maybe DeploymentCreator) diCreator = lens _diCreator (\s a -> s { _diCreator = a })  -- | The deployment configuration name.@@ -1242,7 +1274,7 @@ diStartTime = lens _diStartTime (\s a -> s { _diStartTime = a }) . mapping _Time  -- | The current state of the deployment as a whole.-diStatus :: Lens' DeploymentInfo (Maybe Text)+diStatus :: Lens' DeploymentInfo (Maybe DeploymentStatus) diStatus = lens _diStatus (\s a -> s { _diStatus = a })  instance FromJSON DeploymentInfo where@@ -1285,7 +1317,7 @@     , _leEndTime            :: Maybe RFC822     , _leLifecycleEventName :: Maybe Text     , _leStartTime          :: Maybe RFC822-    , _leStatus             :: Maybe Text+    , _leStatus             :: Maybe LifecycleEventStatus     } deriving (Eq, Show)  -- | 'LifecycleEvent' constructor.@@ -1300,7 +1332,7 @@ -- -- * 'leStartTime' @::@ 'Maybe' 'UTCTime' ----- * 'leStatus' @::@ 'Maybe' 'Text'+-- * 'leStatus' @::@ 'Maybe' 'LifecycleEventStatus' -- lifecycleEvent :: LifecycleEvent lifecycleEvent = LifecycleEvent@@ -1335,7 +1367,7 @@ -- Failed: The deployment lifecycle event has failed. Skipped: The -- deployment lifecycle event has been skipped. Unknown: The deployment -- lifecycle event is unknown.-leStatus :: Lens' LifecycleEvent (Maybe Text)+leStatus :: Lens' LifecycleEvent (Maybe LifecycleEventStatus) leStatus = lens _leStatus (\s a -> s { _leStatus = a })  instance FromJSON LifecycleEvent where@@ -1466,6 +1498,10 @@         RevisionMissing          -> "REVISION_MISSING"         Timeout                  -> "TIMEOUT" +instance ToByteString ErrorCode+instance ToHeader     ErrorCode+instance ToQuery      ErrorCode+ instance FromJSON ErrorCode where     parseJSON = parseJSONText "ErrorCode" @@ -1561,6 +1597,10 @@         ISSucceeded  -> "Succeeded"         ISUnknown    -> "Unknown" +instance ToByteString InstanceStatus+instance ToHeader     InstanceStatus+instance ToQuery      InstanceStatus+ instance FromJSON InstanceStatus where     parseJSON = parseJSONText "InstanceStatus" @@ -1595,6 +1635,10 @@         DSStopped    -> "Stopped"         DSSucceeded  -> "Succeeded" +instance ToByteString DeploymentStatus+instance ToHeader     DeploymentStatus+instance ToQuery      DeploymentStatus+ instance FromJSON DeploymentStatus where     parseJSON = parseJSONText "DeploymentStatus" @@ -1603,11 +1647,11 @@  data S3Location = S3Location     { _slBucket     :: Maybe Text-    , _slBundleType :: Maybe Text+    , _slBundleType :: Maybe BundleType     , _slETag       :: Maybe Text     , _slKey        :: Maybe Text     , _slVersion    :: Maybe Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Show)  -- | 'S3Location' constructor. --@@ -1615,7 +1659,7 @@ -- -- * 'slBucket' @::@ 'Maybe' 'Text' ----- * 'slBundleType' @::@ 'Maybe' 'Text'+-- * 'slBundleType' @::@ 'Maybe' 'BundleType' -- -- * 'slETag' @::@ 'Maybe' 'Text' --@@ -1640,7 +1684,7 @@ -- | The file type of the application revision. Must be one of the following: -- tar: A tar archive file. tgz: A compressed tar archive file. zip: A zip -- archive file.-slBundleType :: Lens' S3Location (Maybe Text)+slBundleType :: Lens' S3Location (Maybe BundleType) slBundleType = lens _slBundleType (\s a -> s { _slBundleType = a })  -- | The ETag of the Amazon S3 object that represents the bundled artifacts@@ -1693,6 +1737,10 @@         FleetPercent -> "FLEET_PERCENT"         HostCount    -> "HOST_COUNT" +instance ToByteString MinimumHealthyHostsType+instance ToHeader     MinimumHealthyHostsType+instance ToQuery      MinimumHealthyHostsType+ instance FromJSON MinimumHealthyHostsType where     parseJSON = parseJSONText "MinimumHealthyHostsType" @@ -1756,6 +1804,10 @@         GitHub -> "GitHub"         S3     -> "S3" +instance ToByteString RevisionLocationType+instance ToHeader     RevisionLocationType+instance ToQuery      RevisionLocationType+ instance FromJSON RevisionLocationType where     parseJSON = parseJSONText "RevisionLocationType" @@ -1780,6 +1832,10 @@         KeyAndValue -> "KEY_AND_VALUE"         KeyOnly     -> "KEY_ONLY"         ValueOnly   -> "VALUE_ONLY"++instance ToByteString EC2TagFilterType+instance ToHeader     EC2TagFilterType+instance ToQuery      EC2TagFilterType  instance FromJSON EC2TagFilterType where     parseJSON = parseJSONText "EC2TagFilterType"