diff --git a/README.md b/README.md
--- a/README.md
+++ b/README.md
@@ -8,7 +8,7 @@
 
 ## Version
 
-`1.5.0`
+`1.6.0`
 
 
 ## Description
diff --git a/amazonka-workdocs.cabal b/amazonka-workdocs.cabal
--- a/amazonka-workdocs.cabal
+++ b/amazonka-workdocs.cabal
@@ -1,5 +1,5 @@
 name:                  amazonka-workdocs
-version:               1.5.0
+version:               1.6.0
 synopsis:              Amazon WorkDocs 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+amazonka@gmail.com>
-copyright:             Copyright (c) 2013-2017 Brendan Hay
+copyright:             Copyright (c) 2013-2018 Brendan Hay
 category:              Network, AWS, Cloud, Distributed Computing
 build-type:            Simple
 cabal-version:         >= 1.10
@@ -67,6 +67,7 @@
         , Network.AWS.WorkDocs.DescribeComments
         , Network.AWS.WorkDocs.DescribeDocumentVersions
         , Network.AWS.WorkDocs.DescribeFolderContents
+        , Network.AWS.WorkDocs.DescribeGroups
         , Network.AWS.WorkDocs.DescribeNotificationSubscriptions
         , Network.AWS.WorkDocs.DescribeResourcePermissions
         , Network.AWS.WorkDocs.DescribeRootFolders
@@ -92,7 +93,7 @@
         , Network.AWS.WorkDocs.Types.Sum
 
     build-depends:
-          amazonka-core == 1.5.0.*
+          amazonka-core == 1.6.0.*
         , base          >= 4.7     && < 5
 
 test-suite amazonka-workdocs-test
@@ -112,8 +113,8 @@
         , Test.AWS.WorkDocs.Internal
 
     build-depends:
-          amazonka-core == 1.5.0.*
-        , amazonka-test == 1.5.0.*
+          amazonka-core == 1.6.0.*
+        , amazonka-test == 1.6.0.*
         , amazonka-workdocs
         , base
         , bytestring
diff --git a/fixture/DescribeGroups.yaml b/fixture/DescribeGroups.yaml
new file mode 100644
--- /dev/null
+++ b/fixture/DescribeGroups.yaml
@@ -0,0 +1,10 @@
+---
+method: GET
+headers:
+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/workdocs/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?
+  Host:                  workdocs.us-east-1.amazonaws.com
+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8
+  X-Amz-Content-SHA256:  abcdef
+  X-Amz-Date:            20091028T223200Z
+body:
+  ''
diff --git a/fixture/DescribeGroupsResponse.proto b/fixture/DescribeGroupsResponse.proto
new file mode 100644
--- /dev/null
+++ b/fixture/DescribeGroupsResponse.proto
diff --git a/gen/Network/AWS/WorkDocs.hs b/gen/Network/AWS/WorkDocs.hs
--- a/gen/Network/AWS/WorkDocs.hs
+++ b/gen/Network/AWS/WorkDocs.hs
@@ -5,7 +5,7 @@
 
 -- |
 -- Module      : Network.AWS.WorkDocs
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -14,15 +14,15 @@
 -- The WorkDocs API is designed for the following use cases:
 --
 --
---     * File Migration: File migration applications are supported for users who want to migrate their files from an on-premise or off-premise file system or service. Users can insert files into a user directory structure, as well as allow for basic metadata changes, such as modifications to the permissions of files.
+--     * File Migration: File migration applications are supported for users who want to migrate their files from an on-premises or off-premises file system or service. Users can insert files into a user directory structure, as well as allow for basic metadata changes, such as modifications to the permissions of files.
 --
---     * Security: Support security applications are supported for users who have additional security needs, such as anti-virus or data loss prevention. The APIs, in conjunction with Amazon CloudTrail, allow these applications to detect when changes occur in Amazon WorkDocs, so the application can take the necessary actions and replace the target file. The application can also choose to email the user if the target file violates the policy.
+--     * Security: Support security applications are supported for users who have additional security needs, such as antivirus or data loss prevention. The API actions, along with AWS CloudTrail, allow these applications to detect when changes occur in Amazon WorkDocs. Then, the application can take the necessary actions and replace the target file. If the target file violates the policy, the application can also choose to email the user.
 --
---     * eDiscovery/Analytics: General administrative applications are supported, such as eDiscovery and analytics. These applications can choose to mimic and/or record the actions in an Amazon WorkDocs site, in conjunction with Amazon CloudTrails, to replicate data for eDiscovery, backup, or analytical applications.
+--     * eDiscovery/Analytics: General administrative applications are supported, such as eDiscovery and analytics. These applications can choose to mimic or record the actions in an Amazon WorkDocs site, along with AWS CloudTrail, to replicate data for eDiscovery, backup, or analytical applications.
 --
 --
 --
--- All Amazon WorkDocs APIs are Amazon authenticated, certificate-signed APIs. They not only require the use of the AWS SDK, but also allow for the exclusive use of IAM users and roles to help facilitate access, trust, and permission policies. By creating a role and allowing an IAM user to access the Amazon WorkDocs site, the IAM user gains full administrative visibility into the entire Amazon WorkDocs site (or as set in the IAM policy). This includes, but is not limited to, the ability to modify file permissions and upload any file to any user. This allows developers to perform the three use cases above, as well as give users the ability to grant access on a selective basis using the IAM model.
+-- All Amazon WorkDocs API actions are Amazon authenticated and certificate-signed. They not only require the use of the AWS SDK, but also allow for the exclusive use of IAM users and roles to help facilitate access, trust, and permission policies. By creating a role and allowing an IAM user to access the Amazon WorkDocs site, the IAM user gains full administrative visibility into the entire Amazon WorkDocs site (or as set in the IAM policy). This includes, but is not limited to, the ability to modify file permissions and upload any file to any user. This allows developers to perform the three use cases above, as well as give users the ability to grant access on a selective basis using the IAM model.
 --
 module Network.AWS.WorkDocs
     (
@@ -95,6 +95,9 @@
     -- ** LimitExceededException
     , _LimitExceededException
 
+    -- ** InvalidPasswordException
+    , _InvalidPasswordException
+
     -- * Waiters
     -- $waiters
 
@@ -218,11 +221,17 @@
     -- ** DeleteDocument
     , module Network.AWS.WorkDocs.DeleteDocument
 
+    -- ** DescribeGroups
+    , module Network.AWS.WorkDocs.DescribeGroups
+
     -- * Types
 
     -- ** ActivityType
     , ActivityType (..)
 
+    -- ** BooleanEnumType
+    , BooleanEnumType (..)
+
     -- ** CommentStatusType
     , CommentStatusType (..)
 
@@ -376,6 +385,12 @@
     , gmName
     , gmId
 
+    -- ** NotificationOptions
+    , NotificationOptions
+    , notificationOptions
+    , noEmailMessage
+    , noSendEmail
+
     -- ** Participants
     , Participants
     , participants
@@ -509,6 +524,7 @@
 import Network.AWS.WorkDocs.DescribeComments
 import Network.AWS.WorkDocs.DescribeDocumentVersions
 import Network.AWS.WorkDocs.DescribeFolderContents
+import Network.AWS.WorkDocs.DescribeGroups
 import Network.AWS.WorkDocs.DescribeNotificationSubscriptions
 import Network.AWS.WorkDocs.DescribeResourcePermissions
 import Network.AWS.WorkDocs.DescribeRootFolders
diff --git a/gen/Network/AWS/WorkDocs/AbortDocumentVersionUpload.hs b/gen/Network/AWS/WorkDocs/AbortDocumentVersionUpload.hs
--- a/gen/Network/AWS/WorkDocs/AbortDocumentVersionUpload.hs
+++ b/gen/Network/AWS/WorkDocs/AbortDocumentVersionUpload.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.WorkDocs.AbortDocumentVersionUpload
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -55,7 +55,7 @@
 --
 -- Use one of the following lenses to modify other fields as desired:
 --
--- * 'advuAuthenticationToken' - Amazon WorkDocs authentication token. This field should not be set when using administrative API actions, as in accessing the API using AWS credentials.
+-- * 'advuAuthenticationToken' - Amazon WorkDocs authentication token. Do not set this field when using administrative API actions, as in accessing the API using AWS credentials.
 --
 -- * 'advuDocumentId' - The ID of the document.
 --
@@ -66,23 +66,23 @@
     -> AbortDocumentVersionUpload
 abortDocumentVersionUpload pDocumentId_ pVersionId_ =
   AbortDocumentVersionUpload'
-  { _advuAuthenticationToken = Nothing
-  , _advuDocumentId = pDocumentId_
-  , _advuVersionId = pVersionId_
-  }
+    { _advuAuthenticationToken = Nothing
+    , _advuDocumentId = pDocumentId_
+    , _advuVersionId = pVersionId_
+    }
 
 
--- | Amazon WorkDocs authentication token. This field should not be set when using administrative API actions, as in accessing the API using AWS credentials.
+-- | Amazon WorkDocs authentication token. Do not set this field when using administrative API actions, as in accessing the API using AWS credentials.
 advuAuthenticationToken :: Lens' AbortDocumentVersionUpload (Maybe Text)
-advuAuthenticationToken = lens _advuAuthenticationToken (\ s a -> s{_advuAuthenticationToken = a}) . mapping _Sensitive;
+advuAuthenticationToken = lens _advuAuthenticationToken (\ s a -> s{_advuAuthenticationToken = a}) . mapping _Sensitive
 
 -- | The ID of the document.
 advuDocumentId :: Lens' AbortDocumentVersionUpload Text
-advuDocumentId = lens _advuDocumentId (\ s a -> s{_advuDocumentId = a});
+advuDocumentId = lens _advuDocumentId (\ s a -> s{_advuDocumentId = a})
 
 -- | The ID of the version.
 advuVersionId :: Lens' AbortDocumentVersionUpload Text
-advuVersionId = lens _advuVersionId (\ s a -> s{_advuVersionId = a});
+advuVersionId = lens _advuVersionId (\ s a -> s{_advuVersionId = a})
 
 instance AWSRequest AbortDocumentVersionUpload where
         type Rs AbortDocumentVersionUpload =
diff --git a/gen/Network/AWS/WorkDocs/ActivateUser.hs b/gen/Network/AWS/WorkDocs/ActivateUser.hs
--- a/gen/Network/AWS/WorkDocs/ActivateUser.hs
+++ b/gen/Network/AWS/WorkDocs/ActivateUser.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.WorkDocs.ActivateUser
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -56,7 +56,7 @@
 --
 -- Use one of the following lenses to modify other fields as desired:
 --
--- * 'auAuthenticationToken' - Amazon WorkDocs authentication token. This field should not be set when using administrative API actions, as in accessing the API using AWS credentials.
+-- * 'auAuthenticationToken' - Amazon WorkDocs authentication token. Do not set this field when using administrative API actions, as in accessing the API using AWS credentials.
 --
 -- * 'auUserId' - The ID of the user.
 activateUser
@@ -66,13 +66,13 @@
   ActivateUser' {_auAuthenticationToken = Nothing, _auUserId = pUserId_}
 
 
--- | Amazon WorkDocs authentication token. This field should not be set when using administrative API actions, as in accessing the API using AWS credentials.
+-- | Amazon WorkDocs authentication token. Do not set this field when using administrative API actions, as in accessing the API using AWS credentials.
 auAuthenticationToken :: Lens' ActivateUser (Maybe Text)
-auAuthenticationToken = lens _auAuthenticationToken (\ s a -> s{_auAuthenticationToken = a}) . mapping _Sensitive;
+auAuthenticationToken = lens _auAuthenticationToken (\ s a -> s{_auAuthenticationToken = a}) . mapping _Sensitive
 
 -- | The ID of the user.
 auUserId :: Lens' ActivateUser Text
-auUserId = lens _auUserId (\ s a -> s{_auUserId = a});
+auUserId = lens _auUserId (\ s a -> s{_auUserId = a})
 
 instance AWSRequest ActivateUser where
         type Rs ActivateUser = ActivateUserResponse
@@ -124,15 +124,15 @@
     -> ActivateUserResponse
 activateUserResponse pResponseStatus_ =
   ActivateUserResponse'
-  {_aursUser = Nothing, _aursResponseStatus = pResponseStatus_}
+    {_aursUser = Nothing, _aursResponseStatus = pResponseStatus_}
 
 
 -- | The user information.
 aursUser :: Lens' ActivateUserResponse (Maybe User)
-aursUser = lens _aursUser (\ s a -> s{_aursUser = a});
+aursUser = lens _aursUser (\ s a -> s{_aursUser = a})
 
 -- | -- | The response status code.
 aursResponseStatus :: Lens' ActivateUserResponse Int
-aursResponseStatus = lens _aursResponseStatus (\ s a -> s{_aursResponseStatus = a});
+aursResponseStatus = lens _aursResponseStatus (\ s a -> s{_aursResponseStatus = a})
 
 instance NFData ActivateUserResponse where
diff --git a/gen/Network/AWS/WorkDocs/AddResourcePermissions.hs b/gen/Network/AWS/WorkDocs/AddResourcePermissions.hs
--- a/gen/Network/AWS/WorkDocs/AddResourcePermissions.hs
+++ b/gen/Network/AWS/WorkDocs/AddResourcePermissions.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.WorkDocs.AddResourcePermissions
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -27,6 +27,7 @@
       addResourcePermissions
     , AddResourcePermissions
     -- * Request Lenses
+    , arpNotificationOptions
     , arpAuthenticationToken
     , arpResourceId
     , arpPrincipals
@@ -48,7 +49,8 @@
 
 -- | /See:/ 'addResourcePermissions' smart constructor.
 data AddResourcePermissions = AddResourcePermissions'
-  { _arpAuthenticationToken :: !(Maybe (Sensitive Text))
+  { _arpNotificationOptions :: !(Maybe NotificationOptions)
+  , _arpAuthenticationToken :: !(Maybe (Sensitive Text))
   , _arpResourceId          :: !Text
   , _arpPrincipals          :: ![SharePrincipal]
   } deriving (Eq, Show, Data, Typeable, Generic)
@@ -58,8 +60,10 @@
 --
 -- Use one of the following lenses to modify other fields as desired:
 --
--- * 'arpAuthenticationToken' - Amazon WorkDocs authentication token. This field should not be set when using administrative API actions, as in accessing the API using AWS credentials.
+-- * 'arpNotificationOptions' - The notification options.
 --
+-- * 'arpAuthenticationToken' - Amazon WorkDocs authentication token. Do not set this field when using administrative API actions, as in accessing the API using AWS credentials.
+--
 -- * 'arpResourceId' - The ID of the resource.
 --
 -- * 'arpPrincipals' - The users, groups, or organization being granted permission.
@@ -68,23 +72,28 @@
     -> AddResourcePermissions
 addResourcePermissions pResourceId_ =
   AddResourcePermissions'
-  { _arpAuthenticationToken = Nothing
-  , _arpResourceId = pResourceId_
-  , _arpPrincipals = mempty
-  }
+    { _arpNotificationOptions = Nothing
+    , _arpAuthenticationToken = Nothing
+    , _arpResourceId = pResourceId_
+    , _arpPrincipals = mempty
+    }
 
 
--- | Amazon WorkDocs authentication token. This field should not be set when using administrative API actions, as in accessing the API using AWS credentials.
+-- | The notification options.
+arpNotificationOptions :: Lens' AddResourcePermissions (Maybe NotificationOptions)
+arpNotificationOptions = lens _arpNotificationOptions (\ s a -> s{_arpNotificationOptions = a})
+
+-- | Amazon WorkDocs authentication token. Do not set this field when using administrative API actions, as in accessing the API using AWS credentials.
 arpAuthenticationToken :: Lens' AddResourcePermissions (Maybe Text)
-arpAuthenticationToken = lens _arpAuthenticationToken (\ s a -> s{_arpAuthenticationToken = a}) . mapping _Sensitive;
+arpAuthenticationToken = lens _arpAuthenticationToken (\ s a -> s{_arpAuthenticationToken = a}) . mapping _Sensitive
 
 -- | The ID of the resource.
 arpResourceId :: Lens' AddResourcePermissions Text
-arpResourceId = lens _arpResourceId (\ s a -> s{_arpResourceId = a});
+arpResourceId = lens _arpResourceId (\ s a -> s{_arpResourceId = a})
 
 -- | The users, groups, or organization being granted permission.
 arpPrincipals :: Lens' AddResourcePermissions [SharePrincipal]
-arpPrincipals = lens _arpPrincipals (\ s a -> s{_arpPrincipals = a}) . _Coerce;
+arpPrincipals = lens _arpPrincipals (\ s a -> s{_arpPrincipals = a}) . _Coerce
 
 instance AWSRequest AddResourcePermissions where
         type Rs AddResourcePermissions =
@@ -111,7 +120,10 @@
 instance ToJSON AddResourcePermissions where
         toJSON AddResourcePermissions'{..}
           = object
-              (catMaybes [Just ("Principals" .= _arpPrincipals)])
+              (catMaybes
+                 [("NotificationOptions" .=) <$>
+                    _arpNotificationOptions,
+                  Just ("Principals" .= _arpPrincipals)])
 
 instance ToPath AddResourcePermissions where
         toPath AddResourcePermissions'{..}
@@ -141,15 +153,15 @@
     -> AddResourcePermissionsResponse
 addResourcePermissionsResponse pResponseStatus_ =
   AddResourcePermissionsResponse'
-  {_arprsShareResults = Nothing, _arprsResponseStatus = pResponseStatus_}
+    {_arprsShareResults = Nothing, _arprsResponseStatus = pResponseStatus_}
 
 
 -- | The share results.
 arprsShareResults :: Lens' AddResourcePermissionsResponse [ShareResult]
-arprsShareResults = lens _arprsShareResults (\ s a -> s{_arprsShareResults = a}) . _Default . _Coerce;
+arprsShareResults = lens _arprsShareResults (\ s a -> s{_arprsShareResults = a}) . _Default . _Coerce
 
 -- | -- | The response status code.
 arprsResponseStatus :: Lens' AddResourcePermissionsResponse Int
-arprsResponseStatus = lens _arprsResponseStatus (\ s a -> s{_arprsResponseStatus = a});
+arprsResponseStatus = lens _arprsResponseStatus (\ s a -> s{_arprsResponseStatus = a})
 
 instance NFData AddResourcePermissionsResponse where
diff --git a/gen/Network/AWS/WorkDocs/CreateComment.hs b/gen/Network/AWS/WorkDocs/CreateComment.hs
--- a/gen/Network/AWS/WorkDocs/CreateComment.hs
+++ b/gen/Network/AWS/WorkDocs/CreateComment.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.WorkDocs.CreateComment
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -70,7 +70,7 @@
 --
 -- * 'ccNotifyCollaborators' - Set this parameter to TRUE to send an email out to the document collaborators after the comment is created.
 --
--- * 'ccAuthenticationToken' - Amazon WorkDocs authentication token. This field should not be set when using administrative API actions, as in accessing the API using AWS credentials.
+-- * 'ccAuthenticationToken' - Amazon WorkDocs authentication token. Do not set this field when using administrative API actions, as in accessing the API using AWS credentials.
 --
 -- * 'ccVisibility' - The visibility of the comment. Options are either PRIVATE, where the comment is visible only to the comment author and document owner and co-owners, or PUBLIC, where the comment is visible to document owners, co-owners, and contributors.
 --
@@ -90,48 +90,48 @@
     -> CreateComment
 createComment pDocumentId_ pVersionId_ pText_ =
   CreateComment'
-  { _ccNotifyCollaborators = Nothing
-  , _ccAuthenticationToken = Nothing
-  , _ccVisibility = Nothing
-  , _ccThreadId = Nothing
-  , _ccParentId = Nothing
-  , _ccDocumentId = pDocumentId_
-  , _ccVersionId = pVersionId_
-  , _ccText = _Sensitive # pText_
-  }
+    { _ccNotifyCollaborators = Nothing
+    , _ccAuthenticationToken = Nothing
+    , _ccVisibility = Nothing
+    , _ccThreadId = Nothing
+    , _ccParentId = Nothing
+    , _ccDocumentId = pDocumentId_
+    , _ccVersionId = pVersionId_
+    , _ccText = _Sensitive # pText_
+    }
 
 
 -- | Set this parameter to TRUE to send an email out to the document collaborators after the comment is created.
 ccNotifyCollaborators :: Lens' CreateComment (Maybe Bool)
-ccNotifyCollaborators = lens _ccNotifyCollaborators (\ s a -> s{_ccNotifyCollaborators = a});
+ccNotifyCollaborators = lens _ccNotifyCollaborators (\ s a -> s{_ccNotifyCollaborators = a})
 
--- | Amazon WorkDocs authentication token. This field should not be set when using administrative API actions, as in accessing the API using AWS credentials.
+-- | Amazon WorkDocs authentication token. Do not set this field when using administrative API actions, as in accessing the API using AWS credentials.
 ccAuthenticationToken :: Lens' CreateComment (Maybe Text)
-ccAuthenticationToken = lens _ccAuthenticationToken (\ s a -> s{_ccAuthenticationToken = a}) . mapping _Sensitive;
+ccAuthenticationToken = lens _ccAuthenticationToken (\ s a -> s{_ccAuthenticationToken = a}) . mapping _Sensitive
 
 -- | The visibility of the comment. Options are either PRIVATE, where the comment is visible only to the comment author and document owner and co-owners, or PUBLIC, where the comment is visible to document owners, co-owners, and contributors.
 ccVisibility :: Lens' CreateComment (Maybe CommentVisibilityType)
-ccVisibility = lens _ccVisibility (\ s a -> s{_ccVisibility = a});
+ccVisibility = lens _ccVisibility (\ s a -> s{_ccVisibility = a})
 
 -- | The ID of the root comment in the thread.
 ccThreadId :: Lens' CreateComment (Maybe Text)
-ccThreadId = lens _ccThreadId (\ s a -> s{_ccThreadId = a});
+ccThreadId = lens _ccThreadId (\ s a -> s{_ccThreadId = a})
 
 -- | The ID of the parent comment.
 ccParentId :: Lens' CreateComment (Maybe Text)
-ccParentId = lens _ccParentId (\ s a -> s{_ccParentId = a});
+ccParentId = lens _ccParentId (\ s a -> s{_ccParentId = a})
 
 -- | The ID of the document.
 ccDocumentId :: Lens' CreateComment Text
-ccDocumentId = lens _ccDocumentId (\ s a -> s{_ccDocumentId = a});
+ccDocumentId = lens _ccDocumentId (\ s a -> s{_ccDocumentId = a})
 
 -- | The ID of the document version.
 ccVersionId :: Lens' CreateComment Text
-ccVersionId = lens _ccVersionId (\ s a -> s{_ccVersionId = a});
+ccVersionId = lens _ccVersionId (\ s a -> s{_ccVersionId = a})
 
 -- | The text of the comment.
 ccText :: Lens' CreateComment Text
-ccText = lens _ccText (\ s a -> s{_ccText = a}) . _Sensitive;
+ccText = lens _ccText (\ s a -> s{_ccText = a}) . _Sensitive
 
 instance AWSRequest CreateComment where
         type Rs CreateComment = CreateCommentResponse
@@ -192,15 +192,15 @@
     -> CreateCommentResponse
 createCommentResponse pResponseStatus_ =
   CreateCommentResponse'
-  {_ccrsComment = Nothing, _ccrsResponseStatus = pResponseStatus_}
+    {_ccrsComment = Nothing, _ccrsResponseStatus = pResponseStatus_}
 
 
 -- | The comment that has been created.
 ccrsComment :: Lens' CreateCommentResponse (Maybe Comment)
-ccrsComment = lens _ccrsComment (\ s a -> s{_ccrsComment = a});
+ccrsComment = lens _ccrsComment (\ s a -> s{_ccrsComment = a})
 
 -- | -- | The response status code.
 ccrsResponseStatus :: Lens' CreateCommentResponse Int
-ccrsResponseStatus = lens _ccrsResponseStatus (\ s a -> s{_ccrsResponseStatus = a});
+ccrsResponseStatus = lens _ccrsResponseStatus (\ s a -> s{_ccrsResponseStatus = a})
 
 instance NFData CreateCommentResponse where
diff --git a/gen/Network/AWS/WorkDocs/CreateCustomMetadata.hs b/gen/Network/AWS/WorkDocs/CreateCustomMetadata.hs
--- a/gen/Network/AWS/WorkDocs/CreateCustomMetadata.hs
+++ b/gen/Network/AWS/WorkDocs/CreateCustomMetadata.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.WorkDocs.CreateCustomMetadata
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -61,7 +61,7 @@
 --
 -- * 'ccmVersionId' - The ID of the version, if the custom metadata is being added to a document version.
 --
--- * 'ccmAuthenticationToken' - Amazon WorkDocs authentication token. This field should not be set when using administrative API actions, as in accessing the API using AWS credentials.
+-- * 'ccmAuthenticationToken' - Amazon WorkDocs authentication token. Do not set this field when using administrative API actions, as in accessing the API using AWS credentials.
 --
 -- * 'ccmResourceId' - The ID of the resource.
 --
@@ -71,28 +71,28 @@
     -> CreateCustomMetadata
 createCustomMetadata pResourceId_ =
   CreateCustomMetadata'
-  { _ccmVersionId = Nothing
-  , _ccmAuthenticationToken = Nothing
-  , _ccmResourceId = pResourceId_
-  , _ccmCustomMetadata = mempty
-  }
+    { _ccmVersionId = Nothing
+    , _ccmAuthenticationToken = Nothing
+    , _ccmResourceId = pResourceId_
+    , _ccmCustomMetadata = mempty
+    }
 
 
 -- | The ID of the version, if the custom metadata is being added to a document version.
 ccmVersionId :: Lens' CreateCustomMetadata (Maybe Text)
-ccmVersionId = lens _ccmVersionId (\ s a -> s{_ccmVersionId = a});
+ccmVersionId = lens _ccmVersionId (\ s a -> s{_ccmVersionId = a})
 
--- | Amazon WorkDocs authentication token. This field should not be set when using administrative API actions, as in accessing the API using AWS credentials.
+-- | Amazon WorkDocs authentication token. Do not set this field when using administrative API actions, as in accessing the API using AWS credentials.
 ccmAuthenticationToken :: Lens' CreateCustomMetadata (Maybe Text)
-ccmAuthenticationToken = lens _ccmAuthenticationToken (\ s a -> s{_ccmAuthenticationToken = a}) . mapping _Sensitive;
+ccmAuthenticationToken = lens _ccmAuthenticationToken (\ s a -> s{_ccmAuthenticationToken = a}) . mapping _Sensitive
 
 -- | The ID of the resource.
 ccmResourceId :: Lens' CreateCustomMetadata Text
-ccmResourceId = lens _ccmResourceId (\ s a -> s{_ccmResourceId = a});
+ccmResourceId = lens _ccmResourceId (\ s a -> s{_ccmResourceId = a})
 
 -- | Custom metadata in the form of name-value pairs.
 ccmCustomMetadata :: Lens' CreateCustomMetadata (HashMap Text Text)
-ccmCustomMetadata = lens _ccmCustomMetadata (\ s a -> s{_ccmCustomMetadata = a}) . _Map;
+ccmCustomMetadata = lens _ccmCustomMetadata (\ s a -> s{_ccmCustomMetadata = a}) . _Map
 
 instance AWSRequest CreateCustomMetadata where
         type Rs CreateCustomMetadata =
@@ -151,6 +151,6 @@
 
 -- | -- | The response status code.
 ccmrsResponseStatus :: Lens' CreateCustomMetadataResponse Int
-ccmrsResponseStatus = lens _ccmrsResponseStatus (\ s a -> s{_ccmrsResponseStatus = a});
+ccmrsResponseStatus = lens _ccmrsResponseStatus (\ s a -> s{_ccmrsResponseStatus = a})
 
 instance NFData CreateCustomMetadataResponse where
diff --git a/gen/Network/AWS/WorkDocs/CreateFolder.hs b/gen/Network/AWS/WorkDocs/CreateFolder.hs
--- a/gen/Network/AWS/WorkDocs/CreateFolder.hs
+++ b/gen/Network/AWS/WorkDocs/CreateFolder.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.WorkDocs.CreateFolder
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -58,7 +58,7 @@
 --
 -- Use one of the following lenses to modify other fields as desired:
 --
--- * 'cfAuthenticationToken' - Amazon WorkDocs authentication token. This field should not be set when using administrative API actions, as in accessing the API using AWS credentials.
+-- * 'cfAuthenticationToken' - Amazon WorkDocs authentication token. Do not set this field when using administrative API actions, as in accessing the API using AWS credentials.
 --
 -- * 'cfName' - The name of the new folder.
 --
@@ -68,23 +68,23 @@
     -> CreateFolder
 createFolder pParentFolderId_ =
   CreateFolder'
-  { _cfAuthenticationToken = Nothing
-  , _cfName = Nothing
-  , _cfParentFolderId = pParentFolderId_
-  }
+    { _cfAuthenticationToken = Nothing
+    , _cfName = Nothing
+    , _cfParentFolderId = pParentFolderId_
+    }
 
 
--- | Amazon WorkDocs authentication token. This field should not be set when using administrative API actions, as in accessing the API using AWS credentials.
+-- | Amazon WorkDocs authentication token. Do not set this field when using administrative API actions, as in accessing the API using AWS credentials.
 cfAuthenticationToken :: Lens' CreateFolder (Maybe Text)
-cfAuthenticationToken = lens _cfAuthenticationToken (\ s a -> s{_cfAuthenticationToken = a}) . mapping _Sensitive;
+cfAuthenticationToken = lens _cfAuthenticationToken (\ s a -> s{_cfAuthenticationToken = a}) . mapping _Sensitive
 
 -- | The name of the new folder.
 cfName :: Lens' CreateFolder (Maybe Text)
-cfName = lens _cfName (\ s a -> s{_cfName = a});
+cfName = lens _cfName (\ s a -> s{_cfName = a})
 
 -- | The ID of the parent folder.
 cfParentFolderId :: Lens' CreateFolder Text
-cfParentFolderId = lens _cfParentFolderId (\ s a -> s{_cfParentFolderId = a});
+cfParentFolderId = lens _cfParentFolderId (\ s a -> s{_cfParentFolderId = a})
 
 instance AWSRequest CreateFolder where
         type Rs CreateFolder = CreateFolderResponse
@@ -138,15 +138,15 @@
     -> CreateFolderResponse
 createFolderResponse pResponseStatus_ =
   CreateFolderResponse'
-  {_cfrsMetadata = Nothing, _cfrsResponseStatus = pResponseStatus_}
+    {_cfrsMetadata = Nothing, _cfrsResponseStatus = pResponseStatus_}
 
 
 -- | The metadata of the folder.
 cfrsMetadata :: Lens' CreateFolderResponse (Maybe FolderMetadata)
-cfrsMetadata = lens _cfrsMetadata (\ s a -> s{_cfrsMetadata = a});
+cfrsMetadata = lens _cfrsMetadata (\ s a -> s{_cfrsMetadata = a})
 
 -- | -- | The response status code.
 cfrsResponseStatus :: Lens' CreateFolderResponse Int
-cfrsResponseStatus = lens _cfrsResponseStatus (\ s a -> s{_cfrsResponseStatus = a});
+cfrsResponseStatus = lens _cfrsResponseStatus (\ s a -> s{_cfrsResponseStatus = a})
 
 instance NFData CreateFolderResponse where
diff --git a/gen/Network/AWS/WorkDocs/CreateLabels.hs b/gen/Network/AWS/WorkDocs/CreateLabels.hs
--- a/gen/Network/AWS/WorkDocs/CreateLabels.hs
+++ b/gen/Network/AWS/WorkDocs/CreateLabels.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.WorkDocs.CreateLabels
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -57,7 +57,7 @@
 --
 -- Use one of the following lenses to modify other fields as desired:
 --
--- * 'clAuthenticationToken' - Amazon WorkDocs authentication token. This field should not be set when using administrative API actions, as in accessing the API using AWS credentials.
+-- * 'clAuthenticationToken' - Amazon WorkDocs authentication token. Do not set this field when using administrative API actions, as in accessing the API using AWS credentials.
 --
 -- * 'clResourceId' - The ID of the resource.
 --
@@ -67,23 +67,23 @@
     -> CreateLabels
 createLabels pResourceId_ =
   CreateLabels'
-  { _clAuthenticationToken = Nothing
-  , _clResourceId = pResourceId_
-  , _clLabels = mempty
-  }
+    { _clAuthenticationToken = Nothing
+    , _clResourceId = pResourceId_
+    , _clLabels = mempty
+    }
 
 
--- | Amazon WorkDocs authentication token. This field should not be set when using administrative API actions, as in accessing the API using AWS credentials.
+-- | Amazon WorkDocs authentication token. Do not set this field when using administrative API actions, as in accessing the API using AWS credentials.
 clAuthenticationToken :: Lens' CreateLabels (Maybe Text)
-clAuthenticationToken = lens _clAuthenticationToken (\ s a -> s{_clAuthenticationToken = a}) . mapping _Sensitive;
+clAuthenticationToken = lens _clAuthenticationToken (\ s a -> s{_clAuthenticationToken = a}) . mapping _Sensitive
 
 -- | The ID of the resource.
 clResourceId :: Lens' CreateLabels Text
-clResourceId = lens _clResourceId (\ s a -> s{_clResourceId = a});
+clResourceId = lens _clResourceId (\ s a -> s{_clResourceId = a})
 
 -- | List of labels to add to the resource.
 clLabels :: Lens' CreateLabels [Text]
-clLabels = lens _clLabels (\ s a -> s{_clLabels = a}) . _Coerce;
+clLabels = lens _clLabels (\ s a -> s{_clLabels = a}) . _Coerce
 
 instance AWSRequest CreateLabels where
         type Rs CreateLabels = CreateLabelsResponse
@@ -136,6 +136,6 @@
 
 -- | -- | The response status code.
 clrsResponseStatus :: Lens' CreateLabelsResponse Int
-clrsResponseStatus = lens _clrsResponseStatus (\ s a -> s{_clrsResponseStatus = a});
+clrsResponseStatus = lens _clrsResponseStatus (\ s a -> s{_clrsResponseStatus = a})
 
 instance NFData CreateLabelsResponse where
diff --git a/gen/Network/AWS/WorkDocs/CreateNotificationSubscription.hs b/gen/Network/AWS/WorkDocs/CreateNotificationSubscription.hs
--- a/gen/Network/AWS/WorkDocs/CreateNotificationSubscription.hs
+++ b/gen/Network/AWS/WorkDocs/CreateNotificationSubscription.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.WorkDocs.CreateNotificationSubscription
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -66,7 +66,7 @@
 --
 -- * 'cnsEndpoint' - The endpoint to receive the notifications. If the protocol is HTTPS, the endpoint is a URL that begins with "https://".
 --
--- * 'cnsProtocol' - The protocol to use. The supported value is https, which delivers JSON-encoded messasges using HTTPS POST.
+-- * 'cnsProtocol' - The protocol to use. The supported value is https, which delivers JSON-encoded messages using HTTPS POST.
 --
 -- * 'cnsSubscriptionType' - The notification type.
 createNotificationSubscription
@@ -77,28 +77,28 @@
     -> CreateNotificationSubscription
 createNotificationSubscription pOrganizationId_ pEndpoint_ pProtocol_ pSubscriptionType_ =
   CreateNotificationSubscription'
-  { _cnsOrganizationId = pOrganizationId_
-  , _cnsEndpoint = pEndpoint_
-  , _cnsProtocol = pProtocol_
-  , _cnsSubscriptionType = pSubscriptionType_
-  }
+    { _cnsOrganizationId = pOrganizationId_
+    , _cnsEndpoint = pEndpoint_
+    , _cnsProtocol = pProtocol_
+    , _cnsSubscriptionType = pSubscriptionType_
+    }
 
 
 -- | The ID of the organization.
 cnsOrganizationId :: Lens' CreateNotificationSubscription Text
-cnsOrganizationId = lens _cnsOrganizationId (\ s a -> s{_cnsOrganizationId = a});
+cnsOrganizationId = lens _cnsOrganizationId (\ s a -> s{_cnsOrganizationId = a})
 
 -- | The endpoint to receive the notifications. If the protocol is HTTPS, the endpoint is a URL that begins with "https://".
 cnsEndpoint :: Lens' CreateNotificationSubscription Text
-cnsEndpoint = lens _cnsEndpoint (\ s a -> s{_cnsEndpoint = a});
+cnsEndpoint = lens _cnsEndpoint (\ s a -> s{_cnsEndpoint = a})
 
--- | The protocol to use. The supported value is https, which delivers JSON-encoded messasges using HTTPS POST.
+-- | The protocol to use. The supported value is https, which delivers JSON-encoded messages using HTTPS POST.
 cnsProtocol :: Lens' CreateNotificationSubscription SubscriptionProtocolType
-cnsProtocol = lens _cnsProtocol (\ s a -> s{_cnsProtocol = a});
+cnsProtocol = lens _cnsProtocol (\ s a -> s{_cnsProtocol = a})
 
 -- | The notification type.
 cnsSubscriptionType :: Lens' CreateNotificationSubscription SubscriptionType
-cnsSubscriptionType = lens _cnsSubscriptionType (\ s a -> s{_cnsSubscriptionType = a});
+cnsSubscriptionType = lens _cnsSubscriptionType (\ s a -> s{_cnsSubscriptionType = a})
 
 instance AWSRequest CreateNotificationSubscription
          where
@@ -160,16 +160,16 @@
     -> CreateNotificationSubscriptionResponse
 createNotificationSubscriptionResponse pResponseStatus_ =
   CreateNotificationSubscriptionResponse'
-  {_cnsrsSubscription = Nothing, _cnsrsResponseStatus = pResponseStatus_}
+    {_cnsrsSubscription = Nothing, _cnsrsResponseStatus = pResponseStatus_}
 
 
 -- | The subscription.
 cnsrsSubscription :: Lens' CreateNotificationSubscriptionResponse (Maybe Subscription)
-cnsrsSubscription = lens _cnsrsSubscription (\ s a -> s{_cnsrsSubscription = a});
+cnsrsSubscription = lens _cnsrsSubscription (\ s a -> s{_cnsrsSubscription = a})
 
 -- | -- | The response status code.
 cnsrsResponseStatus :: Lens' CreateNotificationSubscriptionResponse Int
-cnsrsResponseStatus = lens _cnsrsResponseStatus (\ s a -> s{_cnsrsResponseStatus = a});
+cnsrsResponseStatus = lens _cnsrsResponseStatus (\ s a -> s{_cnsrsResponseStatus = a})
 
 instance NFData
            CreateNotificationSubscriptionResponse
diff --git a/gen/Network/AWS/WorkDocs/CreateUser.hs b/gen/Network/AWS/WorkDocs/CreateUser.hs
--- a/gen/Network/AWS/WorkDocs/CreateUser.hs
+++ b/gen/Network/AWS/WorkDocs/CreateUser.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.WorkDocs.CreateUser
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -70,7 +70,7 @@
 --
 -- Use one of the following lenses to modify other fields as desired:
 --
--- * 'cuAuthenticationToken' - Amazon WorkDocs authentication token. This field should not be set when using administrative API actions, as in accessing the API using AWS credentials.
+-- * 'cuAuthenticationToken' - Amazon WorkDocs authentication token. Do not set this field when using administrative API actions, as in accessing the API using AWS credentials.
 --
 -- * 'cuStorageRule' - The amount of storage for the user.
 --
@@ -95,53 +95,53 @@
     -> CreateUser
 createUser pUsername_ pGivenName_ pSurname_ pPassword_ =
   CreateUser'
-  { _cuAuthenticationToken = Nothing
-  , _cuStorageRule = Nothing
-  , _cuEmailAddress = Nothing
-  , _cuTimeZoneId = Nothing
-  , _cuOrganizationId = Nothing
-  , _cuUsername = pUsername_
-  , _cuGivenName = pGivenName_
-  , _cuSurname = pSurname_
-  , _cuPassword = _Sensitive # pPassword_
-  }
+    { _cuAuthenticationToken = Nothing
+    , _cuStorageRule = Nothing
+    , _cuEmailAddress = Nothing
+    , _cuTimeZoneId = Nothing
+    , _cuOrganizationId = Nothing
+    , _cuUsername = pUsername_
+    , _cuGivenName = pGivenName_
+    , _cuSurname = pSurname_
+    , _cuPassword = _Sensitive # pPassword_
+    }
 
 
--- | Amazon WorkDocs authentication token. This field should not be set when using administrative API actions, as in accessing the API using AWS credentials.
+-- | Amazon WorkDocs authentication token. Do not set this field when using administrative API actions, as in accessing the API using AWS credentials.
 cuAuthenticationToken :: Lens' CreateUser (Maybe Text)
-cuAuthenticationToken = lens _cuAuthenticationToken (\ s a -> s{_cuAuthenticationToken = a}) . mapping _Sensitive;
+cuAuthenticationToken = lens _cuAuthenticationToken (\ s a -> s{_cuAuthenticationToken = a}) . mapping _Sensitive
 
 -- | The amount of storage for the user.
 cuStorageRule :: Lens' CreateUser (Maybe StorageRuleType)
-cuStorageRule = lens _cuStorageRule (\ s a -> s{_cuStorageRule = a});
+cuStorageRule = lens _cuStorageRule (\ s a -> s{_cuStorageRule = a})
 
 -- | The email address of the user.
 cuEmailAddress :: Lens' CreateUser (Maybe Text)
-cuEmailAddress = lens _cuEmailAddress (\ s a -> s{_cuEmailAddress = a});
+cuEmailAddress = lens _cuEmailAddress (\ s a -> s{_cuEmailAddress = a})
 
 -- | The time zone ID of the user.
 cuTimeZoneId :: Lens' CreateUser (Maybe Text)
-cuTimeZoneId = lens _cuTimeZoneId (\ s a -> s{_cuTimeZoneId = a});
+cuTimeZoneId = lens _cuTimeZoneId (\ s a -> s{_cuTimeZoneId = a})
 
 -- | The ID of the organization.
 cuOrganizationId :: Lens' CreateUser (Maybe Text)
-cuOrganizationId = lens _cuOrganizationId (\ s a -> s{_cuOrganizationId = a});
+cuOrganizationId = lens _cuOrganizationId (\ s a -> s{_cuOrganizationId = a})
 
 -- | The login name of the user.
 cuUsername :: Lens' CreateUser Text
-cuUsername = lens _cuUsername (\ s a -> s{_cuUsername = a});
+cuUsername = lens _cuUsername (\ s a -> s{_cuUsername = a})
 
 -- | The given name of the user.
 cuGivenName :: Lens' CreateUser Text
-cuGivenName = lens _cuGivenName (\ s a -> s{_cuGivenName = a});
+cuGivenName = lens _cuGivenName (\ s a -> s{_cuGivenName = a})
 
 -- | The surname of the user.
 cuSurname :: Lens' CreateUser Text
-cuSurname = lens _cuSurname (\ s a -> s{_cuSurname = a});
+cuSurname = lens _cuSurname (\ s a -> s{_cuSurname = a})
 
 -- | The password of the user.
 cuPassword :: Lens' CreateUser Text
-cuPassword = lens _cuPassword (\ s a -> s{_cuPassword = a}) . _Sensitive;
+cuPassword = lens _cuPassword (\ s a -> s{_cuPassword = a}) . _Sensitive
 
 instance AWSRequest CreateUser where
         type Rs CreateUser = CreateUserResponse
@@ -201,15 +201,15 @@
     -> CreateUserResponse
 createUserResponse pResponseStatus_ =
   CreateUserResponse'
-  {_cursUser = Nothing, _cursResponseStatus = pResponseStatus_}
+    {_cursUser = Nothing, _cursResponseStatus = pResponseStatus_}
 
 
 -- | The user information.
 cursUser :: Lens' CreateUserResponse (Maybe User)
-cursUser = lens _cursUser (\ s a -> s{_cursUser = a});
+cursUser = lens _cursUser (\ s a -> s{_cursUser = a})
 
 -- | -- | The response status code.
 cursResponseStatus :: Lens' CreateUserResponse Int
-cursResponseStatus = lens _cursResponseStatus (\ s a -> s{_cursResponseStatus = a});
+cursResponseStatus = lens _cursResponseStatus (\ s a -> s{_cursResponseStatus = a})
 
 instance NFData CreateUserResponse where
diff --git a/gen/Network/AWS/WorkDocs/DeactivateUser.hs b/gen/Network/AWS/WorkDocs/DeactivateUser.hs
--- a/gen/Network/AWS/WorkDocs/DeactivateUser.hs
+++ b/gen/Network/AWS/WorkDocs/DeactivateUser.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.WorkDocs.DeactivateUser
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -53,7 +53,7 @@
 --
 -- Use one of the following lenses to modify other fields as desired:
 --
--- * 'dAuthenticationToken' - Amazon WorkDocs authentication token. This field should not be set when using administrative API actions, as in accessing the API using AWS credentials.
+-- * 'dAuthenticationToken' - Amazon WorkDocs authentication token. Do not set this field when using administrative API actions, as in accessing the API using AWS credentials.
 --
 -- * 'dUserId' - The ID of the user.
 deactivateUser
@@ -63,13 +63,13 @@
   DeactivateUser' {_dAuthenticationToken = Nothing, _dUserId = pUserId_}
 
 
--- | Amazon WorkDocs authentication token. This field should not be set when using administrative API actions, as in accessing the API using AWS credentials.
+-- | Amazon WorkDocs authentication token. Do not set this field when using administrative API actions, as in accessing the API using AWS credentials.
 dAuthenticationToken :: Lens' DeactivateUser (Maybe Text)
-dAuthenticationToken = lens _dAuthenticationToken (\ s a -> s{_dAuthenticationToken = a}) . mapping _Sensitive;
+dAuthenticationToken = lens _dAuthenticationToken (\ s a -> s{_dAuthenticationToken = a}) . mapping _Sensitive
 
 -- | The ID of the user.
 dUserId :: Lens' DeactivateUser Text
-dUserId = lens _dUserId (\ s a -> s{_dUserId = a});
+dUserId = lens _dUserId (\ s a -> s{_dUserId = a})
 
 instance AWSRequest DeactivateUser where
         type Rs DeactivateUser = DeactivateUserResponse
diff --git a/gen/Network/AWS/WorkDocs/DeleteComment.hs b/gen/Network/AWS/WorkDocs/DeleteComment.hs
--- a/gen/Network/AWS/WorkDocs/DeleteComment.hs
+++ b/gen/Network/AWS/WorkDocs/DeleteComment.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.WorkDocs.DeleteComment
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -57,7 +57,7 @@
 --
 -- Use one of the following lenses to modify other fields as desired:
 --
--- * 'delAuthenticationToken' - Amazon WorkDocs authentication token. This field should not be set when using administrative API actions, as in accessing the API using AWS credentials.
+-- * 'delAuthenticationToken' - Amazon WorkDocs authentication token. Do not set this field when using administrative API actions, as in accessing the API using AWS credentials.
 --
 -- * 'delDocumentId' - The ID of the document.
 --
@@ -71,28 +71,28 @@
     -> DeleteComment
 deleteComment pDocumentId_ pVersionId_ pCommentId_ =
   DeleteComment'
-  { _delAuthenticationToken = Nothing
-  , _delDocumentId = pDocumentId_
-  , _delVersionId = pVersionId_
-  , _delCommentId = pCommentId_
-  }
+    { _delAuthenticationToken = Nothing
+    , _delDocumentId = pDocumentId_
+    , _delVersionId = pVersionId_
+    , _delCommentId = pCommentId_
+    }
 
 
--- | Amazon WorkDocs authentication token. This field should not be set when using administrative API actions, as in accessing the API using AWS credentials.
+-- | Amazon WorkDocs authentication token. Do not set this field when using administrative API actions, as in accessing the API using AWS credentials.
 delAuthenticationToken :: Lens' DeleteComment (Maybe Text)
-delAuthenticationToken = lens _delAuthenticationToken (\ s a -> s{_delAuthenticationToken = a}) . mapping _Sensitive;
+delAuthenticationToken = lens _delAuthenticationToken (\ s a -> s{_delAuthenticationToken = a}) . mapping _Sensitive
 
 -- | The ID of the document.
 delDocumentId :: Lens' DeleteComment Text
-delDocumentId = lens _delDocumentId (\ s a -> s{_delDocumentId = a});
+delDocumentId = lens _delDocumentId (\ s a -> s{_delDocumentId = a})
 
 -- | The ID of the document version.
 delVersionId :: Lens' DeleteComment Text
-delVersionId = lens _delVersionId (\ s a -> s{_delVersionId = a});
+delVersionId = lens _delVersionId (\ s a -> s{_delVersionId = a})
 
 -- | The ID of the comment.
 delCommentId :: Lens' DeleteComment Text
-delCommentId = lens _delCommentId (\ s a -> s{_delCommentId = a});
+delCommentId = lens _delCommentId (\ s a -> s{_delCommentId = a})
 
 instance AWSRequest DeleteComment where
         type Rs DeleteComment = DeleteCommentResponse
diff --git a/gen/Network/AWS/WorkDocs/DeleteCustomMetadata.hs b/gen/Network/AWS/WorkDocs/DeleteCustomMetadata.hs
--- a/gen/Network/AWS/WorkDocs/DeleteCustomMetadata.hs
+++ b/gen/Network/AWS/WorkDocs/DeleteCustomMetadata.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.WorkDocs.DeleteCustomMetadata
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -65,7 +65,7 @@
 --
 -- * 'dcmDeleteAll' - Flag to indicate removal of all custom metadata properties from the specified resource.
 --
--- * 'dcmAuthenticationToken' - Amazon WorkDocs authentication token. This field should not be set when using administrative API actions, as in accessing the API using AWS credentials.
+-- * 'dcmAuthenticationToken' - Amazon WorkDocs authentication token. Do not set this field when using administrative API actions, as in accessing the API using AWS credentials.
 --
 -- * 'dcmKeys' - List of properties to remove.
 --
@@ -75,33 +75,33 @@
     -> DeleteCustomMetadata
 deleteCustomMetadata pResourceId_ =
   DeleteCustomMetadata'
-  { _dcmVersionId = Nothing
-  , _dcmDeleteAll = Nothing
-  , _dcmAuthenticationToken = Nothing
-  , _dcmKeys = Nothing
-  , _dcmResourceId = pResourceId_
-  }
+    { _dcmVersionId = Nothing
+    , _dcmDeleteAll = Nothing
+    , _dcmAuthenticationToken = Nothing
+    , _dcmKeys = Nothing
+    , _dcmResourceId = pResourceId_
+    }
 
 
 -- | The ID of the version, if the custom metadata is being deleted from a document version.
 dcmVersionId :: Lens' DeleteCustomMetadata (Maybe Text)
-dcmVersionId = lens _dcmVersionId (\ s a -> s{_dcmVersionId = a});
+dcmVersionId = lens _dcmVersionId (\ s a -> s{_dcmVersionId = a})
 
 -- | Flag to indicate removal of all custom metadata properties from the specified resource.
 dcmDeleteAll :: Lens' DeleteCustomMetadata (Maybe Bool)
-dcmDeleteAll = lens _dcmDeleteAll (\ s a -> s{_dcmDeleteAll = a});
+dcmDeleteAll = lens _dcmDeleteAll (\ s a -> s{_dcmDeleteAll = a})
 
--- | Amazon WorkDocs authentication token. This field should not be set when using administrative API actions, as in accessing the API using AWS credentials.
+-- | Amazon WorkDocs authentication token. Do not set this field when using administrative API actions, as in accessing the API using AWS credentials.
 dcmAuthenticationToken :: Lens' DeleteCustomMetadata (Maybe Text)
-dcmAuthenticationToken = lens _dcmAuthenticationToken (\ s a -> s{_dcmAuthenticationToken = a}) . mapping _Sensitive;
+dcmAuthenticationToken = lens _dcmAuthenticationToken (\ s a -> s{_dcmAuthenticationToken = a}) . mapping _Sensitive
 
 -- | List of properties to remove.
 dcmKeys :: Lens' DeleteCustomMetadata [Text]
-dcmKeys = lens _dcmKeys (\ s a -> s{_dcmKeys = a}) . _Default . _Coerce;
+dcmKeys = lens _dcmKeys (\ s a -> s{_dcmKeys = a}) . _Default . _Coerce
 
 -- | The ID of the resource, either a document or folder.
 dcmResourceId :: Lens' DeleteCustomMetadata Text
-dcmResourceId = lens _dcmResourceId (\ s a -> s{_dcmResourceId = a});
+dcmResourceId = lens _dcmResourceId (\ s a -> s{_dcmResourceId = a})
 
 instance AWSRequest DeleteCustomMetadata where
         type Rs DeleteCustomMetadata =
@@ -158,6 +158,6 @@
 
 -- | -- | The response status code.
 dcmrsResponseStatus :: Lens' DeleteCustomMetadataResponse Int
-dcmrsResponseStatus = lens _dcmrsResponseStatus (\ s a -> s{_dcmrsResponseStatus = a});
+dcmrsResponseStatus = lens _dcmrsResponseStatus (\ s a -> s{_dcmrsResponseStatus = a})
 
 instance NFData DeleteCustomMetadataResponse where
diff --git a/gen/Network/AWS/WorkDocs/DeleteDocument.hs b/gen/Network/AWS/WorkDocs/DeleteDocument.hs
--- a/gen/Network/AWS/WorkDocs/DeleteDocument.hs
+++ b/gen/Network/AWS/WorkDocs/DeleteDocument.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.WorkDocs.DeleteDocument
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -53,7 +53,7 @@
 --
 -- Use one of the following lenses to modify other fields as desired:
 --
--- * 'ddAuthenticationToken' - Amazon WorkDocs authentication token. This field should not be set when using administrative API actions, as in accessing the API using AWS credentials.
+-- * 'ddAuthenticationToken' - Amazon WorkDocs authentication token. Do not set this field when using administrative API actions, as in accessing the API using AWS credentials.
 --
 -- * 'ddDocumentId' - The ID of the document.
 deleteDocument
@@ -61,16 +61,16 @@
     -> DeleteDocument
 deleteDocument pDocumentId_ =
   DeleteDocument'
-  {_ddAuthenticationToken = Nothing, _ddDocumentId = pDocumentId_}
+    {_ddAuthenticationToken = Nothing, _ddDocumentId = pDocumentId_}
 
 
--- | Amazon WorkDocs authentication token. This field should not be set when using administrative API actions, as in accessing the API using AWS credentials.
+-- | Amazon WorkDocs authentication token. Do not set this field when using administrative API actions, as in accessing the API using AWS credentials.
 ddAuthenticationToken :: Lens' DeleteDocument (Maybe Text)
-ddAuthenticationToken = lens _ddAuthenticationToken (\ s a -> s{_ddAuthenticationToken = a}) . mapping _Sensitive;
+ddAuthenticationToken = lens _ddAuthenticationToken (\ s a -> s{_ddAuthenticationToken = a}) . mapping _Sensitive
 
 -- | The ID of the document.
 ddDocumentId :: Lens' DeleteDocument Text
-ddDocumentId = lens _ddDocumentId (\ s a -> s{_ddDocumentId = a});
+ddDocumentId = lens _ddDocumentId (\ s a -> s{_ddDocumentId = a})
 
 instance AWSRequest DeleteDocument where
         type Rs DeleteDocument = DeleteDocumentResponse
diff --git a/gen/Network/AWS/WorkDocs/DeleteFolder.hs b/gen/Network/AWS/WorkDocs/DeleteFolder.hs
--- a/gen/Network/AWS/WorkDocs/DeleteFolder.hs
+++ b/gen/Network/AWS/WorkDocs/DeleteFolder.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.WorkDocs.DeleteFolder
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -53,7 +53,7 @@
 --
 -- Use one of the following lenses to modify other fields as desired:
 --
--- * 'dfAuthenticationToken' - Amazon WorkDocs authentication token. This field should not be set when using administrative API actions, as in accessing the API using AWS credentials.
+-- * 'dfAuthenticationToken' - Amazon WorkDocs authentication token. Do not set this field when using administrative API actions, as in accessing the API using AWS credentials.
 --
 -- * 'dfFolderId' - The ID of the folder.
 deleteFolder
@@ -63,13 +63,13 @@
   DeleteFolder' {_dfAuthenticationToken = Nothing, _dfFolderId = pFolderId_}
 
 
--- | Amazon WorkDocs authentication token. This field should not be set when using administrative API actions, as in accessing the API using AWS credentials.
+-- | Amazon WorkDocs authentication token. Do not set this field when using administrative API actions, as in accessing the API using AWS credentials.
 dfAuthenticationToken :: Lens' DeleteFolder (Maybe Text)
-dfAuthenticationToken = lens _dfAuthenticationToken (\ s a -> s{_dfAuthenticationToken = a}) . mapping _Sensitive;
+dfAuthenticationToken = lens _dfAuthenticationToken (\ s a -> s{_dfAuthenticationToken = a}) . mapping _Sensitive
 
 -- | The ID of the folder.
 dfFolderId :: Lens' DeleteFolder Text
-dfFolderId = lens _dfFolderId (\ s a -> s{_dfFolderId = a});
+dfFolderId = lens _dfFolderId (\ s a -> s{_dfFolderId = a})
 
 instance AWSRequest DeleteFolder where
         type Rs DeleteFolder = DeleteFolderResponse
diff --git a/gen/Network/AWS/WorkDocs/DeleteFolderContents.hs b/gen/Network/AWS/WorkDocs/DeleteFolderContents.hs
--- a/gen/Network/AWS/WorkDocs/DeleteFolderContents.hs
+++ b/gen/Network/AWS/WorkDocs/DeleteFolderContents.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.WorkDocs.DeleteFolderContents
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -53,7 +53,7 @@
 --
 -- Use one of the following lenses to modify other fields as desired:
 --
--- * 'dfcAuthenticationToken' - Amazon WorkDocs authentication token. This field should not be set when using administrative API actions, as in accessing the API using AWS credentials.
+-- * 'dfcAuthenticationToken' - Amazon WorkDocs authentication token. Do not set this field when using administrative API actions, as in accessing the API using AWS credentials.
 --
 -- * 'dfcFolderId' - The ID of the folder.
 deleteFolderContents
@@ -61,16 +61,16 @@
     -> DeleteFolderContents
 deleteFolderContents pFolderId_ =
   DeleteFolderContents'
-  {_dfcAuthenticationToken = Nothing, _dfcFolderId = pFolderId_}
+    {_dfcAuthenticationToken = Nothing, _dfcFolderId = pFolderId_}
 
 
--- | Amazon WorkDocs authentication token. This field should not be set when using administrative API actions, as in accessing the API using AWS credentials.
+-- | Amazon WorkDocs authentication token. Do not set this field when using administrative API actions, as in accessing the API using AWS credentials.
 dfcAuthenticationToken :: Lens' DeleteFolderContents (Maybe Text)
-dfcAuthenticationToken = lens _dfcAuthenticationToken (\ s a -> s{_dfcAuthenticationToken = a}) . mapping _Sensitive;
+dfcAuthenticationToken = lens _dfcAuthenticationToken (\ s a -> s{_dfcAuthenticationToken = a}) . mapping _Sensitive
 
 -- | The ID of the folder.
 dfcFolderId :: Lens' DeleteFolderContents Text
-dfcFolderId = lens _dfcFolderId (\ s a -> s{_dfcFolderId = a});
+dfcFolderId = lens _dfcFolderId (\ s a -> s{_dfcFolderId = a})
 
 instance AWSRequest DeleteFolderContents where
         type Rs DeleteFolderContents =
diff --git a/gen/Network/AWS/WorkDocs/DeleteLabels.hs b/gen/Network/AWS/WorkDocs/DeleteLabels.hs
--- a/gen/Network/AWS/WorkDocs/DeleteLabels.hs
+++ b/gen/Network/AWS/WorkDocs/DeleteLabels.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.WorkDocs.DeleteLabels
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -61,7 +61,7 @@
 --
 -- * 'dlDeleteAll' - Flag to request removal of all labels from the specified resource.
 --
--- * 'dlAuthenticationToken' - Amazon WorkDocs authentication token. This field should not be set when using administrative API actions, as in accessing the API using AWS credentials.
+-- * 'dlAuthenticationToken' - Amazon WorkDocs authentication token. Do not set this field when using administrative API actions, as in accessing the API using AWS credentials.
 --
 -- * 'dlLabels' - List of labels to delete from the resource.
 --
@@ -71,28 +71,28 @@
     -> DeleteLabels
 deleteLabels pResourceId_ =
   DeleteLabels'
-  { _dlDeleteAll = Nothing
-  , _dlAuthenticationToken = Nothing
-  , _dlLabels = Nothing
-  , _dlResourceId = pResourceId_
-  }
+    { _dlDeleteAll = Nothing
+    , _dlAuthenticationToken = Nothing
+    , _dlLabels = Nothing
+    , _dlResourceId = pResourceId_
+    }
 
 
 -- | Flag to request removal of all labels from the specified resource.
 dlDeleteAll :: Lens' DeleteLabels (Maybe Bool)
-dlDeleteAll = lens _dlDeleteAll (\ s a -> s{_dlDeleteAll = a});
+dlDeleteAll = lens _dlDeleteAll (\ s a -> s{_dlDeleteAll = a})
 
--- | Amazon WorkDocs authentication token. This field should not be set when using administrative API actions, as in accessing the API using AWS credentials.
+-- | Amazon WorkDocs authentication token. Do not set this field when using administrative API actions, as in accessing the API using AWS credentials.
 dlAuthenticationToken :: Lens' DeleteLabels (Maybe Text)
-dlAuthenticationToken = lens _dlAuthenticationToken (\ s a -> s{_dlAuthenticationToken = a}) . mapping _Sensitive;
+dlAuthenticationToken = lens _dlAuthenticationToken (\ s a -> s{_dlAuthenticationToken = a}) . mapping _Sensitive
 
 -- | List of labels to delete from the resource.
 dlLabels :: Lens' DeleteLabels [Text]
-dlLabels = lens _dlLabels (\ s a -> s{_dlLabels = a}) . _Default . _Coerce;
+dlLabels = lens _dlLabels (\ s a -> s{_dlLabels = a}) . _Default . _Coerce
 
 -- | The ID of the resource.
 dlResourceId :: Lens' DeleteLabels Text
-dlResourceId = lens _dlResourceId (\ s a -> s{_dlResourceId = a});
+dlResourceId = lens _dlResourceId (\ s a -> s{_dlResourceId = a})
 
 instance AWSRequest DeleteLabels where
         type Rs DeleteLabels = DeleteLabelsResponse
@@ -145,6 +145,6 @@
 
 -- | -- | The response status code.
 dlrsResponseStatus :: Lens' DeleteLabelsResponse Int
-dlrsResponseStatus = lens _dlrsResponseStatus (\ s a -> s{_dlrsResponseStatus = a});
+dlrsResponseStatus = lens _dlrsResponseStatus (\ s a -> s{_dlrsResponseStatus = a})
 
 instance NFData DeleteLabelsResponse where
diff --git a/gen/Network/AWS/WorkDocs/DeleteNotificationSubscription.hs b/gen/Network/AWS/WorkDocs/DeleteNotificationSubscription.hs
--- a/gen/Network/AWS/WorkDocs/DeleteNotificationSubscription.hs
+++ b/gen/Network/AWS/WorkDocs/DeleteNotificationSubscription.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.WorkDocs.DeleteNotificationSubscription
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -62,16 +62,18 @@
     -> DeleteNotificationSubscription
 deleteNotificationSubscription pSubscriptionId_ pOrganizationId_ =
   DeleteNotificationSubscription'
-  {_dnsSubscriptionId = pSubscriptionId_, _dnsOrganizationId = pOrganizationId_}
+    { _dnsSubscriptionId = pSubscriptionId_
+    , _dnsOrganizationId = pOrganizationId_
+    }
 
 
 -- | The ID of the subscription.
 dnsSubscriptionId :: Lens' DeleteNotificationSubscription Text
-dnsSubscriptionId = lens _dnsSubscriptionId (\ s a -> s{_dnsSubscriptionId = a});
+dnsSubscriptionId = lens _dnsSubscriptionId (\ s a -> s{_dnsSubscriptionId = a})
 
 -- | The ID of the organization.
 dnsOrganizationId :: Lens' DeleteNotificationSubscription Text
-dnsOrganizationId = lens _dnsOrganizationId (\ s a -> s{_dnsOrganizationId = a});
+dnsOrganizationId = lens _dnsOrganizationId (\ s a -> s{_dnsOrganizationId = a})
 
 instance AWSRequest DeleteNotificationSubscription
          where
diff --git a/gen/Network/AWS/WorkDocs/DeleteUser.hs b/gen/Network/AWS/WorkDocs/DeleteUser.hs
--- a/gen/Network/AWS/WorkDocs/DeleteUser.hs
+++ b/gen/Network/AWS/WorkDocs/DeleteUser.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.WorkDocs.DeleteUser
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -53,7 +53,7 @@
 --
 -- Use one of the following lenses to modify other fields as desired:
 --
--- * 'duuAuthenticationToken' - Amazon WorkDocs authentication token. This field should not be set when using administrative API actions, as in accessing the API using AWS credentials.
+-- * 'duuAuthenticationToken' - Amazon WorkDocs authentication token. Do not set this field when using administrative API actions, as in accessing the API using AWS credentials.
 --
 -- * 'duuUserId' - The ID of the user.
 deleteUser
@@ -63,13 +63,13 @@
   DeleteUser' {_duuAuthenticationToken = Nothing, _duuUserId = pUserId_}
 
 
--- | Amazon WorkDocs authentication token. This field should not be set when using administrative API actions, as in accessing the API using AWS credentials.
+-- | Amazon WorkDocs authentication token. Do not set this field when using administrative API actions, as in accessing the API using AWS credentials.
 duuAuthenticationToken :: Lens' DeleteUser (Maybe Text)
-duuAuthenticationToken = lens _duuAuthenticationToken (\ s a -> s{_duuAuthenticationToken = a}) . mapping _Sensitive;
+duuAuthenticationToken = lens _duuAuthenticationToken (\ s a -> s{_duuAuthenticationToken = a}) . mapping _Sensitive
 
 -- | The ID of the user.
 duuUserId :: Lens' DeleteUser Text
-duuUserId = lens _duuUserId (\ s a -> s{_duuUserId = a});
+duuUserId = lens _duuUserId (\ s a -> s{_duuUserId = a})
 
 instance AWSRequest DeleteUser where
         type Rs DeleteUser = DeleteUserResponse
diff --git a/gen/Network/AWS/WorkDocs/DescribeActivities.hs b/gen/Network/AWS/WorkDocs/DescribeActivities.hs
--- a/gen/Network/AWS/WorkDocs/DescribeActivities.hs
+++ b/gen/Network/AWS/WorkDocs/DescribeActivities.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.WorkDocs.DescribeActivities
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -67,15 +67,15 @@
 --
 -- Use one of the following lenses to modify other fields as desired:
 --
--- * 'daStartTime' - The timestamp that determines the starting time of the activities; the response includes the activities performed after the specified timestamp.
+-- * 'daStartTime' - The timestamp that determines the starting time of the activities. The response includes the activities performed after the specified timestamp.
 --
--- * 'daAuthenticationToken' - Amazon WorkDocs authentication token. This field should not be set when using administrative API actions, as in accessing the API using AWS credentials.
+-- * 'daAuthenticationToken' - Amazon WorkDocs authentication token. Do not set this field when using administrative API actions, as in accessing the API using AWS credentials.
 --
 -- * 'daUserId' - The ID of the user who performed the action. The response includes activities pertaining to this user. This is an optional parameter and is only applicable for administrative API (SigV4) requests.
 --
--- * 'daMarker' - The marker for the next set of results. (You received this marker from a previous call.)
+-- * 'daMarker' - The marker for the next set of results.
 --
--- * 'daEndTime' - The timestamp that determines the end time of the activities; the response includes the activities performed before the specified timestamp.
+-- * 'daEndTime' - The timestamp that determines the end time of the activities. The response includes the activities performed before the specified timestamp.
 --
 -- * 'daLimit' - The maximum number of items to return.
 --
@@ -84,43 +84,43 @@
     :: DescribeActivities
 describeActivities =
   DescribeActivities'
-  { _daStartTime = Nothing
-  , _daAuthenticationToken = Nothing
-  , _daUserId = Nothing
-  , _daMarker = Nothing
-  , _daEndTime = Nothing
-  , _daLimit = Nothing
-  , _daOrganizationId = Nothing
-  }
+    { _daStartTime = Nothing
+    , _daAuthenticationToken = Nothing
+    , _daUserId = Nothing
+    , _daMarker = Nothing
+    , _daEndTime = Nothing
+    , _daLimit = Nothing
+    , _daOrganizationId = Nothing
+    }
 
 
--- | The timestamp that determines the starting time of the activities; the response includes the activities performed after the specified timestamp.
+-- | The timestamp that determines the starting time of the activities. The response includes the activities performed after the specified timestamp.
 daStartTime :: Lens' DescribeActivities (Maybe UTCTime)
-daStartTime = lens _daStartTime (\ s a -> s{_daStartTime = a}) . mapping _Time;
+daStartTime = lens _daStartTime (\ s a -> s{_daStartTime = a}) . mapping _Time
 
--- | Amazon WorkDocs authentication token. This field should not be set when using administrative API actions, as in accessing the API using AWS credentials.
+-- | Amazon WorkDocs authentication token. Do not set this field when using administrative API actions, as in accessing the API using AWS credentials.
 daAuthenticationToken :: Lens' DescribeActivities (Maybe Text)
-daAuthenticationToken = lens _daAuthenticationToken (\ s a -> s{_daAuthenticationToken = a}) . mapping _Sensitive;
+daAuthenticationToken = lens _daAuthenticationToken (\ s a -> s{_daAuthenticationToken = a}) . mapping _Sensitive
 
 -- | The ID of the user who performed the action. The response includes activities pertaining to this user. This is an optional parameter and is only applicable for administrative API (SigV4) requests.
 daUserId :: Lens' DescribeActivities (Maybe Text)
-daUserId = lens _daUserId (\ s a -> s{_daUserId = a});
+daUserId = lens _daUserId (\ s a -> s{_daUserId = a})
 
--- | The marker for the next set of results. (You received this marker from a previous call.)
+-- | The marker for the next set of results.
 daMarker :: Lens' DescribeActivities (Maybe Text)
-daMarker = lens _daMarker (\ s a -> s{_daMarker = a});
+daMarker = lens _daMarker (\ s a -> s{_daMarker = a})
 
--- | The timestamp that determines the end time of the activities; the response includes the activities performed before the specified timestamp.
+-- | The timestamp that determines the end time of the activities. The response includes the activities performed before the specified timestamp.
 daEndTime :: Lens' DescribeActivities (Maybe UTCTime)
-daEndTime = lens _daEndTime (\ s a -> s{_daEndTime = a}) . mapping _Time;
+daEndTime = lens _daEndTime (\ s a -> s{_daEndTime = a}) . mapping _Time
 
 -- | The maximum number of items to return.
 daLimit :: Lens' DescribeActivities (Maybe Natural)
-daLimit = lens _daLimit (\ s a -> s{_daLimit = a}) . mapping _Nat;
+daLimit = lens _daLimit (\ s a -> s{_daLimit = a}) . mapping _Nat
 
 -- | The ID of the organization. This is a mandatory parameter when using administrative API (SigV4) requests.
 daOrganizationId :: Lens' DescribeActivities (Maybe Text)
-daOrganizationId = lens _daOrganizationId (\ s a -> s{_daOrganizationId = a});
+daOrganizationId = lens _daOrganizationId (\ s a -> s{_daOrganizationId = a})
 
 instance AWSRequest DescribeActivities where
         type Rs DescribeActivities =
@@ -178,22 +178,22 @@
     -> DescribeActivitiesResponse
 describeActivitiesResponse pResponseStatus_ =
   DescribeActivitiesResponse'
-  { _darsUserActivities = Nothing
-  , _darsMarker = Nothing
-  , _darsResponseStatus = pResponseStatus_
-  }
+    { _darsUserActivities = Nothing
+    , _darsMarker = Nothing
+    , _darsResponseStatus = pResponseStatus_
+    }
 
 
 -- | The list of activities for the specified user and time period.
 darsUserActivities :: Lens' DescribeActivitiesResponse [Activity]
-darsUserActivities = lens _darsUserActivities (\ s a -> s{_darsUserActivities = a}) . _Default . _Coerce;
+darsUserActivities = lens _darsUserActivities (\ s a -> s{_darsUserActivities = a}) . _Default . _Coerce
 
 -- | The marker for the next set of results.
 darsMarker :: Lens' DescribeActivitiesResponse (Maybe Text)
-darsMarker = lens _darsMarker (\ s a -> s{_darsMarker = a});
+darsMarker = lens _darsMarker (\ s a -> s{_darsMarker = a})
 
 -- | -- | The response status code.
 darsResponseStatus :: Lens' DescribeActivitiesResponse Int
-darsResponseStatus = lens _darsResponseStatus (\ s a -> s{_darsResponseStatus = a});
+darsResponseStatus = lens _darsResponseStatus (\ s a -> s{_darsResponseStatus = a})
 
 instance NFData DescribeActivitiesResponse where
diff --git a/gen/Network/AWS/WorkDocs/DescribeComments.hs b/gen/Network/AWS/WorkDocs/DescribeComments.hs
--- a/gen/Network/AWS/WorkDocs/DescribeComments.hs
+++ b/gen/Network/AWS/WorkDocs/DescribeComments.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.WorkDocs.DescribeComments
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -63,7 +63,7 @@
 --
 -- Use one of the following lenses to modify other fields as desired:
 --
--- * 'dcAuthenticationToken' - Amazon WorkDocs authentication token. This field should not be set when using administrative API actions, as in accessing the API using AWS credentials.
+-- * 'dcAuthenticationToken' - Amazon WorkDocs authentication token. Do not set this field when using administrative API actions, as in accessing the API using AWS credentials.
 --
 -- * 'dcMarker' - The marker for the next set of results. This marker was received from a previous call.
 --
@@ -78,33 +78,33 @@
     -> DescribeComments
 describeComments pDocumentId_ pVersionId_ =
   DescribeComments'
-  { _dcAuthenticationToken = Nothing
-  , _dcMarker = Nothing
-  , _dcLimit = Nothing
-  , _dcDocumentId = pDocumentId_
-  , _dcVersionId = pVersionId_
-  }
+    { _dcAuthenticationToken = Nothing
+    , _dcMarker = Nothing
+    , _dcLimit = Nothing
+    , _dcDocumentId = pDocumentId_
+    , _dcVersionId = pVersionId_
+    }
 
 
--- | Amazon WorkDocs authentication token. This field should not be set when using administrative API actions, as in accessing the API using AWS credentials.
+-- | Amazon WorkDocs authentication token. Do not set this field when using administrative API actions, as in accessing the API using AWS credentials.
 dcAuthenticationToken :: Lens' DescribeComments (Maybe Text)
-dcAuthenticationToken = lens _dcAuthenticationToken (\ s a -> s{_dcAuthenticationToken = a}) . mapping _Sensitive;
+dcAuthenticationToken = lens _dcAuthenticationToken (\ s a -> s{_dcAuthenticationToken = a}) . mapping _Sensitive
 
 -- | The marker for the next set of results. This marker was received from a previous call.
 dcMarker :: Lens' DescribeComments (Maybe Text)
-dcMarker = lens _dcMarker (\ s a -> s{_dcMarker = a});
+dcMarker = lens _dcMarker (\ s a -> s{_dcMarker = a})
 
 -- | The maximum number of items to return.
 dcLimit :: Lens' DescribeComments (Maybe Natural)
-dcLimit = lens _dcLimit (\ s a -> s{_dcLimit = a}) . mapping _Nat;
+dcLimit = lens _dcLimit (\ s a -> s{_dcLimit = a}) . mapping _Nat
 
 -- | The ID of the document.
 dcDocumentId :: Lens' DescribeComments Text
-dcDocumentId = lens _dcDocumentId (\ s a -> s{_dcDocumentId = a});
+dcDocumentId = lens _dcDocumentId (\ s a -> s{_dcDocumentId = a})
 
 -- | The ID of the document version.
 dcVersionId :: Lens' DescribeComments Text
-dcVersionId = lens _dcVersionId (\ s a -> s{_dcVersionId = a});
+dcVersionId = lens _dcVersionId (\ s a -> s{_dcVersionId = a})
 
 instance AWSRequest DescribeComments where
         type Rs DescribeComments = DescribeCommentsResponse
@@ -160,22 +160,22 @@
     -> DescribeCommentsResponse
 describeCommentsResponse pResponseStatus_ =
   DescribeCommentsResponse'
-  { _dcrsMarker = Nothing
-  , _dcrsComments = Nothing
-  , _dcrsResponseStatus = pResponseStatus_
-  }
+    { _dcrsMarker = Nothing
+    , _dcrsComments = Nothing
+    , _dcrsResponseStatus = pResponseStatus_
+    }
 
 
 -- | The marker for the next set of results. This marker was received from a previous call.
 dcrsMarker :: Lens' DescribeCommentsResponse (Maybe Text)
-dcrsMarker = lens _dcrsMarker (\ s a -> s{_dcrsMarker = a});
+dcrsMarker = lens _dcrsMarker (\ s a -> s{_dcrsMarker = a})
 
 -- | The list of comments for the specified document version.
 dcrsComments :: Lens' DescribeCommentsResponse [Comment]
-dcrsComments = lens _dcrsComments (\ s a -> s{_dcrsComments = a}) . _Default . _Coerce;
+dcrsComments = lens _dcrsComments (\ s a -> s{_dcrsComments = a}) . _Default . _Coerce
 
 -- | -- | The response status code.
 dcrsResponseStatus :: Lens' DescribeCommentsResponse Int
-dcrsResponseStatus = lens _dcrsResponseStatus (\ s a -> s{_dcrsResponseStatus = a});
+dcrsResponseStatus = lens _dcrsResponseStatus (\ s a -> s{_dcrsResponseStatus = a})
 
 instance NFData DescribeCommentsResponse where
diff --git a/gen/Network/AWS/WorkDocs/DescribeDocumentVersions.hs b/gen/Network/AWS/WorkDocs/DescribeDocumentVersions.hs
--- a/gen/Network/AWS/WorkDocs/DescribeDocumentVersions.hs
+++ b/gen/Network/AWS/WorkDocs/DescribeDocumentVersions.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.WorkDocs.DescribeDocumentVersions
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -72,7 +72,7 @@
 --
 -- * 'ddvInclude' - A comma-separated list of values. Specify "INITIALIZED" to include incomplete versions.
 --
--- * 'ddvAuthenticationToken' - Amazon WorkDocs authentication token. This field should not be set when using administrative API actions, as in accessing the API using AWS credentials.
+-- * 'ddvAuthenticationToken' - Amazon WorkDocs authentication token. Do not set this field when using administrative API actions, as in accessing the API using AWS credentials.
 --
 -- * 'ddvMarker' - The marker for the next set of results. (You received this marker from a previous call.)
 --
@@ -86,38 +86,38 @@
     -> DescribeDocumentVersions
 describeDocumentVersions pDocumentId_ =
   DescribeDocumentVersions'
-  { _ddvInclude = Nothing
-  , _ddvAuthenticationToken = Nothing
-  , _ddvMarker = Nothing
-  , _ddvLimit = Nothing
-  , _ddvFields = Nothing
-  , _ddvDocumentId = pDocumentId_
-  }
+    { _ddvInclude = Nothing
+    , _ddvAuthenticationToken = Nothing
+    , _ddvMarker = Nothing
+    , _ddvLimit = Nothing
+    , _ddvFields = Nothing
+    , _ddvDocumentId = pDocumentId_
+    }
 
 
 -- | A comma-separated list of values. Specify "INITIALIZED" to include incomplete versions.
 ddvInclude :: Lens' DescribeDocumentVersions (Maybe Text)
-ddvInclude = lens _ddvInclude (\ s a -> s{_ddvInclude = a});
+ddvInclude = lens _ddvInclude (\ s a -> s{_ddvInclude = a})
 
--- | Amazon WorkDocs authentication token. This field should not be set when using administrative API actions, as in accessing the API using AWS credentials.
+-- | Amazon WorkDocs authentication token. Do not set this field when using administrative API actions, as in accessing the API using AWS credentials.
 ddvAuthenticationToken :: Lens' DescribeDocumentVersions (Maybe Text)
-ddvAuthenticationToken = lens _ddvAuthenticationToken (\ s a -> s{_ddvAuthenticationToken = a}) . mapping _Sensitive;
+ddvAuthenticationToken = lens _ddvAuthenticationToken (\ s a -> s{_ddvAuthenticationToken = a}) . mapping _Sensitive
 
 -- | The marker for the next set of results. (You received this marker from a previous call.)
 ddvMarker :: Lens' DescribeDocumentVersions (Maybe Text)
-ddvMarker = lens _ddvMarker (\ s a -> s{_ddvMarker = a});
+ddvMarker = lens _ddvMarker (\ s a -> s{_ddvMarker = a})
 
 -- | The maximum number of versions to return with this call.
 ddvLimit :: Lens' DescribeDocumentVersions (Maybe Natural)
-ddvLimit = lens _ddvLimit (\ s a -> s{_ddvLimit = a}) . mapping _Nat;
+ddvLimit = lens _ddvLimit (\ s a -> s{_ddvLimit = a}) . mapping _Nat
 
 -- | Specify "SOURCE" to include initialized versions and a URL for the source document.
 ddvFields :: Lens' DescribeDocumentVersions (Maybe Text)
-ddvFields = lens _ddvFields (\ s a -> s{_ddvFields = a});
+ddvFields = lens _ddvFields (\ s a -> s{_ddvFields = a})
 
 -- | The ID of the document.
 ddvDocumentId :: Lens' DescribeDocumentVersions Text
-ddvDocumentId = lens _ddvDocumentId (\ s a -> s{_ddvDocumentId = a});
+ddvDocumentId = lens _ddvDocumentId (\ s a -> s{_ddvDocumentId = a})
 
 instance AWSPager DescribeDocumentVersions where
         page rq rs
@@ -183,23 +183,23 @@
     -> DescribeDocumentVersionsResponse
 describeDocumentVersionsResponse pResponseStatus_ =
   DescribeDocumentVersionsResponse'
-  { _ddvrsDocumentVersions = Nothing
-  , _ddvrsMarker = Nothing
-  , _ddvrsResponseStatus = pResponseStatus_
-  }
+    { _ddvrsDocumentVersions = Nothing
+    , _ddvrsMarker = Nothing
+    , _ddvrsResponseStatus = pResponseStatus_
+    }
 
 
 -- | The document versions.
 ddvrsDocumentVersions :: Lens' DescribeDocumentVersionsResponse [DocumentVersionMetadata]
-ddvrsDocumentVersions = lens _ddvrsDocumentVersions (\ s a -> s{_ddvrsDocumentVersions = a}) . _Default . _Coerce;
+ddvrsDocumentVersions = lens _ddvrsDocumentVersions (\ s a -> s{_ddvrsDocumentVersions = a}) . _Default . _Coerce
 
 -- | The marker to use when requesting the next set of results. If there are no additional results, the string is empty.
 ddvrsMarker :: Lens' DescribeDocumentVersionsResponse (Maybe Text)
-ddvrsMarker = lens _ddvrsMarker (\ s a -> s{_ddvrsMarker = a});
+ddvrsMarker = lens _ddvrsMarker (\ s a -> s{_ddvrsMarker = a})
 
 -- | -- | The response status code.
 ddvrsResponseStatus :: Lens' DescribeDocumentVersionsResponse Int
-ddvrsResponseStatus = lens _ddvrsResponseStatus (\ s a -> s{_ddvrsResponseStatus = a});
+ddvrsResponseStatus = lens _ddvrsResponseStatus (\ s a -> s{_ddvrsResponseStatus = a})
 
 instance NFData DescribeDocumentVersionsResponse
          where
diff --git a/gen/Network/AWS/WorkDocs/DescribeFolderContents.hs b/gen/Network/AWS/WorkDocs/DescribeFolderContents.hs
--- a/gen/Network/AWS/WorkDocs/DescribeFolderContents.hs
+++ b/gen/Network/AWS/WorkDocs/DescribeFolderContents.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.WorkDocs.DescribeFolderContents
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -77,7 +77,7 @@
 --
 -- * 'dfcsInclude' - The contents to include. Specify "INITIALIZED" to include initialized documents.
 --
--- * 'dfcsAuthenticationToken' - Amazon WorkDocs authentication token. This field should not be set when using administrative API actions, as in accessing the API using AWS credentials.
+-- * 'dfcsAuthenticationToken' - Amazon WorkDocs authentication token. Do not set this field when using administrative API actions, as in accessing the API using AWS credentials.
 --
 -- * 'dfcsSort' - The sorting criteria.
 --
@@ -95,48 +95,48 @@
     -> DescribeFolderContents
 describeFolderContents pFolderId_ =
   DescribeFolderContents'
-  { _dfcsInclude = Nothing
-  , _dfcsAuthenticationToken = Nothing
-  , _dfcsSort = Nothing
-  , _dfcsMarker = Nothing
-  , _dfcsLimit = Nothing
-  , _dfcsType = Nothing
-  , _dfcsOrder = Nothing
-  , _dfcsFolderId = pFolderId_
-  }
+    { _dfcsInclude = Nothing
+    , _dfcsAuthenticationToken = Nothing
+    , _dfcsSort = Nothing
+    , _dfcsMarker = Nothing
+    , _dfcsLimit = Nothing
+    , _dfcsType = Nothing
+    , _dfcsOrder = Nothing
+    , _dfcsFolderId = pFolderId_
+    }
 
 
 -- | The contents to include. Specify "INITIALIZED" to include initialized documents.
 dfcsInclude :: Lens' DescribeFolderContents (Maybe Text)
-dfcsInclude = lens _dfcsInclude (\ s a -> s{_dfcsInclude = a});
+dfcsInclude = lens _dfcsInclude (\ s a -> s{_dfcsInclude = a})
 
--- | Amazon WorkDocs authentication token. This field should not be set when using administrative API actions, as in accessing the API using AWS credentials.
+-- | Amazon WorkDocs authentication token. Do not set this field when using administrative API actions, as in accessing the API using AWS credentials.
 dfcsAuthenticationToken :: Lens' DescribeFolderContents (Maybe Text)
-dfcsAuthenticationToken = lens _dfcsAuthenticationToken (\ s a -> s{_dfcsAuthenticationToken = a}) . mapping _Sensitive;
+dfcsAuthenticationToken = lens _dfcsAuthenticationToken (\ s a -> s{_dfcsAuthenticationToken = a}) . mapping _Sensitive
 
 -- | The sorting criteria.
 dfcsSort :: Lens' DescribeFolderContents (Maybe ResourceSortType)
-dfcsSort = lens _dfcsSort (\ s a -> s{_dfcsSort = a});
+dfcsSort = lens _dfcsSort (\ s a -> s{_dfcsSort = a})
 
 -- | The marker for the next set of results. This marker was received from a previous call.
 dfcsMarker :: Lens' DescribeFolderContents (Maybe Text)
-dfcsMarker = lens _dfcsMarker (\ s a -> s{_dfcsMarker = a});
+dfcsMarker = lens _dfcsMarker (\ s a -> s{_dfcsMarker = a})
 
 -- | The maximum number of items to return with this call.
 dfcsLimit :: Lens' DescribeFolderContents (Maybe Natural)
-dfcsLimit = lens _dfcsLimit (\ s a -> s{_dfcsLimit = a}) . mapping _Nat;
+dfcsLimit = lens _dfcsLimit (\ s a -> s{_dfcsLimit = a}) . mapping _Nat
 
 -- | The type of items.
 dfcsType :: Lens' DescribeFolderContents (Maybe FolderContentType)
-dfcsType = lens _dfcsType (\ s a -> s{_dfcsType = a});
+dfcsType = lens _dfcsType (\ s a -> s{_dfcsType = a})
 
 -- | The order for the contents of the folder.
 dfcsOrder :: Lens' DescribeFolderContents (Maybe OrderType)
-dfcsOrder = lens _dfcsOrder (\ s a -> s{_dfcsOrder = a});
+dfcsOrder = lens _dfcsOrder (\ s a -> s{_dfcsOrder = a})
 
 -- | The ID of the folder.
 dfcsFolderId :: Lens' DescribeFolderContents Text
-dfcsFolderId = lens _dfcsFolderId (\ s a -> s{_dfcsFolderId = a});
+dfcsFolderId = lens _dfcsFolderId (\ s a -> s{_dfcsFolderId = a})
 
 instance AWSPager DescribeFolderContents where
         page rq rs
@@ -207,27 +207,27 @@
     -> DescribeFolderContentsResponse
 describeFolderContentsResponse pResponseStatus_ =
   DescribeFolderContentsResponse'
-  { _dfcrsFolders = Nothing
-  , _dfcrsDocuments = Nothing
-  , _dfcrsMarker = Nothing
-  , _dfcrsResponseStatus = pResponseStatus_
-  }
+    { _dfcrsFolders = Nothing
+    , _dfcrsDocuments = Nothing
+    , _dfcrsMarker = Nothing
+    , _dfcrsResponseStatus = pResponseStatus_
+    }
 
 
 -- | The subfolders in the specified folder.
 dfcrsFolders :: Lens' DescribeFolderContentsResponse [FolderMetadata]
-dfcrsFolders = lens _dfcrsFolders (\ s a -> s{_dfcrsFolders = a}) . _Default . _Coerce;
+dfcrsFolders = lens _dfcrsFolders (\ s a -> s{_dfcrsFolders = a}) . _Default . _Coerce
 
 -- | The documents in the specified folder.
 dfcrsDocuments :: Lens' DescribeFolderContentsResponse [DocumentMetadata]
-dfcrsDocuments = lens _dfcrsDocuments (\ s a -> s{_dfcrsDocuments = a}) . _Default . _Coerce;
+dfcrsDocuments = lens _dfcrsDocuments (\ s a -> s{_dfcrsDocuments = a}) . _Default . _Coerce
 
 -- | The marker to use when requesting the next set of results. If there are no additional results, the string is empty.
 dfcrsMarker :: Lens' DescribeFolderContentsResponse (Maybe Text)
-dfcrsMarker = lens _dfcrsMarker (\ s a -> s{_dfcrsMarker = a});
+dfcrsMarker = lens _dfcrsMarker (\ s a -> s{_dfcrsMarker = a})
 
 -- | -- | The response status code.
 dfcrsResponseStatus :: Lens' DescribeFolderContentsResponse Int
-dfcrsResponseStatus = lens _dfcrsResponseStatus (\ s a -> s{_dfcrsResponseStatus = a});
+dfcrsResponseStatus = lens _dfcrsResponseStatus (\ s a -> s{_dfcrsResponseStatus = a})
 
 instance NFData DescribeFolderContentsResponse where
diff --git a/gen/Network/AWS/WorkDocs/DescribeGroups.hs b/gen/Network/AWS/WorkDocs/DescribeGroups.hs
new file mode 100644
--- /dev/null
+++ b/gen/Network/AWS/WorkDocs/DescribeGroups.hs
@@ -0,0 +1,179 @@
+{-# LANGUAGE DeriveDataTypeable #-}
+{-# LANGUAGE DeriveGeneric      #-}
+{-# LANGUAGE OverloadedStrings  #-}
+{-# LANGUAGE RecordWildCards    #-}
+{-# LANGUAGE TypeFamilies       #-}
+
+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}
+{-# OPTIONS_GHC -fno-warn-unused-matches #-}
+
+-- Derived from AWS service descriptions, licensed under Apache 2.0.
+
+-- |
+-- Module      : Network.AWS.WorkDocs.DescribeGroups
+-- Copyright   : (c) 2013-2018 Brendan Hay
+-- License     : Mozilla Public License, v. 2.0.
+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
+-- Stability   : auto-generated
+-- Portability : non-portable (GHC extensions)
+--
+-- Describes the groups specified by query.
+--
+--
+module Network.AWS.WorkDocs.DescribeGroups
+    (
+    -- * Creating a Request
+      describeGroups
+    , DescribeGroups
+    -- * Request Lenses
+    , dgAuthenticationToken
+    , dgMarker
+    , dgLimit
+    , dgOrganizationId
+    , dgSearchQuery
+
+    -- * Destructuring the Response
+    , describeGroupsResponse
+    , DescribeGroupsResponse
+    -- * Response Lenses
+    , dgrsGroups
+    , dgrsMarker
+    , dgrsResponseStatus
+    ) where
+
+import Network.AWS.Lens
+import Network.AWS.Prelude
+import Network.AWS.Request
+import Network.AWS.Response
+import Network.AWS.WorkDocs.Types
+import Network.AWS.WorkDocs.Types.Product
+
+-- | /See:/ 'describeGroups' smart constructor.
+data DescribeGroups = DescribeGroups'
+  { _dgAuthenticationToken :: !(Maybe (Sensitive Text))
+  , _dgMarker              :: !(Maybe Text)
+  , _dgLimit               :: !(Maybe Nat)
+  , _dgOrganizationId      :: !(Maybe Text)
+  , _dgSearchQuery         :: !(Sensitive Text)
+  } deriving (Eq, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'DescribeGroups' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'dgAuthenticationToken' - Amazon WorkDocs authentication token. Do not set this field when using administrative API actions, as in accessing the API using AWS credentials.
+--
+-- * 'dgMarker' - The marker for the next set of results. (You received this marker from a previous call.)
+--
+-- * 'dgLimit' - The maximum number of items to return with this call.
+--
+-- * 'dgOrganizationId' - The ID of the organization.
+--
+-- * 'dgSearchQuery' - A query to describe groups by group name.
+describeGroups
+    :: Text -- ^ 'dgSearchQuery'
+    -> DescribeGroups
+describeGroups pSearchQuery_ =
+  DescribeGroups'
+    { _dgAuthenticationToken = Nothing
+    , _dgMarker = Nothing
+    , _dgLimit = Nothing
+    , _dgOrganizationId = Nothing
+    , _dgSearchQuery = _Sensitive # pSearchQuery_
+    }
+
+
+-- | Amazon WorkDocs authentication token. Do not set this field when using administrative API actions, as in accessing the API using AWS credentials.
+dgAuthenticationToken :: Lens' DescribeGroups (Maybe Text)
+dgAuthenticationToken = lens _dgAuthenticationToken (\ s a -> s{_dgAuthenticationToken = a}) . mapping _Sensitive
+
+-- | The marker for the next set of results. (You received this marker from a previous call.)
+dgMarker :: Lens' DescribeGroups (Maybe Text)
+dgMarker = lens _dgMarker (\ s a -> s{_dgMarker = a})
+
+-- | The maximum number of items to return with this call.
+dgLimit :: Lens' DescribeGroups (Maybe Natural)
+dgLimit = lens _dgLimit (\ s a -> s{_dgLimit = a}) . mapping _Nat
+
+-- | The ID of the organization.
+dgOrganizationId :: Lens' DescribeGroups (Maybe Text)
+dgOrganizationId = lens _dgOrganizationId (\ s a -> s{_dgOrganizationId = a})
+
+-- | A query to describe groups by group name.
+dgSearchQuery :: Lens' DescribeGroups Text
+dgSearchQuery = lens _dgSearchQuery (\ s a -> s{_dgSearchQuery = a}) . _Sensitive
+
+instance AWSRequest DescribeGroups where
+        type Rs DescribeGroups = DescribeGroupsResponse
+        request = get workDocs
+        response
+          = receiveJSON
+              (\ s h x ->
+                 DescribeGroupsResponse' <$>
+                   (x .?> "Groups" .!@ mempty) <*> (x .?> "Marker") <*>
+                     (pure (fromEnum s)))
+
+instance Hashable DescribeGroups where
+
+instance NFData DescribeGroups where
+
+instance ToHeaders DescribeGroups where
+        toHeaders DescribeGroups'{..}
+          = mconcat
+              ["Authentication" =# _dgAuthenticationToken,
+               "Content-Type" =#
+                 ("application/x-amz-json-1.1" :: ByteString)]
+
+instance ToPath DescribeGroups where
+        toPath = const "/api/v1/groups"
+
+instance ToQuery DescribeGroups where
+        toQuery DescribeGroups'{..}
+          = mconcat
+              ["marker" =: _dgMarker, "limit" =: _dgLimit,
+               "organizationId" =: _dgOrganizationId,
+               "searchQuery" =: _dgSearchQuery]
+
+-- | /See:/ 'describeGroupsResponse' smart constructor.
+data DescribeGroupsResponse = DescribeGroupsResponse'
+  { _dgrsGroups         :: !(Maybe [GroupMetadata])
+  , _dgrsMarker         :: !(Maybe Text)
+  , _dgrsResponseStatus :: !Int
+  } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'DescribeGroupsResponse' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'dgrsGroups' - The list of groups.
+--
+-- * 'dgrsMarker' - The marker to use when requesting the next set of results. If there are no additional results, the string is empty.
+--
+-- * 'dgrsResponseStatus' - -- | The response status code.
+describeGroupsResponse
+    :: Int -- ^ 'dgrsResponseStatus'
+    -> DescribeGroupsResponse
+describeGroupsResponse pResponseStatus_ =
+  DescribeGroupsResponse'
+    { _dgrsGroups = Nothing
+    , _dgrsMarker = Nothing
+    , _dgrsResponseStatus = pResponseStatus_
+    }
+
+
+-- | The list of groups.
+dgrsGroups :: Lens' DescribeGroupsResponse [GroupMetadata]
+dgrsGroups = lens _dgrsGroups (\ s a -> s{_dgrsGroups = a}) . _Default . _Coerce
+
+-- | The marker to use when requesting the next set of results. If there are no additional results, the string is empty.
+dgrsMarker :: Lens' DescribeGroupsResponse (Maybe Text)
+dgrsMarker = lens _dgrsMarker (\ s a -> s{_dgrsMarker = a})
+
+-- | -- | The response status code.
+dgrsResponseStatus :: Lens' DescribeGroupsResponse Int
+dgrsResponseStatus = lens _dgrsResponseStatus (\ s a -> s{_dgrsResponseStatus = a})
+
+instance NFData DescribeGroupsResponse where
diff --git a/gen/Network/AWS/WorkDocs/DescribeNotificationSubscriptions.hs b/gen/Network/AWS/WorkDocs/DescribeNotificationSubscriptions.hs
--- a/gen/Network/AWS/WorkDocs/DescribeNotificationSubscriptions.hs
+++ b/gen/Network/AWS/WorkDocs/DescribeNotificationSubscriptions.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.WorkDocs.DescribeNotificationSubscriptions
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -69,20 +69,20 @@
     -> DescribeNotificationSubscriptions
 describeNotificationSubscriptions pOrganizationId_ =
   DescribeNotificationSubscriptions'
-  {_dMarker = Nothing, _dLimit = Nothing, _dOrganizationId = pOrganizationId_}
+    {_dMarker = Nothing, _dLimit = Nothing, _dOrganizationId = pOrganizationId_}
 
 
 -- | The marker for the next set of results. (You received this marker from a previous call.)
 dMarker :: Lens' DescribeNotificationSubscriptions (Maybe Text)
-dMarker = lens _dMarker (\ s a -> s{_dMarker = a});
+dMarker = lens _dMarker (\ s a -> s{_dMarker = a})
 
 -- | The maximum number of items to return with this call.
 dLimit :: Lens' DescribeNotificationSubscriptions (Maybe Natural)
-dLimit = lens _dLimit (\ s a -> s{_dLimit = a}) . mapping _Nat;
+dLimit = lens _dLimit (\ s a -> s{_dLimit = a}) . mapping _Nat
 
 -- | The ID of the organization.
 dOrganizationId :: Lens' DescribeNotificationSubscriptions Text
-dOrganizationId = lens _dOrganizationId (\ s a -> s{_dOrganizationId = a});
+dOrganizationId = lens _dOrganizationId (\ s a -> s{_dOrganizationId = a})
 
 instance AWSRequest DescribeNotificationSubscriptions
          where
@@ -145,23 +145,23 @@
     -> DescribeNotificationSubscriptionsResponse
 describeNotificationSubscriptionsResponse pResponseStatus_ =
   DescribeNotificationSubscriptionsResponse'
-  { _dnsrsMarker = Nothing
-  , _dnsrsSubscriptions = Nothing
-  , _dnsrsResponseStatus = pResponseStatus_
-  }
+    { _dnsrsMarker = Nothing
+    , _dnsrsSubscriptions = Nothing
+    , _dnsrsResponseStatus = pResponseStatus_
+    }
 
 
 -- | The marker to use when requesting the next set of results. If there are no additional results, the string is empty.
 dnsrsMarker :: Lens' DescribeNotificationSubscriptionsResponse (Maybe Text)
-dnsrsMarker = lens _dnsrsMarker (\ s a -> s{_dnsrsMarker = a});
+dnsrsMarker = lens _dnsrsMarker (\ s a -> s{_dnsrsMarker = a})
 
 -- | The subscriptions.
 dnsrsSubscriptions :: Lens' DescribeNotificationSubscriptionsResponse [Subscription]
-dnsrsSubscriptions = lens _dnsrsSubscriptions (\ s a -> s{_dnsrsSubscriptions = a}) . _Default . _Coerce;
+dnsrsSubscriptions = lens _dnsrsSubscriptions (\ s a -> s{_dnsrsSubscriptions = a}) . _Default . _Coerce
 
 -- | -- | The response status code.
 dnsrsResponseStatus :: Lens' DescribeNotificationSubscriptionsResponse Int
-dnsrsResponseStatus = lens _dnsrsResponseStatus (\ s a -> s{_dnsrsResponseStatus = a});
+dnsrsResponseStatus = lens _dnsrsResponseStatus (\ s a -> s{_dnsrsResponseStatus = a})
 
 instance NFData
            DescribeNotificationSubscriptionsResponse
diff --git a/gen/Network/AWS/WorkDocs/DescribeResourcePermissions.hs b/gen/Network/AWS/WorkDocs/DescribeResourcePermissions.hs
--- a/gen/Network/AWS/WorkDocs/DescribeResourcePermissions.hs
+++ b/gen/Network/AWS/WorkDocs/DescribeResourcePermissions.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.WorkDocs.DescribeResourcePermissions
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -27,6 +27,7 @@
       describeResourcePermissions
     , DescribeResourcePermissions
     -- * Request Lenses
+    , drpPrincipalId
     , drpAuthenticationToken
     , drpMarker
     , drpLimit
@@ -50,7 +51,8 @@
 
 -- | /See:/ 'describeResourcePermissions' smart constructor.
 data DescribeResourcePermissions = DescribeResourcePermissions'
-  { _drpAuthenticationToken :: !(Maybe (Sensitive Text))
+  { _drpPrincipalId         :: !(Maybe Text)
+  , _drpAuthenticationToken :: !(Maybe (Sensitive Text))
   , _drpMarker              :: !(Maybe Text)
   , _drpLimit               :: !(Maybe Nat)
   , _drpResourceId          :: !Text
@@ -61,8 +63,10 @@
 --
 -- Use one of the following lenses to modify other fields as desired:
 --
--- * 'drpAuthenticationToken' - Amazon WorkDocs authentication token. This field should not be set when using administrative API actions, as in accessing the API using AWS credentials.
+-- * 'drpPrincipalId' - The ID of the principal to filter permissions by.
 --
+-- * 'drpAuthenticationToken' - Amazon WorkDocs authentication token. Do not set this field when using administrative API actions, as in accessing the API using AWS credentials.
+--
 -- * 'drpMarker' - The marker for the next set of results. (You received this marker from a previous call)
 --
 -- * 'drpLimit' - The maximum number of items to return with this call.
@@ -73,28 +77,33 @@
     -> DescribeResourcePermissions
 describeResourcePermissions pResourceId_ =
   DescribeResourcePermissions'
-  { _drpAuthenticationToken = Nothing
-  , _drpMarker = Nothing
-  , _drpLimit = Nothing
-  , _drpResourceId = pResourceId_
-  }
+    { _drpPrincipalId = Nothing
+    , _drpAuthenticationToken = Nothing
+    , _drpMarker = Nothing
+    , _drpLimit = Nothing
+    , _drpResourceId = pResourceId_
+    }
 
 
--- | Amazon WorkDocs authentication token. This field should not be set when using administrative API actions, as in accessing the API using AWS credentials.
+-- | The ID of the principal to filter permissions by.
+drpPrincipalId :: Lens' DescribeResourcePermissions (Maybe Text)
+drpPrincipalId = lens _drpPrincipalId (\ s a -> s{_drpPrincipalId = a})
+
+-- | Amazon WorkDocs authentication token. Do not set this field when using administrative API actions, as in accessing the API using AWS credentials.
 drpAuthenticationToken :: Lens' DescribeResourcePermissions (Maybe Text)
-drpAuthenticationToken = lens _drpAuthenticationToken (\ s a -> s{_drpAuthenticationToken = a}) . mapping _Sensitive;
+drpAuthenticationToken = lens _drpAuthenticationToken (\ s a -> s{_drpAuthenticationToken = a}) . mapping _Sensitive
 
 -- | The marker for the next set of results. (You received this marker from a previous call)
 drpMarker :: Lens' DescribeResourcePermissions (Maybe Text)
-drpMarker = lens _drpMarker (\ s a -> s{_drpMarker = a});
+drpMarker = lens _drpMarker (\ s a -> s{_drpMarker = a})
 
 -- | The maximum number of items to return with this call.
 drpLimit :: Lens' DescribeResourcePermissions (Maybe Natural)
-drpLimit = lens _drpLimit (\ s a -> s{_drpLimit = a}) . mapping _Nat;
+drpLimit = lens _drpLimit (\ s a -> s{_drpLimit = a}) . mapping _Nat
 
 -- | The ID of the resource.
 drpResourceId :: Lens' DescribeResourcePermissions Text
-drpResourceId = lens _drpResourceId (\ s a -> s{_drpResourceId = a});
+drpResourceId = lens _drpResourceId (\ s a -> s{_drpResourceId = a})
 
 instance AWSRequest DescribeResourcePermissions where
         type Rs DescribeResourcePermissions =
@@ -127,7 +136,8 @@
 instance ToQuery DescribeResourcePermissions where
         toQuery DescribeResourcePermissions'{..}
           = mconcat
-              ["marker" =: _drpMarker, "limit" =: _drpLimit]
+              ["principalId" =: _drpPrincipalId,
+               "marker" =: _drpMarker, "limit" =: _drpLimit]
 
 -- | /See:/ 'describeResourcePermissionsResponse' smart constructor.
 data DescribeResourcePermissionsResponse = DescribeResourcePermissionsResponse'
@@ -151,23 +161,23 @@
     -> DescribeResourcePermissionsResponse
 describeResourcePermissionsResponse pResponseStatus_ =
   DescribeResourcePermissionsResponse'
-  { _drprsPrincipals = Nothing
-  , _drprsMarker = Nothing
-  , _drprsResponseStatus = pResponseStatus_
-  }
+    { _drprsPrincipals = Nothing
+    , _drprsMarker = Nothing
+    , _drprsResponseStatus = pResponseStatus_
+    }
 
 
 -- | The principals.
 drprsPrincipals :: Lens' DescribeResourcePermissionsResponse [Principal]
-drprsPrincipals = lens _drprsPrincipals (\ s a -> s{_drprsPrincipals = a}) . _Default . _Coerce;
+drprsPrincipals = lens _drprsPrincipals (\ s a -> s{_drprsPrincipals = a}) . _Default . _Coerce
 
 -- | The marker to use when requesting the next set of results. If there are no additional results, the string is empty.
 drprsMarker :: Lens' DescribeResourcePermissionsResponse (Maybe Text)
-drprsMarker = lens _drprsMarker (\ s a -> s{_drprsMarker = a});
+drprsMarker = lens _drprsMarker (\ s a -> s{_drprsMarker = a})
 
 -- | -- | The response status code.
 drprsResponseStatus :: Lens' DescribeResourcePermissionsResponse Int
-drprsResponseStatus = lens _drprsResponseStatus (\ s a -> s{_drprsResponseStatus = a});
+drprsResponseStatus = lens _drprsResponseStatus (\ s a -> s{_drprsResponseStatus = a})
 
 instance NFData DescribeResourcePermissionsResponse
          where
diff --git a/gen/Network/AWS/WorkDocs/DescribeRootFolders.hs b/gen/Network/AWS/WorkDocs/DescribeRootFolders.hs
--- a/gen/Network/AWS/WorkDocs/DescribeRootFolders.hs
+++ b/gen/Network/AWS/WorkDocs/DescribeRootFolders.hs
@@ -12,13 +12,13 @@
 
 -- |
 -- Module      : Network.AWS.WorkDocs.DescribeRootFolders
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
 -- Portability : non-portable (GHC extensions)
 --
--- Describes the current user's special folders; the @RootFolder@ and the @RecyleBin@ . @RootFolder@ is the root of user's files and folders and @RecyleBin@ is the root of recycled items. This is not a valid action for SigV4 (administrative API) clients.
+-- Describes the current user's special folders; the @RootFolder@ and the @RecycleBin@ . @RootFolder@ is the root of user's files and folders and @RecycleBin@ is the root of recycled items. This is not a valid action for SigV4 (administrative API) clients.
 --
 --
 module Network.AWS.WorkDocs.DescribeRootFolders
@@ -63,29 +63,29 @@
 --
 -- * 'drfLimit' - The maximum number of items to return.
 --
--- * 'drfAuthenticationToken' - Amazon WorkDocs authentication token. This field should not be set when using administrative API actions, as in accessing the API using AWS credentials.
+-- * 'drfAuthenticationToken' - Amazon WorkDocs authentication token. Do not set this field when using administrative API actions, as in accessing the API using AWS credentials.
 describeRootFolders
     :: Text -- ^ 'drfAuthenticationToken'
     -> DescribeRootFolders
 describeRootFolders pAuthenticationToken_ =
   DescribeRootFolders'
-  { _drfMarker = Nothing
-  , _drfLimit = Nothing
-  , _drfAuthenticationToken = _Sensitive # pAuthenticationToken_
-  }
+    { _drfMarker = Nothing
+    , _drfLimit = Nothing
+    , _drfAuthenticationToken = _Sensitive # pAuthenticationToken_
+    }
 
 
 -- | The marker for the next set of results. (You received this marker from a previous call.)
 drfMarker :: Lens' DescribeRootFolders (Maybe Text)
-drfMarker = lens _drfMarker (\ s a -> s{_drfMarker = a});
+drfMarker = lens _drfMarker (\ s a -> s{_drfMarker = a})
 
 -- | The maximum number of items to return.
 drfLimit :: Lens' DescribeRootFolders (Maybe Natural)
-drfLimit = lens _drfLimit (\ s a -> s{_drfLimit = a}) . mapping _Nat;
+drfLimit = lens _drfLimit (\ s a -> s{_drfLimit = a}) . mapping _Nat
 
--- | Amazon WorkDocs authentication token. This field should not be set when using administrative API actions, as in accessing the API using AWS credentials.
+-- | Amazon WorkDocs authentication token. Do not set this field when using administrative API actions, as in accessing the API using AWS credentials.
 drfAuthenticationToken :: Lens' DescribeRootFolders Text
-drfAuthenticationToken = lens _drfAuthenticationToken (\ s a -> s{_drfAuthenticationToken = a}) . _Sensitive;
+drfAuthenticationToken = lens _drfAuthenticationToken (\ s a -> s{_drfAuthenticationToken = a}) . _Sensitive
 
 instance AWSRequest DescribeRootFolders where
         type Rs DescribeRootFolders =
@@ -139,22 +139,22 @@
     -> DescribeRootFoldersResponse
 describeRootFoldersResponse pResponseStatus_ =
   DescribeRootFoldersResponse'
-  { _drfrsFolders = Nothing
-  , _drfrsMarker = Nothing
-  , _drfrsResponseStatus = pResponseStatus_
-  }
+    { _drfrsFolders = Nothing
+    , _drfrsMarker = Nothing
+    , _drfrsResponseStatus = pResponseStatus_
+    }
 
 
 -- | The user's special folders.
 drfrsFolders :: Lens' DescribeRootFoldersResponse [FolderMetadata]
-drfrsFolders = lens _drfrsFolders (\ s a -> s{_drfrsFolders = a}) . _Default . _Coerce;
+drfrsFolders = lens _drfrsFolders (\ s a -> s{_drfrsFolders = a}) . _Default . _Coerce
 
 -- | The marker for the next set of results.
 drfrsMarker :: Lens' DescribeRootFoldersResponse (Maybe Text)
-drfrsMarker = lens _drfrsMarker (\ s a -> s{_drfrsMarker = a});
+drfrsMarker = lens _drfrsMarker (\ s a -> s{_drfrsMarker = a})
 
 -- | -- | The response status code.
 drfrsResponseStatus :: Lens' DescribeRootFoldersResponse Int
-drfrsResponseStatus = lens _drfrsResponseStatus (\ s a -> s{_drfrsResponseStatus = a});
+drfrsResponseStatus = lens _drfrsResponseStatus (\ s a -> s{_drfrsResponseStatus = a})
 
 instance NFData DescribeRootFoldersResponse where
diff --git a/gen/Network/AWS/WorkDocs/DescribeUsers.hs b/gen/Network/AWS/WorkDocs/DescribeUsers.hs
--- a/gen/Network/AWS/WorkDocs/DescribeUsers.hs
+++ b/gen/Network/AWS/WorkDocs/DescribeUsers.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.WorkDocs.DescribeUsers
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -83,7 +83,7 @@
 --
 -- * 'duUserIds' - The IDs of the users.
 --
--- * 'duAuthenticationToken' - Amazon WorkDocs authentication token. This field should not be set when using administrative API actions, as in accessing the API using AWS credentials.
+-- * 'duAuthenticationToken' - Amazon WorkDocs authentication token. Do not set this field when using administrative API actions, as in accessing the API using AWS credentials.
 --
 -- * 'duSort' - The sorting criteria.
 --
@@ -102,58 +102,58 @@
     :: DescribeUsers
 describeUsers =
   DescribeUsers'
-  { _duInclude = Nothing
-  , _duUserIds = Nothing
-  , _duAuthenticationToken = Nothing
-  , _duSort = Nothing
-  , _duMarker = Nothing
-  , _duQuery = Nothing
-  , _duLimit = Nothing
-  , _duOrder = Nothing
-  , _duOrganizationId = Nothing
-  , _duFields = Nothing
-  }
+    { _duInclude = Nothing
+    , _duUserIds = Nothing
+    , _duAuthenticationToken = Nothing
+    , _duSort = Nothing
+    , _duMarker = Nothing
+    , _duQuery = Nothing
+    , _duLimit = Nothing
+    , _duOrder = Nothing
+    , _duOrganizationId = Nothing
+    , _duFields = Nothing
+    }
 
 
 -- | The state of the users. Specify "ALL" to include inactive users.
 duInclude :: Lens' DescribeUsers (Maybe UserFilterType)
-duInclude = lens _duInclude (\ s a -> s{_duInclude = a});
+duInclude = lens _duInclude (\ s a -> s{_duInclude = a})
 
 -- | The IDs of the users.
 duUserIds :: Lens' DescribeUsers (Maybe Text)
-duUserIds = lens _duUserIds (\ s a -> s{_duUserIds = a});
+duUserIds = lens _duUserIds (\ s a -> s{_duUserIds = a})
 
--- | Amazon WorkDocs authentication token. This field should not be set when using administrative API actions, as in accessing the API using AWS credentials.
+-- | Amazon WorkDocs authentication token. Do not set this field when using administrative API actions, as in accessing the API using AWS credentials.
 duAuthenticationToken :: Lens' DescribeUsers (Maybe Text)
-duAuthenticationToken = lens _duAuthenticationToken (\ s a -> s{_duAuthenticationToken = a}) . mapping _Sensitive;
+duAuthenticationToken = lens _duAuthenticationToken (\ s a -> s{_duAuthenticationToken = a}) . mapping _Sensitive
 
 -- | The sorting criteria.
 duSort :: Lens' DescribeUsers (Maybe UserSortType)
-duSort = lens _duSort (\ s a -> s{_duSort = a});
+duSort = lens _duSort (\ s a -> s{_duSort = a})
 
 -- | The marker for the next set of results. (You received this marker from a previous call.)
 duMarker :: Lens' DescribeUsers (Maybe Text)
-duMarker = lens _duMarker (\ s a -> s{_duMarker = a});
+duMarker = lens _duMarker (\ s a -> s{_duMarker = a})
 
 -- | A query to filter users by user name.
 duQuery :: Lens' DescribeUsers (Maybe Text)
-duQuery = lens _duQuery (\ s a -> s{_duQuery = a}) . mapping _Sensitive;
+duQuery = lens _duQuery (\ s a -> s{_duQuery = a}) . mapping _Sensitive
 
 -- | The maximum number of items to return.
 duLimit :: Lens' DescribeUsers (Maybe Natural)
-duLimit = lens _duLimit (\ s a -> s{_duLimit = a}) . mapping _Nat;
+duLimit = lens _duLimit (\ s a -> s{_duLimit = a}) . mapping _Nat
 
 -- | The order for the results.
 duOrder :: Lens' DescribeUsers (Maybe OrderType)
-duOrder = lens _duOrder (\ s a -> s{_duOrder = a});
+duOrder = lens _duOrder (\ s a -> s{_duOrder = a})
 
 -- | The ID of the organization.
 duOrganizationId :: Lens' DescribeUsers (Maybe Text)
-duOrganizationId = lens _duOrganizationId (\ s a -> s{_duOrganizationId = a});
+duOrganizationId = lens _duOrganizationId (\ s a -> s{_duOrganizationId = a})
 
 -- | A comma-separated list of values. Specify "STORAGE_METADATA" to include the user storage quota and utilization information.
 duFields :: Lens' DescribeUsers (Maybe Text)
-duFields = lens _duFields (\ s a -> s{_duFields = a});
+duFields = lens _duFields (\ s a -> s{_duFields = a})
 
 instance AWSPager DescribeUsers where
         page rq rs
@@ -223,27 +223,27 @@
     -> DescribeUsersResponse
 describeUsersResponse pResponseStatus_ =
   DescribeUsersResponse'
-  { _dursUsers = Nothing
-  , _dursTotalNumberOfUsers = Nothing
-  , _dursMarker = Nothing
-  , _dursResponseStatus = pResponseStatus_
-  }
+    { _dursUsers = Nothing
+    , _dursTotalNumberOfUsers = Nothing
+    , _dursMarker = Nothing
+    , _dursResponseStatus = pResponseStatus_
+    }
 
 
 -- | The users.
 dursUsers :: Lens' DescribeUsersResponse [User]
-dursUsers = lens _dursUsers (\ s a -> s{_dursUsers = a}) . _Default . _Coerce;
+dursUsers = lens _dursUsers (\ s a -> s{_dursUsers = a}) . _Default . _Coerce
 
 -- | The total number of users included in the results.
 dursTotalNumberOfUsers :: Lens' DescribeUsersResponse (Maybe Integer)
-dursTotalNumberOfUsers = lens _dursTotalNumberOfUsers (\ s a -> s{_dursTotalNumberOfUsers = a});
+dursTotalNumberOfUsers = lens _dursTotalNumberOfUsers (\ s a -> s{_dursTotalNumberOfUsers = a})
 
 -- | The marker to use when requesting the next set of results. If there are no additional results, the string is empty.
 dursMarker :: Lens' DescribeUsersResponse (Maybe Text)
-dursMarker = lens _dursMarker (\ s a -> s{_dursMarker = a});
+dursMarker = lens _dursMarker (\ s a -> s{_dursMarker = a})
 
 -- | -- | The response status code.
 dursResponseStatus :: Lens' DescribeUsersResponse Int
-dursResponseStatus = lens _dursResponseStatus (\ s a -> s{_dursResponseStatus = a});
+dursResponseStatus = lens _dursResponseStatus (\ s a -> s{_dursResponseStatus = a})
 
 instance NFData DescribeUsersResponse where
diff --git a/gen/Network/AWS/WorkDocs/GetCurrentUser.hs b/gen/Network/AWS/WorkDocs/GetCurrentUser.hs
--- a/gen/Network/AWS/WorkDocs/GetCurrentUser.hs
+++ b/gen/Network/AWS/WorkDocs/GetCurrentUser.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.WorkDocs.GetCurrentUser
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -54,7 +54,7 @@
 --
 -- Use one of the following lenses to modify other fields as desired:
 --
--- * 'gcuAuthenticationToken' - Amazon WorkDocs authentication token.
+-- * 'gcuAuthenticationToken' - Amazon WorkDocs authentication token. Do not set this field when using administrative API actions, as in accessing the API using AWS credentials.
 getCurrentUser
     :: Text -- ^ 'gcuAuthenticationToken'
     -> GetCurrentUser
@@ -62,9 +62,9 @@
   GetCurrentUser' {_gcuAuthenticationToken = _Sensitive # pAuthenticationToken_}
 
 
--- | Amazon WorkDocs authentication token.
+-- | Amazon WorkDocs authentication token. Do not set this field when using administrative API actions, as in accessing the API using AWS credentials.
 gcuAuthenticationToken :: Lens' GetCurrentUser Text
-gcuAuthenticationToken = lens _gcuAuthenticationToken (\ s a -> s{_gcuAuthenticationToken = a}) . _Sensitive;
+gcuAuthenticationToken = lens _gcuAuthenticationToken (\ s a -> s{_gcuAuthenticationToken = a}) . _Sensitive
 
 instance AWSRequest GetCurrentUser where
         type Rs GetCurrentUser = GetCurrentUserResponse
@@ -111,15 +111,15 @@
     -> GetCurrentUserResponse
 getCurrentUserResponse pResponseStatus_ =
   GetCurrentUserResponse'
-  {_gcursUser = Nothing, _gcursResponseStatus = pResponseStatus_}
+    {_gcursUser = Nothing, _gcursResponseStatus = pResponseStatus_}
 
 
 -- | Metadata of the user.
 gcursUser :: Lens' GetCurrentUserResponse (Maybe User)
-gcursUser = lens _gcursUser (\ s a -> s{_gcursUser = a});
+gcursUser = lens _gcursUser (\ s a -> s{_gcursUser = a})
 
 -- | -- | The response status code.
 gcursResponseStatus :: Lens' GetCurrentUserResponse Int
-gcursResponseStatus = lens _gcursResponseStatus (\ s a -> s{_gcursResponseStatus = a});
+gcursResponseStatus = lens _gcursResponseStatus (\ s a -> s{_gcursResponseStatus = a})
 
 instance NFData GetCurrentUserResponse where
diff --git a/gen/Network/AWS/WorkDocs/GetDocument.hs b/gen/Network/AWS/WorkDocs/GetDocument.hs
--- a/gen/Network/AWS/WorkDocs/GetDocument.hs
+++ b/gen/Network/AWS/WorkDocs/GetDocument.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.WorkDocs.GetDocument
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -59,7 +59,7 @@
 --
 -- Use one of the following lenses to modify other fields as desired:
 --
--- * 'gdAuthenticationToken' - Amazon WorkDocs authentication token. This field should not be set when using administrative API actions, as in accessing the API using AWS credentials.
+-- * 'gdAuthenticationToken' - Amazon WorkDocs authentication token. Do not set this field when using administrative API actions, as in accessing the API using AWS credentials.
 --
 -- * 'gdIncludeCustomMetadata' - Set this to @TRUE@ to include custom metadata in the response.
 --
@@ -69,23 +69,23 @@
     -> GetDocument
 getDocument pDocumentId_ =
   GetDocument'
-  { _gdAuthenticationToken = Nothing
-  , _gdIncludeCustomMetadata = Nothing
-  , _gdDocumentId = pDocumentId_
-  }
+    { _gdAuthenticationToken = Nothing
+    , _gdIncludeCustomMetadata = Nothing
+    , _gdDocumentId = pDocumentId_
+    }
 
 
--- | Amazon WorkDocs authentication token. This field should not be set when using administrative API actions, as in accessing the API using AWS credentials.
+-- | Amazon WorkDocs authentication token. Do not set this field when using administrative API actions, as in accessing the API using AWS credentials.
 gdAuthenticationToken :: Lens' GetDocument (Maybe Text)
-gdAuthenticationToken = lens _gdAuthenticationToken (\ s a -> s{_gdAuthenticationToken = a}) . mapping _Sensitive;
+gdAuthenticationToken = lens _gdAuthenticationToken (\ s a -> s{_gdAuthenticationToken = a}) . mapping _Sensitive
 
 -- | Set this to @TRUE@ to include custom metadata in the response.
 gdIncludeCustomMetadata :: Lens' GetDocument (Maybe Bool)
-gdIncludeCustomMetadata = lens _gdIncludeCustomMetadata (\ s a -> s{_gdIncludeCustomMetadata = a});
+gdIncludeCustomMetadata = lens _gdIncludeCustomMetadata (\ s a -> s{_gdIncludeCustomMetadata = a})
 
 -- | The ID of the document.
 gdDocumentId :: Lens' GetDocument Text
-gdDocumentId = lens _gdDocumentId (\ s a -> s{_gdDocumentId = a});
+gdDocumentId = lens _gdDocumentId (\ s a -> s{_gdDocumentId = a})
 
 instance AWSRequest GetDocument where
         type Rs GetDocument = GetDocumentResponse
@@ -140,22 +140,22 @@
     -> GetDocumentResponse
 getDocumentResponse pResponseStatus_ =
   GetDocumentResponse'
-  { _gdrsCustomMetadata = Nothing
-  , _gdrsMetadata = Nothing
-  , _gdrsResponseStatus = pResponseStatus_
-  }
+    { _gdrsCustomMetadata = Nothing
+    , _gdrsMetadata = Nothing
+    , _gdrsResponseStatus = pResponseStatus_
+    }
 
 
 -- | The custom metadata on the document.
 gdrsCustomMetadata :: Lens' GetDocumentResponse (HashMap Text Text)
-gdrsCustomMetadata = lens _gdrsCustomMetadata (\ s a -> s{_gdrsCustomMetadata = a}) . _Default . _Map;
+gdrsCustomMetadata = lens _gdrsCustomMetadata (\ s a -> s{_gdrsCustomMetadata = a}) . _Default . _Map
 
 -- | The metadata details of the document.
 gdrsMetadata :: Lens' GetDocumentResponse (Maybe DocumentMetadata)
-gdrsMetadata = lens _gdrsMetadata (\ s a -> s{_gdrsMetadata = a});
+gdrsMetadata = lens _gdrsMetadata (\ s a -> s{_gdrsMetadata = a})
 
 -- | -- | The response status code.
 gdrsResponseStatus :: Lens' GetDocumentResponse Int
-gdrsResponseStatus = lens _gdrsResponseStatus (\ s a -> s{_gdrsResponseStatus = a});
+gdrsResponseStatus = lens _gdrsResponseStatus (\ s a -> s{_gdrsResponseStatus = a})
 
 instance NFData GetDocumentResponse where
diff --git a/gen/Network/AWS/WorkDocs/GetDocumentPath.hs b/gen/Network/AWS/WorkDocs/GetDocumentPath.hs
--- a/gen/Network/AWS/WorkDocs/GetDocumentPath.hs
+++ b/gen/Network/AWS/WorkDocs/GetDocumentPath.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.WorkDocs.GetDocumentPath
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -64,7 +64,7 @@
 --
 -- Use one of the following lenses to modify other fields as desired:
 --
--- * 'gdpAuthenticationToken' - Amazon WorkDocs authentication token. This field should not be set when using administrative API actions, as in accessing the API using AWS credentials.
+-- * 'gdpAuthenticationToken' - Amazon WorkDocs authentication token. Do not set this field when using administrative API actions, as in accessing the API using AWS credentials.
 --
 -- * 'gdpMarker' - This value is not supported.
 --
@@ -78,33 +78,33 @@
     -> GetDocumentPath
 getDocumentPath pDocumentId_ =
   GetDocumentPath'
-  { _gdpAuthenticationToken = Nothing
-  , _gdpMarker = Nothing
-  , _gdpLimit = Nothing
-  , _gdpFields = Nothing
-  , _gdpDocumentId = pDocumentId_
-  }
+    { _gdpAuthenticationToken = Nothing
+    , _gdpMarker = Nothing
+    , _gdpLimit = Nothing
+    , _gdpFields = Nothing
+    , _gdpDocumentId = pDocumentId_
+    }
 
 
--- | Amazon WorkDocs authentication token. This field should not be set when using administrative API actions, as in accessing the API using AWS credentials.
+-- | Amazon WorkDocs authentication token. Do not set this field when using administrative API actions, as in accessing the API using AWS credentials.
 gdpAuthenticationToken :: Lens' GetDocumentPath (Maybe Text)
-gdpAuthenticationToken = lens _gdpAuthenticationToken (\ s a -> s{_gdpAuthenticationToken = a}) . mapping _Sensitive;
+gdpAuthenticationToken = lens _gdpAuthenticationToken (\ s a -> s{_gdpAuthenticationToken = a}) . mapping _Sensitive
 
 -- | This value is not supported.
 gdpMarker :: Lens' GetDocumentPath (Maybe Text)
-gdpMarker = lens _gdpMarker (\ s a -> s{_gdpMarker = a});
+gdpMarker = lens _gdpMarker (\ s a -> s{_gdpMarker = a})
 
 -- | The maximum number of levels in the hierarchy to return.
 gdpLimit :: Lens' GetDocumentPath (Maybe Natural)
-gdpLimit = lens _gdpLimit (\ s a -> s{_gdpLimit = a}) . mapping _Nat;
+gdpLimit = lens _gdpLimit (\ s a -> s{_gdpLimit = a}) . mapping _Nat
 
 -- | A comma-separated list of values. Specify @NAME@ to include the names of the parent folders.
 gdpFields :: Lens' GetDocumentPath (Maybe Text)
-gdpFields = lens _gdpFields (\ s a -> s{_gdpFields = a});
+gdpFields = lens _gdpFields (\ s a -> s{_gdpFields = a})
 
 -- | The ID of the document.
 gdpDocumentId :: Lens' GetDocumentPath Text
-gdpDocumentId = lens _gdpDocumentId (\ s a -> s{_gdpDocumentId = a});
+gdpDocumentId = lens _gdpDocumentId (\ s a -> s{_gdpDocumentId = a})
 
 instance AWSRequest GetDocumentPath where
         type Rs GetDocumentPath = GetDocumentPathResponse
@@ -156,15 +156,15 @@
     -> GetDocumentPathResponse
 getDocumentPathResponse pResponseStatus_ =
   GetDocumentPathResponse'
-  {_gdprsPath = Nothing, _gdprsResponseStatus = pResponseStatus_}
+    {_gdprsPath = Nothing, _gdprsResponseStatus = pResponseStatus_}
 
 
 -- | The path information.
 gdprsPath :: Lens' GetDocumentPathResponse (Maybe ResourcePath)
-gdprsPath = lens _gdprsPath (\ s a -> s{_gdprsPath = a});
+gdprsPath = lens _gdprsPath (\ s a -> s{_gdprsPath = a})
 
 -- | -- | The response status code.
 gdprsResponseStatus :: Lens' GetDocumentPathResponse Int
-gdprsResponseStatus = lens _gdprsResponseStatus (\ s a -> s{_gdprsResponseStatus = a});
+gdprsResponseStatus = lens _gdprsResponseStatus (\ s a -> s{_gdprsResponseStatus = a})
 
 instance NFData GetDocumentPathResponse where
diff --git a/gen/Network/AWS/WorkDocs/GetDocumentVersion.hs b/gen/Network/AWS/WorkDocs/GetDocumentVersion.hs
--- a/gen/Network/AWS/WorkDocs/GetDocumentVersion.hs
+++ b/gen/Network/AWS/WorkDocs/GetDocumentVersion.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.WorkDocs.GetDocumentVersion
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -63,7 +63,7 @@
 --
 -- Use one of the following lenses to modify other fields as desired:
 --
--- * 'gdvAuthenticationToken' - Amazon WorkDocs authentication token. This field should not be set when using administrative API actions, as in accessing the API using AWS credentials.
+-- * 'gdvAuthenticationToken' - Amazon WorkDocs authentication token. Do not set this field when using administrative API actions, as in accessing the API using AWS credentials.
 --
 -- * 'gdvIncludeCustomMetadata' - Set this to TRUE to include custom metadata in the response.
 --
@@ -78,33 +78,33 @@
     -> GetDocumentVersion
 getDocumentVersion pDocumentId_ pVersionId_ =
   GetDocumentVersion'
-  { _gdvAuthenticationToken = Nothing
-  , _gdvIncludeCustomMetadata = Nothing
-  , _gdvFields = Nothing
-  , _gdvDocumentId = pDocumentId_
-  , _gdvVersionId = pVersionId_
-  }
+    { _gdvAuthenticationToken = Nothing
+    , _gdvIncludeCustomMetadata = Nothing
+    , _gdvFields = Nothing
+    , _gdvDocumentId = pDocumentId_
+    , _gdvVersionId = pVersionId_
+    }
 
 
--- | Amazon WorkDocs authentication token. This field should not be set when using administrative API actions, as in accessing the API using AWS credentials.
+-- | Amazon WorkDocs authentication token. Do not set this field when using administrative API actions, as in accessing the API using AWS credentials.
 gdvAuthenticationToken :: Lens' GetDocumentVersion (Maybe Text)
-gdvAuthenticationToken = lens _gdvAuthenticationToken (\ s a -> s{_gdvAuthenticationToken = a}) . mapping _Sensitive;
+gdvAuthenticationToken = lens _gdvAuthenticationToken (\ s a -> s{_gdvAuthenticationToken = a}) . mapping _Sensitive
 
 -- | Set this to TRUE to include custom metadata in the response.
 gdvIncludeCustomMetadata :: Lens' GetDocumentVersion (Maybe Bool)
-gdvIncludeCustomMetadata = lens _gdvIncludeCustomMetadata (\ s a -> s{_gdvIncludeCustomMetadata = a});
+gdvIncludeCustomMetadata = lens _gdvIncludeCustomMetadata (\ s a -> s{_gdvIncludeCustomMetadata = a})
 
 -- | A comma-separated list of values. Specify "SOURCE" to include a URL for the source document.
 gdvFields :: Lens' GetDocumentVersion (Maybe Text)
-gdvFields = lens _gdvFields (\ s a -> s{_gdvFields = a});
+gdvFields = lens _gdvFields (\ s a -> s{_gdvFields = a})
 
 -- | The ID of the document.
 gdvDocumentId :: Lens' GetDocumentVersion Text
-gdvDocumentId = lens _gdvDocumentId (\ s a -> s{_gdvDocumentId = a});
+gdvDocumentId = lens _gdvDocumentId (\ s a -> s{_gdvDocumentId = a})
 
 -- | The version ID of the document.
 gdvVersionId :: Lens' GetDocumentVersion Text
-gdvVersionId = lens _gdvVersionId (\ s a -> s{_gdvVersionId = a});
+gdvVersionId = lens _gdvVersionId (\ s a -> s{_gdvVersionId = a})
 
 instance AWSRequest GetDocumentVersion where
         type Rs GetDocumentVersion =
@@ -164,22 +164,22 @@
     -> GetDocumentVersionResponse
 getDocumentVersionResponse pResponseStatus_ =
   GetDocumentVersionResponse'
-  { _gdvrsCustomMetadata = Nothing
-  , _gdvrsMetadata = Nothing
-  , _gdvrsResponseStatus = pResponseStatus_
-  }
+    { _gdvrsCustomMetadata = Nothing
+    , _gdvrsMetadata = Nothing
+    , _gdvrsResponseStatus = pResponseStatus_
+    }
 
 
 -- | The custom metadata on the document version.
 gdvrsCustomMetadata :: Lens' GetDocumentVersionResponse (HashMap Text Text)
-gdvrsCustomMetadata = lens _gdvrsCustomMetadata (\ s a -> s{_gdvrsCustomMetadata = a}) . _Default . _Map;
+gdvrsCustomMetadata = lens _gdvrsCustomMetadata (\ s a -> s{_gdvrsCustomMetadata = a}) . _Default . _Map
 
 -- | The version metadata.
 gdvrsMetadata :: Lens' GetDocumentVersionResponse (Maybe DocumentVersionMetadata)
-gdvrsMetadata = lens _gdvrsMetadata (\ s a -> s{_gdvrsMetadata = a});
+gdvrsMetadata = lens _gdvrsMetadata (\ s a -> s{_gdvrsMetadata = a})
 
 -- | -- | The response status code.
 gdvrsResponseStatus :: Lens' GetDocumentVersionResponse Int
-gdvrsResponseStatus = lens _gdvrsResponseStatus (\ s a -> s{_gdvrsResponseStatus = a});
+gdvrsResponseStatus = lens _gdvrsResponseStatus (\ s a -> s{_gdvrsResponseStatus = a})
 
 instance NFData GetDocumentVersionResponse where
diff --git a/gen/Network/AWS/WorkDocs/GetFolder.hs b/gen/Network/AWS/WorkDocs/GetFolder.hs
--- a/gen/Network/AWS/WorkDocs/GetFolder.hs
+++ b/gen/Network/AWS/WorkDocs/GetFolder.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.WorkDocs.GetFolder
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -59,7 +59,7 @@
 --
 -- Use one of the following lenses to modify other fields as desired:
 --
--- * 'gfAuthenticationToken' - Amazon WorkDocs authentication token. This field should not be set when using administrative API actions, as in accessing the API using AWS credentials.
+-- * 'gfAuthenticationToken' - Amazon WorkDocs authentication token. Do not set this field when using administrative API actions, as in accessing the API using AWS credentials.
 --
 -- * 'gfIncludeCustomMetadata' - Set to TRUE to include custom metadata in the response.
 --
@@ -69,23 +69,23 @@
     -> GetFolder
 getFolder pFolderId_ =
   GetFolder'
-  { _gfAuthenticationToken = Nothing
-  , _gfIncludeCustomMetadata = Nothing
-  , _gfFolderId = pFolderId_
-  }
+    { _gfAuthenticationToken = Nothing
+    , _gfIncludeCustomMetadata = Nothing
+    , _gfFolderId = pFolderId_
+    }
 
 
--- | Amazon WorkDocs authentication token. This field should not be set when using administrative API actions, as in accessing the API using AWS credentials.
+-- | Amazon WorkDocs authentication token. Do not set this field when using administrative API actions, as in accessing the API using AWS credentials.
 gfAuthenticationToken :: Lens' GetFolder (Maybe Text)
-gfAuthenticationToken = lens _gfAuthenticationToken (\ s a -> s{_gfAuthenticationToken = a}) . mapping _Sensitive;
+gfAuthenticationToken = lens _gfAuthenticationToken (\ s a -> s{_gfAuthenticationToken = a}) . mapping _Sensitive
 
 -- | Set to TRUE to include custom metadata in the response.
 gfIncludeCustomMetadata :: Lens' GetFolder (Maybe Bool)
-gfIncludeCustomMetadata = lens _gfIncludeCustomMetadata (\ s a -> s{_gfIncludeCustomMetadata = a});
+gfIncludeCustomMetadata = lens _gfIncludeCustomMetadata (\ s a -> s{_gfIncludeCustomMetadata = a})
 
 -- | The ID of the folder.
 gfFolderId :: Lens' GetFolder Text
-gfFolderId = lens _gfFolderId (\ s a -> s{_gfFolderId = a});
+gfFolderId = lens _gfFolderId (\ s a -> s{_gfFolderId = a})
 
 instance AWSRequest GetFolder where
         type Rs GetFolder = GetFolderResponse
@@ -140,22 +140,22 @@
     -> GetFolderResponse
 getFolderResponse pResponseStatus_ =
   GetFolderResponse'
-  { _gfrsCustomMetadata = Nothing
-  , _gfrsMetadata = Nothing
-  , _gfrsResponseStatus = pResponseStatus_
-  }
+    { _gfrsCustomMetadata = Nothing
+    , _gfrsMetadata = Nothing
+    , _gfrsResponseStatus = pResponseStatus_
+    }
 
 
 -- | The custom metadata on the folder.
 gfrsCustomMetadata :: Lens' GetFolderResponse (HashMap Text Text)
-gfrsCustomMetadata = lens _gfrsCustomMetadata (\ s a -> s{_gfrsCustomMetadata = a}) . _Default . _Map;
+gfrsCustomMetadata = lens _gfrsCustomMetadata (\ s a -> s{_gfrsCustomMetadata = a}) . _Default . _Map
 
 -- | The metadata of the folder.
 gfrsMetadata :: Lens' GetFolderResponse (Maybe FolderMetadata)
-gfrsMetadata = lens _gfrsMetadata (\ s a -> s{_gfrsMetadata = a});
+gfrsMetadata = lens _gfrsMetadata (\ s a -> s{_gfrsMetadata = a})
 
 -- | -- | The response status code.
 gfrsResponseStatus :: Lens' GetFolderResponse Int
-gfrsResponseStatus = lens _gfrsResponseStatus (\ s a -> s{_gfrsResponseStatus = a});
+gfrsResponseStatus = lens _gfrsResponseStatus (\ s a -> s{_gfrsResponseStatus = a})
 
 instance NFData GetFolderResponse where
diff --git a/gen/Network/AWS/WorkDocs/GetFolderPath.hs b/gen/Network/AWS/WorkDocs/GetFolderPath.hs
--- a/gen/Network/AWS/WorkDocs/GetFolderPath.hs
+++ b/gen/Network/AWS/WorkDocs/GetFolderPath.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.WorkDocs.GetFolderPath
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -64,7 +64,7 @@
 --
 -- Use one of the following lenses to modify other fields as desired:
 --
--- * 'gfpAuthenticationToken' - Amazon WorkDocs authentication token. This field should not be set when using administrative API actions, as in accessing the API using AWS credentials.
+-- * 'gfpAuthenticationToken' - Amazon WorkDocs authentication token. Do not set this field when using administrative API actions, as in accessing the API using AWS credentials.
 --
 -- * 'gfpMarker' - This value is not supported.
 --
@@ -78,33 +78,33 @@
     -> GetFolderPath
 getFolderPath pFolderId_ =
   GetFolderPath'
-  { _gfpAuthenticationToken = Nothing
-  , _gfpMarker = Nothing
-  , _gfpLimit = Nothing
-  , _gfpFields = Nothing
-  , _gfpFolderId = pFolderId_
-  }
+    { _gfpAuthenticationToken = Nothing
+    , _gfpMarker = Nothing
+    , _gfpLimit = Nothing
+    , _gfpFields = Nothing
+    , _gfpFolderId = pFolderId_
+    }
 
 
--- | Amazon WorkDocs authentication token. This field should not be set when using administrative API actions, as in accessing the API using AWS credentials.
+-- | Amazon WorkDocs authentication token. Do not set this field when using administrative API actions, as in accessing the API using AWS credentials.
 gfpAuthenticationToken :: Lens' GetFolderPath (Maybe Text)
-gfpAuthenticationToken = lens _gfpAuthenticationToken (\ s a -> s{_gfpAuthenticationToken = a}) . mapping _Sensitive;
+gfpAuthenticationToken = lens _gfpAuthenticationToken (\ s a -> s{_gfpAuthenticationToken = a}) . mapping _Sensitive
 
 -- | This value is not supported.
 gfpMarker :: Lens' GetFolderPath (Maybe Text)
-gfpMarker = lens _gfpMarker (\ s a -> s{_gfpMarker = a});
+gfpMarker = lens _gfpMarker (\ s a -> s{_gfpMarker = a})
 
 -- | The maximum number of levels in the hierarchy to return.
 gfpLimit :: Lens' GetFolderPath (Maybe Natural)
-gfpLimit = lens _gfpLimit (\ s a -> s{_gfpLimit = a}) . mapping _Nat;
+gfpLimit = lens _gfpLimit (\ s a -> s{_gfpLimit = a}) . mapping _Nat
 
 -- | A comma-separated list of values. Specify "NAME" to include the names of the parent folders.
 gfpFields :: Lens' GetFolderPath (Maybe Text)
-gfpFields = lens _gfpFields (\ s a -> s{_gfpFields = a});
+gfpFields = lens _gfpFields (\ s a -> s{_gfpFields = a})
 
 -- | The ID of the folder.
 gfpFolderId :: Lens' GetFolderPath Text
-gfpFolderId = lens _gfpFolderId (\ s a -> s{_gfpFolderId = a});
+gfpFolderId = lens _gfpFolderId (\ s a -> s{_gfpFolderId = a})
 
 instance AWSRequest GetFolderPath where
         type Rs GetFolderPath = GetFolderPathResponse
@@ -156,15 +156,15 @@
     -> GetFolderPathResponse
 getFolderPathResponse pResponseStatus_ =
   GetFolderPathResponse'
-  {_gfprsPath = Nothing, _gfprsResponseStatus = pResponseStatus_}
+    {_gfprsPath = Nothing, _gfprsResponseStatus = pResponseStatus_}
 
 
 -- | The path information.
 gfprsPath :: Lens' GetFolderPathResponse (Maybe ResourcePath)
-gfprsPath = lens _gfprsPath (\ s a -> s{_gfprsPath = a});
+gfprsPath = lens _gfprsPath (\ s a -> s{_gfprsPath = a})
 
 -- | -- | The response status code.
 gfprsResponseStatus :: Lens' GetFolderPathResponse Int
-gfprsResponseStatus = lens _gfprsResponseStatus (\ s a -> s{_gfprsResponseStatus = a});
+gfprsResponseStatus = lens _gfprsResponseStatus (\ s a -> s{_gfprsResponseStatus = a})
 
 instance NFData GetFolderPathResponse where
diff --git a/gen/Network/AWS/WorkDocs/InitiateDocumentVersionUpload.hs b/gen/Network/AWS/WorkDocs/InitiateDocumentVersionUpload.hs
--- a/gen/Network/AWS/WorkDocs/InitiateDocumentVersionUpload.hs
+++ b/gen/Network/AWS/WorkDocs/InitiateDocumentVersionUpload.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.WorkDocs.InitiateDocumentVersionUpload
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -75,15 +75,15 @@
 --
 -- * 'idvuDocumentSizeInBytes' - The size of the document, in bytes.
 --
--- * 'idvuContentCreatedTimestamp' - The time stamp when the content of the document was originally created.
+-- * 'idvuContentCreatedTimestamp' - The timestamp when the content of the document was originally created.
 --
--- * 'idvuAuthenticationToken' - Amazon WorkDocs authentication token. This field should not be set when using administrative API actions, as in accessing the API using AWS credentials.
+-- * 'idvuAuthenticationToken' - Amazon WorkDocs authentication token. Do not set this field when using administrative API actions, as in accessing the API using AWS credentials.
 --
 -- * 'idvuName' - The name of the document.
 --
 -- * 'idvuId' - The ID of the document.
 --
--- * 'idvuContentModifiedTimestamp' - The time stamp when the content of the document was modified.
+-- * 'idvuContentModifiedTimestamp' - The timestamp when the content of the document was modified.
 --
 -- * 'idvuContentType' - The content type of the document.
 --
@@ -93,48 +93,48 @@
     -> InitiateDocumentVersionUpload
 initiateDocumentVersionUpload pParentFolderId_ =
   InitiateDocumentVersionUpload'
-  { _idvuDocumentSizeInBytes = Nothing
-  , _idvuContentCreatedTimestamp = Nothing
-  , _idvuAuthenticationToken = Nothing
-  , _idvuName = Nothing
-  , _idvuId = Nothing
-  , _idvuContentModifiedTimestamp = Nothing
-  , _idvuContentType = Nothing
-  , _idvuParentFolderId = pParentFolderId_
-  }
+    { _idvuDocumentSizeInBytes = Nothing
+    , _idvuContentCreatedTimestamp = Nothing
+    , _idvuAuthenticationToken = Nothing
+    , _idvuName = Nothing
+    , _idvuId = Nothing
+    , _idvuContentModifiedTimestamp = Nothing
+    , _idvuContentType = Nothing
+    , _idvuParentFolderId = pParentFolderId_
+    }
 
 
 -- | The size of the document, in bytes.
 idvuDocumentSizeInBytes :: Lens' InitiateDocumentVersionUpload (Maybe Integer)
-idvuDocumentSizeInBytes = lens _idvuDocumentSizeInBytes (\ s a -> s{_idvuDocumentSizeInBytes = a});
+idvuDocumentSizeInBytes = lens _idvuDocumentSizeInBytes (\ s a -> s{_idvuDocumentSizeInBytes = a})
 
--- | The time stamp when the content of the document was originally created.
+-- | The timestamp when the content of the document was originally created.
 idvuContentCreatedTimestamp :: Lens' InitiateDocumentVersionUpload (Maybe UTCTime)
-idvuContentCreatedTimestamp = lens _idvuContentCreatedTimestamp (\ s a -> s{_idvuContentCreatedTimestamp = a}) . mapping _Time;
+idvuContentCreatedTimestamp = lens _idvuContentCreatedTimestamp (\ s a -> s{_idvuContentCreatedTimestamp = a}) . mapping _Time
 
--- | Amazon WorkDocs authentication token. This field should not be set when using administrative API actions, as in accessing the API using AWS credentials.
+-- | Amazon WorkDocs authentication token. Do not set this field when using administrative API actions, as in accessing the API using AWS credentials.
 idvuAuthenticationToken :: Lens' InitiateDocumentVersionUpload (Maybe Text)
-idvuAuthenticationToken = lens _idvuAuthenticationToken (\ s a -> s{_idvuAuthenticationToken = a}) . mapping _Sensitive;
+idvuAuthenticationToken = lens _idvuAuthenticationToken (\ s a -> s{_idvuAuthenticationToken = a}) . mapping _Sensitive
 
 -- | The name of the document.
 idvuName :: Lens' InitiateDocumentVersionUpload (Maybe Text)
-idvuName = lens _idvuName (\ s a -> s{_idvuName = a});
+idvuName = lens _idvuName (\ s a -> s{_idvuName = a})
 
 -- | The ID of the document.
 idvuId :: Lens' InitiateDocumentVersionUpload (Maybe Text)
-idvuId = lens _idvuId (\ s a -> s{_idvuId = a});
+idvuId = lens _idvuId (\ s a -> s{_idvuId = a})
 
--- | The time stamp when the content of the document was modified.
+-- | The timestamp when the content of the document was modified.
 idvuContentModifiedTimestamp :: Lens' InitiateDocumentVersionUpload (Maybe UTCTime)
-idvuContentModifiedTimestamp = lens _idvuContentModifiedTimestamp (\ s a -> s{_idvuContentModifiedTimestamp = a}) . mapping _Time;
+idvuContentModifiedTimestamp = lens _idvuContentModifiedTimestamp (\ s a -> s{_idvuContentModifiedTimestamp = a}) . mapping _Time
 
 -- | The content type of the document.
 idvuContentType :: Lens' InitiateDocumentVersionUpload (Maybe Text)
-idvuContentType = lens _idvuContentType (\ s a -> s{_idvuContentType = a});
+idvuContentType = lens _idvuContentType (\ s a -> s{_idvuContentType = a})
 
 -- | The ID of the parent folder.
 idvuParentFolderId :: Lens' InitiateDocumentVersionUpload Text
-idvuParentFolderId = lens _idvuParentFolderId (\ s a -> s{_idvuParentFolderId = a});
+idvuParentFolderId = lens _idvuParentFolderId (\ s a -> s{_idvuParentFolderId = a})
 
 instance AWSRequest InitiateDocumentVersionUpload
          where
@@ -202,23 +202,23 @@
     -> InitiateDocumentVersionUploadResponse
 initiateDocumentVersionUploadResponse pResponseStatus_ =
   InitiateDocumentVersionUploadResponse'
-  { _idvursMetadata = Nothing
-  , _idvursUploadMetadata = Nothing
-  , _idvursResponseStatus = pResponseStatus_
-  }
+    { _idvursMetadata = Nothing
+    , _idvursUploadMetadata = Nothing
+    , _idvursResponseStatus = pResponseStatus_
+    }
 
 
 -- | The document metadata.
 idvursMetadata :: Lens' InitiateDocumentVersionUploadResponse (Maybe DocumentMetadata)
-idvursMetadata = lens _idvursMetadata (\ s a -> s{_idvursMetadata = a});
+idvursMetadata = lens _idvursMetadata (\ s a -> s{_idvursMetadata = a})
 
 -- | The upload metadata.
 idvursUploadMetadata :: Lens' InitiateDocumentVersionUploadResponse (Maybe UploadMetadata)
-idvursUploadMetadata = lens _idvursUploadMetadata (\ s a -> s{_idvursUploadMetadata = a});
+idvursUploadMetadata = lens _idvursUploadMetadata (\ s a -> s{_idvursUploadMetadata = a})
 
 -- | -- | The response status code.
 idvursResponseStatus :: Lens' InitiateDocumentVersionUploadResponse Int
-idvursResponseStatus = lens _idvursResponseStatus (\ s a -> s{_idvursResponseStatus = a});
+idvursResponseStatus = lens _idvursResponseStatus (\ s a -> s{_idvursResponseStatus = a})
 
 instance NFData InitiateDocumentVersionUploadResponse
          where
diff --git a/gen/Network/AWS/WorkDocs/RemoveAllResourcePermissions.hs b/gen/Network/AWS/WorkDocs/RemoveAllResourcePermissions.hs
--- a/gen/Network/AWS/WorkDocs/RemoveAllResourcePermissions.hs
+++ b/gen/Network/AWS/WorkDocs/RemoveAllResourcePermissions.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.WorkDocs.RemoveAllResourcePermissions
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -53,7 +53,7 @@
 --
 -- Use one of the following lenses to modify other fields as desired:
 --
--- * 'rarpAuthenticationToken' - Amazon WorkDocs authentication token. This field should not be set when using administrative API actions, as in accessing the API using AWS credentials.
+-- * 'rarpAuthenticationToken' - Amazon WorkDocs authentication token. Do not set this field when using administrative API actions, as in accessing the API using AWS credentials.
 --
 -- * 'rarpResourceId' - The ID of the resource.
 removeAllResourcePermissions
@@ -61,16 +61,16 @@
     -> RemoveAllResourcePermissions
 removeAllResourcePermissions pResourceId_ =
   RemoveAllResourcePermissions'
-  {_rarpAuthenticationToken = Nothing, _rarpResourceId = pResourceId_}
+    {_rarpAuthenticationToken = Nothing, _rarpResourceId = pResourceId_}
 
 
--- | Amazon WorkDocs authentication token. This field should not be set when using administrative API actions, as in accessing the API using AWS credentials.
+-- | Amazon WorkDocs authentication token. Do not set this field when using administrative API actions, as in accessing the API using AWS credentials.
 rarpAuthenticationToken :: Lens' RemoveAllResourcePermissions (Maybe Text)
-rarpAuthenticationToken = lens _rarpAuthenticationToken (\ s a -> s{_rarpAuthenticationToken = a}) . mapping _Sensitive;
+rarpAuthenticationToken = lens _rarpAuthenticationToken (\ s a -> s{_rarpAuthenticationToken = a}) . mapping _Sensitive
 
 -- | The ID of the resource.
 rarpResourceId :: Lens' RemoveAllResourcePermissions Text
-rarpResourceId = lens _rarpResourceId (\ s a -> s{_rarpResourceId = a});
+rarpResourceId = lens _rarpResourceId (\ s a -> s{_rarpResourceId = a})
 
 instance AWSRequest RemoveAllResourcePermissions
          where
diff --git a/gen/Network/AWS/WorkDocs/RemoveResourcePermission.hs b/gen/Network/AWS/WorkDocs/RemoveResourcePermission.hs
--- a/gen/Network/AWS/WorkDocs/RemoveResourcePermission.hs
+++ b/gen/Network/AWS/WorkDocs/RemoveResourcePermission.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.WorkDocs.RemoveResourcePermission
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -59,7 +59,7 @@
 --
 -- * 'rrpPrincipalType' - The principal type of the resource.
 --
--- * 'rrpAuthenticationToken' - Amazon WorkDocs authentication token. This field should not be set when using administrative API actions, as in accessing the API using AWS credentials.
+-- * 'rrpAuthenticationToken' - Amazon WorkDocs authentication token. Do not set this field when using administrative API actions, as in accessing the API using AWS credentials.
 --
 -- * 'rrpResourceId' - The ID of the resource.
 --
@@ -70,28 +70,28 @@
     -> RemoveResourcePermission
 removeResourcePermission pResourceId_ pPrincipalId_ =
   RemoveResourcePermission'
-  { _rrpPrincipalType = Nothing
-  , _rrpAuthenticationToken = Nothing
-  , _rrpResourceId = pResourceId_
-  , _rrpPrincipalId = pPrincipalId_
-  }
+    { _rrpPrincipalType = Nothing
+    , _rrpAuthenticationToken = Nothing
+    , _rrpResourceId = pResourceId_
+    , _rrpPrincipalId = pPrincipalId_
+    }
 
 
 -- | The principal type of the resource.
 rrpPrincipalType :: Lens' RemoveResourcePermission (Maybe PrincipalType)
-rrpPrincipalType = lens _rrpPrincipalType (\ s a -> s{_rrpPrincipalType = a});
+rrpPrincipalType = lens _rrpPrincipalType (\ s a -> s{_rrpPrincipalType = a})
 
--- | Amazon WorkDocs authentication token. This field should not be set when using administrative API actions, as in accessing the API using AWS credentials.
+-- | Amazon WorkDocs authentication token. Do not set this field when using administrative API actions, as in accessing the API using AWS credentials.
 rrpAuthenticationToken :: Lens' RemoveResourcePermission (Maybe Text)
-rrpAuthenticationToken = lens _rrpAuthenticationToken (\ s a -> s{_rrpAuthenticationToken = a}) . mapping _Sensitive;
+rrpAuthenticationToken = lens _rrpAuthenticationToken (\ s a -> s{_rrpAuthenticationToken = a}) . mapping _Sensitive
 
 -- | The ID of the resource.
 rrpResourceId :: Lens' RemoveResourcePermission Text
-rrpResourceId = lens _rrpResourceId (\ s a -> s{_rrpResourceId = a});
+rrpResourceId = lens _rrpResourceId (\ s a -> s{_rrpResourceId = a})
 
 -- | The principal ID of the resource.
 rrpPrincipalId :: Lens' RemoveResourcePermission Text
-rrpPrincipalId = lens _rrpPrincipalId (\ s a -> s{_rrpPrincipalId = a});
+rrpPrincipalId = lens _rrpPrincipalId (\ s a -> s{_rrpPrincipalId = a})
 
 instance AWSRequest RemoveResourcePermission where
         type Rs RemoveResourcePermission =
diff --git a/gen/Network/AWS/WorkDocs/Types.hs b/gen/Network/AWS/WorkDocs/Types.hs
--- a/gen/Network/AWS/WorkDocs/Types.hs
+++ b/gen/Network/AWS/WorkDocs/Types.hs
@@ -4,7 +4,7 @@
 
 -- |
 -- Module      : Network.AWS.WorkDocs.Types
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -37,10 +37,14 @@
     , _UnauthorizedOperationException
     , _DraftUploadOutOfSyncException
     , _LimitExceededException
+    , _InvalidPasswordException
 
     -- * ActivityType
     , ActivityType (..)
 
+    -- * BooleanEnumType
+    , BooleanEnumType (..)
+
     -- * CommentStatusType
     , CommentStatusType (..)
 
@@ -194,6 +198,12 @@
     , gmName
     , gmId
 
+    -- * NotificationOptions
+    , NotificationOptions
+    , notificationOptions
+    , noEmailMessage
+    , noSendEmail
+
     -- * Participants
     , Participants
     , participants
@@ -315,24 +325,24 @@
 workDocs :: Service
 workDocs =
   Service
-  { _svcAbbrev = "WorkDocs"
-  , _svcSigner = v4
-  , _svcPrefix = "workdocs"
-  , _svcVersion = "2016-05-01"
-  , _svcEndpoint = defaultEndpoint workDocs
-  , _svcTimeout = Just 70
-  , _svcCheck = statusSuccess
-  , _svcError = parseJSONError "WorkDocs"
-  , _svcRetry = retry
-  }
+    { _svcAbbrev = "WorkDocs"
+    , _svcSigner = v4
+    , _svcPrefix = "workdocs"
+    , _svcVersion = "2016-05-01"
+    , _svcEndpoint = defaultEndpoint workDocs
+    , _svcTimeout = Just 70
+    , _svcCheck = statusSuccess
+    , _svcError = parseJSONError "WorkDocs"
+    , _svcRetry = retry
+    }
   where
     retry =
       Exponential
-      { _retryBase = 5.0e-2
-      , _retryGrowth = 2
-      , _retryAttempts = 5
-      , _retryCheck = check
-      }
+        { _retryBase = 5.0e-2
+        , _retryGrowth = 2
+        , _retryAttempts = 5
+        , _retryCheck = check
+        }
     check e
       | has (hasCode "ThrottledException" . hasStatus 400) e =
         Just "throttled_exception"
@@ -341,6 +351,8 @@
         Just "throttling_exception"
       | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"
       | has (hasStatus 504) e = Just "gateway_timeout"
+      | has (hasCode "RequestThrottledException" . hasStatus 400) e =
+        Just "request_throttled_exception"
       | has (hasStatus 502) e = Just "bad_gateway"
       | has (hasStatus 503) e = Just "service_unavailable"
       | has (hasStatus 500) e = Just "general_server_error"
@@ -390,7 +402,7 @@
   _MatchServiceError workDocs "TooManyLabelsException" . hasStatus 429
 
 
--- | The pagination marker and/or limit fields are not valid.
+-- | The pagination marker or limit fields are not valid.
 --
 --
 _InvalidArgumentException :: AsError a => Getting (First ServiceError) a ServiceError
@@ -415,7 +427,7 @@
   _MatchServiceError workDocs "TooManySubscriptionsException" . hasStatus 429
 
 
--- | The AWS Directory Service cannot reach an on-premises instance. Or a dependency under the control of the organization is failing, such as a connected active directory.
+-- | The AWS Directory Service cannot reach an on-premises instance. Or a dependency under the control of the organization is failing, such as a connected Active Directory.
 --
 --
 _FailedDependencyException :: AsError a => Getting (First ServiceError) a ServiceError
@@ -519,4 +531,12 @@
 _LimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError
 _LimitExceededException =
   _MatchServiceError workDocs "LimitExceededException" . hasStatus 409
+
+
+-- | The password is invalid.
+--
+--
+_InvalidPasswordException :: AsError a => Getting (First ServiceError) a ServiceError
+_InvalidPasswordException =
+  _MatchServiceError workDocs "InvalidPasswordException" . hasStatus 401
 
diff --git a/gen/Network/AWS/WorkDocs/Types/Product.hs b/gen/Network/AWS/WorkDocs/Types/Product.hs
--- a/gen/Network/AWS/WorkDocs/Types/Product.hs
+++ b/gen/Network/AWS/WorkDocs/Types/Product.hs
@@ -9,7 +9,7 @@
 
 -- |
 -- Module      : Network.AWS.WorkDocs.Types.Product
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -61,48 +61,48 @@
     :: Activity
 activity =
   Activity'
-  { _aResourceMetadata = Nothing
-  , _aInitiator = Nothing
-  , _aParticipants = Nothing
-  , _aOriginalParent = Nothing
-  , _aType = Nothing
-  , _aCommentMetadata = Nothing
-  , _aTimeStamp = Nothing
-  , _aOrganizationId = Nothing
-  }
+    { _aResourceMetadata = Nothing
+    , _aInitiator = Nothing
+    , _aParticipants = Nothing
+    , _aOriginalParent = Nothing
+    , _aType = Nothing
+    , _aCommentMetadata = Nothing
+    , _aTimeStamp = Nothing
+    , _aOrganizationId = Nothing
+    }
 
 
 -- | The metadata of the resource involved in the user action.
 aResourceMetadata :: Lens' Activity (Maybe ResourceMetadata)
-aResourceMetadata = lens _aResourceMetadata (\ s a -> s{_aResourceMetadata = a});
+aResourceMetadata = lens _aResourceMetadata (\ s a -> s{_aResourceMetadata = a})
 
 -- | The user who performed the action.
 aInitiator :: Lens' Activity (Maybe UserMetadata)
-aInitiator = lens _aInitiator (\ s a -> s{_aInitiator = a});
+aInitiator = lens _aInitiator (\ s a -> s{_aInitiator = a})
 
 -- | The list of users or groups impacted by this action. This is an optional field and is filled for the following sharing activities: DOCUMENT_SHARED, DOCUMENT_SHARED, DOCUMENT_UNSHARED, FOLDER_SHARED, FOLDER_UNSHARED.
 aParticipants :: Lens' Activity (Maybe Participants)
-aParticipants = lens _aParticipants (\ s a -> s{_aParticipants = a});
+aParticipants = lens _aParticipants (\ s a -> s{_aParticipants = a})
 
 -- | The original parent of the resource. This is an optional field and is filled for move activities.
 aOriginalParent :: Lens' Activity (Maybe ResourceMetadata)
-aOriginalParent = lens _aOriginalParent (\ s a -> s{_aOriginalParent = a});
+aOriginalParent = lens _aOriginalParent (\ s a -> s{_aOriginalParent = a})
 
 -- | The activity type.
 aType :: Lens' Activity (Maybe ActivityType)
-aType = lens _aType (\ s a -> s{_aType = a});
+aType = lens _aType (\ s a -> s{_aType = a})
 
 -- | Metadata of the commenting activity. This is an optional field and is filled for commenting activities.
 aCommentMetadata :: Lens' Activity (Maybe CommentMetadata)
-aCommentMetadata = lens _aCommentMetadata (\ s a -> s{_aCommentMetadata = a});
+aCommentMetadata = lens _aCommentMetadata (\ s a -> s{_aCommentMetadata = a})
 
 -- | The timestamp when the action was performed.
 aTimeStamp :: Lens' Activity (Maybe UTCTime)
-aTimeStamp = lens _aTimeStamp (\ s a -> s{_aTimeStamp = a}) . mapping _Time;
+aTimeStamp = lens _aTimeStamp (\ s a -> s{_aTimeStamp = a}) . mapping _Time
 
 -- | The ID of the organization.
 aOrganizationId :: Lens' Activity (Maybe Text)
-aOrganizationId = lens _aOrganizationId (\ s a -> s{_aOrganizationId = a});
+aOrganizationId = lens _aOrganizationId (\ s a -> s{_aOrganizationId = a})
 
 instance FromJSON Activity where
         parseJSON
@@ -165,53 +165,53 @@
     -> Comment
 comment pCommentId_ =
   Comment'
-  { _cStatus = Nothing
-  , _cText = Nothing
-  , _cVisibility = Nothing
-  , _cThreadId = Nothing
-  , _cContributor = Nothing
-  , _cCreatedTimestamp = Nothing
-  , _cRecipientId = Nothing
-  , _cParentId = Nothing
-  , _cCommentId = pCommentId_
-  }
+    { _cStatus = Nothing
+    , _cText = Nothing
+    , _cVisibility = Nothing
+    , _cThreadId = Nothing
+    , _cContributor = Nothing
+    , _cCreatedTimestamp = Nothing
+    , _cRecipientId = Nothing
+    , _cParentId = Nothing
+    , _cCommentId = pCommentId_
+    }
 
 
 -- | The status of the comment.
 cStatus :: Lens' Comment (Maybe CommentStatusType)
-cStatus = lens _cStatus (\ s a -> s{_cStatus = a});
+cStatus = lens _cStatus (\ s a -> s{_cStatus = a})
 
 -- | The text of the comment.
 cText :: Lens' Comment (Maybe Text)
-cText = lens _cText (\ s a -> s{_cText = a}) . mapping _Sensitive;
+cText = lens _cText (\ s a -> s{_cText = a}) . mapping _Sensitive
 
 -- | The visibility of the comment. Options are either PRIVATE, where the comment is visible only to the comment author and document owner and co-owners, or PUBLIC, where the comment is visible to document owners, co-owners, and contributors.
 cVisibility :: Lens' Comment (Maybe CommentVisibilityType)
-cVisibility = lens _cVisibility (\ s a -> s{_cVisibility = a});
+cVisibility = lens _cVisibility (\ s a -> s{_cVisibility = a})
 
 -- | The ID of the root comment in the thread.
 cThreadId :: Lens' Comment (Maybe Text)
-cThreadId = lens _cThreadId (\ s a -> s{_cThreadId = a});
+cThreadId = lens _cThreadId (\ s a -> s{_cThreadId = a})
 
 -- | The details of the user who made the comment.
 cContributor :: Lens' Comment (Maybe User)
-cContributor = lens _cContributor (\ s a -> s{_cContributor = a});
+cContributor = lens _cContributor (\ s a -> s{_cContributor = a})
 
 -- | The time that the comment was created.
 cCreatedTimestamp :: Lens' Comment (Maybe UTCTime)
-cCreatedTimestamp = lens _cCreatedTimestamp (\ s a -> s{_cCreatedTimestamp = a}) . mapping _Time;
+cCreatedTimestamp = lens _cCreatedTimestamp (\ s a -> s{_cCreatedTimestamp = a}) . mapping _Time
 
 -- | If the comment is a reply to another user's comment, this field contains the user ID of the user being replied to.
 cRecipientId :: Lens' Comment (Maybe Text)
-cRecipientId = lens _cRecipientId (\ s a -> s{_cRecipientId = a});
+cRecipientId = lens _cRecipientId (\ s a -> s{_cRecipientId = a})
 
 -- | The ID of the parent comment.
 cParentId :: Lens' Comment (Maybe Text)
-cParentId = lens _cParentId (\ s a -> s{_cParentId = a});
+cParentId = lens _cParentId (\ s a -> s{_cParentId = a})
 
 -- | The ID of the comment.
 cCommentId :: Lens' Comment Text
-cCommentId = lens _cCommentId (\ s a -> s{_cCommentId = a});
+cCommentId = lens _cCommentId (\ s a -> s{_cCommentId = a})
 
 instance FromJSON Comment where
         parseJSON
@@ -249,46 +249,46 @@
 --
 -- Use one of the following lenses to modify other fields as desired:
 --
--- * 'cmCommentStatus' - Undocumented member.
+-- * 'cmCommentStatus' - The status of the comment.
 --
 -- * 'cmContributor' - The user who made the comment.
 --
 -- * 'cmCommentId' - The ID of the comment.
 --
--- * 'cmCreatedTimestamp' - Undocumented member.
+-- * 'cmCreatedTimestamp' - The timestamp that the comment was created.
 --
 -- * 'cmRecipientId' - The ID of the user being replied to.
 commentMetadata
     :: CommentMetadata
 commentMetadata =
   CommentMetadata'
-  { _cmCommentStatus = Nothing
-  , _cmContributor = Nothing
-  , _cmCommentId = Nothing
-  , _cmCreatedTimestamp = Nothing
-  , _cmRecipientId = Nothing
-  }
+    { _cmCommentStatus = Nothing
+    , _cmContributor = Nothing
+    , _cmCommentId = Nothing
+    , _cmCreatedTimestamp = Nothing
+    , _cmRecipientId = Nothing
+    }
 
 
--- | Undocumented member.
+-- | The status of the comment.
 cmCommentStatus :: Lens' CommentMetadata (Maybe CommentStatusType)
-cmCommentStatus = lens _cmCommentStatus (\ s a -> s{_cmCommentStatus = a});
+cmCommentStatus = lens _cmCommentStatus (\ s a -> s{_cmCommentStatus = a})
 
 -- | The user who made the comment.
 cmContributor :: Lens' CommentMetadata (Maybe User)
-cmContributor = lens _cmContributor (\ s a -> s{_cmContributor = a});
+cmContributor = lens _cmContributor (\ s a -> s{_cmContributor = a})
 
 -- | The ID of the comment.
 cmCommentId :: Lens' CommentMetadata (Maybe Text)
-cmCommentId = lens _cmCommentId (\ s a -> s{_cmCommentId = a});
+cmCommentId = lens _cmCommentId (\ s a -> s{_cmCommentId = a})
 
--- | Undocumented member.
+-- | The timestamp that the comment was created.
 cmCreatedTimestamp :: Lens' CommentMetadata (Maybe UTCTime)
-cmCreatedTimestamp = lens _cmCreatedTimestamp (\ s a -> s{_cmCreatedTimestamp = a}) . mapping _Time;
+cmCreatedTimestamp = lens _cmCreatedTimestamp (\ s a -> s{_cmCreatedTimestamp = a}) . mapping _Time
 
 -- | The ID of the user being replied to.
 cmRecipientId :: Lens' CommentMetadata (Maybe Text)
-cmRecipientId = lens _cmRecipientId (\ s a -> s{_cmRecipientId = a});
+cmRecipientId = lens _cmRecipientId (\ s a -> s{_cmRecipientId = a})
 
 instance FromJSON CommentMetadata where
         parseJSON
@@ -344,48 +344,48 @@
     :: DocumentMetadata
 documentMetadata =
   DocumentMetadata'
-  { _dmLatestVersionMetadata = Nothing
-  , _dmParentFolderId = Nothing
-  , _dmModifiedTimestamp = Nothing
-  , _dmId = Nothing
-  , _dmLabels = Nothing
-  , _dmResourceState = Nothing
-  , _dmCreatedTimestamp = Nothing
-  , _dmCreatorId = Nothing
-  }
+    { _dmLatestVersionMetadata = Nothing
+    , _dmParentFolderId = Nothing
+    , _dmModifiedTimestamp = Nothing
+    , _dmId = Nothing
+    , _dmLabels = Nothing
+    , _dmResourceState = Nothing
+    , _dmCreatedTimestamp = Nothing
+    , _dmCreatorId = Nothing
+    }
 
 
 -- | The latest version of the document.
 dmLatestVersionMetadata :: Lens' DocumentMetadata (Maybe DocumentVersionMetadata)
-dmLatestVersionMetadata = lens _dmLatestVersionMetadata (\ s a -> s{_dmLatestVersionMetadata = a});
+dmLatestVersionMetadata = lens _dmLatestVersionMetadata (\ s a -> s{_dmLatestVersionMetadata = a})
 
 -- | The ID of the parent folder.
 dmParentFolderId :: Lens' DocumentMetadata (Maybe Text)
-dmParentFolderId = lens _dmParentFolderId (\ s a -> s{_dmParentFolderId = a});
+dmParentFolderId = lens _dmParentFolderId (\ s a -> s{_dmParentFolderId = a})
 
 -- | The time when the document was updated.
 dmModifiedTimestamp :: Lens' DocumentMetadata (Maybe UTCTime)
-dmModifiedTimestamp = lens _dmModifiedTimestamp (\ s a -> s{_dmModifiedTimestamp = a}) . mapping _Time;
+dmModifiedTimestamp = lens _dmModifiedTimestamp (\ s a -> s{_dmModifiedTimestamp = a}) . mapping _Time
 
 -- | The ID of the document.
 dmId :: Lens' DocumentMetadata (Maybe Text)
-dmId = lens _dmId (\ s a -> s{_dmId = a});
+dmId = lens _dmId (\ s a -> s{_dmId = a})
 
 -- | List of labels on the document.
 dmLabels :: Lens' DocumentMetadata [Text]
-dmLabels = lens _dmLabels (\ s a -> s{_dmLabels = a}) . _Default . _Coerce;
+dmLabels = lens _dmLabels (\ s a -> s{_dmLabels = a}) . _Default . _Coerce
 
 -- | The resource state.
 dmResourceState :: Lens' DocumentMetadata (Maybe ResourceStateType)
-dmResourceState = lens _dmResourceState (\ s a -> s{_dmResourceState = a});
+dmResourceState = lens _dmResourceState (\ s a -> s{_dmResourceState = a})
 
 -- | The time when the document was created.
 dmCreatedTimestamp :: Lens' DocumentMetadata (Maybe UTCTime)
-dmCreatedTimestamp = lens _dmCreatedTimestamp (\ s a -> s{_dmCreatedTimestamp = a}) . mapping _Time;
+dmCreatedTimestamp = lens _dmCreatedTimestamp (\ s a -> s{_dmCreatedTimestamp = a}) . mapping _Time
 
 -- | The ID of the creator.
 dmCreatorId :: Lens' DocumentMetadata (Maybe Text)
-dmCreatorId = lens _dmCreatorId (\ s a -> s{_dmCreatorId = a});
+dmCreatorId = lens _dmCreatorId (\ s a -> s{_dmCreatorId = a})
 
 instance FromJSON DocumentMetadata where
         parseJSON
@@ -437,21 +437,21 @@
 --
 -- * 'dvmSignature' - The signature of the document.
 --
--- * 'dvmContentCreatedTimestamp' - The time stamp when the content of the document was originally created.
+-- * 'dvmContentCreatedTimestamp' - The timestamp when the content of the document was originally created.
 --
 -- * 'dvmSize' - The size of the document, in bytes.
 --
 -- * 'dvmName' - The name of the version.
 --
--- * 'dvmModifiedTimestamp' - The time stamp when the document was last uploaded.
+-- * 'dvmModifiedTimestamp' - The timestamp when the document was last uploaded.
 --
 -- * 'dvmSource' - The source of the document.
 --
 -- * 'dvmId' - The ID of the version.
 --
--- * 'dvmCreatedTimestamp' - The time stamp when the document was first uploaded.
+-- * 'dvmCreatedTimestamp' - The timestamp when the document was first uploaded.
 --
--- * 'dvmContentModifiedTimestamp' - The time stamp when the content of the document was modified.
+-- * 'dvmContentModifiedTimestamp' - The timestamp when the content of the document was modified.
 --
 -- * 'dvmCreatorId' - The ID of the creator.
 --
@@ -460,73 +460,73 @@
     :: DocumentVersionMetadata
 documentVersionMetadata =
   DocumentVersionMetadata'
-  { _dvmThumbnail = Nothing
-  , _dvmStatus = Nothing
-  , _dvmSignature = Nothing
-  , _dvmContentCreatedTimestamp = Nothing
-  , _dvmSize = Nothing
-  , _dvmName = Nothing
-  , _dvmModifiedTimestamp = Nothing
-  , _dvmSource = Nothing
-  , _dvmId = Nothing
-  , _dvmCreatedTimestamp = Nothing
-  , _dvmContentModifiedTimestamp = Nothing
-  , _dvmCreatorId = Nothing
-  , _dvmContentType = Nothing
-  }
+    { _dvmThumbnail = Nothing
+    , _dvmStatus = Nothing
+    , _dvmSignature = Nothing
+    , _dvmContentCreatedTimestamp = Nothing
+    , _dvmSize = Nothing
+    , _dvmName = Nothing
+    , _dvmModifiedTimestamp = Nothing
+    , _dvmSource = Nothing
+    , _dvmId = Nothing
+    , _dvmCreatedTimestamp = Nothing
+    , _dvmContentModifiedTimestamp = Nothing
+    , _dvmCreatorId = Nothing
+    , _dvmContentType = Nothing
+    }
 
 
 -- | The thumbnail of the document.
 dvmThumbnail :: Lens' DocumentVersionMetadata (HashMap DocumentThumbnailType Text)
-dvmThumbnail = lens _dvmThumbnail (\ s a -> s{_dvmThumbnail = a}) . _Default . _Map;
+dvmThumbnail = lens _dvmThumbnail (\ s a -> s{_dvmThumbnail = a}) . _Default . _Map
 
 -- | The status of the document.
 dvmStatus :: Lens' DocumentVersionMetadata (Maybe DocumentStatusType)
-dvmStatus = lens _dvmStatus (\ s a -> s{_dvmStatus = a});
+dvmStatus = lens _dvmStatus (\ s a -> s{_dvmStatus = a})
 
 -- | The signature of the document.
 dvmSignature :: Lens' DocumentVersionMetadata (Maybe Text)
-dvmSignature = lens _dvmSignature (\ s a -> s{_dvmSignature = a});
+dvmSignature = lens _dvmSignature (\ s a -> s{_dvmSignature = a})
 
--- | The time stamp when the content of the document was originally created.
+-- | The timestamp when the content of the document was originally created.
 dvmContentCreatedTimestamp :: Lens' DocumentVersionMetadata (Maybe UTCTime)
-dvmContentCreatedTimestamp = lens _dvmContentCreatedTimestamp (\ s a -> s{_dvmContentCreatedTimestamp = a}) . mapping _Time;
+dvmContentCreatedTimestamp = lens _dvmContentCreatedTimestamp (\ s a -> s{_dvmContentCreatedTimestamp = a}) . mapping _Time
 
 -- | The size of the document, in bytes.
 dvmSize :: Lens' DocumentVersionMetadata (Maybe Integer)
-dvmSize = lens _dvmSize (\ s a -> s{_dvmSize = a});
+dvmSize = lens _dvmSize (\ s a -> s{_dvmSize = a})
 
 -- | The name of the version.
 dvmName :: Lens' DocumentVersionMetadata (Maybe Text)
-dvmName = lens _dvmName (\ s a -> s{_dvmName = a});
+dvmName = lens _dvmName (\ s a -> s{_dvmName = a})
 
--- | The time stamp when the document was last uploaded.
+-- | The timestamp when the document was last uploaded.
 dvmModifiedTimestamp :: Lens' DocumentVersionMetadata (Maybe UTCTime)
-dvmModifiedTimestamp = lens _dvmModifiedTimestamp (\ s a -> s{_dvmModifiedTimestamp = a}) . mapping _Time;
+dvmModifiedTimestamp = lens _dvmModifiedTimestamp (\ s a -> s{_dvmModifiedTimestamp = a}) . mapping _Time
 
 -- | The source of the document.
 dvmSource :: Lens' DocumentVersionMetadata (HashMap DocumentSourceType Text)
-dvmSource = lens _dvmSource (\ s a -> s{_dvmSource = a}) . _Default . _Map;
+dvmSource = lens _dvmSource (\ s a -> s{_dvmSource = a}) . _Default . _Map
 
 -- | The ID of the version.
 dvmId :: Lens' DocumentVersionMetadata (Maybe Text)
-dvmId = lens _dvmId (\ s a -> s{_dvmId = a});
+dvmId = lens _dvmId (\ s a -> s{_dvmId = a})
 
--- | The time stamp when the document was first uploaded.
+-- | The timestamp when the document was first uploaded.
 dvmCreatedTimestamp :: Lens' DocumentVersionMetadata (Maybe UTCTime)
-dvmCreatedTimestamp = lens _dvmCreatedTimestamp (\ s a -> s{_dvmCreatedTimestamp = a}) . mapping _Time;
+dvmCreatedTimestamp = lens _dvmCreatedTimestamp (\ s a -> s{_dvmCreatedTimestamp = a}) . mapping _Time
 
--- | The time stamp when the content of the document was modified.
+-- | The timestamp when the content of the document was modified.
 dvmContentModifiedTimestamp :: Lens' DocumentVersionMetadata (Maybe UTCTime)
-dvmContentModifiedTimestamp = lens _dvmContentModifiedTimestamp (\ s a -> s{_dvmContentModifiedTimestamp = a}) . mapping _Time;
+dvmContentModifiedTimestamp = lens _dvmContentModifiedTimestamp (\ s a -> s{_dvmContentModifiedTimestamp = a}) . mapping _Time
 
 -- | The ID of the creator.
 dvmCreatorId :: Lens' DocumentVersionMetadata (Maybe Text)
-dvmCreatorId = lens _dvmCreatorId (\ s a -> s{_dvmCreatorId = a});
+dvmCreatorId = lens _dvmCreatorId (\ s a -> s{_dvmCreatorId = a})
 
 -- | The content type of the document.
 dvmContentType :: Lens' DocumentVersionMetadata (Maybe Text)
-dvmContentType = lens _dvmContentType (\ s a -> s{_dvmContentType = a});
+dvmContentType = lens _dvmContentType (\ s a -> s{_dvmContentType = a})
 
 instance FromJSON DocumentVersionMetadata where
         parseJSON
@@ -599,63 +599,63 @@
     :: FolderMetadata
 folderMetadata =
   FolderMetadata'
-  { _fmSignature = Nothing
-  , _fmParentFolderId = Nothing
-  , _fmSize = Nothing
-  , _fmLatestVersionSize = Nothing
-  , _fmName = Nothing
-  , _fmModifiedTimestamp = Nothing
-  , _fmId = Nothing
-  , _fmLabels = Nothing
-  , _fmResourceState = Nothing
-  , _fmCreatedTimestamp = Nothing
-  , _fmCreatorId = Nothing
-  }
+    { _fmSignature = Nothing
+    , _fmParentFolderId = Nothing
+    , _fmSize = Nothing
+    , _fmLatestVersionSize = Nothing
+    , _fmName = Nothing
+    , _fmModifiedTimestamp = Nothing
+    , _fmId = Nothing
+    , _fmLabels = Nothing
+    , _fmResourceState = Nothing
+    , _fmCreatedTimestamp = Nothing
+    , _fmCreatorId = Nothing
+    }
 
 
 -- | The unique identifier created from the subfolders and documents of the folder.
 fmSignature :: Lens' FolderMetadata (Maybe Text)
-fmSignature = lens _fmSignature (\ s a -> s{_fmSignature = a});
+fmSignature = lens _fmSignature (\ s a -> s{_fmSignature = a})
 
 -- | The ID of the parent folder.
 fmParentFolderId :: Lens' FolderMetadata (Maybe Text)
-fmParentFolderId = lens _fmParentFolderId (\ s a -> s{_fmParentFolderId = a});
+fmParentFolderId = lens _fmParentFolderId (\ s a -> s{_fmParentFolderId = a})
 
 -- | The size of the folder metadata.
 fmSize :: Lens' FolderMetadata (Maybe Integer)
-fmSize = lens _fmSize (\ s a -> s{_fmSize = a});
+fmSize = lens _fmSize (\ s a -> s{_fmSize = a})
 
 -- | The size of the latest version of the folder metadata.
 fmLatestVersionSize :: Lens' FolderMetadata (Maybe Integer)
-fmLatestVersionSize = lens _fmLatestVersionSize (\ s a -> s{_fmLatestVersionSize = a});
+fmLatestVersionSize = lens _fmLatestVersionSize (\ s a -> s{_fmLatestVersionSize = a})
 
 -- | The name of the folder.
 fmName :: Lens' FolderMetadata (Maybe Text)
-fmName = lens _fmName (\ s a -> s{_fmName = a});
+fmName = lens _fmName (\ s a -> s{_fmName = a})
 
 -- | The time when the folder was updated.
 fmModifiedTimestamp :: Lens' FolderMetadata (Maybe UTCTime)
-fmModifiedTimestamp = lens _fmModifiedTimestamp (\ s a -> s{_fmModifiedTimestamp = a}) . mapping _Time;
+fmModifiedTimestamp = lens _fmModifiedTimestamp (\ s a -> s{_fmModifiedTimestamp = a}) . mapping _Time
 
 -- | The ID of the folder.
 fmId :: Lens' FolderMetadata (Maybe Text)
-fmId = lens _fmId (\ s a -> s{_fmId = a});
+fmId = lens _fmId (\ s a -> s{_fmId = a})
 
 -- | List of labels on the folder.
 fmLabels :: Lens' FolderMetadata [Text]
-fmLabels = lens _fmLabels (\ s a -> s{_fmLabels = a}) . _Default . _Coerce;
+fmLabels = lens _fmLabels (\ s a -> s{_fmLabels = a}) . _Default . _Coerce
 
 -- | The resource state of the folder.
 fmResourceState :: Lens' FolderMetadata (Maybe ResourceStateType)
-fmResourceState = lens _fmResourceState (\ s a -> s{_fmResourceState = a});
+fmResourceState = lens _fmResourceState (\ s a -> s{_fmResourceState = a})
 
 -- | The time when the folder was created.
 fmCreatedTimestamp :: Lens' FolderMetadata (Maybe UTCTime)
-fmCreatedTimestamp = lens _fmCreatedTimestamp (\ s a -> s{_fmCreatedTimestamp = a}) . mapping _Time;
+fmCreatedTimestamp = lens _fmCreatedTimestamp (\ s a -> s{_fmCreatedTimestamp = a}) . mapping _Time
 
 -- | The ID of the creator.
 fmCreatorId :: Lens' FolderMetadata (Maybe Text)
-fmCreatorId = lens _fmCreatorId (\ s a -> s{_fmCreatorId = a});
+fmCreatorId = lens _fmCreatorId (\ s a -> s{_fmCreatorId = a})
 
 instance FromJSON FolderMetadata where
         parseJSON
@@ -702,11 +702,11 @@
 
 -- | The name of the group.
 gmName :: Lens' GroupMetadata (Maybe Text)
-gmName = lens _gmName (\ s a -> s{_gmName = a});
+gmName = lens _gmName (\ s a -> s{_gmName = a})
 
 -- | The ID of the user group.
 gmId :: Lens' GroupMetadata (Maybe Text)
-gmId = lens _gmId (\ s a -> s{_gmId = a});
+gmId = lens _gmId (\ s a -> s{_gmId = a})
 
 instance FromJSON GroupMetadata where
         parseJSON
@@ -718,10 +718,53 @@
 
 instance NFData GroupMetadata where
 
--- | Describes the users and/or user groups.
+-- | Set of options which defines notification preferences of given action.
 --
 --
 --
+-- /See:/ 'notificationOptions' smart constructor.
+data NotificationOptions = NotificationOptions'
+  { _noEmailMessage :: !(Maybe (Sensitive Text))
+  , _noSendEmail    :: !(Maybe Bool)
+  } deriving (Eq, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'NotificationOptions' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'noEmailMessage' - Text value to be included in the email body.
+--
+-- * 'noSendEmail' - Boolean value to indicate an email notification should be sent to the receipients.
+notificationOptions
+    :: NotificationOptions
+notificationOptions =
+  NotificationOptions' {_noEmailMessage = Nothing, _noSendEmail = Nothing}
+
+
+-- | Text value to be included in the email body.
+noEmailMessage :: Lens' NotificationOptions (Maybe Text)
+noEmailMessage = lens _noEmailMessage (\ s a -> s{_noEmailMessage = a}) . mapping _Sensitive
+
+-- | Boolean value to indicate an email notification should be sent to the receipients.
+noSendEmail :: Lens' NotificationOptions (Maybe Bool)
+noSendEmail = lens _noSendEmail (\ s a -> s{_noSendEmail = a})
+
+instance Hashable NotificationOptions where
+
+instance NFData NotificationOptions where
+
+instance ToJSON NotificationOptions where
+        toJSON NotificationOptions'{..}
+          = object
+              (catMaybes
+                 [("EmailMessage" .=) <$> _noEmailMessage,
+                  ("SendEmail" .=) <$> _noSendEmail])
+
+-- | Describes the users or user groups.
+--
+--
+--
 -- /See:/ 'participants' smart constructor.
 data Participants = Participants'
   { _pGroups :: !(Maybe [GroupMetadata])
@@ -743,11 +786,11 @@
 
 -- | The list of user groups.
 pGroups :: Lens' Participants [GroupMetadata]
-pGroups = lens _pGroups (\ s a -> s{_pGroups = a}) . _Default . _Coerce;
+pGroups = lens _pGroups (\ s a -> s{_pGroups = a}) . _Default . _Coerce
 
 -- | The list of users.
 pUsers :: Lens' Participants [UserMetadata]
-pUsers = lens _pUsers (\ s a -> s{_pUsers = a}) . _Default . _Coerce;
+pUsers = lens _pUsers (\ s a -> s{_pUsers = a}) . _Default . _Coerce
 
 instance FromJSON Participants where
         parseJSON
@@ -786,11 +829,11 @@
 
 -- | The role of the user.
 piRole :: Lens' PermissionInfo (Maybe RoleType)
-piRole = lens _piRole (\ s a -> s{_piRole = a});
+piRole = lens _piRole (\ s a -> s{_piRole = a})
 
 -- | The type of permissions.
 piType :: Lens' PermissionInfo (Maybe RolePermissionType)
-piType = lens _piType (\ s a -> s{_piType = a});
+piType = lens _piType (\ s a -> s{_piType = a})
 
 instance FromJSON PermissionInfo where
         parseJSON
@@ -831,15 +874,15 @@
 
 -- | The permission information for the resource.
 pRoles :: Lens' Principal [PermissionInfo]
-pRoles = lens _pRoles (\ s a -> s{_pRoles = a}) . _Default . _Coerce;
+pRoles = lens _pRoles (\ s a -> s{_pRoles = a}) . _Default . _Coerce
 
 -- | The ID of the resource.
 pId :: Lens' Principal (Maybe Text)
-pId = lens _pId (\ s a -> s{_pId = a});
+pId = lens _pId (\ s a -> s{_pId = a})
 
 -- | The type of resource.
 pType :: Lens' Principal (Maybe PrincipalType)
-pType = lens _pType (\ s a -> s{_pType = a});
+pType = lens _pType (\ s a -> s{_pType = a})
 
 instance FromJSON Principal where
         parseJSON
@@ -883,50 +926,50 @@
 --
 -- * 'rmType' - The type of resource.
 --
--- * 'rmOriginalName' - The original name of the resource prior to a rename operation.
+-- * 'rmOriginalName' - The original name of the resource before a rename operation.
 --
 -- * 'rmParentId' - The parent ID of the resource before a rename operation.
 resourceMetadata
     :: ResourceMetadata
 resourceMetadata =
   ResourceMetadata'
-  { _rmVersionId = Nothing
-  , _rmOwner = Nothing
-  , _rmName = Nothing
-  , _rmId = Nothing
-  , _rmType = Nothing
-  , _rmOriginalName = Nothing
-  , _rmParentId = Nothing
-  }
+    { _rmVersionId = Nothing
+    , _rmOwner = Nothing
+    , _rmName = Nothing
+    , _rmId = Nothing
+    , _rmType = Nothing
+    , _rmOriginalName = Nothing
+    , _rmParentId = Nothing
+    }
 
 
 -- | The version ID of the resource. This is an optional field and is filled for action on document version.
 rmVersionId :: Lens' ResourceMetadata (Maybe Text)
-rmVersionId = lens _rmVersionId (\ s a -> s{_rmVersionId = a});
+rmVersionId = lens _rmVersionId (\ s a -> s{_rmVersionId = a})
 
 -- | The owner of the resource.
 rmOwner :: Lens' ResourceMetadata (Maybe UserMetadata)
-rmOwner = lens _rmOwner (\ s a -> s{_rmOwner = a});
+rmOwner = lens _rmOwner (\ s a -> s{_rmOwner = a})
 
 -- | The name of the resource.
 rmName :: Lens' ResourceMetadata (Maybe Text)
-rmName = lens _rmName (\ s a -> s{_rmName = a});
+rmName = lens _rmName (\ s a -> s{_rmName = a})
 
 -- | The ID of the resource.
 rmId :: Lens' ResourceMetadata (Maybe Text)
-rmId = lens _rmId (\ s a -> s{_rmId = a});
+rmId = lens _rmId (\ s a -> s{_rmId = a})
 
 -- | The type of resource.
 rmType :: Lens' ResourceMetadata (Maybe ResourceType)
-rmType = lens _rmType (\ s a -> s{_rmType = a});
+rmType = lens _rmType (\ s a -> s{_rmType = a})
 
--- | The original name of the resource prior to a rename operation.
+-- | The original name of the resource before a rename operation.
 rmOriginalName :: Lens' ResourceMetadata (Maybe Text)
-rmOriginalName = lens _rmOriginalName (\ s a -> s{_rmOriginalName = a});
+rmOriginalName = lens _rmOriginalName (\ s a -> s{_rmOriginalName = a})
 
 -- | The parent ID of the resource before a rename operation.
 rmParentId :: Lens' ResourceMetadata (Maybe Text)
-rmParentId = lens _rmParentId (\ s a -> s{_rmParentId = a});
+rmParentId = lens _rmParentId (\ s a -> s{_rmParentId = a})
 
 instance FromJSON ResourceMetadata where
         parseJSON
@@ -966,7 +1009,7 @@
 
 -- | The components of the resource path.
 rpComponents :: Lens' ResourcePath [ResourcePathComponent]
-rpComponents = lens _rpComponents (\ s a -> s{_rpComponents = a}) . _Default . _Coerce;
+rpComponents = lens _rpComponents (\ s a -> s{_rpComponents = a}) . _Default . _Coerce
 
 instance FromJSON ResourcePath where
         parseJSON
@@ -1004,11 +1047,11 @@
 
 -- | The name of the resource path.
 rpcName :: Lens' ResourcePathComponent (Maybe Text)
-rpcName = lens _rpcName (\ s a -> s{_rpcName = a});
+rpcName = lens _rpcName (\ s a -> s{_rpcName = a})
 
 -- | The ID of the resource path.
 rpcId :: Lens' ResourcePathComponent (Maybe Text)
-rpcId = lens _rpcId (\ s a -> s{_rpcId = a});
+rpcId = lens _rpcId (\ s a -> s{_rpcId = a})
 
 instance FromJSON ResourcePathComponent where
         parseJSON
@@ -1053,15 +1096,15 @@
 
 -- | The ID of the recipient.
 spId :: Lens' SharePrincipal Text
-spId = lens _spId (\ s a -> s{_spId = a});
+spId = lens _spId (\ s a -> s{_spId = a})
 
 -- | The type of the recipient.
 spType :: Lens' SharePrincipal PrincipalType
-spType = lens _spType (\ s a -> s{_spType = a});
+spType = lens _spType (\ s a -> s{_spType = a})
 
 -- | The role of the recipient.
 spRole :: Lens' SharePrincipal RoleType
-spRole = lens _spRole (\ s a -> s{_spRole = a});
+spRole = lens _spRole (\ s a -> s{_spRole = a})
 
 instance Hashable SharePrincipal where
 
@@ -1105,33 +1148,33 @@
     :: ShareResult
 shareResult =
   ShareResult'
-  { _srStatus = Nothing
-  , _srPrincipalId = Nothing
-  , _srRole = Nothing
-  , _srStatusMessage = Nothing
-  , _srShareId = Nothing
-  }
+    { _srStatus = Nothing
+    , _srPrincipalId = Nothing
+    , _srRole = Nothing
+    , _srStatusMessage = Nothing
+    , _srShareId = Nothing
+    }
 
 
 -- | The status.
 srStatus :: Lens' ShareResult (Maybe ShareStatusType)
-srStatus = lens _srStatus (\ s a -> s{_srStatus = a});
+srStatus = lens _srStatus (\ s a -> s{_srStatus = a})
 
 -- | The ID of the principal.
 srPrincipalId :: Lens' ShareResult (Maybe Text)
-srPrincipalId = lens _srPrincipalId (\ s a -> s{_srPrincipalId = a});
+srPrincipalId = lens _srPrincipalId (\ s a -> s{_srPrincipalId = a})
 
 -- | The role.
 srRole :: Lens' ShareResult (Maybe RoleType)
-srRole = lens _srRole (\ s a -> s{_srRole = a});
+srRole = lens _srRole (\ s a -> s{_srRole = a})
 
 -- | The status message.
 srStatusMessage :: Lens' ShareResult (Maybe Text)
-srStatusMessage = lens _srStatusMessage (\ s a -> s{_srStatusMessage = a}) . mapping _Sensitive;
+srStatusMessage = lens _srStatusMessage (\ s a -> s{_srStatusMessage = a}) . mapping _Sensitive
 
 -- | The ID of the resource that was shared.
 srShareId :: Lens' ShareResult (Maybe Text)
-srShareId = lens _srShareId (\ s a -> s{_srShareId = a});
+srShareId = lens _srShareId (\ s a -> s{_srShareId = a})
 
 instance FromJSON ShareResult where
         parseJSON
@@ -1169,16 +1212,16 @@
     :: StorageRuleType
 storageRuleType =
   StorageRuleType'
-  {_srtStorageAllocatedInBytes = Nothing, _srtStorageType = Nothing}
+    {_srtStorageAllocatedInBytes = Nothing, _srtStorageType = Nothing}
 
 
 -- | The amount of storage allocated, in bytes.
 srtStorageAllocatedInBytes :: Lens' StorageRuleType (Maybe Natural)
-srtStorageAllocatedInBytes = lens _srtStorageAllocatedInBytes (\ s a -> s{_srtStorageAllocatedInBytes = a}) . mapping _Nat;
+srtStorageAllocatedInBytes = lens _srtStorageAllocatedInBytes (\ s a -> s{_srtStorageAllocatedInBytes = a}) . mapping _Nat
 
 -- | The type of storage.
 srtStorageType :: Lens' StorageRuleType (Maybe StorageType)
-srtStorageType = lens _srtStorageType (\ s a -> s{_srtStorageType = a});
+srtStorageType = lens _srtStorageType (\ s a -> s{_srtStorageType = a})
 
 instance FromJSON StorageRuleType where
         parseJSON
@@ -1225,20 +1268,20 @@
     :: Subscription
 subscription =
   Subscription'
-  {_sProtocol = Nothing, _sEndPoint = Nothing, _sSubscriptionId = Nothing}
+    {_sProtocol = Nothing, _sEndPoint = Nothing, _sSubscriptionId = Nothing}
 
 
 -- | The protocol of the subscription.
 sProtocol :: Lens' Subscription (Maybe SubscriptionProtocolType)
-sProtocol = lens _sProtocol (\ s a -> s{_sProtocol = a});
+sProtocol = lens _sProtocol (\ s a -> s{_sProtocol = a})
 
 -- | The endpoint of the subscription.
 sEndPoint :: Lens' Subscription (Maybe Text)
-sEndPoint = lens _sEndPoint (\ s a -> s{_sEndPoint = a});
+sEndPoint = lens _sEndPoint (\ s a -> s{_sEndPoint = a})
 
 -- | The ID of the subscription.
 sSubscriptionId :: Lens' Subscription (Maybe Text)
-sSubscriptionId = lens _sSubscriptionId (\ s a -> s{_sSubscriptionId = a});
+sSubscriptionId = lens _sSubscriptionId (\ s a -> s{_sSubscriptionId = a})
 
 instance FromJSON Subscription where
         parseJSON
@@ -1278,11 +1321,11 @@
 
 -- | The URL of the upload.
 umUploadURL :: Lens' UploadMetadata (Maybe Text)
-umUploadURL = lens _umUploadURL (\ s a -> s{_umUploadURL = a}) . mapping _Sensitive;
+umUploadURL = lens _umUploadURL (\ s a -> s{_umUploadURL = a}) . mapping _Sensitive
 
 -- | The signed headers.
 umSignedHeaders :: Lens' UploadMetadata (HashMap Text Text)
-umSignedHeaders = lens _umSignedHeaders (\ s a -> s{_umSignedHeaders = a}) . _Default . _Map;
+umSignedHeaders = lens _umSignedHeaders (\ s a -> s{_umSignedHeaders = a}) . _Default . _Map
 
 instance FromJSON UploadMetadata where
         parseJSON
@@ -1357,83 +1400,83 @@
     :: User
 user =
   User'
-  { _uGivenName = Nothing
-  , _uStatus = Nothing
-  , _uLocale = Nothing
-  , _uUsername = Nothing
-  , _uStorage = Nothing
-  , _uModifiedTimestamp = Nothing
-  , _uEmailAddress = Nothing
-  , _uId = Nothing
-  , _uRootFolderId = Nothing
-  , _uType = Nothing
-  , _uSurname = Nothing
-  , _uTimeZoneId = Nothing
-  , _uCreatedTimestamp = Nothing
-  , _uOrganizationId = Nothing
-  , _uRecycleBinFolderId = Nothing
-  }
+    { _uGivenName = Nothing
+    , _uStatus = Nothing
+    , _uLocale = Nothing
+    , _uUsername = Nothing
+    , _uStorage = Nothing
+    , _uModifiedTimestamp = Nothing
+    , _uEmailAddress = Nothing
+    , _uId = Nothing
+    , _uRootFolderId = Nothing
+    , _uType = Nothing
+    , _uSurname = Nothing
+    , _uTimeZoneId = Nothing
+    , _uCreatedTimestamp = Nothing
+    , _uOrganizationId = Nothing
+    , _uRecycleBinFolderId = Nothing
+    }
 
 
 -- | The given name of the user.
 uGivenName :: Lens' User (Maybe Text)
-uGivenName = lens _uGivenName (\ s a -> s{_uGivenName = a});
+uGivenName = lens _uGivenName (\ s a -> s{_uGivenName = a})
 
 -- | The status of the user.
 uStatus :: Lens' User (Maybe UserStatusType)
-uStatus = lens _uStatus (\ s a -> s{_uStatus = a});
+uStatus = lens _uStatus (\ s a -> s{_uStatus = a})
 
 -- | The locale of the user.
 uLocale :: Lens' User (Maybe LocaleType)
-uLocale = lens _uLocale (\ s a -> s{_uLocale = a});
+uLocale = lens _uLocale (\ s a -> s{_uLocale = a})
 
 -- | The login name of the user.
 uUsername :: Lens' User (Maybe Text)
-uUsername = lens _uUsername (\ s a -> s{_uUsername = a});
+uUsername = lens _uUsername (\ s a -> s{_uUsername = a})
 
 -- | The storage for the user.
 uStorage :: Lens' User (Maybe UserStorageMetadata)
-uStorage = lens _uStorage (\ s a -> s{_uStorage = a});
+uStorage = lens _uStorage (\ s a -> s{_uStorage = a})
 
 -- | The time when the user was modified.
 uModifiedTimestamp :: Lens' User (Maybe UTCTime)
-uModifiedTimestamp = lens _uModifiedTimestamp (\ s a -> s{_uModifiedTimestamp = a}) . mapping _Time;
+uModifiedTimestamp = lens _uModifiedTimestamp (\ s a -> s{_uModifiedTimestamp = a}) . mapping _Time
 
 -- | The email address of the user.
 uEmailAddress :: Lens' User (Maybe Text)
-uEmailAddress = lens _uEmailAddress (\ s a -> s{_uEmailAddress = a});
+uEmailAddress = lens _uEmailAddress (\ s a -> s{_uEmailAddress = a})
 
 -- | The ID of the user.
 uId :: Lens' User (Maybe Text)
-uId = lens _uId (\ s a -> s{_uId = a});
+uId = lens _uId (\ s a -> s{_uId = a})
 
 -- | The ID of the root folder.
 uRootFolderId :: Lens' User (Maybe Text)
-uRootFolderId = lens _uRootFolderId (\ s a -> s{_uRootFolderId = a});
+uRootFolderId = lens _uRootFolderId (\ s a -> s{_uRootFolderId = a})
 
 -- | The type of user.
 uType :: Lens' User (Maybe UserType)
-uType = lens _uType (\ s a -> s{_uType = a});
+uType = lens _uType (\ s a -> s{_uType = a})
 
 -- | The surname of the user.
 uSurname :: Lens' User (Maybe Text)
-uSurname = lens _uSurname (\ s a -> s{_uSurname = a});
+uSurname = lens _uSurname (\ s a -> s{_uSurname = a})
 
 -- | The time zone ID of the user.
 uTimeZoneId :: Lens' User (Maybe Text)
-uTimeZoneId = lens _uTimeZoneId (\ s a -> s{_uTimeZoneId = a});
+uTimeZoneId = lens _uTimeZoneId (\ s a -> s{_uTimeZoneId = a})
 
 -- | The time when the user was created.
 uCreatedTimestamp :: Lens' User (Maybe UTCTime)
-uCreatedTimestamp = lens _uCreatedTimestamp (\ s a -> s{_uCreatedTimestamp = a}) . mapping _Time;
+uCreatedTimestamp = lens _uCreatedTimestamp (\ s a -> s{_uCreatedTimestamp = a}) . mapping _Time
 
 -- | The ID of the organization.
 uOrganizationId :: Lens' User (Maybe Text)
-uOrganizationId = lens _uOrganizationId (\ s a -> s{_uOrganizationId = a});
+uOrganizationId = lens _uOrganizationId (\ s a -> s{_uOrganizationId = a})
 
 -- | The ID of the recycle bin folder.
 uRecycleBinFolderId :: Lens' User (Maybe Text)
-uRecycleBinFolderId = lens _uRecycleBinFolderId (\ s a -> s{_uRecycleBinFolderId = a});
+uRecycleBinFolderId = lens _uRecycleBinFolderId (\ s a -> s{_uRecycleBinFolderId = a})
 
 instance FromJSON User where
         parseJSON
@@ -1479,7 +1522,7 @@
 --
 -- * 'umGivenName' - The given name of the user before a rename operation.
 --
--- * 'umUsername' - The username of the user.
+-- * 'umUsername' - The name of the user.
 --
 -- * 'umEmailAddress' - The email address of the user.
 --
@@ -1490,33 +1533,33 @@
     :: UserMetadata
 userMetadata =
   UserMetadata'
-  { _umGivenName = Nothing
-  , _umUsername = Nothing
-  , _umEmailAddress = Nothing
-  , _umId = Nothing
-  , _umSurname = Nothing
-  }
+    { _umGivenName = Nothing
+    , _umUsername = Nothing
+    , _umEmailAddress = Nothing
+    , _umId = Nothing
+    , _umSurname = Nothing
+    }
 
 
 -- | The given name of the user before a rename operation.
 umGivenName :: Lens' UserMetadata (Maybe Text)
-umGivenName = lens _umGivenName (\ s a -> s{_umGivenName = a});
+umGivenName = lens _umGivenName (\ s a -> s{_umGivenName = a})
 
--- | The username of the user.
+-- | The name of the user.
 umUsername :: Lens' UserMetadata (Maybe Text)
-umUsername = lens _umUsername (\ s a -> s{_umUsername = a});
+umUsername = lens _umUsername (\ s a -> s{_umUsername = a})
 
 -- | The email address of the user.
 umEmailAddress :: Lens' UserMetadata (Maybe Text)
-umEmailAddress = lens _umEmailAddress (\ s a -> s{_umEmailAddress = a});
+umEmailAddress = lens _umEmailAddress (\ s a -> s{_umEmailAddress = a})
 
 -- | The ID of the user.
 umId :: Lens' UserMetadata (Maybe Text)
-umId = lens _umId (\ s a -> s{_umId = a});
+umId = lens _umId (\ s a -> s{_umId = a})
 
 -- | The surname of the user.
 umSurname :: Lens' UserMetadata (Maybe Text)
-umSurname = lens _umSurname (\ s a -> s{_umSurname = a});
+umSurname = lens _umSurname (\ s a -> s{_umSurname = a})
 
 instance FromJSON UserMetadata where
         parseJSON
@@ -1547,23 +1590,23 @@
 --
 -- Use one of the following lenses to modify other fields as desired:
 --
--- * 'usmStorageUtilizedInBytes' - The amount of storage utilized, in bytes.
+-- * 'usmStorageUtilizedInBytes' - The amount of storage used, in bytes.
 --
 -- * 'usmStorageRule' - The storage for a user.
 userStorageMetadata
     :: UserStorageMetadata
 userStorageMetadata =
   UserStorageMetadata'
-  {_usmStorageUtilizedInBytes = Nothing, _usmStorageRule = Nothing}
+    {_usmStorageUtilizedInBytes = Nothing, _usmStorageRule = Nothing}
 
 
--- | The amount of storage utilized, in bytes.
+-- | The amount of storage used, in bytes.
 usmStorageUtilizedInBytes :: Lens' UserStorageMetadata (Maybe Integer)
-usmStorageUtilizedInBytes = lens _usmStorageUtilizedInBytes (\ s a -> s{_usmStorageUtilizedInBytes = a});
+usmStorageUtilizedInBytes = lens _usmStorageUtilizedInBytes (\ s a -> s{_usmStorageUtilizedInBytes = a})
 
 -- | The storage for a user.
 usmStorageRule :: Lens' UserStorageMetadata (Maybe StorageRuleType)
-usmStorageRule = lens _usmStorageRule (\ s a -> s{_usmStorageRule = a});
+usmStorageRule = lens _usmStorageRule (\ s a -> s{_usmStorageRule = a})
 
 instance FromJSON UserStorageMetadata where
         parseJSON
diff --git a/gen/Network/AWS/WorkDocs/Types/Sum.hs b/gen/Network/AWS/WorkDocs/Types/Sum.hs
--- a/gen/Network/AWS/WorkDocs/Types/Sum.hs
+++ b/gen/Network/AWS/WorkDocs/Types/Sum.hs
@@ -9,7 +9,7 @@
 
 -- |
 -- Module      : Network.AWS.WorkDocs.Types.Sum
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -133,6 +133,33 @@
 instance FromJSON ActivityType where
     parseJSON = parseJSONText "ActivityType"
 
+data BooleanEnumType
+  = False'
+  | True'
+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
+
+
+instance FromText BooleanEnumType where
+    parser = takeLowerText >>= \case
+        "false" -> pure False'
+        "true" -> pure True'
+        e -> fromTextError $ "Failure parsing BooleanEnumType from value: '" <> e
+           <> "'. Accepted values: false, true"
+
+instance ToText BooleanEnumType where
+    toText = \case
+        False' -> "FALSE"
+        True' -> "TRUE"
+
+instance Hashable     BooleanEnumType
+instance NFData       BooleanEnumType
+instance ToByteString BooleanEnumType
+instance ToQuery      BooleanEnumType
+instance ToHeader     BooleanEnumType
+
+instance ToJSON BooleanEnumType where
+    toJSON = toJSONText
+
 data CommentStatusType
   = Deleted
   | Draft
@@ -810,21 +837,30 @@
 
 data UserType
   = UTAdmin
+  | UTMinimaluser
+  | UTPoweruser
   | UTUser
+  | UTWorkspacesuser
   deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
 
 
 instance FromText UserType where
     parser = takeLowerText >>= \case
         "admin" -> pure UTAdmin
+        "minimaluser" -> pure UTMinimaluser
+        "poweruser" -> pure UTPoweruser
         "user" -> pure UTUser
+        "workspacesuser" -> pure UTWorkspacesuser
         e -> fromTextError $ "Failure parsing UserType from value: '" <> e
-           <> "'. Accepted values: admin, user"
+           <> "'. Accepted values: admin, minimaluser, poweruser, user, workspacesuser"
 
 instance ToText UserType where
     toText = \case
         UTAdmin -> "ADMIN"
+        UTMinimaluser -> "MINIMALUSER"
+        UTPoweruser -> "POWERUSER"
         UTUser -> "USER"
+        UTWorkspacesuser -> "WORKSPACESUSER"
 
 instance Hashable     UserType
 instance NFData       UserType
diff --git a/gen/Network/AWS/WorkDocs/UpdateDocument.hs b/gen/Network/AWS/WorkDocs/UpdateDocument.hs
--- a/gen/Network/AWS/WorkDocs/UpdateDocument.hs
+++ b/gen/Network/AWS/WorkDocs/UpdateDocument.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.WorkDocs.UpdateDocument
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -61,11 +61,11 @@
 --
 -- * 'udParentFolderId' - The ID of the parent folder.
 --
--- * 'udAuthenticationToken' - Amazon WorkDocs authentication token. This field should not be set when using administrative API actions, as in accessing the API using AWS credentials.
+-- * 'udAuthenticationToken' - Amazon WorkDocs authentication token. Do not set this field when using administrative API actions, as in accessing the API using AWS credentials.
 --
 -- * 'udName' - The name of the document.
 --
--- * 'udResourceState' - The resource state of the document. Note that only ACTIVE and RECYCLED are supported.
+-- * 'udResourceState' - The resource state of the document. Only ACTIVE and RECYCLED are supported.
 --
 -- * 'udDocumentId' - The ID of the document.
 updateDocument
@@ -73,33 +73,33 @@
     -> UpdateDocument
 updateDocument pDocumentId_ =
   UpdateDocument'
-  { _udParentFolderId = Nothing
-  , _udAuthenticationToken = Nothing
-  , _udName = Nothing
-  , _udResourceState = Nothing
-  , _udDocumentId = pDocumentId_
-  }
+    { _udParentFolderId = Nothing
+    , _udAuthenticationToken = Nothing
+    , _udName = Nothing
+    , _udResourceState = Nothing
+    , _udDocumentId = pDocumentId_
+    }
 
 
 -- | The ID of the parent folder.
 udParentFolderId :: Lens' UpdateDocument (Maybe Text)
-udParentFolderId = lens _udParentFolderId (\ s a -> s{_udParentFolderId = a});
+udParentFolderId = lens _udParentFolderId (\ s a -> s{_udParentFolderId = a})
 
--- | Amazon WorkDocs authentication token. This field should not be set when using administrative API actions, as in accessing the API using AWS credentials.
+-- | Amazon WorkDocs authentication token. Do not set this field when using administrative API actions, as in accessing the API using AWS credentials.
 udAuthenticationToken :: Lens' UpdateDocument (Maybe Text)
-udAuthenticationToken = lens _udAuthenticationToken (\ s a -> s{_udAuthenticationToken = a}) . mapping _Sensitive;
+udAuthenticationToken = lens _udAuthenticationToken (\ s a -> s{_udAuthenticationToken = a}) . mapping _Sensitive
 
 -- | The name of the document.
 udName :: Lens' UpdateDocument (Maybe Text)
-udName = lens _udName (\ s a -> s{_udName = a});
+udName = lens _udName (\ s a -> s{_udName = a})
 
--- | The resource state of the document. Note that only ACTIVE and RECYCLED are supported.
+-- | The resource state of the document. Only ACTIVE and RECYCLED are supported.
 udResourceState :: Lens' UpdateDocument (Maybe ResourceStateType)
-udResourceState = lens _udResourceState (\ s a -> s{_udResourceState = a});
+udResourceState = lens _udResourceState (\ s a -> s{_udResourceState = a})
 
 -- | The ID of the document.
 udDocumentId :: Lens' UpdateDocument Text
-udDocumentId = lens _udDocumentId (\ s a -> s{_udDocumentId = a});
+udDocumentId = lens _udDocumentId (\ s a -> s{_udDocumentId = a})
 
 instance AWSRequest UpdateDocument where
         type Rs UpdateDocument = UpdateDocumentResponse
diff --git a/gen/Network/AWS/WorkDocs/UpdateDocumentVersion.hs b/gen/Network/AWS/WorkDocs/UpdateDocumentVersion.hs
--- a/gen/Network/AWS/WorkDocs/UpdateDocumentVersion.hs
+++ b/gen/Network/AWS/WorkDocs/UpdateDocumentVersion.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.WorkDocs.UpdateDocumentVersion
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -59,7 +59,7 @@
 --
 -- Use one of the following lenses to modify other fields as desired:
 --
--- * 'udvAuthenticationToken' - Amazon WorkDocs authentication token. This field should not be set when using administrative API actions, as in accessing the API using AWS credentials.
+-- * 'udvAuthenticationToken' - Amazon WorkDocs authentication token. Do not set this field when using administrative API actions, as in accessing the API using AWS credentials.
 --
 -- * 'udvVersionStatus' - The status of the version.
 --
@@ -72,28 +72,28 @@
     -> UpdateDocumentVersion
 updateDocumentVersion pDocumentId_ pVersionId_ =
   UpdateDocumentVersion'
-  { _udvAuthenticationToken = Nothing
-  , _udvVersionStatus = Nothing
-  , _udvDocumentId = pDocumentId_
-  , _udvVersionId = pVersionId_
-  }
+    { _udvAuthenticationToken = Nothing
+    , _udvVersionStatus = Nothing
+    , _udvDocumentId = pDocumentId_
+    , _udvVersionId = pVersionId_
+    }
 
 
--- | Amazon WorkDocs authentication token. This field should not be set when using administrative API actions, as in accessing the API using AWS credentials.
+-- | Amazon WorkDocs authentication token. Do not set this field when using administrative API actions, as in accessing the API using AWS credentials.
 udvAuthenticationToken :: Lens' UpdateDocumentVersion (Maybe Text)
-udvAuthenticationToken = lens _udvAuthenticationToken (\ s a -> s{_udvAuthenticationToken = a}) . mapping _Sensitive;
+udvAuthenticationToken = lens _udvAuthenticationToken (\ s a -> s{_udvAuthenticationToken = a}) . mapping _Sensitive
 
 -- | The status of the version.
 udvVersionStatus :: Lens' UpdateDocumentVersion (Maybe DocumentVersionStatus)
-udvVersionStatus = lens _udvVersionStatus (\ s a -> s{_udvVersionStatus = a});
+udvVersionStatus = lens _udvVersionStatus (\ s a -> s{_udvVersionStatus = a})
 
 -- | The ID of the document.
 udvDocumentId :: Lens' UpdateDocumentVersion Text
-udvDocumentId = lens _udvDocumentId (\ s a -> s{_udvDocumentId = a});
+udvDocumentId = lens _udvDocumentId (\ s a -> s{_udvDocumentId = a})
 
 -- | The version ID of the document.
 udvVersionId :: Lens' UpdateDocumentVersion Text
-udvVersionId = lens _udvVersionId (\ s a -> s{_udvVersionId = a});
+udvVersionId = lens _udvVersionId (\ s a -> s{_udvVersionId = a})
 
 instance AWSRequest UpdateDocumentVersion where
         type Rs UpdateDocumentVersion =
diff --git a/gen/Network/AWS/WorkDocs/UpdateFolder.hs b/gen/Network/AWS/WorkDocs/UpdateFolder.hs
--- a/gen/Network/AWS/WorkDocs/UpdateFolder.hs
+++ b/gen/Network/AWS/WorkDocs/UpdateFolder.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.WorkDocs.UpdateFolder
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -61,11 +61,11 @@
 --
 -- * 'ufParentFolderId' - The ID of the parent folder.
 --
--- * 'ufAuthenticationToken' - Amazon WorkDocs authentication token. This field should not be set when using administrative API actions, as in accessing the API using AWS credentials.
+-- * 'ufAuthenticationToken' - Amazon WorkDocs authentication token. Do not set this field when using administrative API actions, as in accessing the API using AWS credentials.
 --
 -- * 'ufName' - The name of the folder.
 --
--- * 'ufResourceState' - The resource state of the folder. Note that only ACTIVE and RECYCLED are accepted values from the API.
+-- * 'ufResourceState' - The resource state of the folder. Only ACTIVE and RECYCLED are accepted values from the API.
 --
 -- * 'ufFolderId' - The ID of the folder.
 updateFolder
@@ -73,33 +73,33 @@
     -> UpdateFolder
 updateFolder pFolderId_ =
   UpdateFolder'
-  { _ufParentFolderId = Nothing
-  , _ufAuthenticationToken = Nothing
-  , _ufName = Nothing
-  , _ufResourceState = Nothing
-  , _ufFolderId = pFolderId_
-  }
+    { _ufParentFolderId = Nothing
+    , _ufAuthenticationToken = Nothing
+    , _ufName = Nothing
+    , _ufResourceState = Nothing
+    , _ufFolderId = pFolderId_
+    }
 
 
 -- | The ID of the parent folder.
 ufParentFolderId :: Lens' UpdateFolder (Maybe Text)
-ufParentFolderId = lens _ufParentFolderId (\ s a -> s{_ufParentFolderId = a});
+ufParentFolderId = lens _ufParentFolderId (\ s a -> s{_ufParentFolderId = a})
 
--- | Amazon WorkDocs authentication token. This field should not be set when using administrative API actions, as in accessing the API using AWS credentials.
+-- | Amazon WorkDocs authentication token. Do not set this field when using administrative API actions, as in accessing the API using AWS credentials.
 ufAuthenticationToken :: Lens' UpdateFolder (Maybe Text)
-ufAuthenticationToken = lens _ufAuthenticationToken (\ s a -> s{_ufAuthenticationToken = a}) . mapping _Sensitive;
+ufAuthenticationToken = lens _ufAuthenticationToken (\ s a -> s{_ufAuthenticationToken = a}) . mapping _Sensitive
 
 -- | The name of the folder.
 ufName :: Lens' UpdateFolder (Maybe Text)
-ufName = lens _ufName (\ s a -> s{_ufName = a});
+ufName = lens _ufName (\ s a -> s{_ufName = a})
 
--- | The resource state of the folder. Note that only ACTIVE and RECYCLED are accepted values from the API.
+-- | The resource state of the folder. Only ACTIVE and RECYCLED are accepted values from the API.
 ufResourceState :: Lens' UpdateFolder (Maybe ResourceStateType)
-ufResourceState = lens _ufResourceState (\ s a -> s{_ufResourceState = a});
+ufResourceState = lens _ufResourceState (\ s a -> s{_ufResourceState = a})
 
 -- | The ID of the folder.
 ufFolderId :: Lens' UpdateFolder Text
-ufFolderId = lens _ufFolderId (\ s a -> s{_ufFolderId = a});
+ufFolderId = lens _ufFolderId (\ s a -> s{_ufFolderId = a})
 
 instance AWSRequest UpdateFolder where
         type Rs UpdateFolder = UpdateFolderResponse
diff --git a/gen/Network/AWS/WorkDocs/UpdateUser.hs b/gen/Network/AWS/WorkDocs/UpdateUser.hs
--- a/gen/Network/AWS/WorkDocs/UpdateUser.hs
+++ b/gen/Network/AWS/WorkDocs/UpdateUser.hs
@@ -12,7 +12,7 @@
 
 -- |
 -- Module      : Network.AWS.WorkDocs.UpdateUser
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -28,6 +28,7 @@
     , UpdateUser
     -- * Request Lenses
     , uuGivenName
+    , uuGrantPoweruserPrivileges
     , uuLocale
     , uuAuthenticationToken
     , uuStorageRule
@@ -53,14 +54,15 @@
 
 -- | /See:/ 'updateUser' smart constructor.
 data UpdateUser = UpdateUser'
-  { _uuGivenName           :: !(Maybe Text)
-  , _uuLocale              :: !(Maybe LocaleType)
-  , _uuAuthenticationToken :: !(Maybe (Sensitive Text))
-  , _uuStorageRule         :: !(Maybe StorageRuleType)
-  , _uuType                :: !(Maybe UserType)
-  , _uuSurname             :: !(Maybe Text)
-  , _uuTimeZoneId          :: !(Maybe Text)
-  , _uuUserId              :: !Text
+  { _uuGivenName                :: !(Maybe Text)
+  , _uuGrantPoweruserPrivileges :: !(Maybe BooleanEnumType)
+  , _uuLocale                   :: !(Maybe LocaleType)
+  , _uuAuthenticationToken      :: !(Maybe (Sensitive Text))
+  , _uuStorageRule              :: !(Maybe StorageRuleType)
+  , _uuType                     :: !(Maybe UserType)
+  , _uuSurname                  :: !(Maybe Text)
+  , _uuTimeZoneId               :: !(Maybe Text)
+  , _uuUserId                   :: !Text
   } deriving (Eq, Show, Data, Typeable, Generic)
 
 
@@ -70,9 +72,11 @@
 --
 -- * 'uuGivenName' - The given name of the user.
 --
+-- * 'uuGrantPoweruserPrivileges' - Boolean value to determine whether the user is granted Poweruser privileges.
+--
 -- * 'uuLocale' - The locale of the user.
 --
--- * 'uuAuthenticationToken' - Amazon WorkDocs authentication token. This field should not be set when using administrative API actions, as in accessing the API using AWS credentials.
+-- * 'uuAuthenticationToken' - Amazon WorkDocs authentication token. Do not set this field when using administrative API actions, as in accessing the API using AWS credentials.
 --
 -- * 'uuStorageRule' - The amount of storage for the user.
 --
@@ -88,48 +92,53 @@
     -> UpdateUser
 updateUser pUserId_ =
   UpdateUser'
-  { _uuGivenName = Nothing
-  , _uuLocale = Nothing
-  , _uuAuthenticationToken = Nothing
-  , _uuStorageRule = Nothing
-  , _uuType = Nothing
-  , _uuSurname = Nothing
-  , _uuTimeZoneId = Nothing
-  , _uuUserId = pUserId_
-  }
+    { _uuGivenName = Nothing
+    , _uuGrantPoweruserPrivileges = Nothing
+    , _uuLocale = Nothing
+    , _uuAuthenticationToken = Nothing
+    , _uuStorageRule = Nothing
+    , _uuType = Nothing
+    , _uuSurname = Nothing
+    , _uuTimeZoneId = Nothing
+    , _uuUserId = pUserId_
+    }
 
 
 -- | The given name of the user.
 uuGivenName :: Lens' UpdateUser (Maybe Text)
-uuGivenName = lens _uuGivenName (\ s a -> s{_uuGivenName = a});
+uuGivenName = lens _uuGivenName (\ s a -> s{_uuGivenName = a})
 
+-- | Boolean value to determine whether the user is granted Poweruser privileges.
+uuGrantPoweruserPrivileges :: Lens' UpdateUser (Maybe BooleanEnumType)
+uuGrantPoweruserPrivileges = lens _uuGrantPoweruserPrivileges (\ s a -> s{_uuGrantPoweruserPrivileges = a})
+
 -- | The locale of the user.
 uuLocale :: Lens' UpdateUser (Maybe LocaleType)
-uuLocale = lens _uuLocale (\ s a -> s{_uuLocale = a});
+uuLocale = lens _uuLocale (\ s a -> s{_uuLocale = a})
 
--- | Amazon WorkDocs authentication token. This field should not be set when using administrative API actions, as in accessing the API using AWS credentials.
+-- | Amazon WorkDocs authentication token. Do not set this field when using administrative API actions, as in accessing the API using AWS credentials.
 uuAuthenticationToken :: Lens' UpdateUser (Maybe Text)
-uuAuthenticationToken = lens _uuAuthenticationToken (\ s a -> s{_uuAuthenticationToken = a}) . mapping _Sensitive;
+uuAuthenticationToken = lens _uuAuthenticationToken (\ s a -> s{_uuAuthenticationToken = a}) . mapping _Sensitive
 
 -- | The amount of storage for the user.
 uuStorageRule :: Lens' UpdateUser (Maybe StorageRuleType)
-uuStorageRule = lens _uuStorageRule (\ s a -> s{_uuStorageRule = a});
+uuStorageRule = lens _uuStorageRule (\ s a -> s{_uuStorageRule = a})
 
 -- | The type of the user.
 uuType :: Lens' UpdateUser (Maybe UserType)
-uuType = lens _uuType (\ s a -> s{_uuType = a});
+uuType = lens _uuType (\ s a -> s{_uuType = a})
 
 -- | The surname of the user.
 uuSurname :: Lens' UpdateUser (Maybe Text)
-uuSurname = lens _uuSurname (\ s a -> s{_uuSurname = a});
+uuSurname = lens _uuSurname (\ s a -> s{_uuSurname = a})
 
 -- | The time zone ID of the user.
 uuTimeZoneId :: Lens' UpdateUser (Maybe Text)
-uuTimeZoneId = lens _uuTimeZoneId (\ s a -> s{_uuTimeZoneId = a});
+uuTimeZoneId = lens _uuTimeZoneId (\ s a -> s{_uuTimeZoneId = a})
 
 -- | The ID of the user.
 uuUserId :: Lens' UpdateUser Text
-uuUserId = lens _uuUserId (\ s a -> s{_uuUserId = a});
+uuUserId = lens _uuUserId (\ s a -> s{_uuUserId = a})
 
 instance AWSRequest UpdateUser where
         type Rs UpdateUser = UpdateUserResponse
@@ -156,6 +165,8 @@
           = object
               (catMaybes
                  [("GivenName" .=) <$> _uuGivenName,
+                  ("GrantPoweruserPrivileges" .=) <$>
+                    _uuGrantPoweruserPrivileges,
                   ("Locale" .=) <$> _uuLocale,
                   ("StorageRule" .=) <$> _uuStorageRule,
                   ("Type" .=) <$> _uuType,
@@ -188,15 +199,15 @@
     -> UpdateUserResponse
 updateUserResponse pResponseStatus_ =
   UpdateUserResponse'
-  {_uursUser = Nothing, _uursResponseStatus = pResponseStatus_}
+    {_uursUser = Nothing, _uursResponseStatus = pResponseStatus_}
 
 
 -- | The user information.
 uursUser :: Lens' UpdateUserResponse (Maybe User)
-uursUser = lens _uursUser (\ s a -> s{_uursUser = a});
+uursUser = lens _uursUser (\ s a -> s{_uursUser = a})
 
 -- | -- | The response status code.
 uursResponseStatus :: Lens' UpdateUserResponse Int
-uursResponseStatus = lens _uursResponseStatus (\ s a -> s{_uursResponseStatus = a});
+uursResponseStatus = lens _uursResponseStatus (\ s a -> s{_uursResponseStatus = a})
 
 instance NFData UpdateUserResponse where
diff --git a/gen/Network/AWS/WorkDocs/Waiters.hs b/gen/Network/AWS/WorkDocs/Waiters.hs
--- a/gen/Network/AWS/WorkDocs/Waiters.hs
+++ b/gen/Network/AWS/WorkDocs/Waiters.hs
@@ -7,7 +7,7 @@
 
 -- |
 -- Module      : Network.AWS.WorkDocs.Waiters
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@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-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
diff --git a/test/Test/AWS/Gen/WorkDocs.hs b/test/Test/AWS/Gen/WorkDocs.hs
--- a/test/Test/AWS/Gen/WorkDocs.hs
+++ b/test/Test/AWS/Gen/WorkDocs.hs
@@ -5,7 +5,7 @@
 
 -- |
 -- Module      : Test.AWS.Gen.WorkDocs
--- Copyright   : (c) 2013-2017 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
 -- Stability   : auto-generated
@@ -145,6 +145,9 @@
 --         , requestDeleteDocument $
 --             deleteDocument
 --
+--         , requestDescribeGroups $
+--             describeGroups
+--
 --           ]
 
 --     , testGroup "response"
@@ -265,6 +268,9 @@
 --         , responseDeleteDocument $
 --             deleteDocumentResponse
 --
+--         , responseDescribeGroups $
+--             describeGroupsResponse
+--
 --           ]
 --     ]
 
@@ -465,6 +471,11 @@
     "DeleteDocument"
     "fixture/DeleteDocument.yaml"
 
+requestDescribeGroups :: DescribeGroups -> TestTree
+requestDescribeGroups = req
+    "DescribeGroups"
+    "fixture/DescribeGroups.yaml"
+
 -- Responses
 
 responseDeleteLabels :: DeleteLabelsResponse -> TestTree
@@ -739,3 +750,10 @@
     "fixture/DeleteDocumentResponse.proto"
     workDocs
     (Proxy :: Proxy DeleteDocument)
+
+responseDescribeGroups :: DescribeGroupsResponse -> TestTree
+responseDescribeGroups = res
+    "DescribeGroupsResponse"
+    "fixture/DescribeGroupsResponse.proto"
+    workDocs
+    (Proxy :: Proxy DescribeGroups)
diff --git a/test/Test/AWS/WorkDocs.hs b/test/Test/AWS/WorkDocs.hs
--- a/test/Test/AWS/WorkDocs.hs
+++ b/test/Test/AWS/WorkDocs.hs
@@ -1,6 +1,6 @@
 -- |
 -- Module      : Test.AWS.WorkDocs
--- Copyright   : (c) 2013-2016 Brendan Hay
+-- Copyright   : (c) 2013-2018 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/WorkDocs/Internal.hs b/test/Test/AWS/WorkDocs/Internal.hs
--- a/test/Test/AWS/WorkDocs/Internal.hs
+++ b/test/Test/AWS/WorkDocs/Internal.hs
@@ -1,6 +1,6 @@
 -- |
 -- Module      : Test.AWS.WorkDocs.Internal
--- Copyright   : (c) 2013-2016 Brendan Hay
+-- Copyright   : (c) 2013-2018 Brendan Hay
 -- License     : Mozilla Public License, v. 2.0.
 -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>
 -- Stability   : auto-generated