Regenerating

amazonka-dynamodb/gen/Network/AWS/DynamoDB/DescribeTable.hs

@@ -70,21 +70,22 @@ dt1TableName :: Lens' DescribeTable Text
 dt1TableName = lens _dt1TableName (\s a -> s { _dt1TableName = a })
 
 newtype DescribeTableResponse = DescribeTableResponse
-    { _dtrTable :: Maybe TableDescription
+    { _dtrTable :: TableDescription
     } deriving (Eq, Show)
 
 -- | 'DescribeTableResponse' constructor.
 --
 -- The fields accessible through corresponding lenses are:
 --
--- * 'dtrTable' @::@ 'Maybe' 'TableDescription'
+-- * 'dtrTable' @::@ 'TableDescription'
 --
-describeTableResponse :: DescribeTableResponse
-describeTableResponse = DescribeTableResponse
-    { _dtrTable = Nothing
+describeTableResponse :: TableDescription -- ^ 'dtrTable'
+                      -> DescribeTableResponse
+describeTableResponse p1 = DescribeTableResponse
+    { _dtrTable = p1
     }
 
-dtrTable :: Lens' DescribeTableResponse (Maybe TableDescription)
+dtrTable :: Lens' DescribeTableResponse TableDescription
 dtrTable = lens _dtrTable (\s a -> s { _dtrTable = a })
 
 instance ToPath DescribeTable where
@@ -109,4 +110,4 @@ instance AWSRequest DescribeTable where
 
 instance FromJSON DescribeTableResponse where
     parseJSON = withObject "DescribeTableResponse" $ \o -> DescribeTableResponse
-        <$> o .:? "Table"
+        <$> o .:  "Table"

amazonka-dynamodb/gen/Network/AWS/DynamoDB/Types.hs

@@ -702,15 +702,15 @@ instance ToJSON ProjectionType where
 
 data TableDescription = TableDescription
     { _tdAttributeDefinitions   :: List "AttributeDefinitions" AttributeDefinition
-    , _tdCreationDateTime       :: Maybe ISO8601
+    , _tdCreationDateTime       :: ISO8601
     , _tdGlobalSecondaryIndexes :: List "GlobalSecondaryIndexes" GlobalSecondaryIndexDescription
-    , _tdItemCount              :: Maybe Integer
+    , _tdItemCount              :: Integer
     , _tdKeySchema              :: List1 "KeySchema" KeySchemaElement
     , _tdLocalSecondaryIndexes  :: List "LocalSecondaryIndexes" LocalSecondaryIndexDescription
-    , _tdProvisionedThroughput  :: Maybe ProvisionedThroughputDescription
-    , _tdTableName              :: Maybe Text
-    , _tdTableSizeBytes         :: Maybe Integer
-    , _tdTableStatus            :: Maybe TableStatus
+    , _tdProvisionedThroughput  :: ProvisionedThroughputDescription
+    , _tdTableName              :: Text
+    , _tdTableSizeBytes         :: Integer
+    , _tdTableStatus            :: TableStatus
     } deriving (Eq, Show)
 
 -- | 'TableDescription' constructor.
@@ -719,35 +719,41 @@ data TableDescription = TableDescription
 --
 -- * 'tdAttributeDefinitions' @::@ ['AttributeDefinition']
 --
--- * 'tdCreationDateTime' @::@ 'Maybe' 'UTCTime'
+-- * 'tdCreationDateTime' @::@ 'UTCTime'
 --
 -- * 'tdGlobalSecondaryIndexes' @::@ ['GlobalSecondaryIndexDescription']
 --
--- * 'tdItemCount' @::@ 'Maybe' 'Integer'
+-- * 'tdItemCount' @::@ 'Integer'
 --
 -- * 'tdKeySchema' @::@ 'NonEmpty' 'KeySchemaElement'
 --
 -- * 'tdLocalSecondaryIndexes' @::@ ['LocalSecondaryIndexDescription']
 --
--- * 'tdProvisionedThroughput' @::@ 'Maybe' 'ProvisionedThroughputDescription'
+-- * 'tdProvisionedThroughput' @::@ 'ProvisionedThroughputDescription'
 --
--- * 'tdTableName' @::@ 'Maybe' 'Text'
+-- * 'tdTableName' @::@ 'Text'
 --
--- * 'tdTableSizeBytes' @::@ 'Maybe' 'Integer'
+-- * 'tdTableSizeBytes' @::@ 'Integer'
 --
--- * 'tdTableStatus' @::@ 'Maybe' 'TableStatus'
+-- * 'tdTableStatus' @::@ 'TableStatus'
 --
-tableDescription :: NonEmpty KeySchemaElement -- ^ 'tdKeySchema'
+tableDescription :: Text -- ^ 'tdTableName'
+                 -> NonEmpty KeySchemaElement -- ^ 'tdKeySchema'
+                 -> TableStatus -- ^ 'tdTableStatus'
+                 -> UTCTime -- ^ 'tdCreationDateTime'
+                 -> ProvisionedThroughputDescription -- ^ 'tdProvisionedThroughput'
+                 -> Integer -- ^ 'tdTableSizeBytes'
+                 -> Integer -- ^ 'tdItemCount'
                  -> TableDescription
-tableDescription p1 = TableDescription
-    { _tdKeySchema              = withIso _List1 (const id) p1
+tableDescription p1 p2 p3 p4 p5 p6 p7 = TableDescription
+    { _tdTableName              = p1
+    , _tdKeySchema              = withIso _List1 (const id) p2
+    , _tdTableStatus            = p3
+    , _tdCreationDateTime       = withIso _Time (const id) p4
+    , _tdProvisionedThroughput  = p5
+    , _tdTableSizeBytes         = p6
+    , _tdItemCount              = p7
     , _tdAttributeDefinitions   = mempty
-    , _tdTableName              = Nothing
-    , _tdTableStatus            = Nothing
-    , _tdCreationDateTime       = Nothing
-    , _tdProvisionedThroughput  = Nothing
-    , _tdTableSizeBytes         = Nothing
-    , _tdItemCount              = Nothing
     , _tdLocalSecondaryIndexes  = mempty
     , _tdGlobalSecondaryIndexes = mempty
     }
@@ -768,10 +774,10 @@ tdAttributeDefinitions =
         . _List
 
 -- | The date and time when the table was created, in <http://www.epochconverter.com/ UNIX epoch time> format.
-tdCreationDateTime :: Lens' TableDescription (Maybe UTCTime)
+tdCreationDateTime :: Lens' TableDescription UTCTime
 tdCreationDateTime =
     lens _tdCreationDateTime (\s a -> s { _tdCreationDateTime = a })
-        . mapping _Time
+        . _Time
 
 -- | The global secondary indexes, if any, on the table. Each index is scoped to a
 -- given hash key value. Each element is composed of:
@@ -835,7 +841,7 @@ tdGlobalSecondaryIndexes =
 -- | The number of items in the specified table. DynamoDB updates this value
 -- approximately every six hours. Recent changes might not be reflected in this
 -- value.
-tdItemCount :: Lens' TableDescription (Maybe Integer)
+tdItemCount :: Lens' TableDescription Integer
 tdItemCount = lens _tdItemCount (\s a -> s { _tdItemCount = a })
 
 -- | The primary key structure for the table. Each /KeySchemaElement/ consists of:
@@ -897,18 +903,18 @@ tdLocalSecondaryIndexes =
 
 -- | The provisioned throughput settings for the table, consisting of read and
 -- write capacity units, along with data about increases and decreases.
-tdProvisionedThroughput :: Lens' TableDescription (Maybe ProvisionedThroughputDescription)
+tdProvisionedThroughput :: Lens' TableDescription ProvisionedThroughputDescription
 tdProvisionedThroughput =
     lens _tdProvisionedThroughput (\s a -> s { _tdProvisionedThroughput = a })
 
 -- | The name of the table.
-tdTableName :: Lens' TableDescription (Maybe Text)
+tdTableName :: Lens' TableDescription Text
 tdTableName = lens _tdTableName (\s a -> s { _tdTableName = a })
 
 -- | The total size of the specified table, in bytes. DynamoDB updates this value
 -- approximately every six hours. Recent changes might not be reflected in this
 -- value.
-tdTableSizeBytes :: Lens' TableDescription (Maybe Integer)
+tdTableSizeBytes :: Lens' TableDescription Integer
 tdTableSizeBytes = lens _tdTableSizeBytes (\s a -> s { _tdTableSizeBytes = a })
 
 -- | The current state of the table:
@@ -925,21 +931,21 @@ tdTableSizeBytes = lens _tdTableSizeBytes (\s a -> s { _tdTableSizeBytes = a })
 -- /ACTIVE/ - The table is ready for use.
 --
 --
-tdTableStatus :: Lens' TableDescription (Maybe TableStatus)
+tdTableStatus :: Lens' TableDescription TableStatus
 tdTableStatus = lens _tdTableStatus (\s a -> s { _tdTableStatus = a })
 
 instance FromJSON TableDescription where
     parseJSON = withObject "TableDescription" $ \o -> TableDescription
         <$> o .:? "AttributeDefinitions" .!= mempty
-        <*> o .:? "CreationDateTime"
+        <*> o .:  "CreationDateTime"
         <*> o .:? "GlobalSecondaryIndexes" .!= mempty
-        <*> o .:? "ItemCount"
+        <*> o .:  "ItemCount"
         <*> o .:  "KeySchema"
         <*> o .:? "LocalSecondaryIndexes" .!= mempty
-        <*> o .:? "ProvisionedThroughput"
-        <*> o .:? "TableName"
-        <*> o .:? "TableSizeBytes"
-        <*> o .:? "TableStatus"
+        <*> o .:  "ProvisionedThroughput"
+        <*> o .:  "TableName"
+        <*> o .:  "TableSizeBytes"
+        <*> o .:  "TableStatus"
 
 instance ToJSON TableDescription where
     toJSON TableDescription{..} = object

amazonka-dynamodb/gen/Network/AWS/DynamoDB/Waiters.hs

@@ -15,7 +15,9 @@
 
 module Network.AWS.DynamoDB.Waiters where
 
+import Prelude hiding (error)
 import Network.AWS.DynamoDB.DescribeTable
+import Network.AWS.DynamoDB.Types
 import Network.AWS.Waiters
 
 tableExists :: Wait DescribeTable
@@ -24,7 +26,7 @@ tableExists = Wait
     , _waitAttempts  = 25
     , _waitDelay     = 20
     , _waitAcceptors =
-        [ path (dtrTable . tdTableStatus) "ACTIVE" Success
+        [ path (dtrTable . tdTableStatus) TSActive Success
         , error "ResourceNotFoundException" Retry
         ]
     }

amazonka-ec2/gen/Network/AWS/EC2/Waiters.hs

@@ -15,6 +15,7 @@
 
 module Network.AWS.EC2.Waiters where
 
+import Prelude hiding (error)
 import Network.AWS.EC2.DescribeBundleTasks
 import Network.AWS.EC2.DescribeConversionTasks
 import Network.AWS.EC2.DescribeCustomerGateways
@@ -25,6 +26,7 @@ import Network.AWS.EC2.DescribeSubnets
 import Network.AWS.EC2.DescribeVolumes
 import Network.AWS.EC2.DescribeVpcs
 import Network.AWS.EC2.DescribeVpnConnections
+import Network.AWS.EC2.Types
 import Network.AWS.Waiters
 
 bundleTaskComplete :: Wait DescribeBundleTasks

amazonka-elastictranscoder/gen/Network/AWS/ElasticTranscoder/Waiters.hs

@@ -15,7 +15,9 @@
 
 module Network.AWS.ElasticTranscoder.Waiters where
 
+import Prelude hiding (error)
 import Network.AWS.ElasticTranscoder.ReadJob
+import Network.AWS.ElasticTranscoder.Types
 import Network.AWS.Waiters
 
 jobComplete :: Wait ReadJob

amazonka-emr/gen/Network/AWS/EMR/Waiters.hs

@@ -15,7 +15,9 @@
 
 module Network.AWS.EMR.Waiters where
 
+import Prelude hiding (error)
 import Network.AWS.EMR.DescribeCluster
+import Network.AWS.EMR.Types
 import Network.AWS.Waiters
 
 clusterRunning :: Wait DescribeCluster

amazonka-kinesis/gen/Network/AWS/Kinesis/Waiters.hs

@@ -15,7 +15,9 @@
 
 module Network.AWS.Kinesis.Waiters where
 
+import Prelude hiding (error)
 import Network.AWS.Kinesis.DescribeStream
+import Network.AWS.Kinesis.Types
 import Network.AWS.Waiters
 
 streamExists :: Wait DescribeStream

amazonka-rds/gen/Network/AWS/RDS/Waiters.hs

@@ -15,7 +15,9 @@
 
 module Network.AWS.RDS.Waiters where
 
+import Prelude hiding (error)
 import Network.AWS.RDS.DescribeDBInstances
+import Network.AWS.RDS.Types
 import Network.AWS.Waiters
 
 dbInstanceAvailable :: Wait DescribeDBInstances

amazonka-redshift/gen/Network/AWS/Redshift/Waiters.hs

@@ -15,8 +15,10 @@
 
 module Network.AWS.Redshift.Waiters where
 
+import Prelude hiding (error)
 import Network.AWS.Redshift.DescribeClusterSnapshots
 import Network.AWS.Redshift.DescribeClusters
+import Network.AWS.Redshift.Types
 import Network.AWS.Waiters
 
 clusterAvailable :: Wait DescribeClusters

amazonka-s3/gen/Network/AWS/S3/Waiters.hs

@@ -15,8 +15,10 @@
 
 module Network.AWS.S3.Waiters where
 
+import Prelude hiding (error)
 import Network.AWS.S3.HeadBucket
 import Network.AWS.S3.HeadObject
+import Network.AWS.S3.Types
 import Network.AWS.Waiters
 
 bucketExists :: Wait HeadBucket

amazonka-ses/gen/Network/AWS/SES/Waiters.hs

@@ -15,7 +15,9 @@
 
 module Network.AWS.SES.Waiters where
 
+import Prelude hiding (error)
 import Network.AWS.SES.GetIdentityVerificationAttributes
+import Network.AWS.SES.Types
 import Network.AWS.Waiters
 
 identityExists :: Wait GetIdentityVerificationAttributes
@@ -24,6 +26,6 @@ identityExists = Wait
     , _waitAttempts  = 20
     , _waitDelay     = 3
     , _waitAcceptors =
-        [ pathAll (givarVerificationAttributes . traverseValues . ivaVerificationStatus) "Success" Success
+        [ pathAll (givarVerificationAttributes . traverse . ivaVerificationStatus) "Success" Success
         ]
     }

core/src/Network/AWS/Prelude.hs

@@ -106,4 +106,6 @@ import Control.Lens              as Export
     , withIso
     , to
     , mapping
+    , _Just
+    , _Nothing
     )