diff --git a/LICENSE b/LICENSE
--- a/LICENSE
+++ b/LICENSE
@@ -365,9 +365,3 @@
 for such a notice.
 
 You may add additional accurate notices of copyright ownership.
-
-Exhibit B - "Incompatible With Secondary Licenses" Notice
----------------------------------------------------------
-
-  This Source Code Form is "Incompatible With Secondary Licenses", as
-  defined by the Mozilla Public License, v. 2.0.
diff --git a/README.md b/README.md
--- a/README.md
+++ b/README.md
@@ -8,7 +8,7 @@
 
 ## Version
 
-`1.3.2`
+`1.3.3`
 
 
 ## Description
diff --git a/amazonka-s3.cabal b/amazonka-s3.cabal
--- a/amazonka-s3.cabal
+++ b/amazonka-s3.cabal
@@ -1,5 +1,5 @@
 name:                  amazonka-s3
-version:               1.3.2
+version:               1.3.3
 synopsis:              Amazon Simple Storage Service SDK.
 homepage:              https://github.com/brendanhay/amazonka
 bug-reports:           https://github.com/brendanhay/amazonka/issues
@@ -108,7 +108,7 @@
         , Network.AWS.S3.Types.Sum
 
     build-depends:
-          amazonka-core == 1.3.2.*
+          amazonka-core == 1.3.3.*
         , base          >= 4.7     && < 5
         , lens >= 4.4
         , text >= 1.1
@@ -130,9 +130,9 @@
         , Test.AWS.S3.Internal
 
     build-depends:
-          amazonka-core == 1.3.2.*
-        , amazonka-test == 1.3.2.*
-        , amazonka-s3 == 1.3.2.*
+          amazonka-core == 1.3.3.*
+        , amazonka-test == 1.3.3.*
+        , amazonka-s3 == 1.3.3.*
         , base
         , bytestring
         , lens
diff --git a/gen/Network/AWS/S3/GetBucketLocation.hs b/gen/Network/AWS/S3/GetBucketLocation.hs
--- a/gen/Network/AWS/S3/GetBucketLocation.hs
+++ b/gen/Network/AWS/S3/GetBucketLocation.hs
@@ -33,8 +33,8 @@
     , getBucketLocationResponse
     , GetBucketLocationResponse
     -- * Response Lenses
-    , grsLocationConstraint
     , grsResponseStatus
+    , grsLocationConstraint
     ) where
 
 import           Network.AWS.Prelude
@@ -72,7 +72,7 @@
           = receiveXML
               (\ s h x ->
                  GetBucketLocationResponse' <$>
-                   (x .@? "LocationConstraint") <*> (pure (fromEnum s)))
+                   (pure (fromEnum s)) <*> (parseXML x))
 
 instance ToHeaders GetBucketLocation where
         toHeaders = const mempty
@@ -86,30 +86,31 @@
 
 -- | /See:/ 'getBucketLocationResponse' smart constructor.
 data GetBucketLocationResponse = GetBucketLocationResponse'
-    { _grsLocationConstraint :: !(Maybe Region)
-    , _grsResponseStatus     :: !Int
+    { _grsResponseStatus     :: !Int
+    , _grsLocationConstraint :: !Region
     } deriving (Eq,Read,Show,Data,Typeable,Generic)
 
 -- | Creates a value of 'GetBucketLocationResponse' with the minimum fields required to make a request.
 --
 -- Use one of the following lenses to modify other fields as desired:
 --
--- * 'grsLocationConstraint'
---
 -- * 'grsResponseStatus'
+--
+-- * 'grsLocationConstraint'
 getBucketLocationResponse
     :: Int -- ^ 'grsResponseStatus'
+    -> Region -- ^ 'grsLocationConstraint'
     -> GetBucketLocationResponse
-getBucketLocationResponse pResponseStatus_ =
+getBucketLocationResponse pResponseStatus_ pLocationConstraint_ =
     GetBucketLocationResponse'
-    { _grsLocationConstraint = Nothing
-    , _grsResponseStatus = pResponseStatus_
+    { _grsResponseStatus = pResponseStatus_
+    , _grsLocationConstraint = pLocationConstraint_
     }
 
--- | Undocumented member.
-grsLocationConstraint :: Lens' GetBucketLocationResponse (Maybe Region)
-grsLocationConstraint = lens _grsLocationConstraint (\ s a -> s{_grsLocationConstraint = a});
-
 -- | The response status code.
 grsResponseStatus :: Lens' GetBucketLocationResponse Int
 grsResponseStatus = lens _grsResponseStatus (\ s a -> s{_grsResponseStatus = a});
+
+-- | Undocumented member.
+grsLocationConstraint :: Lens' GetBucketLocationResponse Region
+grsLocationConstraint = lens _grsLocationConstraint (\ s a -> s{_grsLocationConstraint = a});
diff --git a/gen/Network/AWS/S3/Types/Sum.hs b/gen/Network/AWS/S3/Types/Sum.hs
--- a/gen/Network/AWS/S3/Types/Sum.hs
+++ b/gen/Network/AWS/S3/Types/Sum.hs
@@ -363,6 +363,7 @@
     = OSCGlacier
     | OSCReducedRedundancy
     | OSCStandard
+    | OSCStandardIA
     deriving (Eq,Ord,Read,Show,Enum,Data,Typeable,Generic)
 
 instance FromText ObjectStorageClass where
@@ -370,14 +371,16 @@
         "glacier" -> pure OSCGlacier
         "reduced_redundancy" -> pure OSCReducedRedundancy
         "standard" -> pure OSCStandard
+        "standard_ia" -> pure OSCStandardIA
         e -> fromTextError $ "Failure parsing ObjectStorageClass from value: '" <> e
-           <> "'. Accepted values: GLACIER, REDUCED_REDUNDANCY, STANDARD"
+           <> "'. Accepted values: GLACIER, REDUCED_REDUNDANCY, STANDARD, STANDARD_IA"
 
 instance ToText ObjectStorageClass where
     toText = \case
         OSCGlacier -> "GLACIER"
         OSCReducedRedundancy -> "REDUCED_REDUNDANCY"
         OSCStandard -> "STANDARD"
+        OSCStandardIA -> "STANDARD_IA"
 
 instance Hashable     ObjectStorageClass
 instance ToByteString ObjectStorageClass
@@ -643,14 +646,14 @@
 data StorageClass
     = ReducedRedundancy
     | Standard
-    | StandardIa
+    | StandardIA
     deriving (Eq,Ord,Read,Show,Enum,Data,Typeable,Generic)
 
 instance FromText StorageClass where
     parser = takeLowerText >>= \case
         "reduced_redundancy" -> pure ReducedRedundancy
         "standard" -> pure Standard
-        "standard_ia" -> pure StandardIa
+        "standard_ia" -> pure StandardIA
         e -> fromTextError $ "Failure parsing StorageClass from value: '" <> e
            <> "'. Accepted values: REDUCED_REDUNDANCY, STANDARD, STANDARD_IA"
 
@@ -658,7 +661,7 @@
     toText = \case
         ReducedRedundancy -> "REDUCED_REDUNDANCY"
         Standard -> "STANDARD"
-        StandardIa -> "STANDARD_IA"
+        StandardIA -> "STANDARD_IA"
 
 instance Hashable     StorageClass
 instance ToByteString StorageClass
@@ -673,20 +676,20 @@
 
 data TransitionStorageClass
     = TSCGlacier
-    | TSCStandardIa
+    | TSCStandardIA
     deriving (Eq,Ord,Read,Show,Enum,Data,Typeable,Generic)
 
 instance FromText TransitionStorageClass where
     parser = takeLowerText >>= \case
         "glacier" -> pure TSCGlacier
-        "standard_ia" -> pure TSCStandardIa
+        "standard_ia" -> pure TSCStandardIA
         e -> fromTextError $ "Failure parsing TransitionStorageClass from value: '" <> e
            <> "'. Accepted values: GLACIER, STANDARD_IA"
 
 instance ToText TransitionStorageClass where
     toText = \case
         TSCGlacier -> "GLACIER"
-        TSCStandardIa -> "STANDARD_IA"
+        TSCStandardIA -> "STANDARD_IA"
 
 instance Hashable     TransitionStorageClass
 instance ToByteString TransitionStorageClass