amazonka-directconnect 0.2.1 → 0.2.2

raw patch · 21 files changed

+54/−54 lines, 21 filesdep ~amazonka-corePVP ok

version bump matches the API change (PVP)

Dependency ranges changed: amazonka-core

API changes (from Hackage documentation)

Files

• amazonka-directconnect.cabal +2/−2
• gen/Network/AWS/DirectConnect/AllocateConnectionOnInterconnect.hs +2/−2
• gen/Network/AWS/DirectConnect/AllocatePrivateVirtualInterface.hs +2/−2
• gen/Network/AWS/DirectConnect/AllocatePublicVirtualInterface.hs +2/−2
• gen/Network/AWS/DirectConnect/ConfirmConnection.hs +2/−2
• gen/Network/AWS/DirectConnect/ConfirmPrivateVirtualInterface.hs +2/−2
• gen/Network/AWS/DirectConnect/ConfirmPublicVirtualInterface.hs +2/−2
• gen/Network/AWS/DirectConnect/CreateConnection.hs +2/−2
• gen/Network/AWS/DirectConnect/CreateInterconnect.hs +2/−2
• gen/Network/AWS/DirectConnect/CreatePrivateVirtualInterface.hs +2/−2
• gen/Network/AWS/DirectConnect/CreatePublicVirtualInterface.hs +2/−2
• gen/Network/AWS/DirectConnect/DeleteConnection.hs +2/−2
• gen/Network/AWS/DirectConnect/DeleteInterconnect.hs +2/−2
• gen/Network/AWS/DirectConnect/DeleteVirtualInterface.hs +2/−2
• gen/Network/AWS/DirectConnect/DescribeConnections.hs +2/−2
• gen/Network/AWS/DirectConnect/DescribeConnectionsOnInterconnect.hs +2/−2
• gen/Network/AWS/DirectConnect/DescribeInterconnects.hs +2/−2
• gen/Network/AWS/DirectConnect/DescribeLocations.hs +2/−2
• gen/Network/AWS/DirectConnect/DescribeVirtualGateways.hs +2/−2
• gen/Network/AWS/DirectConnect/DescribeVirtualInterfaces.hs +2/−2
• gen/Network/AWS/DirectConnect/Types.hs +14/−14

@@ -1,5 +1,5 @@ name:                  amazonka-directconnect-version:               0.2.1+version:               0.2.2 synopsis:              Amazon Direct Connect SDK. homepage:              https://github.com/brendanhay/amazonka license:               OtherLicense@@ -62,5 +62,5 @@     other-modules:      build-depends:-          amazonka-core == 0.2.1.*+          amazonka-core == 0.2.2.*         , base          >= 4.7     && < 5

@@ -68,7 +68,7 @@     , _acoiInterconnectId :: Text     , _acoiOwnerAccount   :: Text     , _acoiVlan           :: Int-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'AllocateConnectionOnInterconnect' constructor. --@@ -151,7 +151,7 @@     , _acoirPartnerName     :: Maybe Text     , _acoirRegion          :: Maybe Text     , _acoirVlan            :: Maybe Int-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'AllocateConnectionOnInterconnectResponse' constructor. --

@@ -75,7 +75,7 @@     { _apviConnectionId                         :: Text     , _apviNewPrivateVirtualInterfaceAllocation :: NewPrivateVirtualInterfaceAllocation     , _apviOwnerAccount                         :: Text-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'AllocatePrivateVirtualInterface' constructor. --@@ -133,7 +133,7 @@     , _apvirVirtualInterfaceState :: Maybe VirtualInterfaceState     , _apvirVirtualInterfaceType  :: Maybe Text     , _apvirVlan                  :: Maybe Int-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'AllocatePrivateVirtualInterfaceResponse' constructor. --

@@ -75,7 +75,7 @@     { _apvi1ConnectionId                        :: Text     , _apvi1NewPublicVirtualInterfaceAllocation :: NewPublicVirtualInterfaceAllocation     , _apvi1OwnerAccount                        :: Text-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'AllocatePublicVirtualInterface' constructor. --@@ -135,7 +135,7 @@     , _apvir1VirtualInterfaceState :: Maybe VirtualInterfaceState     , _apvir1VirtualInterfaceType  :: Maybe Text     , _apvir1Vlan                  :: Maybe Int-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'AllocatePublicVirtualInterfaceResponse' constructor. --

@@ -53,7 +53,7 @@  newtype ConfirmConnection = ConfirmConnection     { _ccConnectionId :: Text-    } deriving (Eq, Ord, Show, Monoid, IsString)+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)  -- | 'ConfirmConnection' constructor. --@@ -72,7 +72,7 @@  newtype ConfirmConnectionResponse = ConfirmConnectionResponse     { _ccr1ConnectionState :: Maybe ConnectionState-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'ConfirmConnectionResponse' constructor. --

@@ -55,7 +55,7 @@ data ConfirmPrivateVirtualInterface = ConfirmPrivateVirtualInterface     { _cpviVirtualGatewayId   :: Text     , _cpviVirtualInterfaceId :: Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'ConfirmPrivateVirtualInterface' constructor. --@@ -90,7 +90,7 @@  newtype ConfirmPrivateVirtualInterfaceResponse = ConfirmPrivateVirtualInterfaceResponse     { _cpvir1VirtualInterfaceState :: Maybe VirtualInterfaceState-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'ConfirmPrivateVirtualInterfaceResponse' constructor. --

@@ -52,7 +52,7 @@  newtype ConfirmPublicVirtualInterface = ConfirmPublicVirtualInterface     { _cpvi1VirtualInterfaceId :: Text-    } deriving (Eq, Ord, Show, Monoid, IsString)+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)  -- | 'ConfirmPublicVirtualInterface' constructor. --@@ -72,7 +72,7 @@  newtype ConfirmPublicVirtualInterfaceResponse = ConfirmPublicVirtualInterfaceResponse     { _cpvir3VirtualInterfaceState :: Maybe VirtualInterfaceState-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'ConfirmPublicVirtualInterfaceResponse' constructor. --

@@ -70,7 +70,7 @@     { _ccBandwidth      :: Text     , _ccConnectionName :: Text     , _ccLocation       :: Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'CreateConnection' constructor. --@@ -111,7 +111,7 @@     , _ccrPartnerName     :: Maybe Text     , _ccrRegion          :: Maybe Text     , _ccrVlan            :: Maybe Int-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'CreateConnectionResponse' constructor. --

@@ -73,7 +73,7 @@     { _ciBandwidth        :: Text     , _ciInterconnectName :: Text     , _ciLocation         :: Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'CreateInterconnect' constructor. --@@ -129,7 +129,7 @@     , _cirInterconnectState :: Maybe InterconnectState     , _cirLocation          :: Maybe Text     , _cirRegion            :: Maybe Text-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'CreateInterconnectResponse' constructor. --

@@ -67,7 +67,7 @@ data CreatePrivateVirtualInterface = CreatePrivateVirtualInterface     { _cpvi1ConnectionId               :: Text     , _cpvi1NewPrivateVirtualInterface :: NewPrivateVirtualInterface-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'CreatePrivateVirtualInterface' constructor. --@@ -113,7 +113,7 @@     , _cpvir2VirtualInterfaceState :: Maybe VirtualInterfaceState     , _cpvir2VirtualInterfaceType  :: Maybe Text     , _cpvir2Vlan                  :: Maybe Int-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'CreatePrivateVirtualInterfaceResponse' constructor. --

@@ -68,7 +68,7 @@ data CreatePublicVirtualInterface = CreatePublicVirtualInterface     { _cpviConnectionId              :: Text     , _cpviNewPublicVirtualInterface :: NewPublicVirtualInterface-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'CreatePublicVirtualInterface' constructor. --@@ -113,7 +113,7 @@     , _cpvirVirtualInterfaceState :: Maybe VirtualInterfaceState     , _cpvirVirtualInterfaceType  :: Maybe Text     , _cpvirVlan                  :: Maybe Int-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'CreatePublicVirtualInterfaceResponse' constructor. --

@@ -62,7 +62,7 @@  newtype DeleteConnection = DeleteConnection     { _dcConnectionId :: Text-    } deriving (Eq, Ord, Show, Monoid, IsString)+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)  -- | 'DeleteConnection' constructor. --@@ -89,7 +89,7 @@     , _dcrPartnerName     :: Maybe Text     , _dcrRegion          :: Maybe Text     , _dcrVlan            :: Maybe Int-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'DeleteConnectionResponse' constructor. --

@@ -49,7 +49,7 @@  newtype DeleteInterconnect = DeleteInterconnect     { _di1InterconnectId :: Text-    } deriving (Eq, Ord, Show, Monoid, IsString)+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)  -- | 'DeleteInterconnect' constructor. --@@ -69,7 +69,7 @@  newtype DeleteInterconnectResponse = DeleteInterconnectResponse     { _dirInterconnectState :: Maybe InterconnectState-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'DeleteInterconnectResponse' constructor. --

@@ -49,7 +49,7 @@  newtype DeleteVirtualInterface = DeleteVirtualInterface     { _dvi1VirtualInterfaceId :: Text-    } deriving (Eq, Ord, Show, Monoid, IsString)+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)  -- | 'DeleteVirtualInterface' constructor. --@@ -69,7 +69,7 @@  newtype DeleteVirtualInterfaceResponse = DeleteVirtualInterfaceResponse     { _dvirVirtualInterfaceState :: Maybe VirtualInterfaceState-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'DeleteVirtualInterfaceResponse' constructor. --

@@ -52,7 +52,7 @@  newtype DescribeConnections = DescribeConnections     { _dc1ConnectionId :: Maybe Text-    } deriving (Eq, Ord, Show, Monoid)+    } deriving (Eq, Ord, Read, Show, Monoid)  -- | 'DescribeConnections' constructor. --@@ -70,7 +70,7 @@  newtype DescribeConnectionsResponse = DescribeConnectionsResponse     { _dcrConnections :: List "connections" Connection-    } deriving (Eq, Show, Monoid, Semigroup)+    } deriving (Eq, Read, Show, Monoid, Semigroup)  instance GHC.Exts.IsList DescribeConnectionsResponse where     type Item DescribeConnectionsResponse = Connection

@@ -50,7 +50,7 @@  newtype DescribeConnectionsOnInterconnect = DescribeConnectionsOnInterconnect     { _dcoiInterconnectId :: Text-    } deriving (Eq, Ord, Show, Monoid, IsString)+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)  -- | 'DescribeConnectionsOnInterconnect' constructor. --@@ -75,7 +75,7 @@  newtype DescribeConnectionsOnInterconnectResponse = DescribeConnectionsOnInterconnectResponse     { _dcoirConnections :: List "connections" Connection-    } deriving (Eq, Show, Monoid, Semigroup)+    } deriving (Eq, Read, Show, Monoid, Semigroup)  instance GHC.Exts.IsList DescribeConnectionsOnInterconnectResponse where     type Item DescribeConnectionsOnInterconnectResponse = Connection

@@ -52,7 +52,7 @@  newtype DescribeInterconnects = DescribeInterconnects     { _diInterconnectId :: Maybe Text-    } deriving (Eq, Ord, Show, Monoid)+    } deriving (Eq, Ord, Read, Show, Monoid)  -- | 'DescribeInterconnects' constructor. --@@ -70,7 +70,7 @@  newtype DescribeInterconnectsResponse = DescribeInterconnectsResponse     { _dirInterconnects :: List "interconnects" Interconnect-    } deriving (Eq, Show, Monoid, Semigroup)+    } deriving (Eq, Read, Show, Monoid, Semigroup)  instance GHC.Exts.IsList DescribeInterconnectsResponse where     type Item DescribeInterconnectsResponse = Interconnect

@@ -48,7 +48,7 @@ import qualified GHC.Exts  data DescribeLocations = DescribeLocations-    deriving (Eq, Ord, Show, Generic)+    deriving (Eq, Ord, Read, Show, Generic)  -- | 'DescribeLocations' constructor. describeLocations :: DescribeLocations@@ -56,7 +56,7 @@  newtype DescribeLocationsResponse = DescribeLocationsResponse     { _dlrLocations :: List "locations" Location-    } deriving (Eq, Show, Monoid, Semigroup)+    } deriving (Eq, Read, Show, Monoid, Semigroup)  instance GHC.Exts.IsList DescribeLocationsResponse where     type Item DescribeLocationsResponse = Location

@@ -50,7 +50,7 @@ import qualified GHC.Exts  data DescribeVirtualGateways = DescribeVirtualGateways-    deriving (Eq, Ord, Show, Generic)+    deriving (Eq, Ord, Read, Show, Generic)  -- | 'DescribeVirtualGateways' constructor. describeVirtualGateways :: DescribeVirtualGateways@@ -58,7 +58,7 @@  newtype DescribeVirtualGatewaysResponse = DescribeVirtualGatewaysResponse     { _dvgrVirtualGateways :: List "virtualGateways" VirtualGateway-    } deriving (Eq, Show, Monoid, Semigroup)+    } deriving (Eq, Read, Show, Monoid, Semigroup)  instance GHC.Exts.IsList DescribeVirtualGatewaysResponse where     type Item DescribeVirtualGatewaysResponse = VirtualGateway

@@ -62,7 +62,7 @@ data DescribeVirtualInterfaces = DescribeVirtualInterfaces     { _dviConnectionId       :: Maybe Text     , _dviVirtualInterfaceId :: Maybe Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'DescribeVirtualInterfaces' constructor. --@@ -87,7 +87,7 @@  newtype DescribeVirtualInterfacesResponse = DescribeVirtualInterfacesResponse     { _dvirVirtualInterfaces :: List "virtualInterfaces" VirtualInterface-    } deriving (Eq, Show, Monoid, Semigroup)+    } deriving (Eq, Read, Show, Monoid, Semigroup)  instance GHC.Exts.IsList DescribeVirtualInterfacesResponse where     type Item DescribeVirtualInterfacesResponse = VirtualInterface

@@ -209,7 +209,7 @@     , _viVirtualInterfaceState :: Maybe VirtualInterfaceState     , _viVirtualInterfaceType  :: Maybe Text     , _viVlan                  :: Maybe Int-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'VirtualInterface' constructor. --@@ -359,7 +359,7 @@ data Location = Location     { _lLocationCode :: Maybe Text     , _lLocationName :: Maybe Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'Location' constructor. --@@ -397,7 +397,7 @@  newtype Connections = Connections     { _cConnections :: List "connections" Connection-    } deriving (Eq, Show, Monoid, Semigroup)+    } deriving (Eq, Read, Show, Monoid, Semigroup)  instance GHC.Exts.IsList Connections where     type Item Connections = Connection@@ -436,7 +436,7 @@     , _npviaCustomerAddress      :: Maybe Text     , _npviaVirtualInterfaceName :: Text     , _npviaVlan                 :: Int-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'NewPrivateVirtualInterfaceAllocation' constructor. --@@ -516,7 +516,7 @@     | Pending    -- ^ pending     | Rejected   -- ^ rejected     | Verifying  -- ^ verifying-      deriving (Eq, Ord, Show, Generic, Enum)+      deriving (Eq, Ord, Read, Show, Generic, Enum)  instance Hashable VirtualInterfaceState @@ -562,7 +562,7 @@     , _cPartnerName     :: Maybe Text     , _cRegion          :: Maybe Text     , _cVlan            :: Maybe Int-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'Connection' constructor. --@@ -664,7 +664,7 @@     , _npviRouteFilterPrefixes  :: List "routeFilterPrefixes" RouteFilterPrefix     , _npviVirtualInterfaceName :: Text     , _npviVlan                 :: Int-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'NewPublicVirtualInterface' constructor. --@@ -755,7 +755,7 @@     , _iInterconnectState :: Maybe InterconnectState     , _iLocation          :: Maybe Text     , _iRegion            :: Maybe Text-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'Interconnect' constructor. --@@ -829,7 +829,7 @@     | ISDown      -- ^ down     | ISPending   -- ^ pending     | ISRequested -- ^ requested-      deriving (Eq, Ord, Show, Generic, Enum)+      deriving (Eq, Ord, Read, Show, Generic, Enum)  instance Hashable InterconnectState @@ -871,7 +871,7 @@     , _npvi1VirtualGatewayId     :: Text     , _npvi1VirtualInterfaceName :: Text     , _npvi1Vlan                 :: Int-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'NewPrivateVirtualInterface' constructor. --@@ -961,7 +961,7 @@     , _npvia1RouteFilterPrefixes  :: List "routeFilterPrefixes" RouteFilterPrefix     , _npvia1VirtualInterfaceName :: Text     , _npvia1Vlan                 :: Int-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'NewPublicVirtualInterfaceAllocation' constructor. --@@ -1055,7 +1055,7 @@     | CSPending   -- ^ pending     | CSRejected  -- ^ rejected     | CSRequested -- ^ requested-      deriving (Eq, Ord, Show, Generic, Enum)+      deriving (Eq, Ord, Read, Show, Generic, Enum)  instance Hashable ConnectionState @@ -1096,7 +1096,7 @@ data VirtualGateway = VirtualGateway     { _vgVirtualGatewayId    :: Maybe Text     , _vgVirtualGatewayState :: Maybe Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'VirtualGateway' constructor. --@@ -1133,7 +1133,7 @@  newtype RouteFilterPrefix = RouteFilterPrefix     { _rfpCidr :: Maybe Text-    } deriving (Eq, Ord, Show, Monoid)+    } deriving (Eq, Ord, Read, Show, Monoid)  -- | 'RouteFilterPrefix' constructor. --