diff --git a/amazonka-ecs.cabal b/amazonka-ecs.cabal
--- a/amazonka-ecs.cabal
+++ b/amazonka-ecs.cabal
@@ -1,5 +1,5 @@
 name:                  amazonka-ecs
-version:               0.3.3
+version:               0.3.4
 synopsis:              Amazon EC2 Container Service SDK.
 homepage:              https://github.com/brendanhay/amazonka
 license:               OtherLicense
@@ -45,16 +45,20 @@
     exposed-modules:
           Network.AWS.ECS
         , Network.AWS.ECS.CreateCluster
+        , Network.AWS.ECS.CreateService
         , Network.AWS.ECS.DeleteCluster
+        , Network.AWS.ECS.DeleteService
         , Network.AWS.ECS.DeregisterContainerInstance
         , Network.AWS.ECS.DeregisterTaskDefinition
         , Network.AWS.ECS.DescribeClusters
         , Network.AWS.ECS.DescribeContainerInstances
+        , Network.AWS.ECS.DescribeServices
         , Network.AWS.ECS.DescribeTaskDefinition
         , Network.AWS.ECS.DescribeTasks
         , Network.AWS.ECS.DiscoverPollEndpoint
         , Network.AWS.ECS.ListClusters
         , Network.AWS.ECS.ListContainerInstances
+        , Network.AWS.ECS.ListServices
         , Network.AWS.ECS.ListTaskDefinitionFamilies
         , Network.AWS.ECS.ListTaskDefinitions
         , Network.AWS.ECS.ListTasks
@@ -66,9 +70,10 @@
         , Network.AWS.ECS.SubmitContainerStateChange
         , Network.AWS.ECS.SubmitTaskStateChange
         , Network.AWS.ECS.Types
+        , Network.AWS.ECS.UpdateService
 
     other-modules:
 
     build-depends:
-          amazonka-core == 0.3.3.*
+          amazonka-core == 0.3.4.*
         , base          >= 4.7     && < 5
diff --git a/gen/Network/AWS/ECS.hs b/gen/Network/AWS/ECS.hs
--- a/gen/Network/AWS/ECS.hs
+++ b/gen/Network/AWS/ECS.hs
@@ -24,16 +24,20 @@
 -- worry about scaling your management infrastructure.
 module Network.AWS.ECS
     ( module Network.AWS.ECS.CreateCluster
+    , module Network.AWS.ECS.CreateService
     , module Network.AWS.ECS.DeleteCluster
+    , module Network.AWS.ECS.DeleteService
     , module Network.AWS.ECS.DeregisterContainerInstance
     , module Network.AWS.ECS.DeregisterTaskDefinition
     , module Network.AWS.ECS.DescribeClusters
     , module Network.AWS.ECS.DescribeContainerInstances
+    , module Network.AWS.ECS.DescribeServices
     , module Network.AWS.ECS.DescribeTaskDefinition
     , module Network.AWS.ECS.DescribeTasks
     , module Network.AWS.ECS.DiscoverPollEndpoint
     , module Network.AWS.ECS.ListClusters
     , module Network.AWS.ECS.ListContainerInstances
+    , module Network.AWS.ECS.ListServices
     , module Network.AWS.ECS.ListTaskDefinitionFamilies
     , module Network.AWS.ECS.ListTaskDefinitions
     , module Network.AWS.ECS.ListTasks
@@ -45,19 +49,24 @@
     , module Network.AWS.ECS.SubmitContainerStateChange
     , module Network.AWS.ECS.SubmitTaskStateChange
     , module Network.AWS.ECS.Types
+    , module Network.AWS.ECS.UpdateService
     ) where
 
 import Network.AWS.ECS.CreateCluster
+import Network.AWS.ECS.CreateService
 import Network.AWS.ECS.DeleteCluster
+import Network.AWS.ECS.DeleteService
 import Network.AWS.ECS.DeregisterContainerInstance
 import Network.AWS.ECS.DeregisterTaskDefinition
 import Network.AWS.ECS.DescribeClusters
 import Network.AWS.ECS.DescribeContainerInstances
+import Network.AWS.ECS.DescribeServices
 import Network.AWS.ECS.DescribeTaskDefinition
 import Network.AWS.ECS.DescribeTasks
 import Network.AWS.ECS.DiscoverPollEndpoint
 import Network.AWS.ECS.ListClusters
 import Network.AWS.ECS.ListContainerInstances
+import Network.AWS.ECS.ListServices
 import Network.AWS.ECS.ListTaskDefinitionFamilies
 import Network.AWS.ECS.ListTaskDefinitions
 import Network.AWS.ECS.ListTasks
@@ -69,3 +78,4 @@
 import Network.AWS.ECS.SubmitContainerStateChange
 import Network.AWS.ECS.SubmitTaskStateChange
 import Network.AWS.ECS.Types
+import Network.AWS.ECS.UpdateService
diff --git a/gen/Network/AWS/ECS/CreateCluster.hs b/gen/Network/AWS/ECS/CreateCluster.hs
--- a/gen/Network/AWS/ECS/CreateCluster.hs
+++ b/gen/Network/AWS/ECS/CreateCluster.hs
@@ -25,10 +25,6 @@
 -- | Creates a new Amazon ECS cluster. By default, your account will receive a 'default' cluster when you launch your first container instance. However, you can
 -- create your own cluster with a unique name with the 'CreateCluster' action.
 --
--- During the preview, each account is limited to two clusters.
---
---
---
 -- <http://docs.aws.amazon.com/AmazonECS/latest/APIReference/API_CreateCluster.html>
 module Network.AWS.ECS.CreateCluster
     (
@@ -47,6 +43,7 @@
     , ccrCluster
     ) where
 
+import Network.AWS.Data (Object)
 import Network.AWS.Prelude
 import Network.AWS.Request.JSON
 import Network.AWS.ECS.Types
@@ -68,7 +65,8 @@
     }
 
 -- | The name of your cluster. If you do not specify a name for your cluster, you
--- will create a cluster named 'default'.
+-- will create a cluster named 'default'. Up to 255 letters (uppercase and
+-- lowercase), numbers, hyphens, and underscores are allowed.
 ccClusterName :: Lens' CreateCluster (Maybe Text)
 ccClusterName = lens _ccClusterName (\s a -> s { _ccClusterName = a })
 
diff --git a/gen/Network/AWS/ECS/CreateService.hs b/gen/Network/AWS/ECS/CreateService.hs
new file mode 100644
--- /dev/null
+++ b/gen/Network/AWS/ECS/CreateService.hs
@@ -0,0 +1,186 @@
+{-# LANGUAGE DataKinds                   #-}
+{-# LANGUAGE DeriveGeneric               #-}
+{-# LANGUAGE FlexibleInstances           #-}
+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}
+{-# LANGUAGE LambdaCase                  #-}
+{-# LANGUAGE NoImplicitPrelude           #-}
+{-# LANGUAGE OverloadedStrings           #-}
+{-# LANGUAGE RecordWildCards             #-}
+{-# LANGUAGE TypeFamilies                #-}
+
+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
+
+-- Module      : Network.AWS.ECS.CreateService
+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>
+-- License     : This Source Code Form is subject to the terms of
+--               the Mozilla Public License, v. 2.0.
+--               A copy of the MPL can be found in the LICENSE file or
+--               you can obtain it at http://mozilla.org/MPL/2.0/.
+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>
+-- Stability   : experimental
+-- Portability : non-portable (GHC extensions)
+--
+-- Derived from AWS service descriptions, licensed under Apache 2.0.
+
+-- | Runs and maintains a desired number of tasks from a specified task
+-- definition. If the number of tasks running in a service drops below 'desiredCount', Amazon ECS will spawn another instantiation of the task in the specified
+-- cluster.
+--
+-- <http://docs.aws.amazon.com/AmazonECS/latest/APIReference/API_CreateService.html>
+module Network.AWS.ECS.CreateService
+    (
+    -- * Request
+      CreateService
+    -- ** Request constructor
+    , createService
+    -- ** Request lenses
+    , cs1ClientToken
+    , cs1Cluster
+    , cs1DesiredCount
+    , cs1LoadBalancers
+    , cs1Role
+    , cs1ServiceName
+    , cs1TaskDefinition
+
+    -- * Response
+    , CreateServiceResponse
+    -- ** Response constructor
+    , createServiceResponse
+    -- ** Response lenses
+    , csrService
+    ) where
+
+import Network.AWS.Data (Object)
+import Network.AWS.Prelude
+import Network.AWS.Request.JSON
+import Network.AWS.ECS.Types
+import qualified GHC.Exts
+
+data CreateService = CreateService
+    { _cs1ClientToken    :: Maybe Text
+    , _cs1Cluster        :: Maybe Text
+    , _cs1DesiredCount   :: Maybe Int
+    , _cs1LoadBalancers  :: List "loadBalancers" LoadBalancer
+    , _cs1Role           :: Maybe Text
+    , _cs1ServiceName    :: Text
+    , _cs1TaskDefinition :: Maybe Text
+    } deriving (Eq, Read, Show)
+
+-- | 'CreateService' constructor.
+--
+-- The fields accessible through corresponding lenses are:
+--
+-- * 'cs1ClientToken' @::@ 'Maybe' 'Text'
+--
+-- * 'cs1Cluster' @::@ 'Maybe' 'Text'
+--
+-- * 'cs1DesiredCount' @::@ 'Maybe' 'Int'
+--
+-- * 'cs1LoadBalancers' @::@ ['LoadBalancer']
+--
+-- * 'cs1Role' @::@ 'Maybe' 'Text'
+--
+-- * 'cs1ServiceName' @::@ 'Text'
+--
+-- * 'cs1TaskDefinition' @::@ 'Maybe' 'Text'
+--
+createService :: Text -- ^ 'cs1ServiceName'
+              -> CreateService
+createService p1 = CreateService
+    { _cs1ServiceName    = p1
+    , _cs1Cluster        = Nothing
+    , _cs1TaskDefinition = Nothing
+    , _cs1LoadBalancers  = mempty
+    , _cs1DesiredCount   = Nothing
+    , _cs1ClientToken    = Nothing
+    , _cs1Role           = Nothing
+    }
+
+-- | Unique, case-sensitive identifier you provide to ensure the idempotency of
+-- the request. Up to 32 ASCII characters are allowed.
+cs1ClientToken :: Lens' CreateService (Maybe Text)
+cs1ClientToken = lens _cs1ClientToken (\s a -> s { _cs1ClientToken = a })
+
+-- | The short name or full Amazon Resource Name (ARN) of the cluster that you
+-- want to run your service on. If you do not specify a cluster, the default
+-- cluster is assumed.
+cs1Cluster :: Lens' CreateService (Maybe Text)
+cs1Cluster = lens _cs1Cluster (\s a -> s { _cs1Cluster = a })
+
+-- | The number of instantiations of the specified task definition that you would
+-- like to place and keep running on your cluster.
+cs1DesiredCount :: Lens' CreateService (Maybe Int)
+cs1DesiredCount = lens _cs1DesiredCount (\s a -> s { _cs1DesiredCount = a })
+
+-- | A list of load balancer objects, containing the load balancer name, the
+-- container name (as it appears in a container definition), and the container
+-- port to access from the load balancer.
+cs1LoadBalancers :: Lens' CreateService [LoadBalancer]
+cs1LoadBalancers = lens _cs1LoadBalancers (\s a -> s { _cs1LoadBalancers = a }) . _List
+
+-- | The name or full Amazon Resource Name (ARN) of the IAM role that allows your
+-- Amazon ECS container agent to make calls to your load balancer on your
+-- behalf. This parameter is only required if you are using a load balancer with
+-- your service.
+cs1Role :: Lens' CreateService (Maybe Text)
+cs1Role = lens _cs1Role (\s a -> s { _cs1Role = a })
+
+-- | The name of your service. Up to 255 letters (uppercase and lowercase),
+-- numbers, hyphens, and underscores are allowed.
+cs1ServiceName :: Lens' CreateService Text
+cs1ServiceName = lens _cs1ServiceName (\s a -> s { _cs1ServiceName = a })
+
+-- | The 'family' and 'revision' ('family:revision') or full Amazon Resource Name (ARN)
+-- of the task definition that you want to run in your service.
+cs1TaskDefinition :: Lens' CreateService (Maybe Text)
+cs1TaskDefinition =
+    lens _cs1TaskDefinition (\s a -> s { _cs1TaskDefinition = a })
+
+newtype CreateServiceResponse = CreateServiceResponse
+    { _csrService :: Maybe ContainerService
+    } deriving (Eq, Read, Show)
+
+-- | 'CreateServiceResponse' constructor.
+--
+-- The fields accessible through corresponding lenses are:
+--
+-- * 'csrService' @::@ 'Maybe' 'ContainerService'
+--
+createServiceResponse :: CreateServiceResponse
+createServiceResponse = CreateServiceResponse
+    { _csrService = Nothing
+    }
+
+-- | The full description of your service following the create call.
+csrService :: Lens' CreateServiceResponse (Maybe ContainerService)
+csrService = lens _csrService (\s a -> s { _csrService = a })
+
+instance ToPath CreateService where
+    toPath = const "/"
+
+instance ToQuery CreateService where
+    toQuery = const mempty
+
+instance ToHeaders CreateService
+
+instance ToJSON CreateService where
+    toJSON CreateService{..} = object
+        [ "cluster"        .= _cs1Cluster
+        , "serviceName"    .= _cs1ServiceName
+        , "taskDefinition" .= _cs1TaskDefinition
+        , "loadBalancers"  .= _cs1LoadBalancers
+        , "desiredCount"   .= _cs1DesiredCount
+        , "clientToken"    .= _cs1ClientToken
+        , "role"           .= _cs1Role
+        ]
+
+instance AWSRequest CreateService where
+    type Sv CreateService = ECS
+    type Rs CreateService = CreateServiceResponse
+
+    request  = post "CreateService"
+    response = jsonResponse
+
+instance FromJSON CreateServiceResponse where
+    parseJSON = withObject "CreateServiceResponse" $ \o -> CreateServiceResponse
+        <$> o .:? "service"
diff --git a/gen/Network/AWS/ECS/DeleteCluster.hs b/gen/Network/AWS/ECS/DeleteCluster.hs
--- a/gen/Network/AWS/ECS/DeleteCluster.hs
+++ b/gen/Network/AWS/ECS/DeleteCluster.hs
@@ -44,6 +44,7 @@
     , dcrCluster
     ) where
 
+import Network.AWS.Data (Object)
 import Network.AWS.Prelude
 import Network.AWS.Request.JSON
 import Network.AWS.ECS.Types
diff --git a/gen/Network/AWS/ECS/DeleteService.hs b/gen/Network/AWS/ECS/DeleteService.hs
new file mode 100644
--- /dev/null
+++ b/gen/Network/AWS/ECS/DeleteService.hs
@@ -0,0 +1,121 @@
+{-# LANGUAGE DataKinds                   #-}
+{-# LANGUAGE DeriveGeneric               #-}
+{-# LANGUAGE FlexibleInstances           #-}
+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}
+{-# LANGUAGE LambdaCase                  #-}
+{-# LANGUAGE NoImplicitPrelude           #-}
+{-# LANGUAGE OverloadedStrings           #-}
+{-# LANGUAGE RecordWildCards             #-}
+{-# LANGUAGE TypeFamilies                #-}
+
+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
+
+-- Module      : Network.AWS.ECS.DeleteService
+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>
+-- License     : This Source Code Form is subject to the terms of
+--               the Mozilla Public License, v. 2.0.
+--               A copy of the MPL can be found in the LICENSE file or
+--               you can obtain it at http://mozilla.org/MPL/2.0/.
+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>
+-- Stability   : experimental
+-- Portability : non-portable (GHC extensions)
+--
+-- Derived from AWS service descriptions, licensed under Apache 2.0.
+
+-- | Deletes a specified service within a cluster.
+--
+-- <http://docs.aws.amazon.com/AmazonECS/latest/APIReference/API_DeleteService.html>
+module Network.AWS.ECS.DeleteService
+    (
+    -- * Request
+      DeleteService
+    -- ** Request constructor
+    , deleteService
+    -- ** Request lenses
+    , dsCluster
+    , dsService
+
+    -- * Response
+    , DeleteServiceResponse
+    -- ** Response constructor
+    , deleteServiceResponse
+    -- ** Response lenses
+    , dsrService
+    ) where
+
+import Network.AWS.Data (Object)
+import Network.AWS.Prelude
+import Network.AWS.Request.JSON
+import Network.AWS.ECS.Types
+import qualified GHC.Exts
+
+data DeleteService = DeleteService
+    { _dsCluster :: Maybe Text
+    , _dsService :: Text
+    } deriving (Eq, Ord, Read, Show)
+
+-- | 'DeleteService' constructor.
+--
+-- The fields accessible through corresponding lenses are:
+--
+-- * 'dsCluster' @::@ 'Maybe' 'Text'
+--
+-- * 'dsService' @::@ 'Text'
+--
+deleteService :: Text -- ^ 'dsService'
+              -> DeleteService
+deleteService p1 = DeleteService
+    { _dsService = p1
+    , _dsCluster = Nothing
+    }
+
+-- | The name of the cluster that hosts the service you want to delete.
+dsCluster :: Lens' DeleteService (Maybe Text)
+dsCluster = lens _dsCluster (\s a -> s { _dsCluster = a })
+
+-- | The name of the service you want to delete.
+dsService :: Lens' DeleteService Text
+dsService = lens _dsService (\s a -> s { _dsService = a })
+
+newtype DeleteServiceResponse = DeleteServiceResponse
+    { _dsrService :: Maybe ContainerService
+    } deriving (Eq, Read, Show)
+
+-- | 'DeleteServiceResponse' constructor.
+--
+-- The fields accessible through corresponding lenses are:
+--
+-- * 'dsrService' @::@ 'Maybe' 'ContainerService'
+--
+deleteServiceResponse :: DeleteServiceResponse
+deleteServiceResponse = DeleteServiceResponse
+    { _dsrService = Nothing
+    }
+
+dsrService :: Lens' DeleteServiceResponse (Maybe ContainerService)
+dsrService = lens _dsrService (\s a -> s { _dsrService = a })
+
+instance ToPath DeleteService where
+    toPath = const "/"
+
+instance ToQuery DeleteService where
+    toQuery = const mempty
+
+instance ToHeaders DeleteService
+
+instance ToJSON DeleteService where
+    toJSON DeleteService{..} = object
+        [ "cluster" .= _dsCluster
+        , "service" .= _dsService
+        ]
+
+instance AWSRequest DeleteService where
+    type Sv DeleteService = ECS
+    type Rs DeleteService = DeleteServiceResponse
+
+    request  = post "DeleteService"
+    response = jsonResponse
+
+instance FromJSON DeleteServiceResponse where
+    parseJSON = withObject "DeleteServiceResponse" $ \o -> DeleteServiceResponse
+        <$> o .:? "service"
diff --git a/gen/Network/AWS/ECS/DeregisterContainerInstance.hs b/gen/Network/AWS/ECS/DeregisterContainerInstance.hs
--- a/gen/Network/AWS/ECS/DeregisterContainerInstance.hs
+++ b/gen/Network/AWS/ECS/DeregisterContainerInstance.hs
@@ -45,6 +45,7 @@
     , dcirContainerInstance
     ) where
 
+import Network.AWS.Data (Object)
 import Network.AWS.Prelude
 import Network.AWS.Request.JSON
 import Network.AWS.ECS.Types
diff --git a/gen/Network/AWS/ECS/DeregisterTaskDefinition.hs b/gen/Network/AWS/ECS/DeregisterTaskDefinition.hs
--- a/gen/Network/AWS/ECS/DeregisterTaskDefinition.hs
+++ b/gen/Network/AWS/ECS/DeregisterTaskDefinition.hs
@@ -45,6 +45,7 @@
     , dtdrTaskDefinition
     ) where
 
+import Network.AWS.Data (Object)
 import Network.AWS.Prelude
 import Network.AWS.Request.JSON
 import Network.AWS.ECS.Types
diff --git a/gen/Network/AWS/ECS/DescribeClusters.hs b/gen/Network/AWS/ECS/DescribeClusters.hs
--- a/gen/Network/AWS/ECS/DescribeClusters.hs
+++ b/gen/Network/AWS/ECS/DescribeClusters.hs
@@ -43,6 +43,7 @@
     , dcrFailures
     ) where
 
+import Network.AWS.Data (Object)
 import Network.AWS.Prelude
 import Network.AWS.Request.JSON
 import Network.AWS.ECS.Types
diff --git a/gen/Network/AWS/ECS/DescribeContainerInstances.hs b/gen/Network/AWS/ECS/DescribeContainerInstances.hs
--- a/gen/Network/AWS/ECS/DescribeContainerInstances.hs
+++ b/gen/Network/AWS/ECS/DescribeContainerInstances.hs
@@ -45,6 +45,7 @@
     , dcirFailures
     ) where
 
+import Network.AWS.Data (Object)
 import Network.AWS.Prelude
 import Network.AWS.Request.JSON
 import Network.AWS.ECS.Types
diff --git a/gen/Network/AWS/ECS/DescribeServices.hs b/gen/Network/AWS/ECS/DescribeServices.hs
new file mode 100644
--- /dev/null
+++ b/gen/Network/AWS/ECS/DescribeServices.hs
@@ -0,0 +1,131 @@
+{-# LANGUAGE DataKinds                   #-}
+{-# LANGUAGE DeriveGeneric               #-}
+{-# LANGUAGE FlexibleInstances           #-}
+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}
+{-# LANGUAGE LambdaCase                  #-}
+{-# LANGUAGE NoImplicitPrelude           #-}
+{-# LANGUAGE OverloadedStrings           #-}
+{-# LANGUAGE RecordWildCards             #-}
+{-# LANGUAGE TypeFamilies                #-}
+
+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
+
+-- Module      : Network.AWS.ECS.DescribeServices
+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>
+-- License     : This Source Code Form is subject to the terms of
+--               the Mozilla Public License, v. 2.0.
+--               A copy of the MPL can be found in the LICENSE file or
+--               you can obtain it at http://mozilla.org/MPL/2.0/.
+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>
+-- Stability   : experimental
+-- Portability : non-portable (GHC extensions)
+--
+-- Derived from AWS service descriptions, licensed under Apache 2.0.
+
+-- | Describes the specified services running in your cluster.
+--
+-- <http://docs.aws.amazon.com/AmazonECS/latest/APIReference/API_DescribeServices.html>
+module Network.AWS.ECS.DescribeServices
+    (
+    -- * Request
+      DescribeServices
+    -- ** Request constructor
+    , describeServices
+    -- ** Request lenses
+    , ds1Cluster
+    , ds1Services
+
+    -- * Response
+    , DescribeServicesResponse
+    -- ** Response constructor
+    , describeServicesResponse
+    -- ** Response lenses
+    , dsrFailures
+    , dsrServices
+    ) where
+
+import Network.AWS.Data (Object)
+import Network.AWS.Prelude
+import Network.AWS.Request.JSON
+import Network.AWS.ECS.Types
+import qualified GHC.Exts
+
+data DescribeServices = DescribeServices
+    { _ds1Cluster  :: Maybe Text
+    , _ds1Services :: List "services" Text
+    } deriving (Eq, Ord, Read, Show)
+
+-- | 'DescribeServices' constructor.
+--
+-- The fields accessible through corresponding lenses are:
+--
+-- * 'ds1Cluster' @::@ 'Maybe' 'Text'
+--
+-- * 'ds1Services' @::@ ['Text']
+--
+describeServices :: DescribeServices
+describeServices = DescribeServices
+    { _ds1Cluster  = Nothing
+    , _ds1Services = mempty
+    }
+
+-- | The name of the cluster that hosts the service you want to describe.
+ds1Cluster :: Lens' DescribeServices (Maybe Text)
+ds1Cluster = lens _ds1Cluster (\s a -> s { _ds1Cluster = a })
+
+-- | A list of services you want to describe.
+ds1Services :: Lens' DescribeServices [Text]
+ds1Services = lens _ds1Services (\s a -> s { _ds1Services = a }) . _List
+
+data DescribeServicesResponse = DescribeServicesResponse
+    { _dsrFailures :: List "failures" Failure
+    , _dsrServices :: List "services" ContainerService
+    } deriving (Eq, Read, Show)
+
+-- | 'DescribeServicesResponse' constructor.
+--
+-- The fields accessible through corresponding lenses are:
+--
+-- * 'dsrFailures' @::@ ['Failure']
+--
+-- * 'dsrServices' @::@ ['ContainerService']
+--
+describeServicesResponse :: DescribeServicesResponse
+describeServicesResponse = DescribeServicesResponse
+    { _dsrServices = mempty
+    , _dsrFailures = mempty
+    }
+
+-- | Any failures associated with the call.
+dsrFailures :: Lens' DescribeServicesResponse [Failure]
+dsrFailures = lens _dsrFailures (\s a -> s { _dsrFailures = a }) . _List
+
+-- | The list of services described.
+dsrServices :: Lens' DescribeServicesResponse [ContainerService]
+dsrServices = lens _dsrServices (\s a -> s { _dsrServices = a }) . _List
+
+instance ToPath DescribeServices where
+    toPath = const "/"
+
+instance ToQuery DescribeServices where
+    toQuery = const mempty
+
+instance ToHeaders DescribeServices
+
+instance ToJSON DescribeServices where
+    toJSON DescribeServices{..} = object
+        [ "cluster"  .= _ds1Cluster
+        , "services" .= _ds1Services
+        ]
+
+instance AWSRequest DescribeServices where
+    type Sv DescribeServices = ECS
+    type Rs DescribeServices = DescribeServicesResponse
+
+    request  = post "DescribeServices"
+    response = jsonResponse
+
+instance FromJSON DescribeServicesResponse where
+    parseJSON = withObject "DescribeServicesResponse" $ \o -> DescribeServicesResponse
+        <$> o .:? "failures" .!= mempty
+        <*> o .:? "services" .!= mempty
diff --git a/gen/Network/AWS/ECS/DescribeTaskDefinition.hs b/gen/Network/AWS/ECS/DescribeTaskDefinition.hs
--- a/gen/Network/AWS/ECS/DescribeTaskDefinition.hs
+++ b/gen/Network/AWS/ECS/DescribeTaskDefinition.hs
@@ -44,6 +44,7 @@
     , dtdr1TaskDefinition
     ) where
 
+import Network.AWS.Data (Object)
 import Network.AWS.Prelude
 import Network.AWS.Request.JSON
 import Network.AWS.ECS.Types
diff --git a/gen/Network/AWS/ECS/DescribeTasks.hs b/gen/Network/AWS/ECS/DescribeTasks.hs
--- a/gen/Network/AWS/ECS/DescribeTasks.hs
+++ b/gen/Network/AWS/ECS/DescribeTasks.hs
@@ -44,6 +44,7 @@
     , dtrTasks
     ) where
 
+import Network.AWS.Data (Object)
 import Network.AWS.Prelude
 import Network.AWS.Request.JSON
 import Network.AWS.ECS.Types
diff --git a/gen/Network/AWS/ECS/DiscoverPollEndpoint.hs b/gen/Network/AWS/ECS/DiscoverPollEndpoint.hs
--- a/gen/Network/AWS/ECS/DiscoverPollEndpoint.hs
+++ b/gen/Network/AWS/ECS/DiscoverPollEndpoint.hs
@@ -47,6 +47,7 @@
     , dperEndpoint
     ) where
 
+import Network.AWS.Data (Object)
 import Network.AWS.Prelude
 import Network.AWS.Request.JSON
 import Network.AWS.ECS.Types
diff --git a/gen/Network/AWS/ECS/ListClusters.hs b/gen/Network/AWS/ECS/ListClusters.hs
--- a/gen/Network/AWS/ECS/ListClusters.hs
+++ b/gen/Network/AWS/ECS/ListClusters.hs
@@ -44,6 +44,7 @@
     , lcrNextToken
     ) where
 
+import Network.AWS.Data (Object)
 import Network.AWS.Prelude
 import Network.AWS.Request.JSON
 import Network.AWS.ECS.Types
diff --git a/gen/Network/AWS/ECS/ListContainerInstances.hs b/gen/Network/AWS/ECS/ListContainerInstances.hs
--- a/gen/Network/AWS/ECS/ListContainerInstances.hs
+++ b/gen/Network/AWS/ECS/ListContainerInstances.hs
@@ -45,6 +45,7 @@
     , lcirNextToken
     ) where
 
+import Network.AWS.Data (Object)
 import Network.AWS.Prelude
 import Network.AWS.Request.JSON
 import Network.AWS.ECS.Types
diff --git a/gen/Network/AWS/ECS/ListServices.hs b/gen/Network/AWS/ECS/ListServices.hs
new file mode 100644
--- /dev/null
+++ b/gen/Network/AWS/ECS/ListServices.hs
@@ -0,0 +1,155 @@
+{-# LANGUAGE DataKinds                   #-}
+{-# LANGUAGE DeriveGeneric               #-}
+{-# LANGUAGE FlexibleInstances           #-}
+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}
+{-# LANGUAGE LambdaCase                  #-}
+{-# LANGUAGE NoImplicitPrelude           #-}
+{-# LANGUAGE OverloadedStrings           #-}
+{-# LANGUAGE RecordWildCards             #-}
+{-# LANGUAGE TypeFamilies                #-}
+
+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
+
+-- Module      : Network.AWS.ECS.ListServices
+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>
+-- License     : This Source Code Form is subject to the terms of
+--               the Mozilla Public License, v. 2.0.
+--               A copy of the MPL can be found in the LICENSE file or
+--               you can obtain it at http://mozilla.org/MPL/2.0/.
+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>
+-- Stability   : experimental
+-- Portability : non-portable (GHC extensions)
+--
+-- Derived from AWS service descriptions, licensed under Apache 2.0.
+
+-- | Lists the services that are running in a specified cluster.
+--
+-- <http://docs.aws.amazon.com/AmazonECS/latest/APIReference/API_ListServices.html>
+module Network.AWS.ECS.ListServices
+    (
+    -- * Request
+      ListServices
+    -- ** Request constructor
+    , listServices
+    -- ** Request lenses
+    , lsCluster
+    , lsMaxResults
+    , lsNextToken
+
+    -- * Response
+    , ListServicesResponse
+    -- ** Response constructor
+    , listServicesResponse
+    -- ** Response lenses
+    , lsrNextToken
+    , lsrServiceArns
+    ) where
+
+import Network.AWS.Data (Object)
+import Network.AWS.Prelude
+import Network.AWS.Request.JSON
+import Network.AWS.ECS.Types
+import qualified GHC.Exts
+
+data ListServices = ListServices
+    { _lsCluster    :: Maybe Text
+    , _lsMaxResults :: Maybe Int
+    , _lsNextToken  :: Maybe Text
+    } deriving (Eq, Ord, Read, Show)
+
+-- | 'ListServices' constructor.
+--
+-- The fields accessible through corresponding lenses are:
+--
+-- * 'lsCluster' @::@ 'Maybe' 'Text'
+--
+-- * 'lsMaxResults' @::@ 'Maybe' 'Int'
+--
+-- * 'lsNextToken' @::@ 'Maybe' 'Text'
+--
+listServices :: ListServices
+listServices = ListServices
+    { _lsCluster    = Nothing
+    , _lsNextToken  = Nothing
+    , _lsMaxResults = Nothing
+    }
+
+-- | The short name or full Amazon Resource Name (ARN) of the cluster that hosts
+-- the services you want to list. If you do not specify a cluster, the default
+-- cluster is assumed..
+lsCluster :: Lens' ListServices (Maybe Text)
+lsCluster = lens _lsCluster (\s a -> s { _lsCluster = a })
+
+-- | The maximum number of container instance results returned by 'ListServices' in
+-- paginated output. When this parameter is used, 'ListServices' only returns 'maxResults' results in a single page along with a 'nextToken' response element. The
+-- remaining results of the initial request can be seen by sending another 'ListServices' request with the returned 'nextToken' value. This value can be between 1 and
+-- 100. If this parameter is not used, then 'ListServices' returns up to 100
+-- results and a 'nextToken' value if applicable.
+lsMaxResults :: Lens' ListServices (Maybe Int)
+lsMaxResults = lens _lsMaxResults (\s a -> s { _lsMaxResults = a })
+
+-- | The 'nextToken' value returned from a previous paginated 'ListServices' request
+-- where 'maxResults' was used and the results exceeded the value of that
+-- parameter. Pagination continues from the end of the previous results that
+-- returned the 'nextToken' value. This value is 'null' when there are no more
+-- results to return.
+lsNextToken :: Lens' ListServices (Maybe Text)
+lsNextToken = lens _lsNextToken (\s a -> s { _lsNextToken = a })
+
+data ListServicesResponse = ListServicesResponse
+    { _lsrNextToken   :: Maybe Text
+    , _lsrServiceArns :: List "serviceArns" Text
+    } deriving (Eq, Ord, Read, Show)
+
+-- | 'ListServicesResponse' constructor.
+--
+-- The fields accessible through corresponding lenses are:
+--
+-- * 'lsrNextToken' @::@ 'Maybe' 'Text'
+--
+-- * 'lsrServiceArns' @::@ ['Text']
+--
+listServicesResponse :: ListServicesResponse
+listServicesResponse = ListServicesResponse
+    { _lsrServiceArns = mempty
+    , _lsrNextToken   = Nothing
+    }
+
+-- | The 'nextToken' value to include in a future 'ListServices' request. When the
+-- results of a 'ListServices' request exceed 'maxResults', this value can be used
+-- to retrieve the next page of results. This value is 'null' when there are no
+-- more results to return.
+lsrNextToken :: Lens' ListServicesResponse (Maybe Text)
+lsrNextToken = lens _lsrNextToken (\s a -> s { _lsrNextToken = a })
+
+-- | The list of full Amazon Resource Name (ARN) entries for each service
+-- associated with the specified cluster.
+lsrServiceArns :: Lens' ListServicesResponse [Text]
+lsrServiceArns = lens _lsrServiceArns (\s a -> s { _lsrServiceArns = a }) . _List
+
+instance ToPath ListServices where
+    toPath = const "/"
+
+instance ToQuery ListServices where
+    toQuery = const mempty
+
+instance ToHeaders ListServices
+
+instance ToJSON ListServices where
+    toJSON ListServices{..} = object
+        [ "cluster"    .= _lsCluster
+        , "nextToken"  .= _lsNextToken
+        , "maxResults" .= _lsMaxResults
+        ]
+
+instance AWSRequest ListServices where
+    type Sv ListServices = ECS
+    type Rs ListServices = ListServicesResponse
+
+    request  = post "ListServices"
+    response = jsonResponse
+
+instance FromJSON ListServicesResponse where
+    parseJSON = withObject "ListServicesResponse" $ \o -> ListServicesResponse
+        <$> o .:? "nextToken"
+        <*> o .:? "serviceArns" .!= mempty
diff --git a/gen/Network/AWS/ECS/ListTaskDefinitionFamilies.hs b/gen/Network/AWS/ECS/ListTaskDefinitionFamilies.hs
--- a/gen/Network/AWS/ECS/ListTaskDefinitionFamilies.hs
+++ b/gen/Network/AWS/ECS/ListTaskDefinitionFamilies.hs
@@ -46,6 +46,7 @@
     , ltdfrNextToken
     ) where
 
+import Network.AWS.Data (Object)
 import Network.AWS.Prelude
 import Network.AWS.Request.JSON
 import Network.AWS.ECS.Types
diff --git a/gen/Network/AWS/ECS/ListTaskDefinitions.hs b/gen/Network/AWS/ECS/ListTaskDefinitions.hs
--- a/gen/Network/AWS/ECS/ListTaskDefinitions.hs
+++ b/gen/Network/AWS/ECS/ListTaskDefinitions.hs
@@ -46,6 +46,7 @@
     , ltdrTaskDefinitionArns
     ) where
 
+import Network.AWS.Data (Object)
 import Network.AWS.Prelude
 import Network.AWS.Request.JSON
 import Network.AWS.ECS.Types
diff --git a/gen/Network/AWS/ECS/ListTasks.hs b/gen/Network/AWS/ECS/ListTasks.hs
--- a/gen/Network/AWS/ECS/ListTasks.hs
+++ b/gen/Network/AWS/ECS/ListTasks.hs
@@ -38,6 +38,8 @@
     , ltFamily
     , ltMaxResults
     , ltNextToken
+    , ltServiceName
+    , ltStartedBy
 
     -- * Response
     , ListTasksResponse
@@ -48,6 +50,7 @@
     , ltrTaskArns
     ) where
 
+import Network.AWS.Data (Object)
 import Network.AWS.Prelude
 import Network.AWS.Request.JSON
 import Network.AWS.ECS.Types
@@ -59,6 +62,8 @@
     , _ltFamily            :: Maybe Text
     , _ltMaxResults        :: Maybe Int
     , _ltNextToken         :: Maybe Text
+    , _ltServiceName       :: Maybe Text
+    , _ltStartedBy         :: Maybe Text
     } deriving (Eq, Ord, Read, Show)
 
 -- | 'ListTasks' constructor.
@@ -75,6 +80,10 @@
 --
 -- * 'ltNextToken' @::@ 'Maybe' 'Text'
 --
+-- * 'ltServiceName' @::@ 'Maybe' 'Text'
+--
+-- * 'ltStartedBy' @::@ 'Maybe' 'Text'
+--
 listTasks :: ListTasks
 listTasks = ListTasks
     { _ltCluster           = Nothing
@@ -82,6 +91,8 @@
     , _ltFamily            = Nothing
     , _ltNextToken         = Nothing
     , _ltMaxResults        = Nothing
+    , _ltStartedBy         = Nothing
+    , _ltServiceName       = Nothing
     }
 
 -- | The short name or full Amazon Resource Name (ARN) of the cluster that hosts
@@ -121,6 +132,18 @@
 ltNextToken :: Lens' ListTasks (Maybe Text)
 ltNextToken = lens _ltNextToken (\s a -> s { _ltNextToken = a })
 
+-- | The name of the service that you want to filter the 'ListTasks' results with.
+-- Specifying a 'serviceName' will limit the results to tasks that belong to that
+-- service.
+ltServiceName :: Lens' ListTasks (Maybe Text)
+ltServiceName = lens _ltServiceName (\s a -> s { _ltServiceName = a })
+
+-- | The 'startedBy' value that you want to filter the task results with. Specifying
+-- a 'startedBy' value will limit the results to tasks that were started with that
+-- value.
+ltStartedBy :: Lens' ListTasks (Maybe Text)
+ltStartedBy = lens _ltStartedBy (\s a -> s { _ltStartedBy = a })
+
 data ListTasksResponse = ListTasksResponse
     { _ltrNextToken :: Maybe Text
     , _ltrTaskArns  :: List "taskArns" Text
@@ -166,6 +189,8 @@
         , "family"            .= _ltFamily
         , "nextToken"         .= _ltNextToken
         , "maxResults"        .= _ltMaxResults
+        , "startedBy"         .= _ltStartedBy
+        , "serviceName"       .= _ltServiceName
         ]
 
 instance AWSRequest ListTasks where
diff --git a/gen/Network/AWS/ECS/RegisterContainerInstance.hs b/gen/Network/AWS/ECS/RegisterContainerInstance.hs
--- a/gen/Network/AWS/ECS/RegisterContainerInstance.hs
+++ b/gen/Network/AWS/ECS/RegisterContainerInstance.hs
@@ -40,6 +40,7 @@
     , rciInstanceIdentityDocument
     , rciInstanceIdentityDocumentSignature
     , rciTotalResources
+    , rciVersionInfo
 
     -- * Response
     , RegisterContainerInstanceResponse
@@ -49,6 +50,7 @@
     , rcirContainerInstance
     ) where
 
+import Network.AWS.Data (Object)
 import Network.AWS.Prelude
 import Network.AWS.Request.JSON
 import Network.AWS.ECS.Types
@@ -59,6 +61,7 @@
     , _rciInstanceIdentityDocument          :: Maybe Text
     , _rciInstanceIdentityDocumentSignature :: Maybe Text
     , _rciTotalResources                    :: List "totalResources" Resource
+    , _rciVersionInfo                       :: Maybe VersionInfo
     } deriving (Eq, Read, Show)
 
 -- | 'RegisterContainerInstance' constructor.
@@ -73,12 +76,15 @@
 --
 -- * 'rciTotalResources' @::@ ['Resource']
 --
+-- * 'rciVersionInfo' @::@ 'Maybe' 'VersionInfo'
+--
 registerContainerInstance :: RegisterContainerInstance
 registerContainerInstance = RegisterContainerInstance
     { _rciCluster                           = Nothing
     , _rciInstanceIdentityDocument          = Nothing
     , _rciInstanceIdentityDocumentSignature = Nothing
     , _rciTotalResources                    = mempty
+    , _rciVersionInfo                       = Nothing
     }
 
 -- | The short name or full Amazon Resource Name (ARN) of the cluster that you
@@ -102,6 +108,9 @@
     lens _rciTotalResources (\s a -> s { _rciTotalResources = a })
         . _List
 
+rciVersionInfo :: Lens' RegisterContainerInstance (Maybe VersionInfo)
+rciVersionInfo = lens _rciVersionInfo (\s a -> s { _rciVersionInfo = a })
+
 newtype RegisterContainerInstanceResponse = RegisterContainerInstanceResponse
     { _rcirContainerInstance :: Maybe ContainerInstance
     } deriving (Eq, Read, Show)
@@ -135,6 +144,7 @@
         , "instanceIdentityDocument"          .= _rciInstanceIdentityDocument
         , "instanceIdentityDocumentSignature" .= _rciInstanceIdentityDocumentSignature
         , "totalResources"                    .= _rciTotalResources
+        , "versionInfo"                       .= _rciVersionInfo
         ]
 
 instance AWSRequest RegisterContainerInstance where
diff --git a/gen/Network/AWS/ECS/RegisterTaskDefinition.hs b/gen/Network/AWS/ECS/RegisterTaskDefinition.hs
--- a/gen/Network/AWS/ECS/RegisterTaskDefinition.hs
+++ b/gen/Network/AWS/ECS/RegisterTaskDefinition.hs
@@ -46,6 +46,7 @@
     , rtdrTaskDefinition
     ) where
 
+import Network.AWS.Data (Object)
 import Network.AWS.Prelude
 import Network.AWS.Request.JSON
 import Network.AWS.ECS.Types
@@ -84,7 +85,8 @@
 
 -- | You must specify a 'family' for a task definition, which allows you to track
 -- multiple versions of the same task definition. You can think of the 'family' as
--- a name for your task definition.
+-- a name for your task definition. Up to 255 letters (uppercase and lowercase),
+-- numbers, hyphens, and underscores are allowed.
 rtdFamily :: Lens' RegisterTaskDefinition Text
 rtdFamily = lens _rtdFamily (\s a -> s { _rtdFamily = a })
 
diff --git a/gen/Network/AWS/ECS/RunTask.hs b/gen/Network/AWS/ECS/RunTask.hs
--- a/gen/Network/AWS/ECS/RunTask.hs
+++ b/gen/Network/AWS/ECS/RunTask.hs
@@ -26,6 +26,10 @@
 -- you want to use your own scheduler or place a task on a specific container
 -- instance, use 'StartTask' instead.
 --
+-- The 'count' parameter is limited to 10 tasks per call.
+--
+--
+--
 -- <http://docs.aws.amazon.com/AmazonECS/latest/APIReference/API_RunTask.html>
 module Network.AWS.ECS.RunTask
     (
@@ -37,6 +41,7 @@
     , rtCluster
     , rtCount
     , rtOverrides
+    , rtStartedBy
     , rtTaskDefinition
 
     -- * Response
@@ -48,6 +53,7 @@
     , rtrTasks
     ) where
 
+import Network.AWS.Data (Object)
 import Network.AWS.Prelude
 import Network.AWS.Request.JSON
 import Network.AWS.ECS.Types
@@ -57,6 +63,7 @@
     { _rtCluster        :: Maybe Text
     , _rtCount          :: Maybe Int
     , _rtOverrides      :: Maybe TaskOverride
+    , _rtStartedBy      :: Maybe Text
     , _rtTaskDefinition :: Text
     } deriving (Eq, Read, Show)
 
@@ -70,6 +77,8 @@
 --
 -- * 'rtOverrides' @::@ 'Maybe' 'TaskOverride'
 --
+-- * 'rtStartedBy' @::@ 'Maybe' 'Text'
+--
 -- * 'rtTaskDefinition' @::@ 'Text'
 --
 runTask :: Text -- ^ 'rtTaskDefinition'
@@ -79,6 +88,7 @@
     , _rtCluster        = Nothing
     , _rtOverrides      = Nothing
     , _rtCount          = Nothing
+    , _rtStartedBy      = Nothing
     }
 
 -- | The short name or full Amazon Resource Name (ARN) of the cluster that you
@@ -87,14 +97,33 @@
 rtCluster :: Lens' RunTask (Maybe Text)
 rtCluster = lens _rtCluster (\s a -> s { _rtCluster = a })
 
--- | The number of instances of the specified task that you would like to place on
--- your cluster.
+-- | The number of instantiations of the specified task that you would like to
+-- place on your cluster.
+--
+-- The 'count' parameter is limited to 10 tasks per call.
+--
+--
 rtCount :: Lens' RunTask (Maybe Int)
 rtCount = lens _rtCount (\s a -> s { _rtCount = a })
 
+-- | A list of container overrides in JSON format that specify the name of a
+-- container in the specified task definition and the command it should run
+-- instead of its default. A total of 8192 characters are allowed for overrides.
+-- This limit includes the JSON formatting characters of the override structure.
 rtOverrides :: Lens' RunTask (Maybe TaskOverride)
 rtOverrides = lens _rtOverrides (\s a -> s { _rtOverrides = a })
 
+-- | An optional tag specified when a task is started. For example if you
+-- automatically trigger a task to run a batch process job, you could apply a
+-- unique identifier for that job to your task with the 'startedBy' parameter. You
+-- can then identify which tasks belong to that job by filtering the results of
+-- a 'ListTasks' call with the 'startedBy' value.
+--
+-- If a task is started by an Amazon ECS service, then the 'startedBy' parameter
+-- contains the deployment ID of the service that starts it.
+rtStartedBy :: Lens' RunTask (Maybe Text)
+rtStartedBy = lens _rtStartedBy (\s a -> s { _rtStartedBy = a })
+
 -- | The 'family' and 'revision' ('family:revision') or full Amazon Resource Name (ARN)
 -- of the task definition that you want to run.
 rtTaskDefinition :: Lens' RunTask Text
@@ -142,6 +171,7 @@
         , "taskDefinition" .= _rtTaskDefinition
         , "overrides"      .= _rtOverrides
         , "count"          .= _rtCount
+        , "startedBy"      .= _rtStartedBy
         ]
 
 instance AWSRequest RunTask where
diff --git a/gen/Network/AWS/ECS/StartTask.hs b/gen/Network/AWS/ECS/StartTask.hs
--- a/gen/Network/AWS/ECS/StartTask.hs
+++ b/gen/Network/AWS/ECS/StartTask.hs
@@ -26,6 +26,10 @@
 -- container instance or instances. If you want to use the default Amazon ECS
 -- scheduler to place your task, use 'RunTask' instead.
 --
+-- The list of container instances to start tasks on is limited to 10.
+--
+--
+--
 -- <http://docs.aws.amazon.com/AmazonECS/latest/APIReference/API_StartTask.html>
 module Network.AWS.ECS.StartTask
     (
@@ -37,6 +41,7 @@
     , st1Cluster
     , st1ContainerInstances
     , st1Overrides
+    , st1StartedBy
     , st1TaskDefinition
 
     -- * Response
@@ -48,6 +53,7 @@
     , strTasks
     ) where
 
+import Network.AWS.Data (Object)
 import Network.AWS.Prelude
 import Network.AWS.Request.JSON
 import Network.AWS.ECS.Types
@@ -57,6 +63,7 @@
     { _st1Cluster            :: Maybe Text
     , _st1ContainerInstances :: List "containerInstances" Text
     , _st1Overrides          :: Maybe TaskOverride
+    , _st1StartedBy          :: Maybe Text
     , _st1TaskDefinition     :: Text
     } deriving (Eq, Read, Show)
 
@@ -70,6 +77,8 @@
 --
 -- * 'st1Overrides' @::@ 'Maybe' 'TaskOverride'
 --
+-- * 'st1StartedBy' @::@ 'Maybe' 'Text'
+--
 -- * 'st1TaskDefinition' @::@ 'Text'
 --
 startTask :: Text -- ^ 'st1TaskDefinition'
@@ -79,6 +88,7 @@
     , _st1Cluster            = Nothing
     , _st1Overrides          = Nothing
     , _st1ContainerInstances = mempty
+    , _st1StartedBy          = Nothing
     }
 
 -- | The short name or full Amazon Resource Name (ARN) of the cluster that you
@@ -89,14 +99,33 @@
 
 -- | The container instance UUIDs or full Amazon Resource Name (ARN) entries for
 -- the container instances on which you would like to place your task.
+--
+-- The list of container instances to start tasks on is limited to 10.
+--
+--
 st1ContainerInstances :: Lens' StartTask [Text]
 st1ContainerInstances =
     lens _st1ContainerInstances (\s a -> s { _st1ContainerInstances = a })
         . _List
 
+-- | A list of container overrides in JSON format that specify the name of a
+-- container in the specified task definition and the command it should run
+-- instead of its default. A total of 8192 characters are allowed for overrides.
+-- This limit includes the JSON formatting characters of the override structure.
 st1Overrides :: Lens' StartTask (Maybe TaskOverride)
 st1Overrides = lens _st1Overrides (\s a -> s { _st1Overrides = a })
 
+-- | An optional tag specified when a task is started. For example if you
+-- automatically trigger a task to run a batch process job, you could apply a
+-- unique identifier for that job to your task with the 'startedBy' parameter. You
+-- can then identify which tasks belong to that job by filtering the results of
+-- a 'ListTasks' call with the 'startedBy' value.
+--
+-- If a task is started by an Amazon ECS service, then the 'startedBy' parameter
+-- contains the deployment ID of the service that starts it.
+st1StartedBy :: Lens' StartTask (Maybe Text)
+st1StartedBy = lens _st1StartedBy (\s a -> s { _st1StartedBy = a })
+
 -- | The 'family' and 'revision' ('family:revision') or full Amazon Resource Name (ARN)
 -- of the task definition that you want to start.
 st1TaskDefinition :: Lens' StartTask Text
@@ -145,6 +174,7 @@
         , "taskDefinition"     .= _st1TaskDefinition
         , "overrides"          .= _st1Overrides
         , "containerInstances" .= _st1ContainerInstances
+        , "startedBy"          .= _st1StartedBy
         ]
 
 instance AWSRequest StartTask where
diff --git a/gen/Network/AWS/ECS/StopTask.hs b/gen/Network/AWS/ECS/StopTask.hs
--- a/gen/Network/AWS/ECS/StopTask.hs
+++ b/gen/Network/AWS/ECS/StopTask.hs
@@ -43,6 +43,7 @@
     , strTask
     ) where
 
+import Network.AWS.Data (Object)
 import Network.AWS.Prelude
 import Network.AWS.Request.JSON
 import Network.AWS.ECS.Types
diff --git a/gen/Network/AWS/ECS/SubmitContainerStateChange.hs b/gen/Network/AWS/ECS/SubmitContainerStateChange.hs
--- a/gen/Network/AWS/ECS/SubmitContainerStateChange.hs
+++ b/gen/Network/AWS/ECS/SubmitContainerStateChange.hs
@@ -51,6 +51,7 @@
     , scscrAcknowledgment
     ) where
 
+import Network.AWS.Data (Object)
 import Network.AWS.Prelude
 import Network.AWS.Request.JSON
 import Network.AWS.ECS.Types
diff --git a/gen/Network/AWS/ECS/SubmitTaskStateChange.hs b/gen/Network/AWS/ECS/SubmitTaskStateChange.hs
--- a/gen/Network/AWS/ECS/SubmitTaskStateChange.hs
+++ b/gen/Network/AWS/ECS/SubmitTaskStateChange.hs
@@ -48,6 +48,7 @@
     , stscrAcknowledgment
     ) where
 
+import Network.AWS.Data (Object)
 import Network.AWS.Prelude
 import Network.AWS.Request.JSON
 import Network.AWS.ECS.Types
diff --git a/gen/Network/AWS/ECS/Types.hs b/gen/Network/AWS/ECS/Types.hs
--- a/gen/Network/AWS/ECS/Types.hs
+++ b/gen/Network/AWS/ECS/Types.hs
@@ -37,11 +37,30 @@
     , nbContainerPort
     , nbHostPort
 
+    -- * ContainerService
+    , ContainerService
+    , containerService
+    , csClusterArn
+    , csDeployments
+    , csDesiredCount
+    , csEvents
+    , csLoadBalancers
+    , csPendingCount
+    , csRoleArn
+    , csRunningCount
+    , csServiceArn
+    , csServiceName
+    , csStatus
+    , csTaskDefinition
+
     -- * Cluster
     , Cluster
     , cluster
     , cClusterArn
     , cClusterName
+    , cPendingTasksCount
+    , cRegisteredContainerInstancesCount
+    , cRunningTasksCount
     , cStatus
 
     -- * Volume
@@ -78,6 +97,13 @@
     , hostVolumeProperties
     , hvpSourcePath
 
+    -- * VersionInfo
+    , VersionInfo
+    , versionInfo
+    , viAgentHash
+    , viAgentVersion
+    , viDockerVersion
+
     -- * Container
     , Container
     , container
@@ -89,6 +115,13 @@
     , cReason
     , cTaskArn
 
+    -- * LoadBalancer
+    , LoadBalancer
+    , loadBalancer
+    , lbContainerName
+    , lbContainerPort
+    , lbLoadBalancerName
+
     -- * ContainerDefinition
     , ContainerDefinition
     , containerDefinition
@@ -124,6 +157,7 @@
     , tDesiredStatus
     , tLastStatus
     , tOverrides
+    , tStartedBy
     , tTaskArn
     , tTaskDefinitionArn
 
@@ -154,10 +188,31 @@
     , ciAgentConnected
     , ciContainerInstanceArn
     , ciEc2InstanceId
+    , ciPendingTasksCount
     , ciRegisteredResources
     , ciRemainingResources
+    , ciRunningTasksCount
     , ciStatus
 
+    -- * ServiceEvent
+    , ServiceEvent
+    , serviceEvent
+    , seCreatedAt
+    , seId
+    , seMessage
+
+    -- * Deployment
+    , Deployment
+    , deployment
+    , dCreatedAt
+    , dDesiredCount
+    , dId
+    , dPendingCount
+    , dRunningCount
+    , dStatus
+    , dTaskDefinition
+    , dUpdatedAt
+
     -- * MountPoint
     , MountPoint
     , mountPoint
@@ -259,10 +314,161 @@
         , "hostPort"      .= _nbHostPort
         ]
 
+data ContainerService = ContainerService
+    { _csClusterArn     :: Maybe Text
+    , _csDeployments    :: List "deployments" Deployment
+    , _csDesiredCount   :: Maybe Int
+    , _csEvents         :: List "events" ServiceEvent
+    , _csLoadBalancers  :: List "loadBalancers" LoadBalancer
+    , _csPendingCount   :: Maybe Int
+    , _csRoleArn        :: Maybe Text
+    , _csRunningCount   :: Maybe Int
+    , _csServiceArn     :: Maybe Text
+    , _csServiceName    :: Maybe Text
+    , _csStatus         :: Maybe Text
+    , _csTaskDefinition :: Maybe Text
+    } deriving (Eq, Read, Show)
+
+-- | 'ContainerService' constructor.
+--
+-- The fields accessible through corresponding lenses are:
+--
+-- * 'csClusterArn' @::@ 'Maybe' 'Text'
+--
+-- * 'csDeployments' @::@ ['Deployment']
+--
+-- * 'csDesiredCount' @::@ 'Maybe' 'Int'
+--
+-- * 'csEvents' @::@ ['ServiceEvent']
+--
+-- * 'csLoadBalancers' @::@ ['LoadBalancer']
+--
+-- * 'csPendingCount' @::@ 'Maybe' 'Int'
+--
+-- * 'csRoleArn' @::@ 'Maybe' 'Text'
+--
+-- * 'csRunningCount' @::@ 'Maybe' 'Int'
+--
+-- * 'csServiceArn' @::@ 'Maybe' 'Text'
+--
+-- * 'csServiceName' @::@ 'Maybe' 'Text'
+--
+-- * 'csStatus' @::@ 'Maybe' 'Text'
+--
+-- * 'csTaskDefinition' @::@ 'Maybe' 'Text'
+--
+containerService :: ContainerService
+containerService = ContainerService
+    { _csServiceArn     = Nothing
+    , _csServiceName    = Nothing
+    , _csClusterArn     = Nothing
+    , _csLoadBalancers  = mempty
+    , _csStatus         = Nothing
+    , _csDesiredCount   = Nothing
+    , _csRunningCount   = Nothing
+    , _csPendingCount   = Nothing
+    , _csTaskDefinition = Nothing
+    , _csDeployments    = mempty
+    , _csRoleArn        = Nothing
+    , _csEvents         = mempty
+    }
+
+-- | The Amazon Resource Name (ARN) of the of the cluster that hosts the service.
+csClusterArn :: Lens' ContainerService (Maybe Text)
+csClusterArn = lens _csClusterArn (\s a -> s { _csClusterArn = a })
+
+-- | The current state of deployments for the service.
+csDeployments :: Lens' ContainerService [Deployment]
+csDeployments = lens _csDeployments (\s a -> s { _csDeployments = a }) . _List
+
+-- | The desired number of instantiations of the task definition to keep running
+-- on the service. This value is specified when the service is created with 'CreateService', and it can be modified with 'UpdateService'.
+csDesiredCount :: Lens' ContainerService (Maybe Int)
+csDesiredCount = lens _csDesiredCount (\s a -> s { _csDesiredCount = a })
+
+-- | The event stream for your service. A maximum of 100 of the latest events are
+-- displayed.
+csEvents :: Lens' ContainerService [ServiceEvent]
+csEvents = lens _csEvents (\s a -> s { _csEvents = a }) . _List
+
+-- | A list of load balancer objects, containing the load balancer name, the
+-- container name (as it appears in a container definition), and the container
+-- port to access from the load balancer.
+csLoadBalancers :: Lens' ContainerService [LoadBalancer]
+csLoadBalancers = lens _csLoadBalancers (\s a -> s { _csLoadBalancers = a }) . _List
+
+-- | The number of tasks in the cluster that are in the 'PENDING' state.
+csPendingCount :: Lens' ContainerService (Maybe Int)
+csPendingCount = lens _csPendingCount (\s a -> s { _csPendingCount = a })
+
+-- | The Amazon Resource Name (ARN) of the IAM role associated with the service
+-- that allows the Amazon ECS container agent to register container instances
+-- with a load balancer.
+csRoleArn :: Lens' ContainerService (Maybe Text)
+csRoleArn = lens _csRoleArn (\s a -> s { _csRoleArn = a })
+
+-- | The number of tasks in the cluster that are in the 'RUNNING' state.
+csRunningCount :: Lens' ContainerService (Maybe Int)
+csRunningCount = lens _csRunningCount (\s a -> s { _csRunningCount = a })
+
+-- | The Amazon Resource Name (ARN) that identifies the service. The ARN contains
+-- the 'arn:aws:ecs' namespace, followed by the region of the service, the AWS
+-- account ID of the service owner, the 'service' namespace, and then the service
+-- name. For example, arn:aws:ecs:/region/:/012345678910/:service//my-service/.
+csServiceArn :: Lens' ContainerService (Maybe Text)
+csServiceArn = lens _csServiceArn (\s a -> s { _csServiceArn = a })
+
+-- | A user-generated string that you can use to identify your service.
+csServiceName :: Lens' ContainerService (Maybe Text)
+csServiceName = lens _csServiceName (\s a -> s { _csServiceName = a })
+
+-- | The status of the service. The valid values are 'ACTIVE', 'DRAINING', or 'INACTIVE'.
+csStatus :: Lens' ContainerService (Maybe Text)
+csStatus = lens _csStatus (\s a -> s { _csStatus = a })
+
+-- | The task definition to use for tasks in the service. This value is specified
+-- when the service is created with 'CreateService', and it can be modified with 'UpdateService'.
+csTaskDefinition :: Lens' ContainerService (Maybe Text)
+csTaskDefinition = lens _csTaskDefinition (\s a -> s { _csTaskDefinition = a })
+
+instance FromJSON ContainerService where
+    parseJSON = withObject "ContainerService" $ \o -> ContainerService
+        <$> o .:? "clusterArn"
+        <*> o .:? "deployments" .!= mempty
+        <*> o .:? "desiredCount"
+        <*> o .:? "events" .!= mempty
+        <*> o .:? "loadBalancers" .!= mempty
+        <*> o .:? "pendingCount"
+        <*> o .:? "roleArn"
+        <*> o .:? "runningCount"
+        <*> o .:? "serviceArn"
+        <*> o .:? "serviceName"
+        <*> o .:? "status"
+        <*> o .:? "taskDefinition"
+
+instance ToJSON ContainerService where
+    toJSON ContainerService{..} = object
+        [ "serviceArn"     .= _csServiceArn
+        , "serviceName"    .= _csServiceName
+        , "clusterArn"     .= _csClusterArn
+        , "loadBalancers"  .= _csLoadBalancers
+        , "status"         .= _csStatus
+        , "desiredCount"   .= _csDesiredCount
+        , "runningCount"   .= _csRunningCount
+        , "pendingCount"   .= _csPendingCount
+        , "taskDefinition" .= _csTaskDefinition
+        , "deployments"    .= _csDeployments
+        , "roleArn"        .= _csRoleArn
+        , "events"         .= _csEvents
+        ]
+
 data Cluster = Cluster
-    { _cClusterArn  :: Maybe Text
-    , _cClusterName :: Maybe Text
-    , _cStatus      :: Maybe Text
+    { _cClusterArn                        :: Maybe Text
+    , _cClusterName                       :: Maybe Text
+    , _cPendingTasksCount                 :: Maybe Int
+    , _cRegisteredContainerInstancesCount :: Maybe Int
+    , _cRunningTasksCount                 :: Maybe Int
+    , _cStatus                            :: Maybe Text
     } deriving (Eq, Ord, Read, Show)
 
 -- | 'Cluster' constructor.
@@ -273,13 +479,22 @@
 --
 -- * 'cClusterName' @::@ 'Maybe' 'Text'
 --
+-- * 'cPendingTasksCount' @::@ 'Maybe' 'Int'
+--
+-- * 'cRegisteredContainerInstancesCount' @::@ 'Maybe' 'Int'
+--
+-- * 'cRunningTasksCount' @::@ 'Maybe' 'Int'
+--
 -- * 'cStatus' @::@ 'Maybe' 'Text'
 --
 cluster :: Cluster
 cluster = Cluster
-    { _cClusterArn  = Nothing
-    , _cClusterName = Nothing
-    , _cStatus      = Nothing
+    { _cClusterArn                        = Nothing
+    , _cClusterName                       = Nothing
+    , _cStatus                            = Nothing
+    , _cRegisteredContainerInstancesCount = Nothing
+    , _cRunningTasksCount                 = Nothing
+    , _cPendingTasksCount                 = Nothing
     }
 
 -- | The Amazon Resource Name (ARN) that identifies the cluster. The ARN contains
@@ -293,6 +508,22 @@
 cClusterName :: Lens' Cluster (Maybe Text)
 cClusterName = lens _cClusterName (\s a -> s { _cClusterName = a })
 
+-- | The number of tasks in the cluster that are in the 'PENDING' state.
+cPendingTasksCount :: Lens' Cluster (Maybe Int)
+cPendingTasksCount =
+    lens _cPendingTasksCount (\s a -> s { _cPendingTasksCount = a })
+
+-- | The number of container instances registered into the cluster.
+cRegisteredContainerInstancesCount :: Lens' Cluster (Maybe Int)
+cRegisteredContainerInstancesCount =
+    lens _cRegisteredContainerInstancesCount
+        (\s a -> s { _cRegisteredContainerInstancesCount = a })
+
+-- | The number of tasks in the cluster that are in the 'RUNNING' state.
+cRunningTasksCount :: Lens' Cluster (Maybe Int)
+cRunningTasksCount =
+    lens _cRunningTasksCount (\s a -> s { _cRunningTasksCount = a })
+
 -- | The status of the cluster. The valid values are 'ACTIVE' or 'INACTIVE'. 'ACTIVE'
 -- indicates that you can register container instances with the cluster and the
 -- associated instances can accept tasks.
@@ -303,13 +534,19 @@
     parseJSON = withObject "Cluster" $ \o -> Cluster
         <$> o .:? "clusterArn"
         <*> o .:? "clusterName"
+        <*> o .:? "pendingTasksCount"
+        <*> o .:? "registeredContainerInstancesCount"
+        <*> o .:? "runningTasksCount"
         <*> o .:? "status"
 
 instance ToJSON Cluster where
     toJSON Cluster{..} = object
-        [ "clusterArn"  .= _cClusterArn
-        , "clusterName" .= _cClusterName
-        , "status"      .= _cStatus
+        [ "clusterArn"                        .= _cClusterArn
+        , "clusterName"                       .= _cClusterName
+        , "status"                            .= _cStatus
+        , "registeredContainerInstancesCount" .= _cRegisteredContainerInstancesCount
+        , "runningTasksCount"                 .= _cRunningTasksCount
+        , "pendingTasksCount"                 .= _cPendingTasksCount
         ]
 
 data Volume = Volume
@@ -372,7 +609,8 @@
     , _coCommand = mempty
     }
 
--- | The command to send to the container that receives the override.
+-- | The command to send to the container that overrides the default command from
+-- the Docker image or the task definition.
 coCommand :: Lens' ContainerOverride [Text]
 coCommand = lens _coCommand (\s a -> s { _coCommand = a }) . _List
 
@@ -491,7 +729,7 @@
     { _toContainerOverrides = mempty
     }
 
--- | One or more container overrides to send when running a task.
+-- | One or more container overrides sent to a task.
 toContainerOverrides :: Lens' TaskOverride [ContainerOverride]
 toContainerOverrides =
     lens _toContainerOverrides (\s a -> s { _toContainerOverrides = a })
@@ -536,6 +774,54 @@
         [ "sourcePath" .= _hvpSourcePath
         ]
 
+data VersionInfo = VersionInfo
+    { _viAgentHash     :: Maybe Text
+    , _viAgentVersion  :: Maybe Text
+    , _viDockerVersion :: Maybe Text
+    } deriving (Eq, Ord, Read, Show)
+
+-- | 'VersionInfo' constructor.
+--
+-- The fields accessible through corresponding lenses are:
+--
+-- * 'viAgentHash' @::@ 'Maybe' 'Text'
+--
+-- * 'viAgentVersion' @::@ 'Maybe' 'Text'
+--
+-- * 'viDockerVersion' @::@ 'Maybe' 'Text'
+--
+versionInfo :: VersionInfo
+versionInfo = VersionInfo
+    { _viAgentVersion  = Nothing
+    , _viAgentHash     = Nothing
+    , _viDockerVersion = Nothing
+    }
+
+-- | The Git commit hash for the Amazon ECS container agent build on the <https://github.com/aws/amazon-ecs-agent/commits/master amazon-ecs-agent > GitHub repository.
+viAgentHash :: Lens' VersionInfo (Maybe Text)
+viAgentHash = lens _viAgentHash (\s a -> s { _viAgentHash = a })
+
+-- | The version number of the Amazon ECS container agent.
+viAgentVersion :: Lens' VersionInfo (Maybe Text)
+viAgentVersion = lens _viAgentVersion (\s a -> s { _viAgentVersion = a })
+
+-- | The Docker version running on the container instance.
+viDockerVersion :: Lens' VersionInfo (Maybe Text)
+viDockerVersion = lens _viDockerVersion (\s a -> s { _viDockerVersion = a })
+
+instance FromJSON VersionInfo where
+    parseJSON = withObject "VersionInfo" $ \o -> VersionInfo
+        <$> o .:? "agentHash"
+        <*> o .:? "agentVersion"
+        <*> o .:? "dockerVersion"
+
+instance ToJSON VersionInfo where
+    toJSON VersionInfo{..} = object
+        [ "agentVersion"  .= _viAgentVersion
+        , "agentHash"     .= _viAgentHash
+        , "dockerVersion" .= _viDockerVersion
+        ]
+
 data Container = Container
     { _cContainerArn    :: Maybe Text
     , _cExitCode        :: Maybe Int
@@ -624,6 +910,55 @@
         , "networkBindings" .= _cNetworkBindings
         ]
 
+data LoadBalancer = LoadBalancer
+    { _lbContainerName    :: Maybe Text
+    , _lbContainerPort    :: Maybe Int
+    , _lbLoadBalancerName :: Maybe Text
+    } deriving (Eq, Ord, Read, Show)
+
+-- | 'LoadBalancer' constructor.
+--
+-- The fields accessible through corresponding lenses are:
+--
+-- * 'lbContainerName' @::@ 'Maybe' 'Text'
+--
+-- * 'lbContainerPort' @::@ 'Maybe' 'Int'
+--
+-- * 'lbLoadBalancerName' @::@ 'Maybe' 'Text'
+--
+loadBalancer :: LoadBalancer
+loadBalancer = LoadBalancer
+    { _lbLoadBalancerName = Nothing
+    , _lbContainerName    = Nothing
+    , _lbContainerPort    = Nothing
+    }
+
+-- | The name of the container to associate with the load balancer.
+lbContainerName :: Lens' LoadBalancer (Maybe Text)
+lbContainerName = lens _lbContainerName (\s a -> s { _lbContainerName = a })
+
+-- | The port on the container to associate with the load balancer.
+lbContainerPort :: Lens' LoadBalancer (Maybe Int)
+lbContainerPort = lens _lbContainerPort (\s a -> s { _lbContainerPort = a })
+
+-- | The name of the load balancer.
+lbLoadBalancerName :: Lens' LoadBalancer (Maybe Text)
+lbLoadBalancerName =
+    lens _lbLoadBalancerName (\s a -> s { _lbLoadBalancerName = a })
+
+instance FromJSON LoadBalancer where
+    parseJSON = withObject "LoadBalancer" $ \o -> LoadBalancer
+        <$> o .:? "containerName"
+        <*> o .:? "containerPort"
+        <*> o .:? "loadBalancerName"
+
+instance ToJSON LoadBalancer where
+    toJSON LoadBalancer{..} = object
+        [ "loadBalancerName" .= _lbLoadBalancerName
+        , "containerName"    .= _lbContainerName
+        , "containerPort"    .= _lbContainerPort
+        ]
+
 data ContainerDefinition = ContainerDefinition
     { _cdCommand      :: List "command" Text
     , _cdCpu          :: Maybe Int
@@ -867,6 +1202,7 @@
     , _tDesiredStatus        :: Maybe Text
     , _tLastStatus           :: Maybe Text
     , _tOverrides            :: Maybe TaskOverride
+    , _tStartedBy            :: Maybe Text
     , _tTaskArn              :: Maybe Text
     , _tTaskDefinitionArn    :: Maybe Text
     } deriving (Eq, Read, Show)
@@ -887,6 +1223,8 @@
 --
 -- * 'tOverrides' @::@ 'Maybe' 'TaskOverride'
 --
+-- * 'tStartedBy' @::@ 'Maybe' 'Text'
+--
 -- * 'tTaskArn' @::@ 'Maybe' 'Text'
 --
 -- * 'tTaskDefinitionArn' @::@ 'Maybe' 'Text'
@@ -901,6 +1239,7 @@
     , _tLastStatus           = Nothing
     , _tDesiredStatus        = Nothing
     , _tContainers           = mempty
+    , _tStartedBy            = Nothing
     }
 
 -- | The Amazon Resource Name (ARN) of the of the cluster that hosts the task.
@@ -928,6 +1267,12 @@
 tOverrides :: Lens' Task (Maybe TaskOverride)
 tOverrides = lens _tOverrides (\s a -> s { _tOverrides = a })
 
+-- | The tag specified when a task is started. If the task is started by an Amazon
+-- ECS service, then the 'startedBy' parameter contains the deployment ID of the
+-- service that starts it.
+tStartedBy :: Lens' Task (Maybe Text)
+tStartedBy = lens _tStartedBy (\s a -> s { _tStartedBy = a })
+
 -- | The Amazon Resource Name (ARN) of the task.
 tTaskArn :: Lens' Task (Maybe Text)
 tTaskArn = lens _tTaskArn (\s a -> s { _tTaskArn = a })
@@ -946,6 +1291,7 @@
         <*> o .:? "desiredStatus"
         <*> o .:? "lastStatus"
         <*> o .:? "overrides"
+        <*> o .:? "startedBy"
         <*> o .:? "taskArn"
         <*> o .:? "taskDefinitionArn"
 
@@ -959,6 +1305,7 @@
         , "lastStatus"           .= _tLastStatus
         , "desiredStatus"        .= _tDesiredStatus
         , "containers"           .= _tContainers
+        , "startedBy"            .= _tStartedBy
         ]
 
 data PortMapping = PortMapping
@@ -1137,8 +1484,10 @@
     { _ciAgentConnected       :: Maybe Bool
     , _ciContainerInstanceArn :: Maybe Text
     , _ciEc2InstanceId        :: Maybe Text
+    , _ciPendingTasksCount    :: Maybe Int
     , _ciRegisteredResources  :: List "registeredResources" Resource
     , _ciRemainingResources   :: List "remainingResources" Resource
+    , _ciRunningTasksCount    :: Maybe Int
     , _ciStatus               :: Maybe Text
     } deriving (Eq, Read, Show)
 
@@ -1152,10 +1501,14 @@
 --
 -- * 'ciEc2InstanceId' @::@ 'Maybe' 'Text'
 --
+-- * 'ciPendingTasksCount' @::@ 'Maybe' 'Int'
+--
 -- * 'ciRegisteredResources' @::@ ['Resource']
 --
 -- * 'ciRemainingResources' @::@ ['Resource']
 --
+-- * 'ciRunningTasksCount' @::@ 'Maybe' 'Int'
+--
 -- * 'ciStatus' @::@ 'Maybe' 'Text'
 --
 containerInstance :: ContainerInstance
@@ -1166,6 +1519,8 @@
     , _ciRegisteredResources  = mempty
     , _ciStatus               = Nothing
     , _ciAgentConnected       = Nothing
+    , _ciRunningTasksCount    = Nothing
+    , _ciPendingTasksCount    = Nothing
     }
 
 -- | This parameter returns 'true' if the agent is actually connected to Amazon ECS.
@@ -1187,6 +1542,11 @@
 ciEc2InstanceId :: Lens' ContainerInstance (Maybe Text)
 ciEc2InstanceId = lens _ciEc2InstanceId (\s a -> s { _ciEc2InstanceId = a })
 
+-- | The number of tasks on the container instance that are in the 'PENDING' status.
+ciPendingTasksCount :: Lens' ContainerInstance (Maybe Int)
+ciPendingTasksCount =
+    lens _ciPendingTasksCount (\s a -> s { _ciPendingTasksCount = a })
+
 -- | The registered resources on the container instance that are in use by current
 -- tasks.
 ciRegisteredResources :: Lens' ContainerInstance [Resource]
@@ -1201,6 +1561,11 @@
     lens _ciRemainingResources (\s a -> s { _ciRemainingResources = a })
         . _List
 
+-- | The number of tasks on the container instance that are in the 'RUNNING' status.
+ciRunningTasksCount :: Lens' ContainerInstance (Maybe Int)
+ciRunningTasksCount =
+    lens _ciRunningTasksCount (\s a -> s { _ciRunningTasksCount = a })
+
 -- | The status of the container instance. The valid values are 'ACTIVE' or 'INACTIVE'.
 -- 'ACTIVE' indicates that the container instance can accept tasks.
 ciStatus :: Lens' ContainerInstance (Maybe Text)
@@ -1211,8 +1576,10 @@
         <$> o .:? "agentConnected"
         <*> o .:? "containerInstanceArn"
         <*> o .:? "ec2InstanceId"
+        <*> o .:? "pendingTasksCount"
         <*> o .:? "registeredResources" .!= mempty
         <*> o .:? "remainingResources" .!= mempty
+        <*> o .:? "runningTasksCount"
         <*> o .:? "status"
 
 instance ToJSON ContainerInstance where
@@ -1223,6 +1590,158 @@
         , "registeredResources"  .= _ciRegisteredResources
         , "status"               .= _ciStatus
         , "agentConnected"       .= _ciAgentConnected
+        , "runningTasksCount"    .= _ciRunningTasksCount
+        , "pendingTasksCount"    .= _ciPendingTasksCount
+        ]
+
+data ServiceEvent = ServiceEvent
+    { _seCreatedAt :: Maybe POSIX
+    , _seId        :: Maybe Text
+    , _seMessage   :: Maybe Text
+    } deriving (Eq, Ord, Read, Show)
+
+-- | 'ServiceEvent' constructor.
+--
+-- The fields accessible through corresponding lenses are:
+--
+-- * 'seCreatedAt' @::@ 'Maybe' 'UTCTime'
+--
+-- * 'seId' @::@ 'Maybe' 'Text'
+--
+-- * 'seMessage' @::@ 'Maybe' 'Text'
+--
+serviceEvent :: ServiceEvent
+serviceEvent = ServiceEvent
+    { _seId        = Nothing
+    , _seCreatedAt = Nothing
+    , _seMessage   = Nothing
+    }
+
+-- | The Unix time in seconds and milliseconds when the event was triggered.
+seCreatedAt :: Lens' ServiceEvent (Maybe UTCTime)
+seCreatedAt = lens _seCreatedAt (\s a -> s { _seCreatedAt = a }) . mapping _Time
+
+-- | The ID string of the event.
+seId :: Lens' ServiceEvent (Maybe Text)
+seId = lens _seId (\s a -> s { _seId = a })
+
+-- | The event message.
+seMessage :: Lens' ServiceEvent (Maybe Text)
+seMessage = lens _seMessage (\s a -> s { _seMessage = a })
+
+instance FromJSON ServiceEvent where
+    parseJSON = withObject "ServiceEvent" $ \o -> ServiceEvent
+        <$> o .:? "createdAt"
+        <*> o .:? "id"
+        <*> o .:? "message"
+
+instance ToJSON ServiceEvent where
+    toJSON ServiceEvent{..} = object
+        [ "id"        .= _seId
+        , "createdAt" .= _seCreatedAt
+        , "message"   .= _seMessage
+        ]
+
+data Deployment = Deployment
+    { _dCreatedAt      :: Maybe POSIX
+    , _dDesiredCount   :: Maybe Int
+    , _dId             :: Maybe Text
+    , _dPendingCount   :: Maybe Int
+    , _dRunningCount   :: Maybe Int
+    , _dStatus         :: Maybe Text
+    , _dTaskDefinition :: Maybe Text
+    , _dUpdatedAt      :: Maybe POSIX
+    } deriving (Eq, Ord, Read, Show)
+
+-- | 'Deployment' constructor.
+--
+-- The fields accessible through corresponding lenses are:
+--
+-- * 'dCreatedAt' @::@ 'Maybe' 'UTCTime'
+--
+-- * 'dDesiredCount' @::@ 'Maybe' 'Int'
+--
+-- * 'dId' @::@ 'Maybe' 'Text'
+--
+-- * 'dPendingCount' @::@ 'Maybe' 'Int'
+--
+-- * 'dRunningCount' @::@ 'Maybe' 'Int'
+--
+-- * 'dStatus' @::@ 'Maybe' 'Text'
+--
+-- * 'dTaskDefinition' @::@ 'Maybe' 'Text'
+--
+-- * 'dUpdatedAt' @::@ 'Maybe' 'UTCTime'
+--
+deployment :: Deployment
+deployment = Deployment
+    { _dId             = Nothing
+    , _dStatus         = Nothing
+    , _dTaskDefinition = Nothing
+    , _dDesiredCount   = Nothing
+    , _dPendingCount   = Nothing
+    , _dRunningCount   = Nothing
+    , _dCreatedAt      = Nothing
+    , _dUpdatedAt      = Nothing
+    }
+
+-- | The Unix time in seconds and milliseconds when the service was created.
+dCreatedAt :: Lens' Deployment (Maybe UTCTime)
+dCreatedAt = lens _dCreatedAt (\s a -> s { _dCreatedAt = a }) . mapping _Time
+
+-- | The most recent desired count of tasks that was specified for the service to
+-- deploy and/or maintain.
+dDesiredCount :: Lens' Deployment (Maybe Int)
+dDesiredCount = lens _dDesiredCount (\s a -> s { _dDesiredCount = a })
+
+-- | The ID of the deployment.
+dId :: Lens' Deployment (Maybe Text)
+dId = lens _dId (\s a -> s { _dId = a })
+
+-- | The number of tasks in the deployment that are in the 'PENDING' status.
+dPendingCount :: Lens' Deployment (Maybe Int)
+dPendingCount = lens _dPendingCount (\s a -> s { _dPendingCount = a })
+
+-- | The number of tasks in the deployment that are in the 'RUNNING' status.
+dRunningCount :: Lens' Deployment (Maybe Int)
+dRunningCount = lens _dRunningCount (\s a -> s { _dRunningCount = a })
+
+-- | The status of the deployment. Valid values are 'PRIMARY' (for the most recent
+-- deployment), 'ACTIVE' (for previous deployments that still have tasks running,
+-- but are being replaced with the 'PRIMARY' deployment), and 'INACTIVE' (for
+-- deployments that have been completely replaced).
+dStatus :: Lens' Deployment (Maybe Text)
+dStatus = lens _dStatus (\s a -> s { _dStatus = a })
+
+-- | The most recent task definition that was specified for the service to use.
+dTaskDefinition :: Lens' Deployment (Maybe Text)
+dTaskDefinition = lens _dTaskDefinition (\s a -> s { _dTaskDefinition = a })
+
+-- | The Unix time in seconds and milliseconds when the service was last updated.
+dUpdatedAt :: Lens' Deployment (Maybe UTCTime)
+dUpdatedAt = lens _dUpdatedAt (\s a -> s { _dUpdatedAt = a }) . mapping _Time
+
+instance FromJSON Deployment where
+    parseJSON = withObject "Deployment" $ \o -> Deployment
+        <$> o .:? "createdAt"
+        <*> o .:? "desiredCount"
+        <*> o .:? "id"
+        <*> o .:? "pendingCount"
+        <*> o .:? "runningCount"
+        <*> o .:? "status"
+        <*> o .:? "taskDefinition"
+        <*> o .:? "updatedAt"
+
+instance ToJSON Deployment where
+    toJSON Deployment{..} = object
+        [ "id"             .= _dId
+        , "status"         .= _dStatus
+        , "taskDefinition" .= _dTaskDefinition
+        , "desiredCount"   .= _dDesiredCount
+        , "pendingCount"   .= _dPendingCount
+        , "runningCount"   .= _dRunningCount
+        , "createdAt"      .= _dCreatedAt
+        , "updatedAt"      .= _dUpdatedAt
         ]
 
 data MountPoint = MountPoint
diff --git a/gen/Network/AWS/ECS/UpdateService.hs b/gen/Network/AWS/ECS/UpdateService.hs
new file mode 100644
--- /dev/null
+++ b/gen/Network/AWS/ECS/UpdateService.hs
@@ -0,0 +1,164 @@
+{-# LANGUAGE DataKinds                   #-}
+{-# LANGUAGE DeriveGeneric               #-}
+{-# LANGUAGE FlexibleInstances           #-}
+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}
+{-# LANGUAGE LambdaCase                  #-}
+{-# LANGUAGE NoImplicitPrelude           #-}
+{-# LANGUAGE OverloadedStrings           #-}
+{-# LANGUAGE RecordWildCards             #-}
+{-# LANGUAGE TypeFamilies                #-}
+
+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
+
+-- Module      : Network.AWS.ECS.UpdateService
+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>
+-- License     : This Source Code Form is subject to the terms of
+--               the Mozilla Public License, v. 2.0.
+--               A copy of the MPL can be found in the LICENSE file or
+--               you can obtain it at http://mozilla.org/MPL/2.0/.
+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>
+-- Stability   : experimental
+-- Portability : non-portable (GHC extensions)
+--
+-- Derived from AWS service descriptions, licensed under Apache 2.0.
+
+-- | Modify the desired count or task definition used in a service.
+--
+-- You can add to or subtract from the number of instantiations of a task
+-- definition in a service by specifying the cluster that the service is running
+-- in and a new 'desiredCount' parameter.
+--
+-- You can use 'UpdateService' to modify your task definition and deploy a new
+-- version of your service, one task at a time. If you modify the task
+-- definition with 'UpdateService', Amazon ECS spawns a task with the new version
+-- of the task definition and then stops an old task after the new version is
+-- running. Because 'UpdateService' starts a new version of the task before
+-- stopping an old version, your cluster must have capacity to support one more
+-- instantiation of the task when 'UpdateService' is run. If your cluster cannot
+-- support another instantiation of the task used in your service, you can
+-- reduce the desired count of your service by one before modifying the task
+-- definition.
+--
+-- <http://docs.aws.amazon.com/AmazonECS/latest/APIReference/API_UpdateService.html>
+module Network.AWS.ECS.UpdateService
+    (
+    -- * Request
+      UpdateService
+    -- ** Request constructor
+    , updateService
+    -- ** Request lenses
+    , usCluster
+    , usDesiredCount
+    , usService
+    , usTaskDefinition
+
+    -- * Response
+    , UpdateServiceResponse
+    -- ** Response constructor
+    , updateServiceResponse
+    -- ** Response lenses
+    , usrService
+    ) where
+
+import Network.AWS.Data (Object)
+import Network.AWS.Prelude
+import Network.AWS.Request.JSON
+import Network.AWS.ECS.Types
+import qualified GHC.Exts
+
+data UpdateService = UpdateService
+    { _usCluster        :: Maybe Text
+    , _usDesiredCount   :: Maybe Int
+    , _usService        :: Text
+    , _usTaskDefinition :: Maybe Text
+    } deriving (Eq, Ord, Read, Show)
+
+-- | 'UpdateService' constructor.
+--
+-- The fields accessible through corresponding lenses are:
+--
+-- * 'usCluster' @::@ 'Maybe' 'Text'
+--
+-- * 'usDesiredCount' @::@ 'Maybe' 'Int'
+--
+-- * 'usService' @::@ 'Text'
+--
+-- * 'usTaskDefinition' @::@ 'Maybe' 'Text'
+--
+updateService :: Text -- ^ 'usService'
+              -> UpdateService
+updateService p1 = UpdateService
+    { _usService        = p1
+    , _usCluster        = Nothing
+    , _usDesiredCount   = Nothing
+    , _usTaskDefinition = Nothing
+    }
+
+-- | The short name or full Amazon Resource Name (ARN) of the cluster that your
+-- service is running on. If you do not specify a cluster, the default cluster
+-- is assumed.
+usCluster :: Lens' UpdateService (Maybe Text)
+usCluster = lens _usCluster (\s a -> s { _usCluster = a })
+
+-- | The number of instantiations of the task that you would like to place and
+-- keep running in your service.
+usDesiredCount :: Lens' UpdateService (Maybe Int)
+usDesiredCount = lens _usDesiredCount (\s a -> s { _usDesiredCount = a })
+
+-- | The name of the service that you want to update.
+usService :: Lens' UpdateService Text
+usService = lens _usService (\s a -> s { _usService = a })
+
+-- | The 'family' and 'revision' ('family:revision') or full Amazon Resource Name (ARN)
+-- of the task definition that you want to run in your service. If you modify
+-- the task definition with 'UpdateService', Amazon ECS spawns a task with the new
+-- version of the task definition and then stops an old task after the new
+-- version is running.
+usTaskDefinition :: Lens' UpdateService (Maybe Text)
+usTaskDefinition = lens _usTaskDefinition (\s a -> s { _usTaskDefinition = a })
+
+newtype UpdateServiceResponse = UpdateServiceResponse
+    { _usrService :: Maybe ContainerService
+    } deriving (Eq, Read, Show)
+
+-- | 'UpdateServiceResponse' constructor.
+--
+-- The fields accessible through corresponding lenses are:
+--
+-- * 'usrService' @::@ 'Maybe' 'ContainerService'
+--
+updateServiceResponse :: UpdateServiceResponse
+updateServiceResponse = UpdateServiceResponse
+    { _usrService = Nothing
+    }
+
+-- | The full description of your service following the update call.
+usrService :: Lens' UpdateServiceResponse (Maybe ContainerService)
+usrService = lens _usrService (\s a -> s { _usrService = a })
+
+instance ToPath UpdateService where
+    toPath = const "/"
+
+instance ToQuery UpdateService where
+    toQuery = const mempty
+
+instance ToHeaders UpdateService
+
+instance ToJSON UpdateService where
+    toJSON UpdateService{..} = object
+        [ "cluster"        .= _usCluster
+        , "service"        .= _usService
+        , "desiredCount"   .= _usDesiredCount
+        , "taskDefinition" .= _usTaskDefinition
+        ]
+
+instance AWSRequest UpdateService where
+    type Sv UpdateService = ECS
+    type Rs UpdateService = UpdateServiceResponse
+
+    request  = post "UpdateService"
+    response = jsonResponse
+
+instance FromJSON UpdateServiceResponse where
+    parseJSON = withObject "UpdateServiceResponse" $ \o -> UpdateServiceResponse
+        <$> o .:? "service"