diff --git a/amazonka-directconnect.cabal b/amazonka-directconnect.cabal
--- a/amazonka-directconnect.cabal
+++ b/amazonka-directconnect.cabal
@@ -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
diff --git a/gen/Network/AWS/DirectConnect/AllocateConnectionOnInterconnect.hs b/gen/Network/AWS/DirectConnect/AllocateConnectionOnInterconnect.hs
--- a/gen/Network/AWS/DirectConnect/AllocateConnectionOnInterconnect.hs
+++ b/gen/Network/AWS/DirectConnect/AllocateConnectionOnInterconnect.hs
@@ -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.
 --
diff --git a/gen/Network/AWS/DirectConnect/AllocatePrivateVirtualInterface.hs b/gen/Network/AWS/DirectConnect/AllocatePrivateVirtualInterface.hs
--- a/gen/Network/AWS/DirectConnect/AllocatePrivateVirtualInterface.hs
+++ b/gen/Network/AWS/DirectConnect/AllocatePrivateVirtualInterface.hs
@@ -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.
 --
diff --git a/gen/Network/AWS/DirectConnect/AllocatePublicVirtualInterface.hs b/gen/Network/AWS/DirectConnect/AllocatePublicVirtualInterface.hs
--- a/gen/Network/AWS/DirectConnect/AllocatePublicVirtualInterface.hs
+++ b/gen/Network/AWS/DirectConnect/AllocatePublicVirtualInterface.hs
@@ -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.
 --
diff --git a/gen/Network/AWS/DirectConnect/ConfirmConnection.hs b/gen/Network/AWS/DirectConnect/ConfirmConnection.hs
--- a/gen/Network/AWS/DirectConnect/ConfirmConnection.hs
+++ b/gen/Network/AWS/DirectConnect/ConfirmConnection.hs
@@ -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.
 --
diff --git a/gen/Network/AWS/DirectConnect/ConfirmPrivateVirtualInterface.hs b/gen/Network/AWS/DirectConnect/ConfirmPrivateVirtualInterface.hs
--- a/gen/Network/AWS/DirectConnect/ConfirmPrivateVirtualInterface.hs
+++ b/gen/Network/AWS/DirectConnect/ConfirmPrivateVirtualInterface.hs
@@ -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.
 --
diff --git a/gen/Network/AWS/DirectConnect/ConfirmPublicVirtualInterface.hs b/gen/Network/AWS/DirectConnect/ConfirmPublicVirtualInterface.hs
--- a/gen/Network/AWS/DirectConnect/ConfirmPublicVirtualInterface.hs
+++ b/gen/Network/AWS/DirectConnect/ConfirmPublicVirtualInterface.hs
@@ -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.
 --
diff --git a/gen/Network/AWS/DirectConnect/CreateConnection.hs b/gen/Network/AWS/DirectConnect/CreateConnection.hs
--- a/gen/Network/AWS/DirectConnect/CreateConnection.hs
+++ b/gen/Network/AWS/DirectConnect/CreateConnection.hs
@@ -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.
 --
diff --git a/gen/Network/AWS/DirectConnect/CreateInterconnect.hs b/gen/Network/AWS/DirectConnect/CreateInterconnect.hs
--- a/gen/Network/AWS/DirectConnect/CreateInterconnect.hs
+++ b/gen/Network/AWS/DirectConnect/CreateInterconnect.hs
@@ -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.
 --
diff --git a/gen/Network/AWS/DirectConnect/CreatePrivateVirtualInterface.hs b/gen/Network/AWS/DirectConnect/CreatePrivateVirtualInterface.hs
--- a/gen/Network/AWS/DirectConnect/CreatePrivateVirtualInterface.hs
+++ b/gen/Network/AWS/DirectConnect/CreatePrivateVirtualInterface.hs
@@ -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.
 --
diff --git a/gen/Network/AWS/DirectConnect/CreatePublicVirtualInterface.hs b/gen/Network/AWS/DirectConnect/CreatePublicVirtualInterface.hs
--- a/gen/Network/AWS/DirectConnect/CreatePublicVirtualInterface.hs
+++ b/gen/Network/AWS/DirectConnect/CreatePublicVirtualInterface.hs
@@ -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.
 --
diff --git a/gen/Network/AWS/DirectConnect/DeleteConnection.hs b/gen/Network/AWS/DirectConnect/DeleteConnection.hs
--- a/gen/Network/AWS/DirectConnect/DeleteConnection.hs
+++ b/gen/Network/AWS/DirectConnect/DeleteConnection.hs
@@ -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.
 --
diff --git a/gen/Network/AWS/DirectConnect/DeleteInterconnect.hs b/gen/Network/AWS/DirectConnect/DeleteInterconnect.hs
--- a/gen/Network/AWS/DirectConnect/DeleteInterconnect.hs
+++ b/gen/Network/AWS/DirectConnect/DeleteInterconnect.hs
@@ -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.
 --
diff --git a/gen/Network/AWS/DirectConnect/DeleteVirtualInterface.hs b/gen/Network/AWS/DirectConnect/DeleteVirtualInterface.hs
--- a/gen/Network/AWS/DirectConnect/DeleteVirtualInterface.hs
+++ b/gen/Network/AWS/DirectConnect/DeleteVirtualInterface.hs
@@ -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.
 --
diff --git a/gen/Network/AWS/DirectConnect/DescribeConnections.hs b/gen/Network/AWS/DirectConnect/DescribeConnections.hs
--- a/gen/Network/AWS/DirectConnect/DescribeConnections.hs
+++ b/gen/Network/AWS/DirectConnect/DescribeConnections.hs
@@ -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
diff --git a/gen/Network/AWS/DirectConnect/DescribeConnectionsOnInterconnect.hs b/gen/Network/AWS/DirectConnect/DescribeConnectionsOnInterconnect.hs
--- a/gen/Network/AWS/DirectConnect/DescribeConnectionsOnInterconnect.hs
+++ b/gen/Network/AWS/DirectConnect/DescribeConnectionsOnInterconnect.hs
@@ -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
diff --git a/gen/Network/AWS/DirectConnect/DescribeInterconnects.hs b/gen/Network/AWS/DirectConnect/DescribeInterconnects.hs
--- a/gen/Network/AWS/DirectConnect/DescribeInterconnects.hs
+++ b/gen/Network/AWS/DirectConnect/DescribeInterconnects.hs
@@ -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
diff --git a/gen/Network/AWS/DirectConnect/DescribeLocations.hs b/gen/Network/AWS/DirectConnect/DescribeLocations.hs
--- a/gen/Network/AWS/DirectConnect/DescribeLocations.hs
+++ b/gen/Network/AWS/DirectConnect/DescribeLocations.hs
@@ -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
diff --git a/gen/Network/AWS/DirectConnect/DescribeVirtualGateways.hs b/gen/Network/AWS/DirectConnect/DescribeVirtualGateways.hs
--- a/gen/Network/AWS/DirectConnect/DescribeVirtualGateways.hs
+++ b/gen/Network/AWS/DirectConnect/DescribeVirtualGateways.hs
@@ -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
diff --git a/gen/Network/AWS/DirectConnect/DescribeVirtualInterfaces.hs b/gen/Network/AWS/DirectConnect/DescribeVirtualInterfaces.hs
--- a/gen/Network/AWS/DirectConnect/DescribeVirtualInterfaces.hs
+++ b/gen/Network/AWS/DirectConnect/DescribeVirtualInterfaces.hs
@@ -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
diff --git a/gen/Network/AWS/DirectConnect/Types.hs b/gen/Network/AWS/DirectConnect/Types.hs
--- a/gen/Network/AWS/DirectConnect/Types.hs
+++ b/gen/Network/AWS/DirectConnect/Types.hs
@@ -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.
 --