amazonka-opsworks 0.0.0 → 0.0.1

raw patch · 11 files changed

+137/−97 lines, 11 filesdep ~amazonka-corePVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependency ranges changed: amazonka-core

API changes (from Hackage documentation)

Files

• amazonka-opsworks.cabal +3/−3
• gen/Network/AWS/OpsWorks/CloneStack.hs +6/−6
• gen/Network/AWS/OpsWorks/CreateApp.hs +7/−7
• gen/Network/AWS/OpsWorks/CreateInstance.hs +10/−10
• gen/Network/AWS/OpsWorks/CreateLayer.hs +7/−7
• gen/Network/AWS/OpsWorks/CreateStack.hs +6/−6
• gen/Network/AWS/OpsWorks/Types.hs +76/−36
• gen/Network/AWS/OpsWorks/UpdateApp.hs +6/−6
• gen/Network/AWS/OpsWorks/UpdateInstance.hs +7/−7
• gen/Network/AWS/OpsWorks/UpdateLayer.hs +3/−3
• gen/Network/AWS/OpsWorks/UpdateStack.hs +6/−6

@@ -1,5 +1,5 @@ name:                  amazonka-opsworks-version:               0.0.0+version:               0.0.1 synopsis:              Amazon OpsWorks SDK. homepage:              https://github.com/brendanhay/amazonka license:               OtherLicense@@ -100,5 +100,5 @@     other-modules:      build-depends:-          amazonka-core-        , base          >= 4.7 && < 5+          amazonka-core == 0.0.1.*+        , base          >= 4.7     && < 5

@@ -69,7 +69,7 @@ import qualified GHC.Exts  data CloneStack = CloneStack-    { _cs1Attributes                :: Map Text Text+    { _cs1Attributes                :: Map StackAttributesKeys Text     , _cs1ChefConfiguration         :: Maybe ChefConfiguration     , _cs1CloneAppIds               :: List "InstanceIds" Text     , _cs1ClonePermissions          :: Maybe Bool@@ -79,7 +79,7 @@     , _cs1DefaultAvailabilityZone   :: Maybe Text     , _cs1DefaultInstanceProfileArn :: Maybe Text     , _cs1DefaultOs                 :: Maybe Text-    , _cs1DefaultRootDeviceType     :: Maybe Text+    , _cs1DefaultRootDeviceType     :: Maybe RootDeviceType     , _cs1DefaultSshKeyName         :: Maybe Text     , _cs1DefaultSubnetId           :: Maybe Text     , _cs1HostnameTheme             :: Maybe Text@@ -96,7 +96,7 @@ -- -- The fields accessible through corresponding lenses are: ----- * 'cs1Attributes' @::@ 'HashMap' 'Text' 'Text'+-- * 'cs1Attributes' @::@ 'HashMap' 'StackAttributesKeys' 'Text' -- -- * 'cs1ChefConfiguration' @::@ 'Maybe' 'ChefConfiguration' --@@ -116,7 +116,7 @@ -- -- * 'cs1DefaultOs' @::@ 'Maybe' 'Text' ----- * 'cs1DefaultRootDeviceType' @::@ 'Maybe' 'Text'+-- * 'cs1DefaultRootDeviceType' @::@ 'Maybe' 'RootDeviceType' -- -- * 'cs1DefaultSshKeyName' @::@ 'Maybe' 'Text' --@@ -167,7 +167,7 @@  -- | A list of stack attributes and values as key/value pairs to be added to -- the cloned stack.-cs1Attributes :: Lens' CloneStack (HashMap Text Text)+cs1Attributes :: Lens' CloneStack (HashMap StackAttributesKeys Text) cs1Attributes = lens _cs1Attributes (\s a -> s { _cs1Attributes = a }) . _Map  -- | A ChefConfiguration object that specifies whether to enable Berkshelf and@@ -232,7 +232,7 @@ -- | The default root device type. This value is used by default for all -- instances in the cloned stack, but you can override it when you create an -- instance. For more information, see Storage for the Root Device.-cs1DefaultRootDeviceType :: Lens' CloneStack (Maybe Text)+cs1DefaultRootDeviceType :: Lens' CloneStack (Maybe RootDeviceType) cs1DefaultRootDeviceType =     lens _cs1DefaultRootDeviceType         (\s a -> s { _cs1DefaultRootDeviceType = a })

@@ -61,7 +61,7 @@  data CreateApp = CreateApp     { _caAppSource        :: Maybe Source-    , _caAttributes       :: Map Text Text+    , _caAttributes       :: Map AppAttributesKeys Text     , _caDataSources      :: List "DataSources" DataSource     , _caDescription      :: Maybe Text     , _caDomains          :: List "InstanceIds" Text@@ -70,7 +70,7 @@     , _caShortname        :: Maybe Text     , _caSslConfiguration :: Maybe SslConfiguration     , _caStackId          :: Text-    , _caType             :: Text+    , _caType             :: AppType     } deriving (Eq, Show)  -- | 'CreateApp' constructor.@@ -79,7 +79,7 @@ -- -- * 'caAppSource' @::@ 'Maybe' 'Source' ----- * 'caAttributes' @::@ 'HashMap' 'Text' 'Text'+-- * 'caAttributes' @::@ 'HashMap' 'AppAttributesKeys' 'Text' -- -- * 'caDataSources' @::@ ['DataSource'] --@@ -97,11 +97,11 @@ -- -- * 'caStackId' @::@ 'Text' ----- * 'caType' @::@ 'Text'+-- * 'caType' @::@ 'AppType' -- createApp :: Text -- ^ 'caStackId'           -> Text -- ^ 'caName'-          -> Text -- ^ 'caType'+          -> AppType -- ^ 'caType'           -> CreateApp createApp p1 p2 p3 = CreateApp     { _caStackId          = p1@@ -123,7 +123,7 @@  -- | One or more user-defined key/value pairs to be added to the stack -- attributes.-caAttributes :: Lens' CreateApp (HashMap Text Text)+caAttributes :: Lens' CreateApp (HashMap AppAttributesKeys Text) caAttributes = lens _caAttributes (\s a -> s { _caAttributes = a }) . _Map  -- | The app's data source.@@ -164,7 +164,7 @@ -- For example, PHP applications are associated with a PHP layer. AWS -- OpsWorks deploys an application to those instances that are members of -- the corresponding layer.-caType :: Lens' CreateApp Text+caType :: Lens' CreateApp AppType caType = lens _caType (\s a -> s { _caType = a })  newtype CreateAppResponse = CreateAppResponse

@@ -65,8 +65,8 @@  data CreateInstance = CreateInstance     { _ciAmiId                :: Maybe Text-    , _ciArchitecture         :: Maybe Text-    , _ciAutoScalingType      :: Maybe Text+    , _ciArchitecture         :: Maybe Architecture+    , _ciAutoScalingType      :: Maybe AutoScalingType     , _ciAvailabilityZone     :: Maybe Text     , _ciEbsOptimized         :: Maybe Bool     , _ciHostname             :: Maybe Text@@ -74,12 +74,12 @@     , _ciInstanceType         :: Text     , _ciLayerIds             :: List "InstanceIds" Text     , _ciOs                   :: Maybe Text-    , _ciRootDeviceType       :: Maybe Text+    , _ciRootDeviceType       :: Maybe RootDeviceType     , _ciSshKeyName           :: Maybe Text     , _ciStackId              :: Text     , _ciSubnetId             :: Maybe Text     , _ciVirtualizationType   :: Maybe Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Show)  -- | 'CreateInstance' constructor. --@@ -87,9 +87,9 @@ -- -- * 'ciAmiId' @::@ 'Maybe' 'Text' ----- * 'ciArchitecture' @::@ 'Maybe' 'Text'+-- * 'ciArchitecture' @::@ 'Maybe' 'Architecture' ----- * 'ciAutoScalingType' @::@ 'Maybe' 'Text'+-- * 'ciAutoScalingType' @::@ 'Maybe' 'AutoScalingType' -- -- * 'ciAvailabilityZone' @::@ 'Maybe' 'Text' --@@ -105,7 +105,7 @@ -- -- * 'ciOs' @::@ 'Maybe' 'Text' ----- * 'ciRootDeviceType' @::@ 'Maybe' 'Text'+-- * 'ciRootDeviceType' @::@ 'Maybe' 'RootDeviceType' -- -- * 'ciSshKeyName' @::@ 'Maybe' 'Text' --@@ -146,7 +146,7 @@ -- do not necessarily support both architectures. For a list of the -- architectures that are supported by the different instance types, see -- Instance Families and Types.-ciArchitecture :: Lens' CreateInstance (Maybe Text)+ciArchitecture :: Lens' CreateInstance (Maybe Architecture) ciArchitecture = lens _ciArchitecture (\s a -> s { _ciArchitecture = a })  -- | The instance auto scaling type, which has three possible values:@@ -158,7 +158,7 @@ -- load metrics. To use load-based auto scaling, you must enable it for the -- instance layer and configure the thresholds by calling -- SetLoadBasedAutoScaling.-ciAutoScalingType :: Lens' CreateInstance (Maybe Text)+ciAutoScalingType :: Lens' CreateInstance (Maybe AutoScalingType) ciAutoScalingType =     lens _ciAutoScalingType (\s a -> s { _ciAutoScalingType = a }) @@ -209,7 +209,7 @@  -- | The instance root device type. For more information, see Storage for the -- Root Device.-ciRootDeviceType :: Lens' CreateInstance (Maybe Text)+ciRootDeviceType :: Lens' CreateInstance (Maybe RootDeviceType) ciRootDeviceType = lens _ciRootDeviceType (\s a -> s { _ciRootDeviceType = a })  -- | The instance SSH key name.

@@ -64,7 +64,7 @@ import qualified GHC.Exts  data CreateLayer = CreateLayer-    { _clAttributes               :: Map Text Text+    { _clAttributes               :: Map LayerAttributesKeys Text     , _clAutoAssignElasticIps     :: Maybe Bool     , _clAutoAssignPublicIps      :: Maybe Bool     , _clCustomInstanceProfileArn :: Maybe Text@@ -76,7 +76,7 @@     , _clPackages                 :: List "InstanceIds" Text     , _clShortname                :: Text     , _clStackId                  :: Text-    , _clType                     :: Text+    , _clType                     :: LayerType     , _clUseEbsOptimizedInstances :: Maybe Bool     , _clVolumeConfigurations     :: List "VolumeConfigurations" VolumeConfiguration     } deriving (Eq, Show)@@ -85,7 +85,7 @@ -- -- The fields accessible through corresponding lenses are: ----- * 'clAttributes' @::@ 'HashMap' 'Text' 'Text'+-- * 'clAttributes' @::@ 'HashMap' 'LayerAttributesKeys' 'Text' -- -- * 'clAutoAssignElasticIps' @::@ 'Maybe' 'Bool' --@@ -109,14 +109,14 @@ -- -- * 'clStackId' @::@ 'Text' ----- * 'clType' @::@ 'Text'+-- * 'clType' @::@ 'LayerType' -- -- * 'clUseEbsOptimizedInstances' @::@ 'Maybe' 'Bool' -- -- * 'clVolumeConfigurations' @::@ ['VolumeConfiguration'] -- createLayer :: Text -- ^ 'clStackId'-            -> Text -- ^ 'clType'+            -> LayerType -- ^ 'clType'             -> Text -- ^ 'clName'             -> Text -- ^ 'clShortname'             -> CreateLayer@@ -140,7 +140,7 @@  -- | One or more user-defined key/value pairs to be added to the stack -- attributes.-clAttributes :: Lens' CreateLayer (HashMap Text Text)+clAttributes :: Lens' CreateLayer (HashMap LayerAttributesKeys Text) clAttributes = lens _clAttributes (\s a -> s { _clAttributes = a }) . _Map  -- | Whether to automatically assign an Elastic IP address to the layer's@@ -215,7 +215,7 @@ -- layer lb: An HAProxy layer memcached: A Memcached layer -- monitoring-master: A Ganglia layer nodejs-app: A Node.js App Server layer -- php-app: A PHP App Server layer web: A Static Web Server layer.-clType :: Lens' CreateLayer Text+clType :: Lens' CreateLayer LayerType clType = lens _clType (\s a -> s { _clType = a })  -- | Whether to use Amazon EBS-optimized instances.

@@ -66,7 +66,7 @@ import qualified GHC.Exts  data CreateStack = CreateStack-    { _csAttributes                :: Map Text Text+    { _csAttributes                :: Map StackAttributesKeys Text     , _csChefConfiguration         :: Maybe ChefConfiguration     , _csConfigurationManager      :: Maybe StackConfigurationManager     , _csCustomCookbooksSource     :: Maybe Source@@ -74,7 +74,7 @@     , _csDefaultAvailabilityZone   :: Maybe Text     , _csDefaultInstanceProfileArn :: Text     , _csDefaultOs                 :: Maybe Text-    , _csDefaultRootDeviceType     :: Maybe Text+    , _csDefaultRootDeviceType     :: Maybe RootDeviceType     , _csDefaultSshKeyName         :: Maybe Text     , _csDefaultSubnetId           :: Maybe Text     , _csHostnameTheme             :: Maybe Text@@ -90,7 +90,7 @@ -- -- The fields accessible through corresponding lenses are: ----- * 'csAttributes' @::@ 'HashMap' 'Text' 'Text'+-- * 'csAttributes' @::@ 'HashMap' 'StackAttributesKeys' 'Text' -- -- * 'csChefConfiguration' @::@ 'Maybe' 'ChefConfiguration' --@@ -106,7 +106,7 @@ -- -- * 'csDefaultOs' @::@ 'Maybe' 'Text' ----- * 'csDefaultRootDeviceType' @::@ 'Maybe' 'Text'+-- * 'csDefaultRootDeviceType' @::@ 'Maybe' 'RootDeviceType' -- -- * 'csDefaultSshKeyName' @::@ 'Maybe' 'Text' --@@ -154,7 +154,7 @@  -- | One or more user-defined key/value pairs to be added to the stack -- attributes.-csAttributes :: Lens' CreateStack (HashMap Text Text)+csAttributes :: Lens' CreateStack (HashMap StackAttributesKeys Text) csAttributes = lens _csAttributes (\s a -> s { _csAttributes = a }) . _Map  -- | A ChefConfiguration object that specifies whether to enable Berkshelf and@@ -210,7 +210,7 @@ -- instances in the stack, but you can override it when you create an -- instance. The default option is instance-store. For more information, see -- Storage for the Root Device.-csDefaultRootDeviceType :: Lens' CreateStack (Maybe Text)+csDefaultRootDeviceType :: Lens' CreateStack (Maybe RootDeviceType) csDefaultRootDeviceType =     lens _csDefaultRootDeviceType (\s a -> s { _csDefaultRootDeviceType = a }) 

@@ -997,6 +997,10 @@         DocumentRoot       -> "DocumentRoot"         RailsEnv           -> "RailsEnv" +instance ToByteString AppAttributesKeys+instance ToHeader     AppAttributesKeys+instance ToQuery      AppAttributesKeys+ instance FromJSON AppAttributesKeys where     parseJSON = parseJSONText "AppAttributesKeys" @@ -1171,6 +1175,10 @@ instance ToText StackAttributesKeys where     toText Color = "Color" +instance ToByteString StackAttributesKeys+instance ToHeader     StackAttributesKeys+instance ToQuery      StackAttributesKeys+ instance FromJSON StackAttributesKeys where     parseJSON = parseJSONText "StackAttributesKeys" @@ -1261,6 +1269,10 @@         S3      -> "s3"         Svn     -> "svn" +instance ToByteString SourceType+instance ToHeader     SourceType+instance ToQuery      SourceType+ instance FromJSON SourceType where     parseJSON = parseJSONText "SourceType" @@ -1495,6 +1507,10 @@         RailsApp         -> "rails-app"         Web              -> "web" +instance ToByteString LayerType+instance ToHeader     LayerType+instance ToQuery      LayerType+ instance FromJSON LayerType where     parseJSON = parseJSONText "LayerType" @@ -1597,7 +1613,7 @@ data App = App     { _appAppId            :: Maybe Text     , _appAppSource        :: Maybe Source-    , _appAttributes       :: Map Text Text+    , _appAttributes       :: Map AppAttributesKeys Text     , _appCreatedAt        :: Maybe Text     , _appDataSources      :: List "DataSources" DataSource     , _appDescription      :: Maybe Text@@ -1607,7 +1623,7 @@     , _appShortname        :: Maybe Text     , _appSslConfiguration :: Maybe SslConfiguration     , _appStackId          :: Maybe Text-    , _appType             :: Maybe Text+    , _appType             :: Maybe AppType     } deriving (Eq, Show)  -- | 'App' constructor.@@ -1618,7 +1634,7 @@ -- -- * 'appAppSource' @::@ 'Maybe' 'Source' ----- * 'appAttributes' @::@ 'HashMap' 'Text' 'Text'+-- * 'appAttributes' @::@ 'HashMap' 'AppAttributesKeys' 'Text' -- -- * 'appCreatedAt' @::@ 'Maybe' 'Text' --@@ -1638,7 +1654,7 @@ -- -- * 'appStackId' @::@ 'Maybe' 'Text' ----- * 'appType' @::@ 'Maybe' 'Text'+-- * 'appType' @::@ 'Maybe' 'AppType' -- app :: App app = App@@ -1666,7 +1682,7 @@ appAppSource = lens _appAppSource (\s a -> s { _appAppSource = a })  -- | The stack attributes.-appAttributes :: Lens' App (HashMap Text Text)+appAttributes :: Lens' App (HashMap AppAttributesKeys Text) appAttributes = lens _appAttributes (\s a -> s { _appAttributes = a }) . _Map  -- | When the app was created.@@ -1708,7 +1724,7 @@ appStackId = lens _appStackId (\s a -> s { _appStackId = a })  -- | The app type.-appType :: Lens' App (Maybe Text)+appType :: Lens' App (Maybe AppType) appType = lens _appType (\s a -> s { _appType = a })  instance FromJSON App where@@ -1898,6 +1914,10 @@         Load  -> "load"         Timer -> "timer" +instance ToByteString AutoScalingType+instance ToHeader     AutoScalingType+instance ToQuery      AutoScalingType+ instance FromJSON AutoScalingType where     parseJSON = parseJSONText "AutoScalingType" @@ -1908,10 +1928,10 @@     { _sPassword :: Maybe Text     , _sRevision :: Maybe Text     , _sSshKey   :: Maybe Text-    , _sType     :: Maybe Text+    , _sType     :: Maybe SourceType     , _sUrl      :: Maybe Text     , _sUsername :: Maybe Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Show)  -- | 'Source' constructor. --@@ -1923,7 +1943,7 @@ -- -- * 'sSshKey' @::@ 'Maybe' 'Text' ----- * 'sType' @::@ 'Maybe' 'Text'+-- * 'sType' @::@ 'Maybe' 'SourceType' -- -- * 'sUrl' @::@ 'Maybe' 'Text' --@@ -1958,7 +1978,7 @@ sSshKey = lens _sSshKey (\s a -> s { _sSshKey = a })  -- | The repository type.-sType :: Lens' Source (Maybe Text)+sType :: Lens' Source (Maybe SourceType) sType = lens _sType (\s a -> s { _sType = a })  -- | The source URL.@@ -2055,6 +2075,10 @@         I386  -> "i386"         X8664 -> "x86_64" +instance ToByteString Architecture+instance ToHeader     Architecture+instance ToQuery      Architecture+ instance FromJSON Architecture where     parseJSON = parseJSONText "Architecture" @@ -2182,6 +2206,10 @@         RubyVersion                 -> "RubyVersion"         RubygemsVersion             -> "RubygemsVersion" +instance ToByteString LayerAttributesKeys+instance ToHeader     LayerAttributesKeys+instance ToQuery      LayerAttributesKeys+ instance FromJSON LayerAttributesKeys where     parseJSON = parseJSONText "LayerAttributesKeys" @@ -2341,7 +2369,7 @@         ]  data Layer = Layer-    { _lAttributes                :: Map Text Text+    { _lAttributes                :: Map LayerAttributesKeys Text     , _lAutoAssignElasticIps      :: Maybe Bool     , _lAutoAssignPublicIps       :: Maybe Bool     , _lCreatedAt                 :: Maybe Text@@ -2357,7 +2385,7 @@     , _lPackages                  :: List "InstanceIds" Text     , _lShortname                 :: Maybe Text     , _lStackId                   :: Maybe Text-    , _lType                      :: Maybe Text+    , _lType                      :: Maybe LayerType     , _lUseEbsOptimizedInstances  :: Maybe Bool     , _lVolumeConfigurations      :: List "VolumeConfigurations" VolumeConfiguration     } deriving (Eq, Show)@@ -2366,7 +2394,7 @@ -- -- The fields accessible through corresponding lenses are: ----- * 'lAttributes' @::@ 'HashMap' 'Text' 'Text'+-- * 'lAttributes' @::@ 'HashMap' 'LayerAttributesKeys' 'Text' -- -- * 'lAutoAssignElasticIps' @::@ 'Maybe' 'Bool' --@@ -2398,7 +2426,7 @@ -- -- * 'lStackId' @::@ 'Maybe' 'Text' ----- * 'lType' @::@ 'Maybe' 'Text'+-- * 'lType' @::@ 'Maybe' 'LayerType' -- -- * 'lUseEbsOptimizedInstances' @::@ 'Maybe' 'Bool' --@@ -2428,7 +2456,7 @@     }  -- | The layer attributes.-lAttributes :: Lens' Layer (HashMap Text Text)+lAttributes :: Lens' Layer (HashMap LayerAttributesKeys Text) lAttributes = lens _lAttributes (\s a -> s { _lAttributes = a }) . _Map  -- | Whether to automatically assign an Elastic IP address to the layer's@@ -2512,7 +2540,7 @@ -- | The layer type, which must be one of the following: Custom -- GangliaMonitoringMaster HaProxy MemcachedServer MySqlMaster -- NodeJsAppServer PhpAppServer RailsAppServer WebServer.-lType :: Lens' Layer (Maybe Text)+lType :: Lens' Layer (Maybe LayerType) lType = lens _lType (\s a -> s { _lType = a })  -- | Whether the layer uses Amazon EBS-optimized instances.@@ -2755,6 +2783,10 @@         Ebs           -> "ebs"         InstanceStore -> "instance-store" +instance ToByteString RootDeviceType+instance ToHeader     RootDeviceType+instance ToQuery      RootDeviceType+ instance FromJSON RootDeviceType where     parseJSON = parseJSONText "RootDeviceType" @@ -2763,7 +2795,7 @@  data Stack = Stack     { _sArn                       :: Maybe Text-    , _sAttributes                :: Map Text Text+    , _sAttributes                :: Map StackAttributesKeys Text     , _sChefConfiguration         :: Maybe ChefConfiguration     , _sConfigurationManager      :: Maybe StackConfigurationManager     , _sCreatedAt                 :: Maybe Text@@ -2772,7 +2804,7 @@     , _sDefaultAvailabilityZone   :: Maybe Text     , _sDefaultInstanceProfileArn :: Maybe Text     , _sDefaultOs                 :: Maybe Text-    , _sDefaultRootDeviceType     :: Maybe Text+    , _sDefaultRootDeviceType     :: Maybe RootDeviceType     , _sDefaultSshKeyName         :: Maybe Text     , _sDefaultSubnetId           :: Maybe Text     , _sHostnameTheme             :: Maybe Text@@ -2791,7 +2823,7 @@ -- -- * 'sArn' @::@ 'Maybe' 'Text' ----- * 'sAttributes' @::@ 'HashMap' 'Text' 'Text'+-- * 'sAttributes' @::@ 'HashMap' 'StackAttributesKeys' 'Text' -- -- * 'sChefConfiguration' @::@ 'Maybe' 'ChefConfiguration' --@@ -2809,7 +2841,7 @@ -- -- * 'sDefaultOs' @::@ 'Maybe' 'Text' ----- * 'sDefaultRootDeviceType' @::@ 'Maybe' 'Text'+-- * 'sDefaultRootDeviceType' @::@ 'Maybe' 'RootDeviceType' -- -- * 'sDefaultSshKeyName' @::@ 'Maybe' 'Text' --@@ -2861,7 +2893,7 @@ sArn = lens _sArn (\s a -> s { _sArn = a })  -- | The stack's attributes.-sAttributes :: Lens' Stack (HashMap Text Text)+sAttributes :: Lens' Stack (HashMap StackAttributesKeys Text) sAttributes = lens _sAttributes (\s a -> s { _sAttributes = a }) . _Map  -- | A ChefConfiguration object that specifies whether to enable Berkshelf and@@ -2915,7 +2947,7 @@ -- | The default root device type. This value is used by default for all -- instances in the stack, but you can override it when you create an -- instance. For more information, see Storage for the Root Device.-sDefaultRootDeviceType :: Lens' Stack (Maybe Text)+sDefaultRootDeviceType :: Lens' Stack (Maybe RootDeviceType) sDefaultRootDeviceType =     lens _sDefaultRootDeviceType (\s a -> s { _sDefaultRootDeviceType = a }) @@ -3017,7 +3049,7 @@  data DeploymentCommand = DeploymentCommand     { _dcArgs :: Map Text (List "InstanceIds" Text)-    , _dcName :: Text+    , _dcName :: DeploymentCommandName     } deriving (Eq, Show)  -- | 'DeploymentCommand' constructor.@@ -3026,9 +3058,9 @@ -- -- * 'dcArgs' @::@ 'HashMap' 'Text' ['Text'] ----- * 'dcName' @::@ 'Text'+-- * 'dcName' @::@ 'DeploymentCommandName' ---deploymentCommand :: Text -- ^ 'dcName'+deploymentCommand :: DeploymentCommandName -- ^ 'dcName'                   -> DeploymentCommand deploymentCommand p1 = DeploymentCommand     { _dcName = p1@@ -3059,7 +3091,7 @@ -- application server. stop: Stop the app's web or application server. -- restart: Restart the app's web or application server. undeploy: Undeploy -- the app.-dcName :: Lens' DeploymentCommand Text+dcName :: Lens' DeploymentCommand DeploymentCommandName dcName = lens _dcName (\s a -> s { _dcName = a })  instance FromJSON DeploymentCommand where@@ -3201,6 +3233,10 @@         UpdateCustomCookbooks -> "update_custom_cookbooks"         UpdateDependencies    -> "update_dependencies" +instance ToByteString DeploymentCommandName+instance ToHeader     DeploymentCommandName+instance ToQuery      DeploymentCommandName+ instance FromJSON DeploymentCommandName where     parseJSON = parseJSONText "DeploymentCommandName" @@ -3209,8 +3245,8 @@  data Instance = Instance     { _iAmiId                    :: Maybe Text-    , _iArchitecture             :: Maybe Text-    , _iAutoScalingType          :: Maybe Text+    , _iArchitecture             :: Maybe Architecture+    , _iAutoScalingType          :: Maybe AutoScalingType     , _iAvailabilityZone         :: Maybe Text     , _iCreatedAt                :: Maybe Text     , _iEbsOptimized             :: Maybe Bool@@ -3228,7 +3264,7 @@     , _iPrivateIp                :: Maybe Text     , _iPublicDns                :: Maybe Text     , _iPublicIp                 :: Maybe Text-    , _iRootDeviceType           :: Maybe Text+    , _iRootDeviceType           :: Maybe RootDeviceType     , _iRootDeviceVolumeId       :: Maybe Text     , _iSecurityGroupIds         :: List "InstanceIds" Text     , _iSshHostDsaKeyFingerprint :: Maybe Text@@ -3238,7 +3274,7 @@     , _iStatus                   :: Maybe Text     , _iSubnetId                 :: Maybe Text     , _iVirtualizationType       :: Maybe Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Show)  -- | 'Instance' constructor. --@@ -3246,9 +3282,9 @@ -- -- * 'iAmiId' @::@ 'Maybe' 'Text' ----- * 'iArchitecture' @::@ 'Maybe' 'Text'+-- * 'iArchitecture' @::@ 'Maybe' 'Architecture' ----- * 'iAutoScalingType' @::@ 'Maybe' 'Text'+-- * 'iAutoScalingType' @::@ 'Maybe' 'AutoScalingType' -- -- * 'iAvailabilityZone' @::@ 'Maybe' 'Text' --@@ -3284,7 +3320,7 @@ -- -- * 'iPublicIp' @::@ 'Maybe' 'Text' ----- * 'iRootDeviceType' @::@ 'Maybe' 'Text'+-- * 'iRootDeviceType' @::@ 'Maybe' 'RootDeviceType' -- -- * 'iRootDeviceVolumeId' @::@ 'Maybe' 'Text' --@@ -3345,7 +3381,7 @@ iAmiId = lens _iAmiId (\s a -> s { _iAmiId = a })  -- | The instance architecture, "i386" or "x86_64".-iArchitecture :: Lens' Instance (Maybe Text)+iArchitecture :: Lens' Instance (Maybe Architecture) iArchitecture = lens _iArchitecture (\s a -> s { _iArchitecture = a })  -- | The instance's auto scaling type, which has three possible values:@@ -3354,7 +3390,7 @@ -- started and stopped based on a specified schedule. LoadBasedAutoScaling: -- A load-based auto scaling instance, which is started and stopped based on -- load metrics.-iAutoScalingType :: Lens' Instance (Maybe Text)+iAutoScalingType :: Lens' Instance (Maybe AutoScalingType) iAutoScalingType = lens _iAutoScalingType (\s a -> s { _iAutoScalingType = a })  -- | The instance Availability Zone. For more information, see Regions and@@ -3442,7 +3478,7 @@  -- | The instance root device type. For more information, see Storage for the -- Root Device.-iRootDeviceType :: Lens' Instance (Maybe Text)+iRootDeviceType :: Lens' Instance (Maybe RootDeviceType) iRootDeviceType = lens _iRootDeviceType (\s a -> s { _iRootDeviceType = a })  -- | The root device volume ID.@@ -3881,6 +3917,10 @@         Php    -> "php"         Rails  -> "rails"         Static -> "static"++instance ToByteString AppType+instance ToHeader     AppType+instance ToQuery      AppType  instance FromJSON AppType where     parseJSON = parseJSONText "AppType"

@@ -58,14 +58,14 @@ data UpdateApp = UpdateApp     { _uaAppId            :: Text     , _uaAppSource        :: Maybe Source-    , _uaAttributes       :: Map Text Text+    , _uaAttributes       :: Map AppAttributesKeys Text     , _uaDataSources      :: List "DataSources" DataSource     , _uaDescription      :: Maybe Text     , _uaDomains          :: List "InstanceIds" Text     , _uaEnableSsl        :: Maybe Bool     , _uaName             :: Maybe Text     , _uaSslConfiguration :: Maybe SslConfiguration-    , _uaType             :: Maybe Text+    , _uaType             :: Maybe AppType     } deriving (Eq, Show)  -- | 'UpdateApp' constructor.@@ -76,7 +76,7 @@ -- -- * 'uaAppSource' @::@ 'Maybe' 'Source' ----- * 'uaAttributes' @::@ 'HashMap' 'Text' 'Text'+-- * 'uaAttributes' @::@ 'HashMap' 'AppAttributesKeys' 'Text' -- -- * 'uaDataSources' @::@ ['DataSource'] --@@ -90,7 +90,7 @@ -- -- * 'uaSslConfiguration' @::@ 'Maybe' 'SslConfiguration' ----- * 'uaType' @::@ 'Maybe' 'Text'+-- * 'uaType' @::@ 'Maybe' 'AppType' -- updateApp :: Text -- ^ 'uaAppId'           -> UpdateApp@@ -117,7 +117,7 @@  -- | One or more user-defined key/value pairs to be added to the stack -- attributes.-uaAttributes :: Lens' UpdateApp (HashMap Text Text)+uaAttributes :: Lens' UpdateApp (HashMap AppAttributesKeys Text) uaAttributes = lens _uaAttributes (\s a -> s { _uaAttributes = a }) . _Map  -- | The app's data sources.@@ -147,7 +147,7 @@     lens _uaSslConfiguration (\s a -> s { _uaSslConfiguration = a })  -- | The app type.-uaType :: Lens' UpdateApp (Maybe Text)+uaType :: Lens' UpdateApp (Maybe AppType) uaType = lens _uaType (\s a -> s { _uaType = a })  data UpdateAppResponse = UpdateAppResponse

@@ -58,8 +58,8 @@  data UpdateInstance = UpdateInstance     { _uiAmiId                :: Maybe Text-    , _uiArchitecture         :: Maybe Text-    , _uiAutoScalingType      :: Maybe Text+    , _uiArchitecture         :: Maybe Architecture+    , _uiAutoScalingType      :: Maybe AutoScalingType     , _uiEbsOptimized         :: Maybe Bool     , _uiHostname             :: Maybe Text     , _uiInstallUpdatesOnBoot :: Maybe Bool@@ -68,7 +68,7 @@     , _uiLayerIds             :: List "InstanceIds" Text     , _uiOs                   :: Maybe Text     , _uiSshKeyName           :: Maybe Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Show)  -- | 'UpdateInstance' constructor. --@@ -76,9 +76,9 @@ -- -- * 'uiAmiId' @::@ 'Maybe' 'Text' ----- * 'uiArchitecture' @::@ 'Maybe' 'Text'+-- * 'uiArchitecture' @::@ 'Maybe' 'Architecture' ----- * 'uiAutoScalingType' @::@ 'Maybe' 'Text'+-- * 'uiAutoScalingType' @::@ 'Maybe' 'AutoScalingType' -- -- * 'uiEbsOptimized' @::@ 'Maybe' 'Bool' --@@ -121,7 +121,7 @@ -- | The instance architecture. Instance types do not necessarily support both -- architectures. For a list of the architectures that are supported by the -- different instance types, see Instance Families and Types.-uiArchitecture :: Lens' UpdateInstance (Maybe Text)+uiArchitecture :: Lens' UpdateInstance (Maybe Architecture) uiArchitecture = lens _uiArchitecture (\s a -> s { _uiArchitecture = a })  -- | The instance's auto scaling type, which has three possible values:@@ -130,7 +130,7 @@ -- started and stopped based on a specified schedule. LoadBasedAutoScaling: -- A load-based auto scaling instance, which is started and stopped based on -- load metrics.-uiAutoScalingType :: Lens' UpdateInstance (Maybe Text)+uiAutoScalingType :: Lens' UpdateInstance (Maybe AutoScalingType) uiAutoScalingType =     lens _uiAutoScalingType (\s a -> s { _uiAutoScalingType = a }) 

@@ -60,7 +60,7 @@ import qualified GHC.Exts  data UpdateLayer = UpdateLayer-    { _ulAttributes               :: Map Text Text+    { _ulAttributes               :: Map LayerAttributesKeys Text     , _ulAutoAssignElasticIps     :: Maybe Bool     , _ulAutoAssignPublicIps      :: Maybe Bool     , _ulCustomInstanceProfileArn :: Maybe Text@@ -80,7 +80,7 @@ -- -- The fields accessible through corresponding lenses are: ----- * 'ulAttributes' @::@ 'HashMap' 'Text' 'Text'+-- * 'ulAttributes' @::@ 'HashMap' 'LayerAttributesKeys' 'Text' -- -- * 'ulAutoAssignElasticIps' @::@ 'Maybe' 'Bool' --@@ -129,7 +129,7 @@  -- | One or more user-defined key/value pairs to be added to the stack -- attributes.-ulAttributes :: Lens' UpdateLayer (HashMap Text Text)+ulAttributes :: Lens' UpdateLayer (HashMap LayerAttributesKeys Text) ulAttributes = lens _ulAttributes (\s a -> s { _ulAttributes = a }) . _Map  -- | Whether to automatically assign an Elastic IP address to the layer's

@@ -63,7 +63,7 @@ import qualified GHC.Exts  data UpdateStack = UpdateStack-    { _usAttributes                :: Map Text Text+    { _usAttributes                :: Map StackAttributesKeys Text     , _usChefConfiguration         :: Maybe ChefConfiguration     , _usConfigurationManager      :: Maybe StackConfigurationManager     , _usCustomCookbooksSource     :: Maybe Source@@ -71,7 +71,7 @@     , _usDefaultAvailabilityZone   :: Maybe Text     , _usDefaultInstanceProfileArn :: Maybe Text     , _usDefaultOs                 :: Maybe Text-    , _usDefaultRootDeviceType     :: Maybe Text+    , _usDefaultRootDeviceType     :: Maybe RootDeviceType     , _usDefaultSshKeyName         :: Maybe Text     , _usDefaultSubnetId           :: Maybe Text     , _usHostnameTheme             :: Maybe Text@@ -86,7 +86,7 @@ -- -- The fields accessible through corresponding lenses are: ----- * 'usAttributes' @::@ 'HashMap' 'Text' 'Text'+-- * 'usAttributes' @::@ 'HashMap' 'StackAttributesKeys' 'Text' -- -- * 'usChefConfiguration' @::@ 'Maybe' 'ChefConfiguration' --@@ -102,7 +102,7 @@ -- -- * 'usDefaultOs' @::@ 'Maybe' 'Text' ----- * 'usDefaultRootDeviceType' @::@ 'Maybe' 'Text'+-- * 'usDefaultRootDeviceType' @::@ 'Maybe' 'RootDeviceType' -- -- * 'usDefaultSshKeyName' @::@ 'Maybe' 'Text' --@@ -144,7 +144,7 @@  -- | One or more user-defined key/value pairs to be added to the stack -- attributes.-usAttributes :: Lens' UpdateStack (HashMap Text Text)+usAttributes :: Lens' UpdateStack (HashMap StackAttributesKeys Text) usAttributes = lens _usAttributes (\s a -> s { _usAttributes = a }) . _Map  -- | A ChefConfiguration object that specifies whether to enable Berkshelf and@@ -199,7 +199,7 @@ -- | The default root device type. This value is used by default for all -- instances in the stack, but you can override it when you create an -- instance. For more information, see Storage for the Root Device.-usDefaultRootDeviceType :: Lens' UpdateStack (Maybe Text)+usDefaultRootDeviceType :: Lens' UpdateStack (Maybe RootDeviceType) usDefaultRootDeviceType =     lens _usDefaultRootDeviceType (\s a -> s { _usDefaultRootDeviceType = a })