diff --git a/amazonka-codedeploy.cabal b/amazonka-codedeploy.cabal
--- a/amazonka-codedeploy.cabal
+++ b/amazonka-codedeploy.cabal
@@ -1,5 +1,5 @@
 name:                  amazonka-codedeploy
-version:               0.0.0
+version:               0.0.1
 synopsis:              Amazon CodeDeploy SDK.
 homepage:              https://github.com/brendanhay/amazonka
 license:               OtherLicense
@@ -69,5 +69,5 @@
     other-modules:
 
     build-depends:
-          amazonka-core
-        , base          >= 4.7 && < 5
+          amazonka-core == 0.0.1.*
+        , base          >= 4.7     && < 5
diff --git a/gen/Network/AWS/CodeDeploy/ListApplicationRevisions.hs b/gen/Network/AWS/CodeDeploy/ListApplicationRevisions.hs
--- a/gen/Network/AWS/CodeDeploy/ListApplicationRevisions.hs
+++ b/gen/Network/AWS/CodeDeploy/ListApplicationRevisions.hs
@@ -54,13 +54,13 @@
 
 data ListApplicationRevisions = ListApplicationRevisions
     { _larApplicationName :: Text
-    , _larDeployed        :: Maybe Text
+    , _larDeployed        :: Maybe ListStateFilterAction
     , _larNextToken       :: Maybe Text
     , _larS3Bucket        :: Maybe Text
     , _larS3KeyPrefix     :: Maybe Text
-    , _larSortBy          :: Maybe Text
-    , _larSortOrder       :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    , _larSortBy          :: Maybe ApplicationRevisionSortBy
+    , _larSortOrder       :: Maybe SortOrder
+    } deriving (Eq, Show)
 
 -- | 'ListApplicationRevisions' constructor.
 --
@@ -68,7 +68,7 @@
 --
 -- * 'larApplicationName' @::@ 'Text'
 --
--- * 'larDeployed' @::@ 'Maybe' 'Text'
+-- * 'larDeployed' @::@ 'Maybe' 'ListStateFilterAction'
 --
 -- * 'larNextToken' @::@ 'Maybe' 'Text'
 --
@@ -76,9 +76,9 @@
 --
 -- * 'larS3KeyPrefix' @::@ 'Maybe' 'Text'
 --
--- * 'larSortBy' @::@ 'Maybe' 'Text'
+-- * 'larSortBy' @::@ 'Maybe' 'ApplicationRevisionSortBy'
 --
--- * 'larSortOrder' @::@ 'Maybe' 'Text'
+-- * 'larSortOrder' @::@ 'Maybe' 'SortOrder'
 --
 listApplicationRevisions :: Text -- ^ 'larApplicationName'
                          -> ListApplicationRevisions
@@ -103,7 +103,7 @@
 -- revisions of a deployment group. exclude: Do not list revisions that are
 -- target revisions of a deployment group. ignore: List all revisions,
 -- regardless of whether they are target revisions of a deployment group.
-larDeployed :: Lens' ListApplicationRevisions (Maybe Text)
+larDeployed :: Lens' ListApplicationRevisions (Maybe ListStateFilterAction)
 larDeployed = lens _larDeployed (\s a -> s { _larDeployed = a })
 
 -- | An identifier that was returned from the previous list application
@@ -128,14 +128,14 @@
 -- used by in a deployment. lastUsedTime: Sort the list results by when the
 -- revisions were last used in a deployment. If not specified or set to
 -- null, the results will be returned in an arbitrary order.
-larSortBy :: Lens' ListApplicationRevisions (Maybe Text)
+larSortBy :: Lens' ListApplicationRevisions (Maybe ApplicationRevisionSortBy)
 larSortBy = lens _larSortBy (\s a -> s { _larSortBy = a })
 
 -- | The order to sort the list results by: ascending: Sort the list results
 -- in ascending order. descending: Sort the list results in descending
 -- order. If not specified, the results will be sorted in ascending order.
 -- If set to null, the results will be sorted in an arbitrary order.
-larSortOrder :: Lens' ListApplicationRevisions (Maybe Text)
+larSortOrder :: Lens' ListApplicationRevisions (Maybe SortOrder)
 larSortOrder = lens _larSortOrder (\s a -> s { _larSortOrder = a })
 
 data ListApplicationRevisionsResponse = ListApplicationRevisionsResponse
diff --git a/gen/Network/AWS/CodeDeploy/ListDeploymentInstances.hs b/gen/Network/AWS/CodeDeploy/ListDeploymentInstances.hs
--- a/gen/Network/AWS/CodeDeploy/ListDeploymentInstances.hs
+++ b/gen/Network/AWS/CodeDeploy/ListDeploymentInstances.hs
@@ -51,9 +51,9 @@
 
 data ListDeploymentInstances = ListDeploymentInstances
     { _ldiDeploymentId         :: Text
-    , _ldiInstanceStatusFilter :: List "instanceStatusFilter" Text
+    , _ldiInstanceStatusFilter :: List "instanceStatusFilter" InstanceStatus
     , _ldiNextToken            :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Show)
 
 -- | 'ListDeploymentInstances' constructor.
 --
@@ -61,7 +61,7 @@
 --
 -- * 'ldiDeploymentId' @::@ 'Text'
 --
--- * 'ldiInstanceStatusFilter' @::@ ['Text']
+-- * 'ldiInstanceStatusFilter' @::@ ['InstanceStatus']
 --
 -- * 'ldiNextToken' @::@ 'Maybe' 'Text'
 --
@@ -85,7 +85,7 @@
 -- instances with failed deployments. Skipped: Include in the resulting list
 -- those instances with skipped deployments. Unknown: Include in the
 -- resulting list those instances with deployments in an unknown state.
-ldiInstanceStatusFilter :: Lens' ListDeploymentInstances [Text]
+ldiInstanceStatusFilter :: Lens' ListDeploymentInstances [InstanceStatus]
 ldiInstanceStatusFilter =
     lens _ldiInstanceStatusFilter (\s a -> s { _ldiInstanceStatusFilter = a })
         . _List
diff --git a/gen/Network/AWS/CodeDeploy/ListDeployments.hs b/gen/Network/AWS/CodeDeploy/ListDeployments.hs
--- a/gen/Network/AWS/CodeDeploy/ListDeployments.hs
+++ b/gen/Network/AWS/CodeDeploy/ListDeployments.hs
@@ -55,7 +55,7 @@
     { _ldApplicationName     :: Maybe Text
     , _ldCreateTimeRange     :: Maybe TimeRange
     , _ldDeploymentGroupName :: Maybe Text
-    , _ldIncludeOnlyStatuses :: List "includeOnlyStatuses" Text
+    , _ldIncludeOnlyStatuses :: List "includeOnlyStatuses" DeploymentStatus
     , _ldNextToken           :: Maybe Text
     } deriving (Eq, Show)
 
@@ -69,7 +69,7 @@
 --
 -- * 'ldDeploymentGroupName' @::@ 'Maybe' 'Text'
 --
--- * 'ldIncludeOnlyStatuses' @::@ ['Text']
+-- * 'ldIncludeOnlyStatuses' @::@ ['DeploymentStatus']
 --
 -- * 'ldNextToken' @::@ 'Maybe' 'Text'
 --
@@ -105,7 +105,7 @@
 -- in-progress deployments. Succeeded: Include in the resulting list
 -- succeeded deployments. Failed: Include in the resulting list failed
 -- deployments. Aborted: Include in the resulting list aborted deployments.
-ldIncludeOnlyStatuses :: Lens' ListDeployments [Text]
+ldIncludeOnlyStatuses :: Lens' ListDeployments [DeploymentStatus]
 ldIncludeOnlyStatuses =
     lens _ldIncludeOnlyStatuses (\s a -> s { _ldIncludeOnlyStatuses = a })
         . _List
diff --git a/gen/Network/AWS/CodeDeploy/StopDeployment.hs b/gen/Network/AWS/CodeDeploy/StopDeployment.hs
--- a/gen/Network/AWS/CodeDeploy/StopDeployment.hs
+++ b/gen/Network/AWS/CodeDeploy/StopDeployment.hs
@@ -67,15 +67,15 @@
 sdDeploymentId = lens _sdDeploymentId (\s a -> s { _sdDeploymentId = a })
 
 data StopDeploymentResponse = StopDeploymentResponse
-    { _sdrStatus        :: Maybe Text
+    { _sdrStatus        :: Maybe StopStatus
     , _sdrStatusMessage :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Show)
 
 -- | 'StopDeploymentResponse' constructor.
 --
 -- The fields accessible through corresponding lenses are:
 --
--- * 'sdrStatus' @::@ 'Maybe' 'Text'
+-- * 'sdrStatus' @::@ 'Maybe' 'StopStatus'
 --
 -- * 'sdrStatusMessage' @::@ 'Maybe' 'Text'
 --
@@ -87,7 +87,7 @@
 
 -- | The status of the stop deployment operation: Pending: The stop operation
 -- is pending. Succeeded: The stop operation succeeded.
-sdrStatus :: Lens' StopDeploymentResponse (Maybe Text)
+sdrStatus :: Lens' StopDeploymentResponse (Maybe StopStatus)
 sdrStatus = lens _sdrStatus (\s a -> s { _sdrStatus = a })
 
 -- | An accompanying status message.
diff --git a/gen/Network/AWS/CodeDeploy/Types.hs b/gen/Network/AWS/CodeDeploy/Types.hs
--- a/gen/Network/AWS/CodeDeploy/Types.hs
+++ b/gen/Network/AWS/CodeDeploy/Types.hs
@@ -386,6 +386,10 @@
         Tgz -> "tgz"
         Zip -> "zip"
 
+instance ToByteString BundleType
+instance ToHeader     BundleType
+instance ToQuery      BundleType
+
 instance FromJSON BundleType where
     parseJSON = parseJSONText "BundleType"
 
@@ -448,6 +452,10 @@
         Autoscaling -> "autoscaling"
         User        -> "user"
 
+instance ToByteString DeploymentCreator
+instance ToHeader     DeploymentCreator
+instance ToQuery      DeploymentCreator
+
 instance FromJSON DeploymentCreator where
     parseJSON = parseJSONText "DeploymentCreator"
 
@@ -459,7 +467,7 @@
     , _isInstanceId      :: Maybe Text
     , _isLastUpdatedAt   :: Maybe RFC822
     , _isLifecycleEvents :: List "lifecycleEvents" LifecycleEvent
-    , _isStatus          :: Maybe Text
+    , _isStatus          :: Maybe InstanceStatus
     } deriving (Eq, Show)
 
 -- | 'InstanceSummary' constructor.
@@ -474,7 +482,7 @@
 --
 -- * 'isLifecycleEvents' @::@ ['LifecycleEvent']
 --
--- * 'isStatus' @::@ 'Maybe' 'Text'
+-- * 'isStatus' @::@ 'Maybe' 'InstanceStatus'
 --
 instanceSummary :: InstanceSummary
 instanceSummary = InstanceSummary
@@ -509,7 +517,7 @@
 -- Failed: The deployment has failed for this instance. Skipped: The
 -- deployment has been skipped for this instance. Unknown: The deployment
 -- status is unknown for this instance.
-isStatus :: Lens' InstanceSummary (Maybe Text)
+isStatus :: Lens' InstanceSummary (Maybe InstanceStatus)
 isStatus = lens _isStatus (\s a -> s { _isStatus = a })
 
 instance FromJSON InstanceSummary where
@@ -693,6 +701,10 @@
         LastUsedTime  -> "lastUsedTime"
         RegisterTime  -> "registerTime"
 
+instance ToByteString ApplicationRevisionSortBy
+instance ToHeader     ApplicationRevisionSortBy
+instance ToQuery      ApplicationRevisionSortBy
+
 instance FromJSON ApplicationRevisionSortBy where
     parseJSON = parseJSONText "ApplicationRevisionSortBy"
 
@@ -700,15 +712,15 @@
     toJSON = toJSONText
 
 data MinimumHealthyHosts = MinimumHealthyHosts
-    { _mhhType  :: Maybe Text
+    { _mhhType  :: Maybe MinimumHealthyHostsType
     , _mhhValue :: Maybe Int
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Show)
 
 -- | 'MinimumHealthyHosts' constructor.
 --
 -- The fields accessible through corresponding lenses are:
 --
--- * 'mhhType' @::@ 'Maybe' 'Text'
+-- * 'mhhType' @::@ 'Maybe' 'MinimumHealthyHostsType'
 --
 -- * 'mhhValue' @::@ 'Maybe' 'Int'
 --
@@ -732,7 +744,7 @@
 -- instances type of MOST_CONCURRENCY and a value of 1. This means a
 -- deployment to only one Amazon EC2 instance at a time. (You cannot set the
 -- type to MOST_CONCURRENCY, only to HOST_COUNT or FLEET_PERCENT.).
-mhhType :: Lens' MinimumHealthyHosts (Maybe Text)
+mhhType :: Lens' MinimumHealthyHosts (Maybe MinimumHealthyHostsType)
 mhhType = lens _mhhType (\s a -> s { _mhhType = a })
 
 -- | The minimum healthy instances value.
@@ -769,6 +781,10 @@
         Ignore  -> "ignore"
         Include -> "include"
 
+instance ToByteString ListStateFilterAction
+instance ToHeader     ListStateFilterAction
+instance ToQuery      ListStateFilterAction
+
 instance FromJSON ListStateFilterAction where
     parseJSON = parseJSONText "ListStateFilterAction"
 
@@ -803,6 +819,10 @@
         Success             -> "Success"
         UnknownError        -> "UnknownError"
 
+instance ToByteString LifecycleErrorCode
+instance ToHeader     LifecycleErrorCode
+instance ToQuery      LifecycleErrorCode
+
 instance FromJSON LifecycleErrorCode where
     parseJSON = parseJSONText "LifecycleErrorCode"
 
@@ -811,7 +831,7 @@
 
 data RevisionLocation = RevisionLocation
     { _rlGitHubLocation :: Maybe GitHubLocation
-    , _rlRevisionType   :: Maybe Text
+    , _rlRevisionType   :: Maybe RevisionLocationType
     , _rlS3Location     :: Maybe S3Location
     } deriving (Eq, Show)
 
@@ -821,7 +841,7 @@
 --
 -- * 'rlGitHubLocation' @::@ 'Maybe' 'GitHubLocation'
 --
--- * 'rlRevisionType' @::@ 'Maybe' 'Text'
+-- * 'rlRevisionType' @::@ 'Maybe' 'RevisionLocationType'
 --
 -- * 'rlS3Location' @::@ 'Maybe' 'S3Location'
 --
@@ -837,7 +857,7 @@
 
 -- | The application revision's type: S3: An application revision stored in
 -- Amazon S3. GitHub: An application revision stored in GitHub.
-rlRevisionType :: Lens' RevisionLocation (Maybe Text)
+rlRevisionType :: Lens' RevisionLocation (Maybe RevisionLocationType)
 rlRevisionType = lens _rlRevisionType (\s a -> s { _rlRevisionType = a })
 
 rlS3Location :: Lens' RevisionLocation (Maybe S3Location)
@@ -884,6 +904,10 @@
         Succeeded  -> "Succeeded"
         Unknown    -> "Unknown"
 
+instance ToByteString LifecycleEventStatus
+instance ToHeader     LifecycleEventStatus
+instance ToQuery      LifecycleEventStatus
+
 instance FromJSON LifecycleEventStatus where
     parseJSON = parseJSONText "LifecycleEventStatus"
 
@@ -892,9 +916,9 @@
 
 data EC2TagFilter = EC2TagFilter
     { _ectfKey   :: Maybe Text
-    , _ectfType  :: Maybe Text
+    , _ectfType  :: Maybe EC2TagFilterType
     , _ectfValue :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Show)
 
 -- | 'EC2TagFilter' constructor.
 --
@@ -902,7 +926,7 @@
 --
 -- * 'ectfKey' @::@ 'Maybe' 'Text'
 --
--- * 'ectfType' @::@ 'Maybe' 'Text'
+-- * 'ectfType' @::@ 'Maybe' 'EC2TagFilterType'
 --
 -- * 'ectfValue' @::@ 'Maybe' 'Text'
 --
@@ -919,7 +943,7 @@
 
 -- | The Amazon EC2 tag filter type: KEY_ONLY: Key only. VALUE_ONLY: Value
 -- only. KEY_AND_VALUE: Key and value.
-ectfType :: Lens' EC2TagFilter (Maybe Text)
+ectfType :: Lens' EC2TagFilter (Maybe EC2TagFilterType)
 ectfType = lens _ectfType (\s a -> s { _ectfType = a })
 
 -- | The Amazon EC2 tag filter value.
@@ -940,17 +964,17 @@
         ]
 
 data Diagnostics = Diagnostics
-    { _dErrorCode  :: Maybe Text
+    { _dErrorCode  :: Maybe LifecycleErrorCode
     , _dLogTail    :: Maybe Text
     , _dMessage    :: Maybe Text
     , _dScriptName :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Show)
 
 -- | 'Diagnostics' constructor.
 --
 -- The fields accessible through corresponding lenses are:
 --
--- * 'dErrorCode' @::@ 'Maybe' 'Text'
+-- * 'dErrorCode' @::@ 'Maybe' 'LifecycleErrorCode'
 --
 -- * 'dLogTail' @::@ 'Maybe' 'Text'
 --
@@ -973,7 +997,7 @@
 -- running in the specified time period. ScriptFailed: The specified script
 -- failed to run as expected. UnknownError: The specified script did not run
 -- for an unknown reason.
-dErrorCode :: Lens' Diagnostics (Maybe Text)
+dErrorCode :: Lens' Diagnostics (Maybe LifecycleErrorCode)
 dErrorCode = lens _dErrorCode (\s a -> s { _dErrorCode = a })
 
 -- | The last portion of the associated diagnostic log.
@@ -1019,6 +1043,10 @@
         SSPending   -> "Pending"
         SSSucceeded -> "Succeeded"
 
+instance ToByteString StopStatus
+instance ToHeader     StopStatus
+instance ToQuery      StopStatus
+
 instance FromJSON StopStatus where
     parseJSON = parseJSONText "StopStatus"
 
@@ -1026,15 +1054,15 @@
     toJSON = toJSONText
 
 data ErrorInformation = ErrorInformation
-    { _eiCode    :: Maybe Text
+    { _eiCode    :: Maybe ErrorCode
     , _eiMessage :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Show)
 
 -- | 'ErrorInformation' constructor.
 --
 -- The fields accessible through corresponding lenses are:
 --
--- * 'eiCode' @::@ 'Maybe' 'Text'
+-- * 'eiCode' @::@ 'Maybe' 'ErrorCode'
 --
 -- * 'eiMessage' @::@ 'Maybe' 'Text'
 --
@@ -1062,7 +1090,7 @@
 -- The deployment failed on too many instances to be able to successfully
 -- deploy under the specified instance health constraints. INTERNAL_ERROR:
 -- There was an internal error.
-eiCode :: Lens' ErrorInformation (Maybe Text)
+eiCode :: Lens' ErrorInformation (Maybe ErrorCode)
 eiCode = lens _eiCode (\s a -> s { _eiCode = a })
 
 -- | An accompanying error message.
@@ -1096,6 +1124,10 @@
         Ascending  -> "ascending"
         Descending -> "descending"
 
+instance ToByteString SortOrder
+instance ToHeader     SortOrder
+instance ToQuery      SortOrder
+
 instance FromJSON SortOrder where
     parseJSON = parseJSONText "SortOrder"
 
@@ -1106,7 +1138,7 @@
     { _diApplicationName               :: Maybe Text
     , _diCompleteTime                  :: Maybe RFC822
     , _diCreateTime                    :: Maybe RFC822
-    , _diCreator                       :: Maybe Text
+    , _diCreator                       :: Maybe DeploymentCreator
     , _diDeploymentConfigName          :: Maybe Text
     , _diDeploymentGroupName           :: Maybe Text
     , _diDeploymentId                  :: Maybe Text
@@ -1116,7 +1148,7 @@
     , _diIgnoreApplicationStopFailures :: Maybe Bool
     , _diRevision                      :: Maybe RevisionLocation
     , _diStartTime                     :: Maybe RFC822
-    , _diStatus                        :: Maybe Text
+    , _diStatus                        :: Maybe DeploymentStatus
     } deriving (Eq, Show)
 
 -- | 'DeploymentInfo' constructor.
@@ -1129,7 +1161,7 @@
 --
 -- * 'diCreateTime' @::@ 'Maybe' 'UTCTime'
 --
--- * 'diCreator' @::@ 'Maybe' 'Text'
+-- * 'diCreator' @::@ 'Maybe' 'DeploymentCreator'
 --
 -- * 'diDeploymentConfigName' @::@ 'Maybe' 'Text'
 --
@@ -1149,7 +1181,7 @@
 --
 -- * 'diStartTime' @::@ 'Maybe' 'UTCTime'
 --
--- * 'diStatus' @::@ 'Maybe' 'Text'
+-- * 'diStatus' @::@ 'Maybe' 'DeploymentStatus'
 --
 deploymentInfo :: DeploymentInfo
 deploymentInfo = DeploymentInfo
@@ -1184,7 +1216,7 @@
 
 -- | How the deployment was created: user: A user created the deployment.
 -- autoscaling: Auto Scaling created the deployment.
-diCreator :: Lens' DeploymentInfo (Maybe Text)
+diCreator :: Lens' DeploymentInfo (Maybe DeploymentCreator)
 diCreator = lens _diCreator (\s a -> s { _diCreator = a })
 
 -- | The deployment configuration name.
@@ -1242,7 +1274,7 @@
 diStartTime = lens _diStartTime (\s a -> s { _diStartTime = a }) . mapping _Time
 
 -- | The current state of the deployment as a whole.
-diStatus :: Lens' DeploymentInfo (Maybe Text)
+diStatus :: Lens' DeploymentInfo (Maybe DeploymentStatus)
 diStatus = lens _diStatus (\s a -> s { _diStatus = a })
 
 instance FromJSON DeploymentInfo where
@@ -1285,7 +1317,7 @@
     , _leEndTime            :: Maybe RFC822
     , _leLifecycleEventName :: Maybe Text
     , _leStartTime          :: Maybe RFC822
-    , _leStatus             :: Maybe Text
+    , _leStatus             :: Maybe LifecycleEventStatus
     } deriving (Eq, Show)
 
 -- | 'LifecycleEvent' constructor.
@@ -1300,7 +1332,7 @@
 --
 -- * 'leStartTime' @::@ 'Maybe' 'UTCTime'
 --
--- * 'leStatus' @::@ 'Maybe' 'Text'
+-- * 'leStatus' @::@ 'Maybe' 'LifecycleEventStatus'
 --
 lifecycleEvent :: LifecycleEvent
 lifecycleEvent = LifecycleEvent
@@ -1335,7 +1367,7 @@
 -- Failed: The deployment lifecycle event has failed. Skipped: The
 -- deployment lifecycle event has been skipped. Unknown: The deployment
 -- lifecycle event is unknown.
-leStatus :: Lens' LifecycleEvent (Maybe Text)
+leStatus :: Lens' LifecycleEvent (Maybe LifecycleEventStatus)
 leStatus = lens _leStatus (\s a -> s { _leStatus = a })
 
 instance FromJSON LifecycleEvent where
@@ -1466,6 +1498,10 @@
         RevisionMissing          -> "REVISION_MISSING"
         Timeout                  -> "TIMEOUT"
 
+instance ToByteString ErrorCode
+instance ToHeader     ErrorCode
+instance ToQuery      ErrorCode
+
 instance FromJSON ErrorCode where
     parseJSON = parseJSONText "ErrorCode"
 
@@ -1561,6 +1597,10 @@
         ISSucceeded  -> "Succeeded"
         ISUnknown    -> "Unknown"
 
+instance ToByteString InstanceStatus
+instance ToHeader     InstanceStatus
+instance ToQuery      InstanceStatus
+
 instance FromJSON InstanceStatus where
     parseJSON = parseJSONText "InstanceStatus"
 
@@ -1595,6 +1635,10 @@
         DSStopped    -> "Stopped"
         DSSucceeded  -> "Succeeded"
 
+instance ToByteString DeploymentStatus
+instance ToHeader     DeploymentStatus
+instance ToQuery      DeploymentStatus
+
 instance FromJSON DeploymentStatus where
     parseJSON = parseJSONText "DeploymentStatus"
 
@@ -1603,11 +1647,11 @@
 
 data S3Location = S3Location
     { _slBucket     :: Maybe Text
-    , _slBundleType :: Maybe Text
+    , _slBundleType :: Maybe BundleType
     , _slETag       :: Maybe Text
     , _slKey        :: Maybe Text
     , _slVersion    :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Show)
 
 -- | 'S3Location' constructor.
 --
@@ -1615,7 +1659,7 @@
 --
 -- * 'slBucket' @::@ 'Maybe' 'Text'
 --
--- * 'slBundleType' @::@ 'Maybe' 'Text'
+-- * 'slBundleType' @::@ 'Maybe' 'BundleType'
 --
 -- * 'slETag' @::@ 'Maybe' 'Text'
 --
@@ -1640,7 +1684,7 @@
 -- | The file type of the application revision. Must be one of the following:
 -- tar: A tar archive file. tgz: A compressed tar archive file. zip: A zip
 -- archive file.
-slBundleType :: Lens' S3Location (Maybe Text)
+slBundleType :: Lens' S3Location (Maybe BundleType)
 slBundleType = lens _slBundleType (\s a -> s { _slBundleType = a })
 
 -- | The ETag of the Amazon S3 object that represents the bundled artifacts
@@ -1693,6 +1737,10 @@
         FleetPercent -> "FLEET_PERCENT"
         HostCount    -> "HOST_COUNT"
 
+instance ToByteString MinimumHealthyHostsType
+instance ToHeader     MinimumHealthyHostsType
+instance ToQuery      MinimumHealthyHostsType
+
 instance FromJSON MinimumHealthyHostsType where
     parseJSON = parseJSONText "MinimumHealthyHostsType"
 
@@ -1756,6 +1804,10 @@
         GitHub -> "GitHub"
         S3     -> "S3"
 
+instance ToByteString RevisionLocationType
+instance ToHeader     RevisionLocationType
+instance ToQuery      RevisionLocationType
+
 instance FromJSON RevisionLocationType where
     parseJSON = parseJSONText "RevisionLocationType"
 
@@ -1780,6 +1832,10 @@
         KeyAndValue -> "KEY_AND_VALUE"
         KeyOnly     -> "KEY_ONLY"
         ValueOnly   -> "VALUE_ONLY"
+
+instance ToByteString EC2TagFilterType
+instance ToHeader     EC2TagFilterType
+instance ToQuery      EC2TagFilterType
 
 instance FromJSON EC2TagFilterType where
     parseJSON = parseJSONText "EC2TagFilterType"