amazonka-config 0.0.0 → 0.0.1

raw patch · 3 files changed

+53/−33 lines, 3 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-config.cabal +3/−3
• gen/Network/AWS/Config/GetResourceConfigHistory.hs +8/−8
• gen/Network/AWS/Config/Types.hs +42/−22

@@ -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

@@ -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

@@ -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"