diff --git a/amazonka-config.cabal b/amazonka-config.cabal --- a/amazonka-config.cabal +++ b/amazonka-config.cabal @@ -1,5 +1,5 @@ name: amazonka-config -version: 0.0.0 +version: 0.0.1 synopsis: Amazon Config SDK. homepage: https://github.com/brendanhay/amazonka license: OtherLicense @@ -55,5 +55,5 @@ other-modules: build-depends: - amazonka-core - , base >= 4.7 && < 5 + amazonka-core == 0.0.1.* + , base >= 4.7 && < 5 diff --git a/gen/Network/AWS/Config/GetResourceConfigHistory.hs b/gen/Network/AWS/Config/GetResourceConfigHistory.hs --- a/gen/Network/AWS/Config/GetResourceConfigHistory.hs +++ b/gen/Network/AWS/Config/GetResourceConfigHistory.hs @@ -57,20 +57,20 @@ import qualified GHC.Exts data GetResourceConfigHistory = GetResourceConfigHistory - { _grchChronologicalOrder :: Maybe Text + { _grchChronologicalOrder :: Maybe ChronologicalOrder , _grchEarlierTime :: Maybe RFC822 , _grchLaterTime :: Maybe RFC822 , _grchLimit :: Maybe Nat , _grchNextToken :: Maybe Text , _grchResourceId :: Text - , _grchResourceType :: Text - } deriving (Eq, Ord, Show) + , _grchResourceType :: ResourceType + } deriving (Eq, Show) -- | 'GetResourceConfigHistory' constructor. -- -- The fields accessible through corresponding lenses are: -- --- * 'grchChronologicalOrder' @::@ 'Maybe' 'Text' +-- * 'grchChronologicalOrder' @::@ 'Maybe' 'ChronologicalOrder' -- -- * 'grchEarlierTime' @::@ 'Maybe' 'UTCTime' -- @@ -82,9 +82,9 @@ -- -- * 'grchResourceId' @::@ 'Text' -- --- * 'grchResourceType' @::@ 'Text' +-- * 'grchResourceType' @::@ 'ResourceType' -- -getResourceConfigHistory :: Text -- ^ 'grchResourceType' +getResourceConfigHistory :: ResourceType -- ^ 'grchResourceType' -> Text -- ^ 'grchResourceId' -> GetResourceConfigHistory getResourceConfigHistory p1 p2 = GetResourceConfigHistory @@ -99,7 +99,7 @@ -- | The chronological order for configuration items listed. By default the -- results are listed in reverse chronological order. -grchChronologicalOrder :: Lens' GetResourceConfigHistory (Maybe Text) +grchChronologicalOrder :: Lens' GetResourceConfigHistory (Maybe ChronologicalOrder) grchChronologicalOrder = lens _grchChronologicalOrder (\s a -> s { _grchChronologicalOrder = a }) @@ -128,7 +128,7 @@ grchResourceId = lens _grchResourceId (\s a -> s { _grchResourceId = a }) -- | The resource type. -grchResourceType :: Lens' GetResourceConfigHistory Text +grchResourceType :: Lens' GetResourceConfigHistory ResourceType grchResourceType = lens _grchResourceType (\s a -> s { _grchResourceType = a }) data GetResourceConfigHistoryResponse = GetResourceConfigHistoryResponse diff --git a/gen/Network/AWS/Config/Types.hs b/gen/Network/AWS/Config/Types.hs --- a/gen/Network/AWS/Config/Types.hs +++ b/gen/Network/AWS/Config/Types.hs @@ -148,9 +148,9 @@ { _cediLastAttemptTime :: Maybe RFC822 , _cediLastErrorCode :: Maybe Text , _cediLastErrorMessage :: Maybe Text - , _cediLastStatus :: Maybe Text + , _cediLastStatus :: Maybe DeliveryStatus , _cediLastSuccessfulTime :: Maybe RFC822 - } deriving (Eq, Ord, Show) + } deriving (Eq, Show) -- | 'ConfigExportDeliveryInfo' constructor. -- @@ -162,7 +162,7 @@ -- -- * 'cediLastErrorMessage' @::@ 'Maybe' 'Text' -- --- * 'cediLastStatus' @::@ 'Maybe' 'Text' +-- * 'cediLastStatus' @::@ 'Maybe' 'DeliveryStatus' -- -- * 'cediLastSuccessfulTime' @::@ 'Maybe' 'UTCTime' -- @@ -192,7 +192,7 @@ lens _cediLastErrorMessage (\s a -> s { _cediLastErrorMessage = a }) -- | Status of the last attempted delivery. -cediLastStatus :: Lens' ConfigExportDeliveryInfo (Maybe Text) +cediLastStatus :: Lens' ConfigExportDeliveryInfo (Maybe DeliveryStatus) cediLastStatus = lens _cediLastStatus (\s a -> s { _cediLastStatus = a }) -- | The time of the last successful delivery. @@ -221,9 +221,9 @@ data ConfigStreamDeliveryInfo = ConfigStreamDeliveryInfo { _csdiLastErrorCode :: Maybe Text , _csdiLastErrorMessage :: Maybe Text - , _csdiLastStatus :: Maybe Text + , _csdiLastStatus :: Maybe DeliveryStatus , _csdiLastStatusChangeTime :: Maybe RFC822 - } deriving (Eq, Ord, Show) + } deriving (Eq, Show) -- | 'ConfigStreamDeliveryInfo' constructor. -- @@ -233,7 +233,7 @@ -- -- * 'csdiLastErrorMessage' @::@ 'Maybe' 'Text' -- --- * 'csdiLastStatus' @::@ 'Maybe' 'Text' +-- * 'csdiLastStatus' @::@ 'Maybe' 'DeliveryStatus' -- -- * 'csdiLastStatusChangeTime' @::@ 'Maybe' 'UTCTime' -- @@ -256,7 +256,7 @@ lens _csdiLastErrorMessage (\s a -> s { _csdiLastErrorMessage = a }) -- | Status of the last attempted delivery. -csdiLastStatus :: Lens' ConfigStreamDeliveryInfo (Maybe Text) +csdiLastStatus :: Lens' ConfigStreamDeliveryInfo (Maybe DeliveryStatus) csdiLastStatus = lens _csdiLastStatus (\s a -> s { _csdiLastStatus = a }) -- | The time from the last status change. @@ -284,8 +284,8 @@ data Relationship = Relationship { _rRelationshipName :: Maybe Text , _rResourceId :: Maybe Text - , _rResourceType :: Maybe Text - } deriving (Eq, Ord, Show) + , _rResourceType :: Maybe ResourceType + } deriving (Eq, Show) -- | 'Relationship' constructor. -- @@ -295,7 +295,7 @@ -- -- * 'rResourceId' @::@ 'Maybe' 'Text' -- --- * 'rResourceType' @::@ 'Maybe' 'Text' +-- * 'rResourceType' @::@ 'Maybe' 'ResourceType' -- relationship :: Relationship relationship = Relationship @@ -314,7 +314,7 @@ rResourceId = lens _rResourceId (\s a -> s { _rResourceId = a }) -- | The resource type of the related resource. -rResourceType :: Lens' Relationship (Maybe Text) +rResourceType :: Lens' Relationship (Maybe ResourceType) rResourceType = lens _rResourceType (\s a -> s { _rResourceType = a }) instance FromJSON Relationship where @@ -408,6 +408,10 @@ Forward -> "Forward" Reverse -> "Reverse" +instance ToByteString ChronologicalOrder +instance ToHeader ChronologicalOrder +instance ToQuery ChronologicalOrder + instance FromJSON ChronologicalOrder where parseJSON = parseJSONText "ChronologicalOrder" @@ -466,6 +470,10 @@ AWSEC2VPNGateway -> "AWS::EC2::VPNGateway" AWSEC2Volume -> "AWS::EC2::Volume" +instance ToByteString ResourceType +instance ToHeader ResourceType +instance ToQuery ResourceType + instance FromJSON ResourceType where parseJSON = parseJSONText "ResourceType" @@ -479,13 +487,13 @@ , _ciConfiguration :: Maybe Text , _ciConfigurationItemCaptureTime :: Maybe RFC822 , _ciConfigurationItemMD5Hash :: Maybe Text - , _ciConfigurationItemStatus :: Maybe Text + , _ciConfigurationItemStatus :: Maybe ConfigurationItemStatus , _ciConfigurationStateId :: Maybe Text , _ciRelatedEvents :: List "relatedEvents" Text , _ciRelationships :: List "relationships" Relationship , _ciResourceCreationTime :: Maybe RFC822 , _ciResourceId :: Maybe Text - , _ciResourceType :: Maybe Text + , _ciResourceType :: Maybe ResourceType , _ciTags :: Map Text Text , _ciVersion :: Maybe Text } deriving (Eq, Show) @@ -506,7 +514,7 @@ -- -- * 'ciConfigurationItemMD5Hash' @::@ 'Maybe' 'Text' -- --- * 'ciConfigurationItemStatus' @::@ 'Maybe' 'Text' +-- * 'ciConfigurationItemStatus' @::@ 'Maybe' 'ConfigurationItemStatus' -- -- * 'ciConfigurationStateId' @::@ 'Maybe' 'Text' -- @@ -518,7 +526,7 @@ -- -- * 'ciResourceId' @::@ 'Maybe' 'Text' -- --- * 'ciResourceType' @::@ 'Maybe' 'Text' +-- * 'ciResourceType' @::@ 'Maybe' 'ResourceType' -- -- * 'ciTags' @::@ 'HashMap' 'Text' 'Text' -- @@ -576,7 +584,7 @@ (\s a -> s { _ciConfigurationItemMD5Hash = a }) -- | The configuration item status. -ciConfigurationItemStatus :: Lens' ConfigurationItem (Maybe Text) +ciConfigurationItemStatus :: Lens' ConfigurationItem (Maybe ConfigurationItemStatus) ciConfigurationItemStatus = lens _ciConfigurationItemStatus (\s a -> s { _ciConfigurationItemStatus = a }) @@ -610,7 +618,7 @@ ciResourceId = lens _ciResourceId (\s a -> s { _ciResourceId = a }) -- | The type of AWS resource. -ciResourceType :: Lens' ConfigurationItem (Maybe Text) +ciResourceType :: Lens' ConfigurationItem (Maybe ResourceType) ciResourceType = lens _ciResourceType (\s a -> s { _ciResourceType = a }) -- | A mapping of key value tags associated with the resource. @@ -674,6 +682,10 @@ Failure -> "Failure" Success -> "Success" +instance ToByteString DeliveryStatus +instance ToHeader DeliveryStatus +instance ToQuery DeliveryStatus + instance FromJSON DeliveryStatus where parseJSON = parseJSONText "DeliveryStatus" @@ -751,12 +763,12 @@ { _crsLastErrorCode :: Maybe Text , _crsLastErrorMessage :: Maybe Text , _crsLastStartTime :: Maybe RFC822 - , _crsLastStatus :: Maybe Text + , _crsLastStatus :: Maybe RecorderStatus , _crsLastStatusChangeTime :: Maybe RFC822 , _crsLastStopTime :: Maybe RFC822 , _crsName :: Maybe Text , _crsRecording :: Maybe Bool - } deriving (Eq, Ord, Show) + } deriving (Eq, Show) -- | 'ConfigurationRecorderStatus' constructor. -- @@ -768,7 +780,7 @@ -- -- * 'crsLastStartTime' @::@ 'Maybe' 'UTCTime' -- --- * 'crsLastStatus' @::@ 'Maybe' 'Text' +-- * 'crsLastStatus' @::@ 'Maybe' 'RecorderStatus' -- -- * 'crsLastStatusChangeTime' @::@ 'Maybe' 'UTCTime' -- @@ -804,7 +816,7 @@ crsLastStartTime = lens _crsLastStartTime (\s a -> s { _crsLastStartTime = a }) . mapping _Time -- | The last (previous) status of the recorder. -crsLastStatus :: Lens' ConfigurationRecorderStatus (Maybe Text) +crsLastStatus :: Lens' ConfigurationRecorderStatus (Maybe RecorderStatus) crsLastStatus = lens _crsLastStatus (\s a -> s { _crsLastStatus = a }) -- | The time when the status was last changed. @@ -870,6 +882,10 @@ Failed -> "Failed" Ok -> "Ok" +instance ToByteString ConfigurationItemStatus +instance ToHeader ConfigurationItemStatus +instance ToQuery ConfigurationItemStatus + instance FromJSON ConfigurationItemStatus where parseJSON = parseJSONText "ConfigurationItemStatus" @@ -935,6 +951,10 @@ RSFailure -> "Failure" RSPending -> "Pending" RSSuccess -> "Success" + +instance ToByteString RecorderStatus +instance ToHeader RecorderStatus +instance ToQuery RecorderStatus instance FromJSON RecorderStatus where parseJSON = parseJSONText "RecorderStatus"