diff --git a/README.md b/README.md
--- a/README.md
+++ b/README.md
@@ -8,7 +8,7 @@
 
 ## Version
 
-`1.3.7`
+`1.4.0`
 
 
 ## Description
@@ -20,7 +20,7 @@
 parameters, and errors.
 
 Documentation is available via [Hackage](http://hackage.haskell.org/package/amazonka-workspaces)
-and the [AWS API Reference](http://docs.aws.amazon.com/workspaces/latest/devguide/welcome.html).
+and the [AWS API Reference](https://aws.amazon.com/documentation/).
 
 The types from this library are intended to be used with [amazonka](http://hackage.haskell.org/package/amazonka),
 which provides mechanisms for specifying AuthN/AuthZ information and sending requests.
diff --git a/amazonka-workspaces.cabal b/amazonka-workspaces.cabal
--- a/amazonka-workspaces.cabal
+++ b/amazonka-workspaces.cabal
@@ -1,5 +1,5 @@
 name:                  amazonka-workspaces
-version:               1.3.7
+version:               1.4.0
 synopsis:              Amazon WorkSpaces SDK.
 homepage:              https://github.com/brendanhay/amazonka
 bug-reports:           https://github.com/brendanhay/amazonka/issues
@@ -7,7 +7,7 @@
 license-file:          LICENSE
 author:                Brendan Hay
 maintainer:            Brendan Hay <brendan.g.hay@gmail.com>
-copyright:             Copyright (c) 2013-2015 Brendan Hay
+copyright:             Copyright (c) 2013-2016 Brendan Hay
 category:              Network, AWS, Cloud, Distributed Computing
 build-type:            Simple
 cabal-version:         >= 1.10
@@ -30,7 +30,7 @@
     such as <http://hackage.haskell.org/package/lens lens> or
     <http://hackage.haskell.org/package/lens-family-core lens-family-core>.
     .
-    See "Network.AWS.WorkSpaces" and the <http://docs.aws.amazon.com/workspaces/latest/devguide/welcome.html AWS API Reference>
+    See "Network.AWS.WorkSpaces" or <https://aws.amazon.com/documentation/ the AWS Documentation>
     to get started.
 
 source-repository head
@@ -60,7 +60,7 @@
         , Network.AWS.WorkSpaces.Types.Sum
 
     build-depends:
-          amazonka-core == 1.3.7.*
+          amazonka-core == 1.4.0.*
         , base          >= 4.7     && < 5
 
 test-suite amazonka-workspaces-test
@@ -80,9 +80,9 @@
         , Test.AWS.WorkSpaces.Internal
 
     build-depends:
-          amazonka-core == 1.3.7.*
-        , amazonka-test == 1.3.7.*
-        , amazonka-workspaces == 1.3.7.*
+          amazonka-core == 1.4.0.*
+        , amazonka-test == 1.4.0.*
+        , amazonka-workspaces == 1.4.0.*
         , base
         , bytestring
         , tasty
diff --git a/gen/Network/AWS/WorkSpaces.hs b/gen/Network/AWS/WorkSpaces.hs
--- a/gen/Network/AWS/WorkSpaces.hs
+++ b/gen/Network/AWS/WorkSpaces.hs
@@ -5,7 +5,7 @@
 
 -- |
 -- Module      : Network.AWS.WorkSpaces
--- Copyright   : (c) 2013-2015 Brendan Hay
+-- Copyright   : (c) 2013-2016 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>
 -- Stability   : auto-generated
@@ -16,8 +16,6 @@
 -- This is the /Amazon WorkSpaces API Reference/. This guide provides
 -- detailed information about Amazon WorkSpaces operations, data types,
 -- parameters, and errors.
---
--- /See:/ <http://docs.aws.amazon.com/workspaces/latest/devguide/welcome.html AWS API Reference>
 module Network.AWS.WorkSpaces
     (
     -- * Service Configuration
diff --git a/gen/Network/AWS/WorkSpaces/CreateWorkspaces.hs b/gen/Network/AWS/WorkSpaces/CreateWorkspaces.hs
--- a/gen/Network/AWS/WorkSpaces/CreateWorkspaces.hs
+++ b/gen/Network/AWS/WorkSpaces/CreateWorkspaces.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.WorkSpaces.CreateWorkspaces
--- Copyright   : (c) 2013-2015 Brendan Hay
+-- Copyright   : (c) 2013-2016 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>
 -- Stability   : auto-generated
@@ -22,8 +22,6 @@
 --
 -- This operation is asynchronous and returns before the WorkSpaces are
 -- created.
---
--- /See:/ <http://docs.aws.amazon.com/workspaces/latest/devguide/API_CreateWorkspaces.html AWS API Reference> for CreateWorkspaces.
 module Network.AWS.WorkSpaces.CreateWorkspaces
     (
     -- * Creating a Request
@@ -48,7 +46,7 @@
 import           Network.AWS.WorkSpaces.Types
 import           Network.AWS.WorkSpaces.Types.Product
 
--- | Contains the inputs for the CreateWorkspaces operation.
+-- | Contains the inputs for the < CreateWorkspaces> operation.
 --
 -- /See:/ 'createWorkspaces' smart constructor.
 newtype CreateWorkspaces = CreateWorkspaces'
@@ -83,6 +81,8 @@
                      (x .?> "PendingRequests" .!@ mempty)
                      <*> (pure (fromEnum s)))
 
+instance Hashable CreateWorkspaces
+
 instance ToHeaders CreateWorkspaces where
         toHeaders
           = const
@@ -103,7 +103,7 @@
 instance ToQuery CreateWorkspaces where
         toQuery = const mempty
 
--- | Contains the result of the CreateWorkspaces operation.
+-- | Contains the result of the < CreateWorkspaces> operation.
 --
 -- /See:/ 'createWorkspacesResponse' smart constructor.
 data CreateWorkspacesResponse = CreateWorkspacesResponse'
@@ -139,8 +139,9 @@
 -- | An array of structures that represent the WorkSpaces that were created.
 --
 -- Because this operation is asynchronous, the identifier in 'WorkspaceId'
--- is not immediately available. If you immediately call DescribeWorkspaces
--- with this identifier, no information will be returned.
+-- is not immediately available. If you immediately call
+-- < DescribeWorkspaces> with this identifier, no information will be
+-- returned.
 cwrsPendingRequests :: Lens' CreateWorkspacesResponse [Workspace]
 cwrsPendingRequests = lens _cwrsPendingRequests (\ s a -> s{_cwrsPendingRequests = a}) . _Default . _Coerce;
 
diff --git a/gen/Network/AWS/WorkSpaces/DescribeWorkspaceBundles.hs b/gen/Network/AWS/WorkSpaces/DescribeWorkspaceBundles.hs
--- a/gen/Network/AWS/WorkSpaces/DescribeWorkspaceBundles.hs
+++ b/gen/Network/AWS/WorkSpaces/DescribeWorkspaceBundles.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.WorkSpaces.DescribeWorkspaceBundles
--- Copyright   : (c) 2013-2015 Brendan Hay
+-- Copyright   : (c) 2013-2016 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>
 -- Stability   : auto-generated
@@ -28,8 +28,6 @@
 -- request and response parameters. If more results are available, the
 -- 'NextToken' response member contains a token that you pass in the next
 -- call to this operation to retrieve the next set of items.
---
--- /See:/ <http://docs.aws.amazon.com/workspaces/latest/devguide/API_DescribeWorkspaceBundles.html AWS API Reference> for DescribeWorkspaceBundles.
 module Network.AWS.WorkSpaces.DescribeWorkspaceBundles
     (
     -- * Creating a Request
@@ -56,7 +54,7 @@
 import           Network.AWS.WorkSpaces.Types
 import           Network.AWS.WorkSpaces.Types.Product
 
--- | Contains the inputs for the DescribeWorkspaceBundles operation.
+-- | Contains the inputs for the < DescribeWorkspaceBundles> operation.
 --
 -- /See:/ 'describeWorkspaceBundles' smart constructor.
 data DescribeWorkspaceBundles = DescribeWorkspaceBundles'
@@ -116,6 +114,8 @@
                    (x .?> "Bundles" .!@ mempty) <*> (x .?> "NextToken")
                      <*> (pure (fromEnum s)))
 
+instance Hashable DescribeWorkspaceBundles
+
 instance ToHeaders DescribeWorkspaceBundles where
         toHeaders
           = const
@@ -140,7 +140,7 @@
 instance ToQuery DescribeWorkspaceBundles where
         toQuery = const mempty
 
--- | Contains the results of the DescribeWorkspaceBundles operation.
+-- | Contains the results of the < DescribeWorkspaceBundles> operation.
 --
 -- /See:/ 'describeWorkspaceBundlesResponse' smart constructor.
 data DescribeWorkspaceBundlesResponse = DescribeWorkspaceBundlesResponse'
diff --git a/gen/Network/AWS/WorkSpaces/DescribeWorkspaceDirectories.hs b/gen/Network/AWS/WorkSpaces/DescribeWorkspaceDirectories.hs
--- a/gen/Network/AWS/WorkSpaces/DescribeWorkspaceDirectories.hs
+++ b/gen/Network/AWS/WorkSpaces/DescribeWorkspaceDirectories.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.WorkSpaces.DescribeWorkspaceDirectories
--- Copyright   : (c) 2013-2015 Brendan Hay
+-- Copyright   : (c) 2013-2016 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>
 -- Stability   : auto-generated
@@ -26,8 +26,6 @@
 -- request and response parameters. If more results are available, the
 -- 'NextToken' response member contains a token that you pass in the next
 -- call to this operation to retrieve the next set of items.
---
--- /See:/ <http://docs.aws.amazon.com/workspaces/latest/devguide/API_DescribeWorkspaceDirectories.html AWS API Reference> for DescribeWorkspaceDirectories.
 module Network.AWS.WorkSpaces.DescribeWorkspaceDirectories
     (
     -- * Creating a Request
@@ -53,7 +51,7 @@
 import           Network.AWS.WorkSpaces.Types
 import           Network.AWS.WorkSpaces.Types.Product
 
--- | Contains the inputs for the DescribeWorkspaceDirectories operation.
+-- | Contains the inputs for the < DescribeWorkspaceDirectories> operation.
 --
 -- /See:/ 'describeWorkspaceDirectories' smart constructor.
 data DescribeWorkspaceDirectories = DescribeWorkspaceDirectories'
@@ -99,6 +97,8 @@
                      (x .?> "NextToken")
                      <*> (pure (fromEnum s)))
 
+instance Hashable DescribeWorkspaceDirectories
+
 instance ToHeaders DescribeWorkspaceDirectories where
         toHeaders
           = const
@@ -122,7 +122,7 @@
 instance ToQuery DescribeWorkspaceDirectories where
         toQuery = const mempty
 
--- | Contains the results of the DescribeWorkspaceDirectories operation.
+-- | Contains the results of the < DescribeWorkspaceDirectories> operation.
 --
 -- /See:/ 'describeWorkspaceDirectoriesResponse' smart constructor.
 data DescribeWorkspaceDirectoriesResponse = DescribeWorkspaceDirectoriesResponse'
diff --git a/gen/Network/AWS/WorkSpaces/DescribeWorkspaces.hs b/gen/Network/AWS/WorkSpaces/DescribeWorkspaces.hs
--- a/gen/Network/AWS/WorkSpaces/DescribeWorkspaces.hs
+++ b/gen/Network/AWS/WorkSpaces/DescribeWorkspaces.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.WorkSpaces.DescribeWorkspaces
--- Copyright   : (c) 2013-2015 Brendan Hay
+-- Copyright   : (c) 2013-2016 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>
 -- Stability   : auto-generated
@@ -27,8 +27,6 @@
 -- request and response parameters. If more results are available, the
 -- 'NextToken' response member contains a token that you pass in the next
 -- call to this operation to retrieve the next set of items.
---
--- /See:/ <http://docs.aws.amazon.com/workspaces/latest/devguide/API_DescribeWorkspaces.html AWS API Reference> for DescribeWorkspaces.
 module Network.AWS.WorkSpaces.DescribeWorkspaces
     (
     -- * Creating a Request
@@ -58,7 +56,7 @@
 import           Network.AWS.WorkSpaces.Types
 import           Network.AWS.WorkSpaces.Types.Product
 
--- | Contains the inputs for the DescribeWorkspaces operation.
+-- | Contains the inputs for the < DescribeWorkspaces> operation.
 --
 -- /See:/ 'describeWorkspaces' smart constructor.
 data DescribeWorkspaces = DescribeWorkspaces'
@@ -108,10 +106,10 @@
 -- which to retrieve information. This parameter cannot be combined with
 -- any other filter parameter.
 --
--- Because the CreateWorkspaces operation is asynchronous, the identifier
--- returned by CreateWorkspaces is not immediately available. If you
--- immediately call DescribeWorkspaces with this identifier, no information
--- will be returned.
+-- Because the < CreateWorkspaces> operation is asynchronous, the
+-- identifier returned by < CreateWorkspaces> is not immediately available.
+-- If you immediately call < DescribeWorkspaces> with this identifier, no
+-- information will be returned.
 dwWorkspaceIds :: Lens' DescribeWorkspaces (Maybe (NonEmpty Text))
 dwWorkspaceIds = lens _dwWorkspaceIds (\ s a -> s{_dwWorkspaceIds = a}) . mapping _List1;
 
@@ -147,6 +145,8 @@
                      (x .?> "Workspaces" .!@ mempty)
                      <*> (pure (fromEnum s)))
 
+instance Hashable DescribeWorkspaces
+
 instance ToHeaders DescribeWorkspaces where
         toHeaders
           = const
@@ -174,7 +174,7 @@
 instance ToQuery DescribeWorkspaces where
         toQuery = const mempty
 
--- | Contains the results for the DescribeWorkspaces operation.
+-- | Contains the results for the < DescribeWorkspaces> operation.
 --
 -- /See:/ 'describeWorkspacesResponse' smart constructor.
 data DescribeWorkspacesResponse = DescribeWorkspacesResponse'
@@ -212,7 +212,7 @@
 -- | An array of structures that contain the information about the
 -- WorkSpaces.
 --
--- Because the CreateWorkspaces operation is asynchronous, some of this
+-- Because the < CreateWorkspaces> operation is asynchronous, some of this
 -- information may be incomplete for a newly-created WorkSpace.
 dwrsWorkspaces :: Lens' DescribeWorkspacesResponse [Workspace]
 dwrsWorkspaces = lens _dwrsWorkspaces (\ s a -> s{_dwrsWorkspaces = a}) . _Default . _Coerce;
diff --git a/gen/Network/AWS/WorkSpaces/RebootWorkspaces.hs b/gen/Network/AWS/WorkSpaces/RebootWorkspaces.hs
--- a/gen/Network/AWS/WorkSpaces/RebootWorkspaces.hs
+++ b/gen/Network/AWS/WorkSpaces/RebootWorkspaces.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.WorkSpaces.RebootWorkspaces
--- Copyright   : (c) 2013-2015 Brendan Hay
+-- Copyright   : (c) 2013-2016 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>
 -- Stability   : auto-generated
@@ -25,8 +25,6 @@
 --
 -- This operation is asynchronous and will return before the WorkSpaces
 -- have rebooted.
---
--- /See:/ <http://docs.aws.amazon.com/workspaces/latest/devguide/API_RebootWorkspaces.html AWS API Reference> for RebootWorkspaces.
 module Network.AWS.WorkSpaces.RebootWorkspaces
     (
     -- * Creating a Request
@@ -50,7 +48,7 @@
 import           Network.AWS.WorkSpaces.Types
 import           Network.AWS.WorkSpaces.Types.Product
 
--- | Contains the inputs for the RebootWorkspaces operation.
+-- | Contains the inputs for the < RebootWorkspaces> operation.
 --
 -- /See:/ 'rebootWorkspaces' smart constructor.
 newtype RebootWorkspaces = RebootWorkspaces'
@@ -84,6 +82,8 @@
                    (x .?> "FailedRequests" .!@ mempty) <*>
                      (pure (fromEnum s)))
 
+instance Hashable RebootWorkspaces
+
 instance ToHeaders RebootWorkspaces where
         toHeaders
           = const
@@ -107,7 +107,7 @@
 instance ToQuery RebootWorkspaces where
         toQuery = const mempty
 
--- | Contains the results of the RebootWorkspaces operation.
+-- | Contains the results of the < RebootWorkspaces> operation.
 --
 -- /See:/ 'rebootWorkspacesResponse' smart constructor.
 data RebootWorkspacesResponse = RebootWorkspacesResponse'
diff --git a/gen/Network/AWS/WorkSpaces/RebuildWorkspaces.hs b/gen/Network/AWS/WorkSpaces/RebuildWorkspaces.hs
--- a/gen/Network/AWS/WorkSpaces/RebuildWorkspaces.hs
+++ b/gen/Network/AWS/WorkSpaces/RebuildWorkspaces.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.WorkSpaces.RebuildWorkspaces
--- Copyright   : (c) 2013-2015 Brendan Hay
+-- Copyright   : (c) 2013-2016 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>
 -- Stability   : auto-generated
@@ -39,8 +39,6 @@
 --
 -- This operation is asynchronous and will return before the WorkSpaces
 -- have been completely rebuilt.
---
--- /See:/ <http://docs.aws.amazon.com/workspaces/latest/devguide/API_RebuildWorkspaces.html AWS API Reference> for RebuildWorkspaces.
 module Network.AWS.WorkSpaces.RebuildWorkspaces
     (
     -- * Creating a Request
@@ -64,7 +62,7 @@
 import           Network.AWS.WorkSpaces.Types
 import           Network.AWS.WorkSpaces.Types.Product
 
--- | Contains the inputs for the RebuildWorkspaces operation.
+-- | Contains the inputs for the < RebuildWorkspaces> operation.
 --
 -- /See:/ 'rebuildWorkspaces' smart constructor.
 newtype RebuildWorkspaces = RebuildWorkspaces'
@@ -98,6 +96,8 @@
                    (x .?> "FailedRequests" .!@ mempty) <*>
                      (pure (fromEnum s)))
 
+instance Hashable RebuildWorkspaces
+
 instance ToHeaders RebuildWorkspaces where
         toHeaders
           = const
@@ -122,7 +122,7 @@
 instance ToQuery RebuildWorkspaces where
         toQuery = const mempty
 
--- | Contains the results of the RebuildWorkspaces operation.
+-- | Contains the results of the < RebuildWorkspaces> operation.
 --
 -- /See:/ 'rebuildWorkspacesResponse' smart constructor.
 data RebuildWorkspacesResponse = RebuildWorkspacesResponse'
diff --git a/gen/Network/AWS/WorkSpaces/TerminateWorkspaces.hs b/gen/Network/AWS/WorkSpaces/TerminateWorkspaces.hs
--- a/gen/Network/AWS/WorkSpaces/TerminateWorkspaces.hs
+++ b/gen/Network/AWS/WorkSpaces/TerminateWorkspaces.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.WorkSpaces.TerminateWorkspaces
--- Copyright   : (c) 2013-2015 Brendan Hay
+-- Copyright   : (c) 2013-2016 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>
 -- Stability   : auto-generated
@@ -29,8 +29,6 @@
 --
 -- This operation is asynchronous and will return before the WorkSpaces
 -- have been completely terminated.
---
--- /See:/ <http://docs.aws.amazon.com/workspaces/latest/devguide/API_TerminateWorkspaces.html AWS API Reference> for TerminateWorkspaces.
 module Network.AWS.WorkSpaces.TerminateWorkspaces
     (
     -- * Creating a Request
@@ -54,7 +52,7 @@
 import           Network.AWS.WorkSpaces.Types
 import           Network.AWS.WorkSpaces.Types.Product
 
--- | Contains the inputs for the TerminateWorkspaces operation.
+-- | Contains the inputs for the < TerminateWorkspaces> operation.
 --
 -- /See:/ 'terminateWorkspaces' smart constructor.
 newtype TerminateWorkspaces = TerminateWorkspaces'
@@ -89,6 +87,8 @@
                    (x .?> "FailedRequests" .!@ mempty) <*>
                      (pure (fromEnum s)))
 
+instance Hashable TerminateWorkspaces
+
 instance ToHeaders TerminateWorkspaces where
         toHeaders
           = const
@@ -113,7 +113,7 @@
 instance ToQuery TerminateWorkspaces where
         toQuery = const mempty
 
--- | Contains the results of the TerminateWorkspaces operation.
+-- | Contains the results of the < TerminateWorkspaces> operation.
 --
 -- /See:/ 'terminateWorkspacesResponse' smart constructor.
 data TerminateWorkspacesResponse = TerminateWorkspacesResponse'
diff --git a/gen/Network/AWS/WorkSpaces/Types.hs b/gen/Network/AWS/WorkSpaces/Types.hs
--- a/gen/Network/AWS/WorkSpaces/Types.hs
+++ b/gen/Network/AWS/WorkSpaces/Types.hs
@@ -4,7 +4,7 @@
 
 -- |
 -- Module      : Network.AWS.WorkSpaces.Types
--- Copyright   : (c) 2013-2015 Brendan Hay
+-- Copyright   : (c) 2013-2016 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>
 -- Stability   : auto-generated
@@ -163,6 +163,7 @@
         , _retryCheck = check
         }
     check e
+      | has (hasStatus 429) e = Just "too_many_requests"
       | has (hasCode "ThrottlingException" . hasStatus 400) e =
           Just "throttling_exception"
       | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"
diff --git a/gen/Network/AWS/WorkSpaces/Types/Product.hs b/gen/Network/AWS/WorkSpaces/Types/Product.hs
--- a/gen/Network/AWS/WorkSpaces/Types/Product.hs
+++ b/gen/Network/AWS/WorkSpaces/Types/Product.hs
@@ -9,7 +9,7 @@
 
 -- |
 -- Module      : Network.AWS.WorkSpaces.Types.Product
--- Copyright   : (c) 2013-2015 Brendan Hay
+-- Copyright   : (c) 2013-2016 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>
 -- Stability   : auto-generated
@@ -49,6 +49,8 @@
           = withObject "ComputeType"
               (\ x -> ComputeType' <$> (x .:? "Name"))
 
+instance Hashable ComputeType
+
 -- | Contains default WorkSpace creation information.
 --
 -- /See:/ 'defaultWorkspaceCreationProperties' smart constructor.
@@ -119,6 +121,8 @@
                      <*> (x .:? "EnableInternetAccess")
                      <*> (x .:? "DefaultOu"))
 
+instance Hashable DefaultWorkspaceCreationProperties
+
 -- | Contains information about a WorkSpace that could not be created.
 --
 -- /See:/ 'failedCreateWorkspaceRequest' smart constructor.
@@ -146,7 +150,7 @@
     , _fcwrErrorMessage = Nothing
     }
 
--- | A WorkspaceRequest object that contains the information about the
+-- | A < WorkspaceRequest> object that contains the information about the
 -- WorkSpace that could not be created.
 fcwrWorkspaceRequest :: Lens' FailedCreateWorkspaceRequest (Maybe WorkspaceRequest)
 fcwrWorkspaceRequest = lens _fcwrWorkspaceRequest (\ s a -> s{_fcwrWorkspaceRequest = a});
@@ -167,9 +171,11 @@
                    (x .:? "WorkspaceRequest") <*> (x .:? "ErrorCode")
                      <*> (x .:? "ErrorMessage"))
 
+instance Hashable FailedCreateWorkspaceRequest
+
 -- | Contains information about a WorkSpace that could not be rebooted
--- (RebootWorkspaces), rebuilt (RebuildWorkspaces), or terminated
--- (TerminateWorkspaces).
+-- (< RebootWorkspaces>), rebuilt (< RebuildWorkspaces>), or terminated
+-- (< TerminateWorkspaces>).
 --
 -- /See:/ 'failedWorkspaceChangeRequest' smart constructor.
 data FailedWorkspaceChangeRequest = FailedWorkspaceChangeRequest'
@@ -216,8 +222,10 @@
                    (x .:? "ErrorCode") <*> (x .:? "WorkspaceId") <*>
                      (x .:? "ErrorMessage"))
 
--- | Contains information used with the RebootWorkspaces operation to reboot
--- a WorkSpace.
+instance Hashable FailedWorkspaceChangeRequest
+
+-- | Contains information used with the < RebootWorkspaces> operation to
+-- reboot a WorkSpace.
 --
 -- /See:/ 'rebootRequest' smart constructor.
 newtype RebootRequest = RebootRequest'
@@ -241,12 +249,14 @@
 rWorkspaceId :: Lens' RebootRequest Text
 rWorkspaceId = lens _rWorkspaceId (\ s a -> s{_rWorkspaceId = a});
 
+instance Hashable RebootRequest
+
 instance ToJSON RebootRequest where
         toJSON RebootRequest'{..}
           = object
               (catMaybes [Just ("WorkspaceId" .= _rWorkspaceId)])
 
--- | Contains information used with the RebuildWorkspaces operation to
+-- | Contains information used with the < RebuildWorkspaces> operation to
 -- rebuild a WorkSpace.
 --
 -- /See:/ 'rebuildRequest' smart constructor.
@@ -271,12 +281,14 @@
 rrWorkspaceId :: Lens' RebuildRequest Text
 rrWorkspaceId = lens _rrWorkspaceId (\ s a -> s{_rrWorkspaceId = a});
 
+instance Hashable RebuildRequest
+
 instance ToJSON RebuildRequest where
         toJSON RebuildRequest'{..}
           = object
               (catMaybes [Just ("WorkspaceId" .= _rrWorkspaceId)])
 
--- | Contains information used with the TerminateWorkspaces operation to
+-- | Contains information used with the < TerminateWorkspaces> operation to
 -- terminate a WorkSpace.
 --
 -- /See:/ 'terminateRequest' smart constructor.
@@ -301,6 +313,8 @@
 trWorkspaceId :: Lens' TerminateRequest Text
 trWorkspaceId = lens _trWorkspaceId (\ s a -> s{_trWorkspaceId = a});
 
+instance Hashable TerminateRequest
+
 instance ToJSON TerminateRequest where
         toJSON TerminateRequest'{..}
           = object
@@ -334,6 +348,8 @@
           = withObject "UserStorage"
               (\ x -> UserStorage' <$> (x .:? "Capacity"))
 
+instance Hashable UserStorage
+
 -- | Contains information about a WorkSpace.
 --
 -- /See:/ 'workspace' smart constructor.
@@ -475,6 +491,8 @@
                      <*> (x .:? "UserVolumeEncryptionEnabled")
                      <*> (x .:? "ErrorMessage"))
 
+instance Hashable Workspace
+
 -- | Contains information about a WorkSpace bundle.
 --
 -- /See:/ 'workspaceBundle' smart constructor.
@@ -527,12 +545,12 @@
 wbName :: Lens' WorkspaceBundle (Maybe Text)
 wbName = lens _wbName (\ s a -> s{_wbName = a});
 
--- | A ComputeType object that specifies the compute type for the bundle.
+-- | A < ComputeType> object that specifies the compute type for the bundle.
 wbComputeType :: Lens' WorkspaceBundle (Maybe ComputeType)
 wbComputeType = lens _wbComputeType (\ s a -> s{_wbComputeType = a});
 
--- | A UserStorage object that specifies the amount of user storage that the
--- bundle contains.
+-- | A < UserStorage> object that specifies the amount of user storage that
+-- the bundle contains.
 wbUserStorage :: Lens' WorkspaceBundle (Maybe UserStorage)
 wbUserStorage = lens _wbUserStorage (\ s a -> s{_wbUserStorage = a});
 
@@ -551,6 +569,8 @@
                      <*> (x .:? "UserStorage")
                      <*> (x .:? "Description"))
 
+instance Hashable WorkspaceBundle
+
 -- | Contains information about an AWS Directory Service directory for use
 -- with Amazon WorkSpaces.
 --
@@ -687,6 +707,8 @@
                      <*> (x .:? "DnsIpAddresses" .!= mempty)
                      <*> (x .:? "DirectoryName"))
 
+instance Hashable WorkspaceDirectory
+
 -- | Contains information about a WorkSpace creation request.
 --
 -- /See:/ 'workspaceRequest' smart constructor.
@@ -744,8 +766,8 @@
 wrUserVolumeEncryptionEnabled = lens _wrUserVolumeEncryptionEnabled (\ s a -> s{_wrUserVolumeEncryptionEnabled = a});
 
 -- | The identifier of the AWS Directory Service directory to create the
--- WorkSpace in. You can use the DescribeWorkspaceDirectories operation to
--- obtain a list of the directories that are available.
+-- WorkSpace in. You can use the < DescribeWorkspaceDirectories> operation
+-- to obtain a list of the directories that are available.
 wrDirectoryId :: Lens' WorkspaceRequest Text
 wrDirectoryId = lens _wrDirectoryId (\ s a -> s{_wrDirectoryId = a});
 
@@ -756,8 +778,8 @@
 wrUserName = lens _wrUserName (\ s a -> s{_wrUserName = a});
 
 -- | The identifier of the bundle to create the WorkSpace from. You can use
--- the DescribeWorkspaceBundles operation to obtain a list of the bundles
--- that are available.
+-- the < DescribeWorkspaceBundles> operation to obtain a list of the
+-- bundles that are available.
 wrBundleId :: Lens' WorkspaceRequest Text
 wrBundleId = lens _wrBundleId (\ s a -> s{_wrBundleId = a});
 
@@ -772,6 +794,8 @@
                      <*> (x .: "DirectoryId")
                      <*> (x .: "UserName")
                      <*> (x .: "BundleId"))
+
+instance Hashable WorkspaceRequest
 
 instance ToJSON WorkspaceRequest where
         toJSON WorkspaceRequest'{..}
diff --git a/gen/Network/AWS/WorkSpaces/Types/Sum.hs b/gen/Network/AWS/WorkSpaces/Types/Sum.hs
--- a/gen/Network/AWS/WorkSpaces/Types/Sum.hs
+++ b/gen/Network/AWS/WorkSpaces/Types/Sum.hs
@@ -9,7 +9,7 @@
 
 -- |
 -- Module      : Network.AWS.WorkSpaces.Types.Sum
--- Copyright   : (c) 2013-2015 Brendan Hay
+-- Copyright   : (c) 2013-2016 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>
 -- Stability   : auto-generated
diff --git a/gen/Network/AWS/WorkSpaces/Waiters.hs b/gen/Network/AWS/WorkSpaces/Waiters.hs
--- a/gen/Network/AWS/WorkSpaces/Waiters.hs
+++ b/gen/Network/AWS/WorkSpaces/Waiters.hs
@@ -7,7 +7,7 @@
 
 -- |
 -- Module      : Network.AWS.WorkSpaces.Waiters
--- Copyright   : (c) 2013-2015 Brendan Hay
+-- Copyright   : (c) 2013-2016 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>
 -- Stability   : auto-generated
diff --git a/test/Main.hs b/test/Main.hs
--- a/test/Main.hs
+++ b/test/Main.hs
@@ -2,7 +2,7 @@
 
 -- |
 -- Module      : Main
--- Copyright   : (c) 2013-2015 Brendan Hay
+-- Copyright   : (c) 2013-2016 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>
 -- Stability   : auto-generated
diff --git a/test/Test/AWS/Gen/WorkSpaces.hs b/test/Test/AWS/Gen/WorkSpaces.hs
--- a/test/Test/AWS/Gen/WorkSpaces.hs
+++ b/test/Test/AWS/Gen/WorkSpaces.hs
@@ -5,7 +5,7 @@
 
 -- |
 -- Module      : Test.AWS.Gen.WorkSpaces
--- Copyright   : (c) 2013-2015 Brendan Hay
+-- Copyright   : (c) 2013-2016 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>
 -- Stability   : auto-generated
diff --git a/test/Test/AWS/WorkSpaces.hs b/test/Test/AWS/WorkSpaces.hs
--- a/test/Test/AWS/WorkSpaces.hs
+++ b/test/Test/AWS/WorkSpaces.hs
@@ -1,7 +1,7 @@
 {-# LANGUAGE OverloadedStrings #-}
 
 -- Module      : Test.AWS.WorkSpaces
--- Copyright   : (c) 2013-2015 Brendan Hay
+-- Copyright   : (c) 2013-2016 Brendan Hay
 -- 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
diff --git a/test/Test/AWS/WorkSpaces/Internal.hs b/test/Test/AWS/WorkSpaces/Internal.hs
--- a/test/Test/AWS/WorkSpaces/Internal.hs
+++ b/test/Test/AWS/WorkSpaces/Internal.hs
@@ -2,7 +2,7 @@
 {-# OPTIONS_GHC -fno-warn-unused-imports #-}
 
 -- Module      : Test.AWS.WorkSpaces.Internal
--- Copyright   : (c) 2013-2015 Brendan Hay
+-- Copyright   : (c) 2013-2016 Brendan Hay
 -- 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