diff --git a/amazonka-autoscaling.cabal b/amazonka-autoscaling.cabal
--- a/amazonka-autoscaling.cabal
+++ b/amazonka-autoscaling.cabal
@@ -1,5 +1,5 @@
 name:                  amazonka-autoscaling
-version:               0.0.0
+version:               0.0.1
 synopsis:              Amazon Auto Scaling SDK.
 homepage:              https://github.com/brendanhay/amazonka
 license:               OtherLicense
@@ -90,5 +90,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/AutoScaling/Types.hs b/gen/Network/AWS/AutoScaling/Types.hs
--- a/gen/Network/AWS/AutoScaling/Types.hs
+++ b/gen/Network/AWS/AutoScaling/Types.hs
@@ -1589,9 +1589,9 @@
     , _aEndTime              :: Maybe RFC822
     , _aProgress             :: Maybe Int
     , _aStartTime            :: RFC822
-    , _aStatusCode           :: Text
+    , _aStatusCode           :: ScalingActivityStatusCode
     , _aStatusMessage        :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Show)
 
 -- | 'Activity' constructor.
 --
@@ -1613,7 +1613,7 @@
 --
 -- * 'aStartTime' @::@ 'UTCTime'
 --
--- * 'aStatusCode' @::@ 'Text'
+-- * 'aStatusCode' @::@ 'ScalingActivityStatusCode'
 --
 -- * 'aStatusMessage' @::@ 'Maybe' 'Text'
 --
@@ -1621,7 +1621,7 @@
          -> Text -- ^ 'aAutoScalingGroupName'
          -> Text -- ^ 'aCause'
          -> UTCTime -- ^ 'aStartTime'
-         -> Text -- ^ 'aStatusCode'
+         -> ScalingActivityStatusCode -- ^ 'aStatusCode'
          -> Activity
 activity p1 p2 p3 p4 p5 = Activity
     { _aActivityId           = p1
@@ -1670,7 +1670,7 @@
 aStartTime = lens _aStartTime (\s a -> s { _aStartTime = a }) . _Time
 
 -- | The current status of the activity.
-aStatusCode :: Lens' Activity Text
+aStatusCode :: Lens' Activity ScalingActivityStatusCode
 aStatusCode = lens _aStatusCode (\s a -> s { _aStatusCode = a })
 
 -- | A friendly, more verbose description of the activity status.
@@ -1921,8 +1921,8 @@
     , _iHealthStatus            :: Text
     , _iInstanceId              :: Text
     , _iLaunchConfigurationName :: Text
-    , _iLifecycleState          :: Text
-    } deriving (Eq, Ord, Show)
+    , _iLifecycleState          :: LifecycleState
+    } deriving (Eq, Show)
 
 -- | 'Instance' constructor.
 --
@@ -1936,11 +1936,11 @@
 --
 -- * 'iLaunchConfigurationName' @::@ 'Text'
 --
--- * 'iLifecycleState' @::@ 'Text'
+-- * 'iLifecycleState' @::@ 'LifecycleState'
 --
 instance' :: Text -- ^ 'iInstanceId'
           -> Text -- ^ 'iAvailabilityZone'
-          -> Text -- ^ 'iLifecycleState'
+          -> LifecycleState -- ^ 'iLifecycleState'
           -> Text -- ^ 'iHealthStatus'
           -> Text -- ^ 'iLaunchConfigurationName'
           -> Instance
@@ -1973,7 +1973,7 @@
 
 -- | A description of the current lifecycle state. The Quarantined lifecycle
 -- state is not used.
-iLifecycleState :: Lens' Instance Text
+iLifecycleState :: Lens' Instance LifecycleState
 iLifecycleState = lens _iLifecycleState (\s a -> s { _iLifecycleState = a })
 
 instance FromXML Instance where
@@ -2042,11 +2042,13 @@
         TerminatingProceed -> "Terminating:Proceed"
         TerminatingWait    -> "Terminating:Wait"
 
+instance ToByteString LifecycleState
+instance ToHeader     LifecycleState
+instance ToQuery      LifecycleState
+
 instance FromXML LifecycleState where
     parseXML = parseXMLText "LifecycleState"
 
-instance ToQuery LifecycleState where
-    toQuery = toQuery . toText
 
 data AutoScalingInstanceDetails = AutoScalingInstanceDetails
     { _asidAutoScalingGroupName    :: Text
@@ -2181,8 +2183,10 @@
         WaitingForSpotInstanceId        -> "WaitingForSpotInstanceId"
         WaitingForSpotInstanceRequestId -> "WaitingForSpotInstanceRequestId"
 
+instance ToByteString ScalingActivityStatusCode
+instance ToHeader     ScalingActivityStatusCode
+instance ToQuery      ScalingActivityStatusCode
+
 instance FromXML ScalingActivityStatusCode where
     parseXML = parseXMLText "ScalingActivityStatusCode"
 
-instance ToQuery ScalingActivityStatusCode where
-    toQuery = toQuery . toText