packages feed

stratosphere 0.35.0 → 0.36.0

raw patch · 42 files changed

+1824/−6 lines, 42 files

Files

CHANGELOG.md view
@@ -1,5 +1,9 @@ # Change Log +## 0.36.0++* Update resource specification document to version 2.29.0+ ## 0.35.0  * Use a GADT for `Val a` so it is properly typed. This shouldn't break any
README.md view
@@ -1,6 +1,6 @@ # Stratosphere: AWS CloudFormation in Haskell -[![Circle CI](https://circleci.com/gh/frontrowed/stratosphere.svg?style=svg)](https://circleci.com/gh/frontrowed/stratosphere)+[![Circle CI](https://circleci.com/gh/freckle/stratosphere.svg?style=svg)](https://circleci.com/gh/freckle/stratosphere)  AWS CloudFormation is a system that provisions and updates Amazon Web Services (AWS) resources based on declarative templates. Common criticisms of
+ library-gen/Stratosphere/ResourceProperties/AppMeshMeshEgressFilter.hs view
@@ -0,0 +1,39 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-mesh-egressfilter.html++module Stratosphere.ResourceProperties.AppMeshMeshEgressFilter where++import Stratosphere.ResourceImports+++-- | Full data type definition for AppMeshMeshEgressFilter. See+-- 'appMeshMeshEgressFilter' for a more convenient constructor.+data AppMeshMeshEgressFilter =+  AppMeshMeshEgressFilter+  { _appMeshMeshEgressFilterType :: Val Text+  } deriving (Show, Eq)++instance ToJSON AppMeshMeshEgressFilter where+  toJSON AppMeshMeshEgressFilter{..} =+    object $+    catMaybes+    [ (Just . ("Type",) . toJSON) _appMeshMeshEgressFilterType+    ]++-- | Constructor for 'AppMeshMeshEgressFilter' containing required fields as+-- arguments.+appMeshMeshEgressFilter+  :: Val Text -- ^ 'ammefType'+  -> AppMeshMeshEgressFilter+appMeshMeshEgressFilter typearg =+  AppMeshMeshEgressFilter+  { _appMeshMeshEgressFilterType = typearg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-mesh-egressfilter.html#cfn-appmesh-mesh-egressfilter-type+ammefType :: Lens' AppMeshMeshEgressFilter (Val Text)+ammefType = lens _appMeshMeshEgressFilterType (\s a -> s { _appMeshMeshEgressFilterType = a })
+ library-gen/Stratosphere/ResourceProperties/AppMeshMeshMeshSpec.hs view
@@ -0,0 +1,38 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-mesh-meshspec.html++module Stratosphere.ResourceProperties.AppMeshMeshMeshSpec where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.AppMeshMeshEgressFilter++-- | Full data type definition for AppMeshMeshMeshSpec. See+-- 'appMeshMeshMeshSpec' for a more convenient constructor.+data AppMeshMeshMeshSpec =+  AppMeshMeshMeshSpec+  { _appMeshMeshMeshSpecEgressFilter :: Maybe AppMeshMeshEgressFilter+  } deriving (Show, Eq)++instance ToJSON AppMeshMeshMeshSpec where+  toJSON AppMeshMeshMeshSpec{..} =+    object $+    catMaybes+    [ fmap (("EgressFilter",) . toJSON) _appMeshMeshMeshSpecEgressFilter+    ]++-- | Constructor for 'AppMeshMeshMeshSpec' containing required fields as+-- arguments.+appMeshMeshMeshSpec+  :: AppMeshMeshMeshSpec+appMeshMeshMeshSpec  =+  AppMeshMeshMeshSpec+  { _appMeshMeshMeshSpecEgressFilter = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-mesh-meshspec.html#cfn-appmesh-mesh-meshspec-egressfilter+ammmsEgressFilter :: Lens' AppMeshMeshMeshSpec (Maybe AppMeshMeshEgressFilter)+ammmsEgressFilter = lens _appMeshMeshMeshSpecEgressFilter (\s a -> s { _appMeshMeshMeshSpecEgressFilter = a })
+ library-gen/Stratosphere/ResourceProperties/AppMeshMeshTagRef.hs view
@@ -0,0 +1,46 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-mesh-tagref.html++module Stratosphere.ResourceProperties.AppMeshMeshTagRef where++import Stratosphere.ResourceImports+++-- | Full data type definition for AppMeshMeshTagRef. See 'appMeshMeshTagRef'+-- for a more convenient constructor.+data AppMeshMeshTagRef =+  AppMeshMeshTagRef+  { _appMeshMeshTagRefKey :: Val Text+  , _appMeshMeshTagRefValue :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON AppMeshMeshTagRef where+  toJSON AppMeshMeshTagRef{..} =+    object $+    catMaybes+    [ (Just . ("Key",) . toJSON) _appMeshMeshTagRefKey+    , fmap (("Value",) . toJSON) _appMeshMeshTagRefValue+    ]++-- | Constructor for 'AppMeshMeshTagRef' containing required fields as+-- arguments.+appMeshMeshTagRef+  :: Val Text -- ^ 'ammtrKey'+  -> AppMeshMeshTagRef+appMeshMeshTagRef keyarg =+  AppMeshMeshTagRef+  { _appMeshMeshTagRefKey = keyarg+  , _appMeshMeshTagRefValue = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-mesh-tagref.html#cfn-appmesh-mesh-tagref-key+ammtrKey :: Lens' AppMeshMeshTagRef (Val Text)+ammtrKey = lens _appMeshMeshTagRefKey (\s a -> s { _appMeshMeshTagRefKey = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-mesh-tagref.html#cfn-appmesh-mesh-tagref-value+ammtrValue :: Lens' AppMeshMeshTagRef (Maybe (Val Text))+ammtrValue = lens _appMeshMeshTagRefValue (\s a -> s { _appMeshMeshTagRefValue = a })
+ library-gen/Stratosphere/ResourceProperties/AppMeshRouteHttpRoute.hs view
@@ -0,0 +1,48 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-httproute.html++module Stratosphere.ResourceProperties.AppMeshRouteHttpRoute where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.AppMeshRouteHttpRouteAction+import Stratosphere.ResourceProperties.AppMeshRouteHttpRouteMatch++-- | Full data type definition for AppMeshRouteHttpRoute. See+-- 'appMeshRouteHttpRoute' for a more convenient constructor.+data AppMeshRouteHttpRoute =+  AppMeshRouteHttpRoute+  { _appMeshRouteHttpRouteAction :: AppMeshRouteHttpRouteAction+  , _appMeshRouteHttpRouteMatch :: AppMeshRouteHttpRouteMatch+  } deriving (Show, Eq)++instance ToJSON AppMeshRouteHttpRoute where+  toJSON AppMeshRouteHttpRoute{..} =+    object $+    catMaybes+    [ (Just . ("Action",) . toJSON) _appMeshRouteHttpRouteAction+    , (Just . ("Match",) . toJSON) _appMeshRouteHttpRouteMatch+    ]++-- | Constructor for 'AppMeshRouteHttpRoute' containing required fields as+-- arguments.+appMeshRouteHttpRoute+  :: AppMeshRouteHttpRouteAction -- ^ 'amrhrAction'+  -> AppMeshRouteHttpRouteMatch -- ^ 'amrhrMatch'+  -> AppMeshRouteHttpRoute+appMeshRouteHttpRoute actionarg matcharg =+  AppMeshRouteHttpRoute+  { _appMeshRouteHttpRouteAction = actionarg+  , _appMeshRouteHttpRouteMatch = matcharg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-httproute.html#cfn-appmesh-route-httproute-action+amrhrAction :: Lens' AppMeshRouteHttpRoute AppMeshRouteHttpRouteAction+amrhrAction = lens _appMeshRouteHttpRouteAction (\s a -> s { _appMeshRouteHttpRouteAction = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-httproute.html#cfn-appmesh-route-httproute-match+amrhrMatch :: Lens' AppMeshRouteHttpRoute AppMeshRouteHttpRouteMatch+amrhrMatch = lens _appMeshRouteHttpRouteMatch (\s a -> s { _appMeshRouteHttpRouteMatch = a })
+ library-gen/Stratosphere/ResourceProperties/AppMeshRouteHttpRouteAction.hs view
@@ -0,0 +1,39 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-httprouteaction.html++module Stratosphere.ResourceProperties.AppMeshRouteHttpRouteAction where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.AppMeshRouteWeightedTarget++-- | Full data type definition for AppMeshRouteHttpRouteAction. See+-- 'appMeshRouteHttpRouteAction' for a more convenient constructor.+data AppMeshRouteHttpRouteAction =+  AppMeshRouteHttpRouteAction+  { _appMeshRouteHttpRouteActionWeightedTargets :: [AppMeshRouteWeightedTarget]+  } deriving (Show, Eq)++instance ToJSON AppMeshRouteHttpRouteAction where+  toJSON AppMeshRouteHttpRouteAction{..} =+    object $+    catMaybes+    [ (Just . ("WeightedTargets",) . toJSON) _appMeshRouteHttpRouteActionWeightedTargets+    ]++-- | Constructor for 'AppMeshRouteHttpRouteAction' containing required fields+-- as arguments.+appMeshRouteHttpRouteAction+  :: [AppMeshRouteWeightedTarget] -- ^ 'amrhraWeightedTargets'+  -> AppMeshRouteHttpRouteAction+appMeshRouteHttpRouteAction weightedTargetsarg =+  AppMeshRouteHttpRouteAction+  { _appMeshRouteHttpRouteActionWeightedTargets = weightedTargetsarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-httprouteaction.html#cfn-appmesh-route-httprouteaction-weightedtargets+amrhraWeightedTargets :: Lens' AppMeshRouteHttpRouteAction [AppMeshRouteWeightedTarget]+amrhraWeightedTargets = lens _appMeshRouteHttpRouteActionWeightedTargets (\s a -> s { _appMeshRouteHttpRouteActionWeightedTargets = a })
+ library-gen/Stratosphere/ResourceProperties/AppMeshRouteHttpRouteMatch.hs view
@@ -0,0 +1,39 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-httproutematch.html++module Stratosphere.ResourceProperties.AppMeshRouteHttpRouteMatch where++import Stratosphere.ResourceImports+++-- | Full data type definition for AppMeshRouteHttpRouteMatch. See+-- 'appMeshRouteHttpRouteMatch' for a more convenient constructor.+data AppMeshRouteHttpRouteMatch =+  AppMeshRouteHttpRouteMatch+  { _appMeshRouteHttpRouteMatchPrefix :: Val Text+  } deriving (Show, Eq)++instance ToJSON AppMeshRouteHttpRouteMatch where+  toJSON AppMeshRouteHttpRouteMatch{..} =+    object $+    catMaybes+    [ (Just . ("Prefix",) . toJSON) _appMeshRouteHttpRouteMatchPrefix+    ]++-- | Constructor for 'AppMeshRouteHttpRouteMatch' containing required fields+-- as arguments.+appMeshRouteHttpRouteMatch+  :: Val Text -- ^ 'amrhrmPrefix'+  -> AppMeshRouteHttpRouteMatch+appMeshRouteHttpRouteMatch prefixarg =+  AppMeshRouteHttpRouteMatch+  { _appMeshRouteHttpRouteMatchPrefix = prefixarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-httproutematch.html#cfn-appmesh-route-httproutematch-prefix+amrhrmPrefix :: Lens' AppMeshRouteHttpRouteMatch (Val Text)+amrhrmPrefix = lens _appMeshRouteHttpRouteMatchPrefix (\s a -> s { _appMeshRouteHttpRouteMatchPrefix = a })
+ library-gen/Stratosphere/ResourceProperties/AppMeshRouteRouteSpec.hs view
@@ -0,0 +1,46 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-routespec.html++module Stratosphere.ResourceProperties.AppMeshRouteRouteSpec where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.AppMeshRouteHttpRoute+import Stratosphere.ResourceProperties.AppMeshRouteTcpRoute++-- | Full data type definition for AppMeshRouteRouteSpec. See+-- 'appMeshRouteRouteSpec' for a more convenient constructor.+data AppMeshRouteRouteSpec =+  AppMeshRouteRouteSpec+  { _appMeshRouteRouteSpecHttpRoute :: Maybe AppMeshRouteHttpRoute+  , _appMeshRouteRouteSpecTcpRoute :: Maybe AppMeshRouteTcpRoute+  } deriving (Show, Eq)++instance ToJSON AppMeshRouteRouteSpec where+  toJSON AppMeshRouteRouteSpec{..} =+    object $+    catMaybes+    [ fmap (("HttpRoute",) . toJSON) _appMeshRouteRouteSpecHttpRoute+    , fmap (("TcpRoute",) . toJSON) _appMeshRouteRouteSpecTcpRoute+    ]++-- | Constructor for 'AppMeshRouteRouteSpec' containing required fields as+-- arguments.+appMeshRouteRouteSpec+  :: AppMeshRouteRouteSpec+appMeshRouteRouteSpec  =+  AppMeshRouteRouteSpec+  { _appMeshRouteRouteSpecHttpRoute = Nothing+  , _appMeshRouteRouteSpecTcpRoute = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-routespec.html#cfn-appmesh-route-routespec-httproute+amrrsHttpRoute :: Lens' AppMeshRouteRouteSpec (Maybe AppMeshRouteHttpRoute)+amrrsHttpRoute = lens _appMeshRouteRouteSpecHttpRoute (\s a -> s { _appMeshRouteRouteSpecHttpRoute = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-routespec.html#cfn-appmesh-route-routespec-tcproute+amrrsTcpRoute :: Lens' AppMeshRouteRouteSpec (Maybe AppMeshRouteTcpRoute)+amrrsTcpRoute = lens _appMeshRouteRouteSpecTcpRoute (\s a -> s { _appMeshRouteRouteSpecTcpRoute = a })
+ library-gen/Stratosphere/ResourceProperties/AppMeshRouteTagRef.hs view
@@ -0,0 +1,46 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-tagref.html++module Stratosphere.ResourceProperties.AppMeshRouteTagRef where++import Stratosphere.ResourceImports+++-- | Full data type definition for AppMeshRouteTagRef. See+-- 'appMeshRouteTagRef' for a more convenient constructor.+data AppMeshRouteTagRef =+  AppMeshRouteTagRef+  { _appMeshRouteTagRefKey :: Val Text+  , _appMeshRouteTagRefValue :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON AppMeshRouteTagRef where+  toJSON AppMeshRouteTagRef{..} =+    object $+    catMaybes+    [ (Just . ("Key",) . toJSON) _appMeshRouteTagRefKey+    , fmap (("Value",) . toJSON) _appMeshRouteTagRefValue+    ]++-- | Constructor for 'AppMeshRouteTagRef' containing required fields as+-- arguments.+appMeshRouteTagRef+  :: Val Text -- ^ 'amrtrKey'+  -> AppMeshRouteTagRef+appMeshRouteTagRef keyarg =+  AppMeshRouteTagRef+  { _appMeshRouteTagRefKey = keyarg+  , _appMeshRouteTagRefValue = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-tagref.html#cfn-appmesh-route-tagref-key+amrtrKey :: Lens' AppMeshRouteTagRef (Val Text)+amrtrKey = lens _appMeshRouteTagRefKey (\s a -> s { _appMeshRouteTagRefKey = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-tagref.html#cfn-appmesh-route-tagref-value+amrtrValue :: Lens' AppMeshRouteTagRef (Maybe (Val Text))+amrtrValue = lens _appMeshRouteTagRefValue (\s a -> s { _appMeshRouteTagRefValue = a })
+ library-gen/Stratosphere/ResourceProperties/AppMeshRouteTcpRoute.hs view
@@ -0,0 +1,39 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-tcproute.html++module Stratosphere.ResourceProperties.AppMeshRouteTcpRoute where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.AppMeshRouteTcpRouteAction++-- | Full data type definition for AppMeshRouteTcpRoute. See+-- 'appMeshRouteTcpRoute' for a more convenient constructor.+data AppMeshRouteTcpRoute =+  AppMeshRouteTcpRoute+  { _appMeshRouteTcpRouteAction :: AppMeshRouteTcpRouteAction+  } deriving (Show, Eq)++instance ToJSON AppMeshRouteTcpRoute where+  toJSON AppMeshRouteTcpRoute{..} =+    object $+    catMaybes+    [ (Just . ("Action",) . toJSON) _appMeshRouteTcpRouteAction+    ]++-- | Constructor for 'AppMeshRouteTcpRoute' containing required fields as+-- arguments.+appMeshRouteTcpRoute+  :: AppMeshRouteTcpRouteAction -- ^ 'amrtrAction'+  -> AppMeshRouteTcpRoute+appMeshRouteTcpRoute actionarg =+  AppMeshRouteTcpRoute+  { _appMeshRouteTcpRouteAction = actionarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-tcproute.html#cfn-appmesh-route-tcproute-action+amrtrAction :: Lens' AppMeshRouteTcpRoute AppMeshRouteTcpRouteAction+amrtrAction = lens _appMeshRouteTcpRouteAction (\s a -> s { _appMeshRouteTcpRouteAction = a })
+ library-gen/Stratosphere/ResourceProperties/AppMeshRouteTcpRouteAction.hs view
@@ -0,0 +1,39 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-tcprouteaction.html++module Stratosphere.ResourceProperties.AppMeshRouteTcpRouteAction where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.AppMeshRouteWeightedTarget++-- | Full data type definition for AppMeshRouteTcpRouteAction. See+-- 'appMeshRouteTcpRouteAction' for a more convenient constructor.+data AppMeshRouteTcpRouteAction =+  AppMeshRouteTcpRouteAction+  { _appMeshRouteTcpRouteActionWeightedTargets :: [AppMeshRouteWeightedTarget]+  } deriving (Show, Eq)++instance ToJSON AppMeshRouteTcpRouteAction where+  toJSON AppMeshRouteTcpRouteAction{..} =+    object $+    catMaybes+    [ (Just . ("WeightedTargets",) . toJSON) _appMeshRouteTcpRouteActionWeightedTargets+    ]++-- | Constructor for 'AppMeshRouteTcpRouteAction' containing required fields+-- as arguments.+appMeshRouteTcpRouteAction+  :: [AppMeshRouteWeightedTarget] -- ^ 'amrtraWeightedTargets'+  -> AppMeshRouteTcpRouteAction+appMeshRouteTcpRouteAction weightedTargetsarg =+  AppMeshRouteTcpRouteAction+  { _appMeshRouteTcpRouteActionWeightedTargets = weightedTargetsarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-tcprouteaction.html#cfn-appmesh-route-tcprouteaction-weightedtargets+amrtraWeightedTargets :: Lens' AppMeshRouteTcpRouteAction [AppMeshRouteWeightedTarget]+amrtraWeightedTargets = lens _appMeshRouteTcpRouteActionWeightedTargets (\s a -> s { _appMeshRouteTcpRouteActionWeightedTargets = a })
+ library-gen/Stratosphere/ResourceProperties/AppMeshRouteWeightedTarget.hs view
@@ -0,0 +1,47 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-weightedtarget.html++module Stratosphere.ResourceProperties.AppMeshRouteWeightedTarget where++import Stratosphere.ResourceImports+++-- | Full data type definition for AppMeshRouteWeightedTarget. See+-- 'appMeshRouteWeightedTarget' for a more convenient constructor.+data AppMeshRouteWeightedTarget =+  AppMeshRouteWeightedTarget+  { _appMeshRouteWeightedTargetVirtualNode :: Val Text+  , _appMeshRouteWeightedTargetWeight :: Val Integer+  } deriving (Show, Eq)++instance ToJSON AppMeshRouteWeightedTarget where+  toJSON AppMeshRouteWeightedTarget{..} =+    object $+    catMaybes+    [ (Just . ("VirtualNode",) . toJSON) _appMeshRouteWeightedTargetVirtualNode+    , (Just . ("Weight",) . toJSON) _appMeshRouteWeightedTargetWeight+    ]++-- | Constructor for 'AppMeshRouteWeightedTarget' containing required fields+-- as arguments.+appMeshRouteWeightedTarget+  :: Val Text -- ^ 'amrwtVirtualNode'+  -> Val Integer -- ^ 'amrwtWeight'+  -> AppMeshRouteWeightedTarget+appMeshRouteWeightedTarget virtualNodearg weightarg =+  AppMeshRouteWeightedTarget+  { _appMeshRouteWeightedTargetVirtualNode = virtualNodearg+  , _appMeshRouteWeightedTargetWeight = weightarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-weightedtarget.html#cfn-appmesh-route-weightedtarget-virtualnode+amrwtVirtualNode :: Lens' AppMeshRouteWeightedTarget (Val Text)+amrwtVirtualNode = lens _appMeshRouteWeightedTargetVirtualNode (\s a -> s { _appMeshRouteWeightedTargetVirtualNode = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-route-weightedtarget.html#cfn-appmesh-route-weightedtarget-weight+amrwtWeight :: Lens' AppMeshRouteWeightedTarget (Val Integer)+amrwtWeight = lens _appMeshRouteWeightedTargetWeight (\s a -> s { _appMeshRouteWeightedTargetWeight = a })
+ library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeAccessLog.hs view
@@ -0,0 +1,38 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-accesslog.html++module Stratosphere.ResourceProperties.AppMeshVirtualNodeAccessLog where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.AppMeshVirtualNodeFileAccessLog++-- | Full data type definition for AppMeshVirtualNodeAccessLog. See+-- 'appMeshVirtualNodeAccessLog' for a more convenient constructor.+data AppMeshVirtualNodeAccessLog =+  AppMeshVirtualNodeAccessLog+  { _appMeshVirtualNodeAccessLogFile :: Maybe AppMeshVirtualNodeFileAccessLog+  } deriving (Show, Eq)++instance ToJSON AppMeshVirtualNodeAccessLog where+  toJSON AppMeshVirtualNodeAccessLog{..} =+    object $+    catMaybes+    [ fmap (("File",) . toJSON) _appMeshVirtualNodeAccessLogFile+    ]++-- | Constructor for 'AppMeshVirtualNodeAccessLog' containing required fields+-- as arguments.+appMeshVirtualNodeAccessLog+  :: AppMeshVirtualNodeAccessLog+appMeshVirtualNodeAccessLog  =+  AppMeshVirtualNodeAccessLog+  { _appMeshVirtualNodeAccessLogFile = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-accesslog.html#cfn-appmesh-virtualnode-accesslog-file+amvnalFile :: Lens' AppMeshVirtualNodeAccessLog (Maybe AppMeshVirtualNodeFileAccessLog)+amvnalFile = lens _appMeshVirtualNodeAccessLogFile (\s a -> s { _appMeshVirtualNodeAccessLogFile = a })
+ library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeBackend.hs view
@@ -0,0 +1,38 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-backend.html++module Stratosphere.ResourceProperties.AppMeshVirtualNodeBackend where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.AppMeshVirtualNodeVirtualServiceBackend++-- | Full data type definition for AppMeshVirtualNodeBackend. See+-- 'appMeshVirtualNodeBackend' for a more convenient constructor.+data AppMeshVirtualNodeBackend =+  AppMeshVirtualNodeBackend+  { _appMeshVirtualNodeBackendVirtualService :: Maybe AppMeshVirtualNodeVirtualServiceBackend+  } deriving (Show, Eq)++instance ToJSON AppMeshVirtualNodeBackend where+  toJSON AppMeshVirtualNodeBackend{..} =+    object $+    catMaybes+    [ fmap (("VirtualService",) . toJSON) _appMeshVirtualNodeBackendVirtualService+    ]++-- | Constructor for 'AppMeshVirtualNodeBackend' containing required fields as+-- arguments.+appMeshVirtualNodeBackend+  :: AppMeshVirtualNodeBackend+appMeshVirtualNodeBackend  =+  AppMeshVirtualNodeBackend+  { _appMeshVirtualNodeBackendVirtualService = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-backend.html#cfn-appmesh-virtualnode-backend-virtualservice+amvnbVirtualService :: Lens' AppMeshVirtualNodeBackend (Maybe AppMeshVirtualNodeVirtualServiceBackend)+amvnbVirtualService = lens _appMeshVirtualNodeBackendVirtualService (\s a -> s { _appMeshVirtualNodeBackendVirtualService = a })
+ library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeDnsServiceDiscovery.hs view
@@ -0,0 +1,40 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-dnsservicediscovery.html++module Stratosphere.ResourceProperties.AppMeshVirtualNodeDnsServiceDiscovery where++import Stratosphere.ResourceImports+++-- | Full data type definition for AppMeshVirtualNodeDnsServiceDiscovery. See+-- 'appMeshVirtualNodeDnsServiceDiscovery' for a more convenient+-- constructor.+data AppMeshVirtualNodeDnsServiceDiscovery =+  AppMeshVirtualNodeDnsServiceDiscovery+  { _appMeshVirtualNodeDnsServiceDiscoveryHostname :: Val Text+  } deriving (Show, Eq)++instance ToJSON AppMeshVirtualNodeDnsServiceDiscovery where+  toJSON AppMeshVirtualNodeDnsServiceDiscovery{..} =+    object $+    catMaybes+    [ (Just . ("Hostname",) . toJSON) _appMeshVirtualNodeDnsServiceDiscoveryHostname+    ]++-- | Constructor for 'AppMeshVirtualNodeDnsServiceDiscovery' containing+-- required fields as arguments.+appMeshVirtualNodeDnsServiceDiscovery+  :: Val Text -- ^ 'amvndsdHostname'+  -> AppMeshVirtualNodeDnsServiceDiscovery+appMeshVirtualNodeDnsServiceDiscovery hostnamearg =+  AppMeshVirtualNodeDnsServiceDiscovery+  { _appMeshVirtualNodeDnsServiceDiscoveryHostname = hostnamearg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-dnsservicediscovery.html#cfn-appmesh-virtualnode-dnsservicediscovery-hostname+amvndsdHostname :: Lens' AppMeshVirtualNodeDnsServiceDiscovery (Val Text)+amvndsdHostname = lens _appMeshVirtualNodeDnsServiceDiscoveryHostname (\s a -> s { _appMeshVirtualNodeDnsServiceDiscoveryHostname = a })
+ library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeFileAccessLog.hs view
@@ -0,0 +1,39 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-fileaccesslog.html++module Stratosphere.ResourceProperties.AppMeshVirtualNodeFileAccessLog where++import Stratosphere.ResourceImports+++-- | Full data type definition for AppMeshVirtualNodeFileAccessLog. See+-- 'appMeshVirtualNodeFileAccessLog' for a more convenient constructor.+data AppMeshVirtualNodeFileAccessLog =+  AppMeshVirtualNodeFileAccessLog+  { _appMeshVirtualNodeFileAccessLogPath :: Val Text+  } deriving (Show, Eq)++instance ToJSON AppMeshVirtualNodeFileAccessLog where+  toJSON AppMeshVirtualNodeFileAccessLog{..} =+    object $+    catMaybes+    [ (Just . ("Path",) . toJSON) _appMeshVirtualNodeFileAccessLogPath+    ]++-- | Constructor for 'AppMeshVirtualNodeFileAccessLog' containing required+-- fields as arguments.+appMeshVirtualNodeFileAccessLog+  :: Val Text -- ^ 'amvnfalPath'+  -> AppMeshVirtualNodeFileAccessLog+appMeshVirtualNodeFileAccessLog patharg =+  AppMeshVirtualNodeFileAccessLog+  { _appMeshVirtualNodeFileAccessLogPath = patharg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-fileaccesslog.html#cfn-appmesh-virtualnode-fileaccesslog-path+amvnfalPath :: Lens' AppMeshVirtualNodeFileAccessLog (Val Text)+amvnfalPath = lens _appMeshVirtualNodeFileAccessLogPath (\s a -> s { _appMeshVirtualNodeFileAccessLogPath = a })
+ library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeHealthCheck.hs view
@@ -0,0 +1,85 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-healthcheck.html++module Stratosphere.ResourceProperties.AppMeshVirtualNodeHealthCheck where++import Stratosphere.ResourceImports+++-- | Full data type definition for AppMeshVirtualNodeHealthCheck. See+-- 'appMeshVirtualNodeHealthCheck' for a more convenient constructor.+data AppMeshVirtualNodeHealthCheck =+  AppMeshVirtualNodeHealthCheck+  { _appMeshVirtualNodeHealthCheckHealthyThreshold :: Val Integer+  , _appMeshVirtualNodeHealthCheckIntervalMillis :: Val Integer+  , _appMeshVirtualNodeHealthCheckPath :: Maybe (Val Text)+  , _appMeshVirtualNodeHealthCheckPort :: Maybe (Val Integer)+  , _appMeshVirtualNodeHealthCheckProtocol :: Val Text+  , _appMeshVirtualNodeHealthCheckTimeoutMillis :: Val Integer+  , _appMeshVirtualNodeHealthCheckUnhealthyThreshold :: Val Integer+  } deriving (Show, Eq)++instance ToJSON AppMeshVirtualNodeHealthCheck where+  toJSON AppMeshVirtualNodeHealthCheck{..} =+    object $+    catMaybes+    [ (Just . ("HealthyThreshold",) . toJSON) _appMeshVirtualNodeHealthCheckHealthyThreshold+    , (Just . ("IntervalMillis",) . toJSON) _appMeshVirtualNodeHealthCheckIntervalMillis+    , fmap (("Path",) . toJSON) _appMeshVirtualNodeHealthCheckPath+    , fmap (("Port",) . toJSON) _appMeshVirtualNodeHealthCheckPort+    , (Just . ("Protocol",) . toJSON) _appMeshVirtualNodeHealthCheckProtocol+    , (Just . ("TimeoutMillis",) . toJSON) _appMeshVirtualNodeHealthCheckTimeoutMillis+    , (Just . ("UnhealthyThreshold",) . toJSON) _appMeshVirtualNodeHealthCheckUnhealthyThreshold+    ]++-- | Constructor for 'AppMeshVirtualNodeHealthCheck' containing required+-- fields as arguments.+appMeshVirtualNodeHealthCheck+  :: Val Integer -- ^ 'amvnhcHealthyThreshold'+  -> Val Integer -- ^ 'amvnhcIntervalMillis'+  -> Val Text -- ^ 'amvnhcProtocol'+  -> Val Integer -- ^ 'amvnhcTimeoutMillis'+  -> Val Integer -- ^ 'amvnhcUnhealthyThreshold'+  -> AppMeshVirtualNodeHealthCheck+appMeshVirtualNodeHealthCheck healthyThresholdarg intervalMillisarg protocolarg timeoutMillisarg unhealthyThresholdarg =+  AppMeshVirtualNodeHealthCheck+  { _appMeshVirtualNodeHealthCheckHealthyThreshold = healthyThresholdarg+  , _appMeshVirtualNodeHealthCheckIntervalMillis = intervalMillisarg+  , _appMeshVirtualNodeHealthCheckPath = Nothing+  , _appMeshVirtualNodeHealthCheckPort = Nothing+  , _appMeshVirtualNodeHealthCheckProtocol = protocolarg+  , _appMeshVirtualNodeHealthCheckTimeoutMillis = timeoutMillisarg+  , _appMeshVirtualNodeHealthCheckUnhealthyThreshold = unhealthyThresholdarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-healthcheck.html#cfn-appmesh-virtualnode-healthcheck-healthythreshold+amvnhcHealthyThreshold :: Lens' AppMeshVirtualNodeHealthCheck (Val Integer)+amvnhcHealthyThreshold = lens _appMeshVirtualNodeHealthCheckHealthyThreshold (\s a -> s { _appMeshVirtualNodeHealthCheckHealthyThreshold = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-healthcheck.html#cfn-appmesh-virtualnode-healthcheck-intervalmillis+amvnhcIntervalMillis :: Lens' AppMeshVirtualNodeHealthCheck (Val Integer)+amvnhcIntervalMillis = lens _appMeshVirtualNodeHealthCheckIntervalMillis (\s a -> s { _appMeshVirtualNodeHealthCheckIntervalMillis = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-healthcheck.html#cfn-appmesh-virtualnode-healthcheck-path+amvnhcPath :: Lens' AppMeshVirtualNodeHealthCheck (Maybe (Val Text))+amvnhcPath = lens _appMeshVirtualNodeHealthCheckPath (\s a -> s { _appMeshVirtualNodeHealthCheckPath = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-healthcheck.html#cfn-appmesh-virtualnode-healthcheck-port+amvnhcPort :: Lens' AppMeshVirtualNodeHealthCheck (Maybe (Val Integer))+amvnhcPort = lens _appMeshVirtualNodeHealthCheckPort (\s a -> s { _appMeshVirtualNodeHealthCheckPort = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-healthcheck.html#cfn-appmesh-virtualnode-healthcheck-protocol+amvnhcProtocol :: Lens' AppMeshVirtualNodeHealthCheck (Val Text)+amvnhcProtocol = lens _appMeshVirtualNodeHealthCheckProtocol (\s a -> s { _appMeshVirtualNodeHealthCheckProtocol = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-healthcheck.html#cfn-appmesh-virtualnode-healthcheck-timeoutmillis+amvnhcTimeoutMillis :: Lens' AppMeshVirtualNodeHealthCheck (Val Integer)+amvnhcTimeoutMillis = lens _appMeshVirtualNodeHealthCheckTimeoutMillis (\s a -> s { _appMeshVirtualNodeHealthCheckTimeoutMillis = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-healthcheck.html#cfn-appmesh-virtualnode-healthcheck-unhealthythreshold+amvnhcUnhealthyThreshold :: Lens' AppMeshVirtualNodeHealthCheck (Val Integer)+amvnhcUnhealthyThreshold = lens _appMeshVirtualNodeHealthCheckUnhealthyThreshold (\s a -> s { _appMeshVirtualNodeHealthCheckUnhealthyThreshold = a })
+ library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeListener.hs view
@@ -0,0 +1,47 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-listener.html++module Stratosphere.ResourceProperties.AppMeshVirtualNodeListener where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.AppMeshVirtualNodeHealthCheck+import Stratosphere.ResourceProperties.AppMeshVirtualNodePortMapping++-- | Full data type definition for AppMeshVirtualNodeListener. See+-- 'appMeshVirtualNodeListener' for a more convenient constructor.+data AppMeshVirtualNodeListener =+  AppMeshVirtualNodeListener+  { _appMeshVirtualNodeListenerHealthCheck :: Maybe AppMeshVirtualNodeHealthCheck+  , _appMeshVirtualNodeListenerPortMapping :: AppMeshVirtualNodePortMapping+  } deriving (Show, Eq)++instance ToJSON AppMeshVirtualNodeListener where+  toJSON AppMeshVirtualNodeListener{..} =+    object $+    catMaybes+    [ fmap (("HealthCheck",) . toJSON) _appMeshVirtualNodeListenerHealthCheck+    , (Just . ("PortMapping",) . toJSON) _appMeshVirtualNodeListenerPortMapping+    ]++-- | Constructor for 'AppMeshVirtualNodeListener' containing required fields+-- as arguments.+appMeshVirtualNodeListener+  :: AppMeshVirtualNodePortMapping -- ^ 'amvnlPortMapping'+  -> AppMeshVirtualNodeListener+appMeshVirtualNodeListener portMappingarg =+  AppMeshVirtualNodeListener+  { _appMeshVirtualNodeListenerHealthCheck = Nothing+  , _appMeshVirtualNodeListenerPortMapping = portMappingarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-listener.html#cfn-appmesh-virtualnode-listener-healthcheck+amvnlHealthCheck :: Lens' AppMeshVirtualNodeListener (Maybe AppMeshVirtualNodeHealthCheck)+amvnlHealthCheck = lens _appMeshVirtualNodeListenerHealthCheck (\s a -> s { _appMeshVirtualNodeListenerHealthCheck = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-listener.html#cfn-appmesh-virtualnode-listener-portmapping+amvnlPortMapping :: Lens' AppMeshVirtualNodeListener AppMeshVirtualNodePortMapping+amvnlPortMapping = lens _appMeshVirtualNodeListenerPortMapping (\s a -> s { _appMeshVirtualNodeListenerPortMapping = a })
+ library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeLogging.hs view
@@ -0,0 +1,38 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-logging.html++module Stratosphere.ResourceProperties.AppMeshVirtualNodeLogging where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.AppMeshVirtualNodeAccessLog++-- | Full data type definition for AppMeshVirtualNodeLogging. See+-- 'appMeshVirtualNodeLogging' for a more convenient constructor.+data AppMeshVirtualNodeLogging =+  AppMeshVirtualNodeLogging+  { _appMeshVirtualNodeLoggingAccessLog :: Maybe AppMeshVirtualNodeAccessLog+  } deriving (Show, Eq)++instance ToJSON AppMeshVirtualNodeLogging where+  toJSON AppMeshVirtualNodeLogging{..} =+    object $+    catMaybes+    [ fmap (("AccessLog",) . toJSON) _appMeshVirtualNodeLoggingAccessLog+    ]++-- | Constructor for 'AppMeshVirtualNodeLogging' containing required fields as+-- arguments.+appMeshVirtualNodeLogging+  :: AppMeshVirtualNodeLogging+appMeshVirtualNodeLogging  =+  AppMeshVirtualNodeLogging+  { _appMeshVirtualNodeLoggingAccessLog = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-logging.html#cfn-appmesh-virtualnode-logging-accesslog+amvnlAccessLog :: Lens' AppMeshVirtualNodeLogging (Maybe AppMeshVirtualNodeAccessLog)+amvnlAccessLog = lens _appMeshVirtualNodeLoggingAccessLog (\s a -> s { _appMeshVirtualNodeLoggingAccessLog = a })
+ library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodePortMapping.hs view
@@ -0,0 +1,47 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-portmapping.html++module Stratosphere.ResourceProperties.AppMeshVirtualNodePortMapping where++import Stratosphere.ResourceImports+++-- | Full data type definition for AppMeshVirtualNodePortMapping. See+-- 'appMeshVirtualNodePortMapping' for a more convenient constructor.+data AppMeshVirtualNodePortMapping =+  AppMeshVirtualNodePortMapping+  { _appMeshVirtualNodePortMappingPort :: Val Integer+  , _appMeshVirtualNodePortMappingProtocol :: Val Text+  } deriving (Show, Eq)++instance ToJSON AppMeshVirtualNodePortMapping where+  toJSON AppMeshVirtualNodePortMapping{..} =+    object $+    catMaybes+    [ (Just . ("Port",) . toJSON) _appMeshVirtualNodePortMappingPort+    , (Just . ("Protocol",) . toJSON) _appMeshVirtualNodePortMappingProtocol+    ]++-- | Constructor for 'AppMeshVirtualNodePortMapping' containing required+-- fields as arguments.+appMeshVirtualNodePortMapping+  :: Val Integer -- ^ 'amvnpmPort'+  -> Val Text -- ^ 'amvnpmProtocol'+  -> AppMeshVirtualNodePortMapping+appMeshVirtualNodePortMapping portarg protocolarg =+  AppMeshVirtualNodePortMapping+  { _appMeshVirtualNodePortMappingPort = portarg+  , _appMeshVirtualNodePortMappingProtocol = protocolarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-portmapping.html#cfn-appmesh-virtualnode-portmapping-port+amvnpmPort :: Lens' AppMeshVirtualNodePortMapping (Val Integer)+amvnpmPort = lens _appMeshVirtualNodePortMappingPort (\s a -> s { _appMeshVirtualNodePortMappingPort = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-portmapping.html#cfn-appmesh-virtualnode-portmapping-protocol+amvnpmProtocol :: Lens' AppMeshVirtualNodePortMapping (Val Text)+amvnpmProtocol = lens _appMeshVirtualNodePortMappingProtocol (\s a -> s { _appMeshVirtualNodePortMappingProtocol = a })
+ library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeServiceDiscovery.hs view
@@ -0,0 +1,39 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-servicediscovery.html++module Stratosphere.ResourceProperties.AppMeshVirtualNodeServiceDiscovery where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.AppMeshVirtualNodeDnsServiceDiscovery++-- | Full data type definition for AppMeshVirtualNodeServiceDiscovery. See+-- 'appMeshVirtualNodeServiceDiscovery' for a more convenient constructor.+data AppMeshVirtualNodeServiceDiscovery =+  AppMeshVirtualNodeServiceDiscovery+  { _appMeshVirtualNodeServiceDiscoveryDNS :: AppMeshVirtualNodeDnsServiceDiscovery+  } deriving (Show, Eq)++instance ToJSON AppMeshVirtualNodeServiceDiscovery where+  toJSON AppMeshVirtualNodeServiceDiscovery{..} =+    object $+    catMaybes+    [ (Just . ("DNS",) . toJSON) _appMeshVirtualNodeServiceDiscoveryDNS+    ]++-- | Constructor for 'AppMeshVirtualNodeServiceDiscovery' containing required+-- fields as arguments.+appMeshVirtualNodeServiceDiscovery+  :: AppMeshVirtualNodeDnsServiceDiscovery -- ^ 'amvnsdDNS'+  -> AppMeshVirtualNodeServiceDiscovery+appMeshVirtualNodeServiceDiscovery dNSarg =+  AppMeshVirtualNodeServiceDiscovery+  { _appMeshVirtualNodeServiceDiscoveryDNS = dNSarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-servicediscovery.html#cfn-appmesh-virtualnode-servicediscovery-dns+amvnsdDNS :: Lens' AppMeshVirtualNodeServiceDiscovery AppMeshVirtualNodeDnsServiceDiscovery+amvnsdDNS = lens _appMeshVirtualNodeServiceDiscoveryDNS (\s a -> s { _appMeshVirtualNodeServiceDiscoveryDNS = a })
+ library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeTagRef.hs view
@@ -0,0 +1,46 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-tagref.html++module Stratosphere.ResourceProperties.AppMeshVirtualNodeTagRef where++import Stratosphere.ResourceImports+++-- | Full data type definition for AppMeshVirtualNodeTagRef. See+-- 'appMeshVirtualNodeTagRef' for a more convenient constructor.+data AppMeshVirtualNodeTagRef =+  AppMeshVirtualNodeTagRef+  { _appMeshVirtualNodeTagRefKey :: Val Text+  , _appMeshVirtualNodeTagRefValue :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON AppMeshVirtualNodeTagRef where+  toJSON AppMeshVirtualNodeTagRef{..} =+    object $+    catMaybes+    [ (Just . ("Key",) . toJSON) _appMeshVirtualNodeTagRefKey+    , fmap (("Value",) . toJSON) _appMeshVirtualNodeTagRefValue+    ]++-- | Constructor for 'AppMeshVirtualNodeTagRef' containing required fields as+-- arguments.+appMeshVirtualNodeTagRef+  :: Val Text -- ^ 'amvntrKey'+  -> AppMeshVirtualNodeTagRef+appMeshVirtualNodeTagRef keyarg =+  AppMeshVirtualNodeTagRef+  { _appMeshVirtualNodeTagRefKey = keyarg+  , _appMeshVirtualNodeTagRefValue = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-tagref.html#cfn-appmesh-virtualnode-tagref-key+amvntrKey :: Lens' AppMeshVirtualNodeTagRef (Val Text)+amvntrKey = lens _appMeshVirtualNodeTagRefKey (\s a -> s { _appMeshVirtualNodeTagRefKey = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-tagref.html#cfn-appmesh-virtualnode-tagref-value+amvntrValue :: Lens' AppMeshVirtualNodeTagRef (Maybe (Val Text))+amvntrValue = lens _appMeshVirtualNodeTagRefValue (\s a -> s { _appMeshVirtualNodeTagRefValue = a })
+ library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeVirtualNodeSpec.hs view
@@ -0,0 +1,62 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-virtualnodespec.html++module Stratosphere.ResourceProperties.AppMeshVirtualNodeVirtualNodeSpec where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.AppMeshVirtualNodeBackend+import Stratosphere.ResourceProperties.AppMeshVirtualNodeListener+import Stratosphere.ResourceProperties.AppMeshVirtualNodeLogging+import Stratosphere.ResourceProperties.AppMeshVirtualNodeServiceDiscovery++-- | Full data type definition for AppMeshVirtualNodeVirtualNodeSpec. See+-- 'appMeshVirtualNodeVirtualNodeSpec' for a more convenient constructor.+data AppMeshVirtualNodeVirtualNodeSpec =+  AppMeshVirtualNodeVirtualNodeSpec+  { _appMeshVirtualNodeVirtualNodeSpecBackends :: Maybe [AppMeshVirtualNodeBackend]+  , _appMeshVirtualNodeVirtualNodeSpecListeners :: Maybe [AppMeshVirtualNodeListener]+  , _appMeshVirtualNodeVirtualNodeSpecLogging :: Maybe AppMeshVirtualNodeLogging+  , _appMeshVirtualNodeVirtualNodeSpecServiceDiscovery :: Maybe AppMeshVirtualNodeServiceDiscovery+  } deriving (Show, Eq)++instance ToJSON AppMeshVirtualNodeVirtualNodeSpec where+  toJSON AppMeshVirtualNodeVirtualNodeSpec{..} =+    object $+    catMaybes+    [ fmap (("Backends",) . toJSON) _appMeshVirtualNodeVirtualNodeSpecBackends+    , fmap (("Listeners",) . toJSON) _appMeshVirtualNodeVirtualNodeSpecListeners+    , fmap (("Logging",) . toJSON) _appMeshVirtualNodeVirtualNodeSpecLogging+    , fmap (("ServiceDiscovery",) . toJSON) _appMeshVirtualNodeVirtualNodeSpecServiceDiscovery+    ]++-- | Constructor for 'AppMeshVirtualNodeVirtualNodeSpec' containing required+-- fields as arguments.+appMeshVirtualNodeVirtualNodeSpec+  :: AppMeshVirtualNodeVirtualNodeSpec+appMeshVirtualNodeVirtualNodeSpec  =+  AppMeshVirtualNodeVirtualNodeSpec+  { _appMeshVirtualNodeVirtualNodeSpecBackends = Nothing+  , _appMeshVirtualNodeVirtualNodeSpecListeners = Nothing+  , _appMeshVirtualNodeVirtualNodeSpecLogging = Nothing+  , _appMeshVirtualNodeVirtualNodeSpecServiceDiscovery = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-virtualnodespec.html#cfn-appmesh-virtualnode-virtualnodespec-backends+amvnvnsBackends :: Lens' AppMeshVirtualNodeVirtualNodeSpec (Maybe [AppMeshVirtualNodeBackend])+amvnvnsBackends = lens _appMeshVirtualNodeVirtualNodeSpecBackends (\s a -> s { _appMeshVirtualNodeVirtualNodeSpecBackends = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-virtualnodespec.html#cfn-appmesh-virtualnode-virtualnodespec-listeners+amvnvnsListeners :: Lens' AppMeshVirtualNodeVirtualNodeSpec (Maybe [AppMeshVirtualNodeListener])+amvnvnsListeners = lens _appMeshVirtualNodeVirtualNodeSpecListeners (\s a -> s { _appMeshVirtualNodeVirtualNodeSpecListeners = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-virtualnodespec.html#cfn-appmesh-virtualnode-virtualnodespec-logging+amvnvnsLogging :: Lens' AppMeshVirtualNodeVirtualNodeSpec (Maybe AppMeshVirtualNodeLogging)+amvnvnsLogging = lens _appMeshVirtualNodeVirtualNodeSpecLogging (\s a -> s { _appMeshVirtualNodeVirtualNodeSpecLogging = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-virtualnodespec.html#cfn-appmesh-virtualnode-virtualnodespec-servicediscovery+amvnvnsServiceDiscovery :: Lens' AppMeshVirtualNodeVirtualNodeSpec (Maybe AppMeshVirtualNodeServiceDiscovery)+amvnvnsServiceDiscovery = lens _appMeshVirtualNodeVirtualNodeSpecServiceDiscovery (\s a -> s { _appMeshVirtualNodeVirtualNodeSpecServiceDiscovery = a })
+ library-gen/Stratosphere/ResourceProperties/AppMeshVirtualNodeVirtualServiceBackend.hs view
@@ -0,0 +1,40 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-virtualservicebackend.html++module Stratosphere.ResourceProperties.AppMeshVirtualNodeVirtualServiceBackend where++import Stratosphere.ResourceImports+++-- | Full data type definition for AppMeshVirtualNodeVirtualServiceBackend.+-- See 'appMeshVirtualNodeVirtualServiceBackend' for a more convenient+-- constructor.+data AppMeshVirtualNodeVirtualServiceBackend =+  AppMeshVirtualNodeVirtualServiceBackend+  { _appMeshVirtualNodeVirtualServiceBackendVirtualServiceName :: Val Text+  } deriving (Show, Eq)++instance ToJSON AppMeshVirtualNodeVirtualServiceBackend where+  toJSON AppMeshVirtualNodeVirtualServiceBackend{..} =+    object $+    catMaybes+    [ (Just . ("VirtualServiceName",) . toJSON) _appMeshVirtualNodeVirtualServiceBackendVirtualServiceName+    ]++-- | Constructor for 'AppMeshVirtualNodeVirtualServiceBackend' containing+-- required fields as arguments.+appMeshVirtualNodeVirtualServiceBackend+  :: Val Text -- ^ 'amvnvsbVirtualServiceName'+  -> AppMeshVirtualNodeVirtualServiceBackend+appMeshVirtualNodeVirtualServiceBackend virtualServiceNamearg =+  AppMeshVirtualNodeVirtualServiceBackend+  { _appMeshVirtualNodeVirtualServiceBackendVirtualServiceName = virtualServiceNamearg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualnode-virtualservicebackend.html#cfn-appmesh-virtualnode-virtualservicebackend-virtualservicename+amvnvsbVirtualServiceName :: Lens' AppMeshVirtualNodeVirtualServiceBackend (Val Text)+amvnvsbVirtualServiceName = lens _appMeshVirtualNodeVirtualServiceBackendVirtualServiceName (\s a -> s { _appMeshVirtualNodeVirtualServiceBackendVirtualServiceName = a })
+ library-gen/Stratosphere/ResourceProperties/AppMeshVirtualRouterPortMapping.hs view
@@ -0,0 +1,47 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualrouter-portmapping.html++module Stratosphere.ResourceProperties.AppMeshVirtualRouterPortMapping where++import Stratosphere.ResourceImports+++-- | Full data type definition for AppMeshVirtualRouterPortMapping. See+-- 'appMeshVirtualRouterPortMapping' for a more convenient constructor.+data AppMeshVirtualRouterPortMapping =+  AppMeshVirtualRouterPortMapping+  { _appMeshVirtualRouterPortMappingPort :: Val Integer+  , _appMeshVirtualRouterPortMappingProtocol :: Val Text+  } deriving (Show, Eq)++instance ToJSON AppMeshVirtualRouterPortMapping where+  toJSON AppMeshVirtualRouterPortMapping{..} =+    object $+    catMaybes+    [ (Just . ("Port",) . toJSON) _appMeshVirtualRouterPortMappingPort+    , (Just . ("Protocol",) . toJSON) _appMeshVirtualRouterPortMappingProtocol+    ]++-- | Constructor for 'AppMeshVirtualRouterPortMapping' containing required+-- fields as arguments.+appMeshVirtualRouterPortMapping+  :: Val Integer -- ^ 'amvrpmPort'+  -> Val Text -- ^ 'amvrpmProtocol'+  -> AppMeshVirtualRouterPortMapping+appMeshVirtualRouterPortMapping portarg protocolarg =+  AppMeshVirtualRouterPortMapping+  { _appMeshVirtualRouterPortMappingPort = portarg+  , _appMeshVirtualRouterPortMappingProtocol = protocolarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualrouter-portmapping.html#cfn-appmesh-virtualrouter-portmapping-port+amvrpmPort :: Lens' AppMeshVirtualRouterPortMapping (Val Integer)+amvrpmPort = lens _appMeshVirtualRouterPortMappingPort (\s a -> s { _appMeshVirtualRouterPortMappingPort = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualrouter-portmapping.html#cfn-appmesh-virtualrouter-portmapping-protocol+amvrpmProtocol :: Lens' AppMeshVirtualRouterPortMapping (Val Text)+amvrpmProtocol = lens _appMeshVirtualRouterPortMappingProtocol (\s a -> s { _appMeshVirtualRouterPortMappingProtocol = a })
+ library-gen/Stratosphere/ResourceProperties/AppMeshVirtualRouterTagRef.hs view
@@ -0,0 +1,46 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualrouter-tagref.html++module Stratosphere.ResourceProperties.AppMeshVirtualRouterTagRef where++import Stratosphere.ResourceImports+++-- | Full data type definition for AppMeshVirtualRouterTagRef. See+-- 'appMeshVirtualRouterTagRef' for a more convenient constructor.+data AppMeshVirtualRouterTagRef =+  AppMeshVirtualRouterTagRef+  { _appMeshVirtualRouterTagRefKey :: Val Text+  , _appMeshVirtualRouterTagRefValue :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON AppMeshVirtualRouterTagRef where+  toJSON AppMeshVirtualRouterTagRef{..} =+    object $+    catMaybes+    [ (Just . ("Key",) . toJSON) _appMeshVirtualRouterTagRefKey+    , fmap (("Value",) . toJSON) _appMeshVirtualRouterTagRefValue+    ]++-- | Constructor for 'AppMeshVirtualRouterTagRef' containing required fields+-- as arguments.+appMeshVirtualRouterTagRef+  :: Val Text -- ^ 'amvrtrKey'+  -> AppMeshVirtualRouterTagRef+appMeshVirtualRouterTagRef keyarg =+  AppMeshVirtualRouterTagRef+  { _appMeshVirtualRouterTagRefKey = keyarg+  , _appMeshVirtualRouterTagRefValue = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualrouter-tagref.html#cfn-appmesh-virtualrouter-tagref-key+amvrtrKey :: Lens' AppMeshVirtualRouterTagRef (Val Text)+amvrtrKey = lens _appMeshVirtualRouterTagRefKey (\s a -> s { _appMeshVirtualRouterTagRefKey = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualrouter-tagref.html#cfn-appmesh-virtualrouter-tagref-value+amvrtrValue :: Lens' AppMeshVirtualRouterTagRef (Maybe (Val Text))+amvrtrValue = lens _appMeshVirtualRouterTagRefValue (\s a -> s { _appMeshVirtualRouterTagRefValue = a })
+ library-gen/Stratosphere/ResourceProperties/AppMeshVirtualRouterVirtualRouterListener.hs view
@@ -0,0 +1,40 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualrouter-virtualrouterlistener.html++module Stratosphere.ResourceProperties.AppMeshVirtualRouterVirtualRouterListener where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.AppMeshVirtualRouterPortMapping++-- | Full data type definition for AppMeshVirtualRouterVirtualRouterListener.+-- See 'appMeshVirtualRouterVirtualRouterListener' for a more convenient+-- constructor.+data AppMeshVirtualRouterVirtualRouterListener =+  AppMeshVirtualRouterVirtualRouterListener+  { _appMeshVirtualRouterVirtualRouterListenerPortMapping :: AppMeshVirtualRouterPortMapping+  } deriving (Show, Eq)++instance ToJSON AppMeshVirtualRouterVirtualRouterListener where+  toJSON AppMeshVirtualRouterVirtualRouterListener{..} =+    object $+    catMaybes+    [ (Just . ("PortMapping",) . toJSON) _appMeshVirtualRouterVirtualRouterListenerPortMapping+    ]++-- | Constructor for 'AppMeshVirtualRouterVirtualRouterListener' containing+-- required fields as arguments.+appMeshVirtualRouterVirtualRouterListener+  :: AppMeshVirtualRouterPortMapping -- ^ 'amvrvrlPortMapping'+  -> AppMeshVirtualRouterVirtualRouterListener+appMeshVirtualRouterVirtualRouterListener portMappingarg =+  AppMeshVirtualRouterVirtualRouterListener+  { _appMeshVirtualRouterVirtualRouterListenerPortMapping = portMappingarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualrouter-virtualrouterlistener.html#cfn-appmesh-virtualrouter-virtualrouterlistener-portmapping+amvrvrlPortMapping :: Lens' AppMeshVirtualRouterVirtualRouterListener AppMeshVirtualRouterPortMapping+amvrvrlPortMapping = lens _appMeshVirtualRouterVirtualRouterListenerPortMapping (\s a -> s { _appMeshVirtualRouterVirtualRouterListenerPortMapping = a })
+ library-gen/Stratosphere/ResourceProperties/AppMeshVirtualRouterVirtualRouterSpec.hs view
@@ -0,0 +1,40 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualrouter-virtualrouterspec.html++module Stratosphere.ResourceProperties.AppMeshVirtualRouterVirtualRouterSpec where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.AppMeshVirtualRouterVirtualRouterListener++-- | Full data type definition for AppMeshVirtualRouterVirtualRouterSpec. See+-- 'appMeshVirtualRouterVirtualRouterSpec' for a more convenient+-- constructor.+data AppMeshVirtualRouterVirtualRouterSpec =+  AppMeshVirtualRouterVirtualRouterSpec+  { _appMeshVirtualRouterVirtualRouterSpecListeners :: [AppMeshVirtualRouterVirtualRouterListener]+  } deriving (Show, Eq)++instance ToJSON AppMeshVirtualRouterVirtualRouterSpec where+  toJSON AppMeshVirtualRouterVirtualRouterSpec{..} =+    object $+    catMaybes+    [ (Just . ("Listeners",) . toJSON) _appMeshVirtualRouterVirtualRouterSpecListeners+    ]++-- | Constructor for 'AppMeshVirtualRouterVirtualRouterSpec' containing+-- required fields as arguments.+appMeshVirtualRouterVirtualRouterSpec+  :: [AppMeshVirtualRouterVirtualRouterListener] -- ^ 'amvrvrsListeners'+  -> AppMeshVirtualRouterVirtualRouterSpec+appMeshVirtualRouterVirtualRouterSpec listenersarg =+  AppMeshVirtualRouterVirtualRouterSpec+  { _appMeshVirtualRouterVirtualRouterSpecListeners = listenersarg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualrouter-virtualrouterspec.html#cfn-appmesh-virtualrouter-virtualrouterspec-listeners+amvrvrsListeners :: Lens' AppMeshVirtualRouterVirtualRouterSpec [AppMeshVirtualRouterVirtualRouterListener]+amvrvrsListeners = lens _appMeshVirtualRouterVirtualRouterSpecListeners (\s a -> s { _appMeshVirtualRouterVirtualRouterSpecListeners = a })
+ library-gen/Stratosphere/ResourceProperties/AppMeshVirtualServiceTagRef.hs view
@@ -0,0 +1,46 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualservice-tagref.html++module Stratosphere.ResourceProperties.AppMeshVirtualServiceTagRef where++import Stratosphere.ResourceImports+++-- | Full data type definition for AppMeshVirtualServiceTagRef. See+-- 'appMeshVirtualServiceTagRef' for a more convenient constructor.+data AppMeshVirtualServiceTagRef =+  AppMeshVirtualServiceTagRef+  { _appMeshVirtualServiceTagRefKey :: Val Text+  , _appMeshVirtualServiceTagRefValue :: Maybe (Val Text)+  } deriving (Show, Eq)++instance ToJSON AppMeshVirtualServiceTagRef where+  toJSON AppMeshVirtualServiceTagRef{..} =+    object $+    catMaybes+    [ (Just . ("Key",) . toJSON) _appMeshVirtualServiceTagRefKey+    , fmap (("Value",) . toJSON) _appMeshVirtualServiceTagRefValue+    ]++-- | Constructor for 'AppMeshVirtualServiceTagRef' containing required fields+-- as arguments.+appMeshVirtualServiceTagRef+  :: Val Text -- ^ 'amvstrKey'+  -> AppMeshVirtualServiceTagRef+appMeshVirtualServiceTagRef keyarg =+  AppMeshVirtualServiceTagRef+  { _appMeshVirtualServiceTagRefKey = keyarg+  , _appMeshVirtualServiceTagRefValue = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualservice-tagref.html#cfn-appmesh-virtualservice-tagref-key+amvstrKey :: Lens' AppMeshVirtualServiceTagRef (Val Text)+amvstrKey = lens _appMeshVirtualServiceTagRefKey (\s a -> s { _appMeshVirtualServiceTagRefKey = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualservice-tagref.html#cfn-appmesh-virtualservice-tagref-value+amvstrValue :: Lens' AppMeshVirtualServiceTagRef (Maybe (Val Text))+amvstrValue = lens _appMeshVirtualServiceTagRefValue (\s a -> s { _appMeshVirtualServiceTagRefValue = a })
+ library-gen/Stratosphere/ResourceProperties/AppMeshVirtualServiceVirtualNodeServiceProvider.hs view
@@ -0,0 +1,41 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualservice-virtualnodeserviceprovider.html++module Stratosphere.ResourceProperties.AppMeshVirtualServiceVirtualNodeServiceProvider where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- AppMeshVirtualServiceVirtualNodeServiceProvider. See+-- 'appMeshVirtualServiceVirtualNodeServiceProvider' for a more convenient+-- constructor.+data AppMeshVirtualServiceVirtualNodeServiceProvider =+  AppMeshVirtualServiceVirtualNodeServiceProvider+  { _appMeshVirtualServiceVirtualNodeServiceProviderVirtualNodeName :: Val Text+  } deriving (Show, Eq)++instance ToJSON AppMeshVirtualServiceVirtualNodeServiceProvider where+  toJSON AppMeshVirtualServiceVirtualNodeServiceProvider{..} =+    object $+    catMaybes+    [ (Just . ("VirtualNodeName",) . toJSON) _appMeshVirtualServiceVirtualNodeServiceProviderVirtualNodeName+    ]++-- | Constructor for 'AppMeshVirtualServiceVirtualNodeServiceProvider'+-- containing required fields as arguments.+appMeshVirtualServiceVirtualNodeServiceProvider+  :: Val Text -- ^ 'amvsvnspVirtualNodeName'+  -> AppMeshVirtualServiceVirtualNodeServiceProvider+appMeshVirtualServiceVirtualNodeServiceProvider virtualNodeNamearg =+  AppMeshVirtualServiceVirtualNodeServiceProvider+  { _appMeshVirtualServiceVirtualNodeServiceProviderVirtualNodeName = virtualNodeNamearg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualservice-virtualnodeserviceprovider.html#cfn-appmesh-virtualservice-virtualnodeserviceprovider-virtualnodename+amvsvnspVirtualNodeName :: Lens' AppMeshVirtualServiceVirtualNodeServiceProvider (Val Text)+amvsvnspVirtualNodeName = lens _appMeshVirtualServiceVirtualNodeServiceProviderVirtualNodeName (\s a -> s { _appMeshVirtualServiceVirtualNodeServiceProviderVirtualNodeName = a })
+ library-gen/Stratosphere/ResourceProperties/AppMeshVirtualServiceVirtualRouterServiceProvider.hs view
@@ -0,0 +1,41 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualservice-virtualrouterserviceprovider.html++module Stratosphere.ResourceProperties.AppMeshVirtualServiceVirtualRouterServiceProvider where++import Stratosphere.ResourceImports+++-- | Full data type definition for+-- AppMeshVirtualServiceVirtualRouterServiceProvider. See+-- 'appMeshVirtualServiceVirtualRouterServiceProvider' for a more convenient+-- constructor.+data AppMeshVirtualServiceVirtualRouterServiceProvider =+  AppMeshVirtualServiceVirtualRouterServiceProvider+  { _appMeshVirtualServiceVirtualRouterServiceProviderVirtualRouterName :: Val Text+  } deriving (Show, Eq)++instance ToJSON AppMeshVirtualServiceVirtualRouterServiceProvider where+  toJSON AppMeshVirtualServiceVirtualRouterServiceProvider{..} =+    object $+    catMaybes+    [ (Just . ("VirtualRouterName",) . toJSON) _appMeshVirtualServiceVirtualRouterServiceProviderVirtualRouterName+    ]++-- | Constructor for 'AppMeshVirtualServiceVirtualRouterServiceProvider'+-- containing required fields as arguments.+appMeshVirtualServiceVirtualRouterServiceProvider+  :: Val Text -- ^ 'amvsvrspVirtualRouterName'+  -> AppMeshVirtualServiceVirtualRouterServiceProvider+appMeshVirtualServiceVirtualRouterServiceProvider virtualRouterNamearg =+  AppMeshVirtualServiceVirtualRouterServiceProvider+  { _appMeshVirtualServiceVirtualRouterServiceProviderVirtualRouterName = virtualRouterNamearg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualservice-virtualrouterserviceprovider.html#cfn-appmesh-virtualservice-virtualrouterserviceprovider-virtualroutername+amvsvrspVirtualRouterName :: Lens' AppMeshVirtualServiceVirtualRouterServiceProvider (Val Text)+amvsvrspVirtualRouterName = lens _appMeshVirtualServiceVirtualRouterServiceProviderVirtualRouterName (\s a -> s { _appMeshVirtualServiceVirtualRouterServiceProviderVirtualRouterName = a })
+ library-gen/Stratosphere/ResourceProperties/AppMeshVirtualServiceVirtualServiceProvider.hs view
@@ -0,0 +1,48 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualservice-virtualserviceprovider.html++module Stratosphere.ResourceProperties.AppMeshVirtualServiceVirtualServiceProvider where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.AppMeshVirtualServiceVirtualNodeServiceProvider+import Stratosphere.ResourceProperties.AppMeshVirtualServiceVirtualRouterServiceProvider++-- | Full data type definition for+-- AppMeshVirtualServiceVirtualServiceProvider. See+-- 'appMeshVirtualServiceVirtualServiceProvider' for a more convenient+-- constructor.+data AppMeshVirtualServiceVirtualServiceProvider =+  AppMeshVirtualServiceVirtualServiceProvider+  { _appMeshVirtualServiceVirtualServiceProviderVirtualNode :: Maybe AppMeshVirtualServiceVirtualNodeServiceProvider+  , _appMeshVirtualServiceVirtualServiceProviderVirtualRouter :: Maybe AppMeshVirtualServiceVirtualRouterServiceProvider+  } deriving (Show, Eq)++instance ToJSON AppMeshVirtualServiceVirtualServiceProvider where+  toJSON AppMeshVirtualServiceVirtualServiceProvider{..} =+    object $+    catMaybes+    [ fmap (("VirtualNode",) . toJSON) _appMeshVirtualServiceVirtualServiceProviderVirtualNode+    , fmap (("VirtualRouter",) . toJSON) _appMeshVirtualServiceVirtualServiceProviderVirtualRouter+    ]++-- | Constructor for 'AppMeshVirtualServiceVirtualServiceProvider' containing+-- required fields as arguments.+appMeshVirtualServiceVirtualServiceProvider+  :: AppMeshVirtualServiceVirtualServiceProvider+appMeshVirtualServiceVirtualServiceProvider  =+  AppMeshVirtualServiceVirtualServiceProvider+  { _appMeshVirtualServiceVirtualServiceProviderVirtualNode = Nothing+  , _appMeshVirtualServiceVirtualServiceProviderVirtualRouter = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualservice-virtualserviceprovider.html#cfn-appmesh-virtualservice-virtualserviceprovider-virtualnode+amvsvspVirtualNode :: Lens' AppMeshVirtualServiceVirtualServiceProvider (Maybe AppMeshVirtualServiceVirtualNodeServiceProvider)+amvsvspVirtualNode = lens _appMeshVirtualServiceVirtualServiceProviderVirtualNode (\s a -> s { _appMeshVirtualServiceVirtualServiceProviderVirtualNode = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualservice-virtualserviceprovider.html#cfn-appmesh-virtualservice-virtualserviceprovider-virtualrouter+amvsvspVirtualRouter :: Lens' AppMeshVirtualServiceVirtualServiceProvider (Maybe AppMeshVirtualServiceVirtualRouterServiceProvider)+amvsvspVirtualRouter = lens _appMeshVirtualServiceVirtualServiceProviderVirtualRouter (\s a -> s { _appMeshVirtualServiceVirtualServiceProviderVirtualRouter = a })
+ library-gen/Stratosphere/ResourceProperties/AppMeshVirtualServiceVirtualServiceSpec.hs view
@@ -0,0 +1,39 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualservice-virtualservicespec.html++module Stratosphere.ResourceProperties.AppMeshVirtualServiceVirtualServiceSpec where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.AppMeshVirtualServiceVirtualServiceProvider++-- | Full data type definition for AppMeshVirtualServiceVirtualServiceSpec.+-- See 'appMeshVirtualServiceVirtualServiceSpec' for a more convenient+-- constructor.+data AppMeshVirtualServiceVirtualServiceSpec =+  AppMeshVirtualServiceVirtualServiceSpec+  { _appMeshVirtualServiceVirtualServiceSpecProvider :: Maybe AppMeshVirtualServiceVirtualServiceProvider+  } deriving (Show, Eq)++instance ToJSON AppMeshVirtualServiceVirtualServiceSpec where+  toJSON AppMeshVirtualServiceVirtualServiceSpec{..} =+    object $+    catMaybes+    [ fmap (("Provider",) . toJSON) _appMeshVirtualServiceVirtualServiceSpecProvider+    ]++-- | Constructor for 'AppMeshVirtualServiceVirtualServiceSpec' containing+-- required fields as arguments.+appMeshVirtualServiceVirtualServiceSpec+  :: AppMeshVirtualServiceVirtualServiceSpec+appMeshVirtualServiceVirtualServiceSpec  =+  AppMeshVirtualServiceVirtualServiceSpec+  { _appMeshVirtualServiceVirtualServiceSpecProvider = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-appmesh-virtualservice-virtualservicespec.html#cfn-appmesh-virtualservice-virtualservicespec-provider+amvsvssProvider :: Lens' AppMeshVirtualServiceVirtualServiceSpec (Maybe AppMeshVirtualServiceVirtualServiceProvider)+amvsvssProvider = lens _appMeshVirtualServiceVirtualServiceSpecProvider (\s a -> s { _appMeshVirtualServiceVirtualServiceSpecProvider = a })
library-gen/Stratosphere/ResourceProperties/ServiceDiscoveryServiceDnsRecord.hs view
@@ -14,7 +14,7 @@ -- 'serviceDiscoveryServiceDnsRecord' for a more convenient constructor. data ServiceDiscoveryServiceDnsRecord =   ServiceDiscoveryServiceDnsRecord-  { _serviceDiscoveryServiceDnsRecordTTL :: Val Text+  { _serviceDiscoveryServiceDnsRecordTTL :: Val Double   , _serviceDiscoveryServiceDnsRecordType :: Val Text   } deriving (Show, Eq) @@ -29,7 +29,7 @@ -- | Constructor for 'ServiceDiscoveryServiceDnsRecord' containing required -- fields as arguments. serviceDiscoveryServiceDnsRecord-  :: Val Text -- ^ 'sdsdrTTL'+  :: Val Double -- ^ 'sdsdrTTL'   -> Val Text -- ^ 'sdsdrType'   -> ServiceDiscoveryServiceDnsRecord serviceDiscoveryServiceDnsRecord tTLarg typearg =@@ -39,7 +39,7 @@   }  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-servicediscovery-service-dnsrecord.html#cfn-servicediscovery-service-dnsrecord-ttl-sdsdrTTL :: Lens' ServiceDiscoveryServiceDnsRecord (Val Text)+sdsdrTTL :: Lens' ServiceDiscoveryServiceDnsRecord (Val Double) sdsdrTTL = lens _serviceDiscoveryServiceDnsRecordTTL (\s a -> s { _serviceDiscoveryServiceDnsRecordTTL = a })  -- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-properties-servicediscovery-service-dnsrecord.html#cfn-servicediscovery-service-dnsrecord-type
library-gen/Stratosphere/Resources.hs view
@@ -75,6 +75,11 @@ import Stratosphere.Resources.ApiGatewayV2Route as X import Stratosphere.Resources.ApiGatewayV2RouteResponse as X import Stratosphere.Resources.ApiGatewayV2Stage as X+import Stratosphere.Resources.AppMeshMesh as X+import Stratosphere.Resources.AppMeshRoute as X+import Stratosphere.Resources.AppMeshVirtualNode as X+import Stratosphere.Resources.AppMeshVirtualRouter as X+import Stratosphere.Resources.AppMeshVirtualService as X import Stratosphere.Resources.AppStreamDirectoryConfig as X import Stratosphere.Resources.AppStreamFleet as X import Stratosphere.Resources.AppStreamImageBuilder as X@@ -452,6 +457,38 @@ import Stratosphere.ResourceProperties.ApiGatewayV2RouteResponseParameterConstraints as X import Stratosphere.ResourceProperties.ApiGatewayV2StageAccessLogSettings as X import Stratosphere.ResourceProperties.ApiGatewayV2StageRouteSettings as X+import Stratosphere.ResourceProperties.AppMeshMeshEgressFilter as X+import Stratosphere.ResourceProperties.AppMeshMeshMeshSpec as X+import Stratosphere.ResourceProperties.AppMeshMeshTagRef as X+import Stratosphere.ResourceProperties.AppMeshRouteHttpRoute as X+import Stratosphere.ResourceProperties.AppMeshRouteHttpRouteAction as X+import Stratosphere.ResourceProperties.AppMeshRouteHttpRouteMatch as X+import Stratosphere.ResourceProperties.AppMeshRouteRouteSpec as X+import Stratosphere.ResourceProperties.AppMeshRouteTagRef as X+import Stratosphere.ResourceProperties.AppMeshRouteTcpRoute as X+import Stratosphere.ResourceProperties.AppMeshRouteTcpRouteAction as X+import Stratosphere.ResourceProperties.AppMeshRouteWeightedTarget as X+import Stratosphere.ResourceProperties.AppMeshVirtualNodeAccessLog as X+import Stratosphere.ResourceProperties.AppMeshVirtualNodeBackend as X+import Stratosphere.ResourceProperties.AppMeshVirtualNodeDnsServiceDiscovery as X+import Stratosphere.ResourceProperties.AppMeshVirtualNodeFileAccessLog as X+import Stratosphere.ResourceProperties.AppMeshVirtualNodeHealthCheck as X+import Stratosphere.ResourceProperties.AppMeshVirtualNodeListener as X+import Stratosphere.ResourceProperties.AppMeshVirtualNodeLogging as X+import Stratosphere.ResourceProperties.AppMeshVirtualNodePortMapping as X+import Stratosphere.ResourceProperties.AppMeshVirtualNodeServiceDiscovery as X+import Stratosphere.ResourceProperties.AppMeshVirtualNodeTagRef as X+import Stratosphere.ResourceProperties.AppMeshVirtualNodeVirtualNodeSpec as X+import Stratosphere.ResourceProperties.AppMeshVirtualNodeVirtualServiceBackend as X+import Stratosphere.ResourceProperties.AppMeshVirtualRouterPortMapping as X+import Stratosphere.ResourceProperties.AppMeshVirtualRouterTagRef as X+import Stratosphere.ResourceProperties.AppMeshVirtualRouterVirtualRouterListener as X+import Stratosphere.ResourceProperties.AppMeshVirtualRouterVirtualRouterSpec as X+import Stratosphere.ResourceProperties.AppMeshVirtualServiceTagRef as X+import Stratosphere.ResourceProperties.AppMeshVirtualServiceVirtualNodeServiceProvider as X+import Stratosphere.ResourceProperties.AppMeshVirtualServiceVirtualRouterServiceProvider as X+import Stratosphere.ResourceProperties.AppMeshVirtualServiceVirtualServiceProvider as X+import Stratosphere.ResourceProperties.AppMeshVirtualServiceVirtualServiceSpec as X import Stratosphere.ResourceProperties.AppStreamDirectoryConfigServiceAccountCredentials as X import Stratosphere.ResourceProperties.AppStreamFleetComputeCapacity as X import Stratosphere.ResourceProperties.AppStreamFleetDomainJoinInfo as X
+ library-gen/Stratosphere/Resources/AppMeshMesh.hs view
@@ -0,0 +1,56 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appmesh-mesh.html++module Stratosphere.Resources.AppMeshMesh where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.AppMeshMeshMeshSpec+import Stratosphere.ResourceProperties.AppMeshMeshTagRef++-- | Full data type definition for AppMeshMesh. See 'appMeshMesh' for a more+-- convenient constructor.+data AppMeshMesh =+  AppMeshMesh+  { _appMeshMeshMeshName :: Val Text+  , _appMeshMeshSpec :: Maybe AppMeshMeshMeshSpec+  , _appMeshMeshTags :: Maybe [AppMeshMeshTagRef]+  } deriving (Show, Eq)++instance ToResourceProperties AppMeshMesh where+  toResourceProperties AppMeshMesh{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::AppMesh::Mesh"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ (Just . ("MeshName",) . toJSON) _appMeshMeshMeshName+        , fmap (("Spec",) . toJSON) _appMeshMeshSpec+        , fmap (("Tags",) . toJSON) _appMeshMeshTags+        ]+    }++-- | Constructor for 'AppMeshMesh' containing required fields as arguments.+appMeshMesh+  :: Val Text -- ^ 'ammMeshName'+  -> AppMeshMesh+appMeshMesh meshNamearg =+  AppMeshMesh+  { _appMeshMeshMeshName = meshNamearg+  , _appMeshMeshSpec = Nothing+  , _appMeshMeshTags = Nothing+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appmesh-mesh.html#cfn-appmesh-mesh-meshname+ammMeshName :: Lens' AppMeshMesh (Val Text)+ammMeshName = lens _appMeshMeshMeshName (\s a -> s { _appMeshMeshMeshName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appmesh-mesh.html#cfn-appmesh-mesh-spec+ammSpec :: Lens' AppMeshMesh (Maybe AppMeshMeshMeshSpec)+ammSpec = lens _appMeshMeshSpec (\s a -> s { _appMeshMeshSpec = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appmesh-mesh.html#cfn-appmesh-mesh-tags+ammTags :: Lens' AppMeshMesh (Maybe [AppMeshMeshTagRef])+ammTags = lens _appMeshMeshTags (\s a -> s { _appMeshMeshTags = a })
+ library-gen/Stratosphere/Resources/AppMeshRoute.hs view
@@ -0,0 +1,73 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appmesh-route.html++module Stratosphere.Resources.AppMeshRoute where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.AppMeshRouteRouteSpec+import Stratosphere.ResourceProperties.AppMeshRouteTagRef++-- | Full data type definition for AppMeshRoute. See 'appMeshRoute' for a more+-- convenient constructor.+data AppMeshRoute =+  AppMeshRoute+  { _appMeshRouteMeshName :: Val Text+  , _appMeshRouteRouteName :: Val Text+  , _appMeshRouteSpec :: AppMeshRouteRouteSpec+  , _appMeshRouteTags :: Maybe [AppMeshRouteTagRef]+  , _appMeshRouteVirtualRouterName :: Val Text+  } deriving (Show, Eq)++instance ToResourceProperties AppMeshRoute where+  toResourceProperties AppMeshRoute{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::AppMesh::Route"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ (Just . ("MeshName",) . toJSON) _appMeshRouteMeshName+        , (Just . ("RouteName",) . toJSON) _appMeshRouteRouteName+        , (Just . ("Spec",) . toJSON) _appMeshRouteSpec+        , fmap (("Tags",) . toJSON) _appMeshRouteTags+        , (Just . ("VirtualRouterName",) . toJSON) _appMeshRouteVirtualRouterName+        ]+    }++-- | Constructor for 'AppMeshRoute' containing required fields as arguments.+appMeshRoute+  :: Val Text -- ^ 'amrMeshName'+  -> Val Text -- ^ 'amrRouteName'+  -> AppMeshRouteRouteSpec -- ^ 'amrSpec'+  -> Val Text -- ^ 'amrVirtualRouterName'+  -> AppMeshRoute+appMeshRoute meshNamearg routeNamearg specarg virtualRouterNamearg =+  AppMeshRoute+  { _appMeshRouteMeshName = meshNamearg+  , _appMeshRouteRouteName = routeNamearg+  , _appMeshRouteSpec = specarg+  , _appMeshRouteTags = Nothing+  , _appMeshRouteVirtualRouterName = virtualRouterNamearg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appmesh-route.html#cfn-appmesh-route-meshname+amrMeshName :: Lens' AppMeshRoute (Val Text)+amrMeshName = lens _appMeshRouteMeshName (\s a -> s { _appMeshRouteMeshName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appmesh-route.html#cfn-appmesh-route-routename+amrRouteName :: Lens' AppMeshRoute (Val Text)+amrRouteName = lens _appMeshRouteRouteName (\s a -> s { _appMeshRouteRouteName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appmesh-route.html#cfn-appmesh-route-spec+amrSpec :: Lens' AppMeshRoute AppMeshRouteRouteSpec+amrSpec = lens _appMeshRouteSpec (\s a -> s { _appMeshRouteSpec = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appmesh-route.html#cfn-appmesh-route-tags+amrTags :: Lens' AppMeshRoute (Maybe [AppMeshRouteTagRef])+amrTags = lens _appMeshRouteTags (\s a -> s { _appMeshRouteTags = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appmesh-route.html#cfn-appmesh-route-virtualroutername+amrVirtualRouterName :: Lens' AppMeshRoute (Val Text)+amrVirtualRouterName = lens _appMeshRouteVirtualRouterName (\s a -> s { _appMeshRouteVirtualRouterName = a })
+ library-gen/Stratosphere/Resources/AppMeshVirtualNode.hs view
@@ -0,0 +1,66 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appmesh-virtualnode.html++module Stratosphere.Resources.AppMeshVirtualNode where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.AppMeshVirtualNodeVirtualNodeSpec+import Stratosphere.ResourceProperties.AppMeshVirtualNodeTagRef++-- | Full data type definition for AppMeshVirtualNode. See+-- 'appMeshVirtualNode' for a more convenient constructor.+data AppMeshVirtualNode =+  AppMeshVirtualNode+  { _appMeshVirtualNodeMeshName :: Val Text+  , _appMeshVirtualNodeSpec :: AppMeshVirtualNodeVirtualNodeSpec+  , _appMeshVirtualNodeTags :: Maybe [AppMeshVirtualNodeTagRef]+  , _appMeshVirtualNodeVirtualNodeName :: Val Text+  } deriving (Show, Eq)++instance ToResourceProperties AppMeshVirtualNode where+  toResourceProperties AppMeshVirtualNode{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::AppMesh::VirtualNode"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ (Just . ("MeshName",) . toJSON) _appMeshVirtualNodeMeshName+        , (Just . ("Spec",) . toJSON) _appMeshVirtualNodeSpec+        , fmap (("Tags",) . toJSON) _appMeshVirtualNodeTags+        , (Just . ("VirtualNodeName",) . toJSON) _appMeshVirtualNodeVirtualNodeName+        ]+    }++-- | Constructor for 'AppMeshVirtualNode' containing required fields as+-- arguments.+appMeshVirtualNode+  :: Val Text -- ^ 'amvnMeshName'+  -> AppMeshVirtualNodeVirtualNodeSpec -- ^ 'amvnSpec'+  -> Val Text -- ^ 'amvnVirtualNodeName'+  -> AppMeshVirtualNode+appMeshVirtualNode meshNamearg specarg virtualNodeNamearg =+  AppMeshVirtualNode+  { _appMeshVirtualNodeMeshName = meshNamearg+  , _appMeshVirtualNodeSpec = specarg+  , _appMeshVirtualNodeTags = Nothing+  , _appMeshVirtualNodeVirtualNodeName = virtualNodeNamearg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appmesh-virtualnode.html#cfn-appmesh-virtualnode-meshname+amvnMeshName :: Lens' AppMeshVirtualNode (Val Text)+amvnMeshName = lens _appMeshVirtualNodeMeshName (\s a -> s { _appMeshVirtualNodeMeshName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appmesh-virtualnode.html#cfn-appmesh-virtualnode-spec+amvnSpec :: Lens' AppMeshVirtualNode AppMeshVirtualNodeVirtualNodeSpec+amvnSpec = lens _appMeshVirtualNodeSpec (\s a -> s { _appMeshVirtualNodeSpec = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appmesh-virtualnode.html#cfn-appmesh-virtualnode-tags+amvnTags :: Lens' AppMeshVirtualNode (Maybe [AppMeshVirtualNodeTagRef])+amvnTags = lens _appMeshVirtualNodeTags (\s a -> s { _appMeshVirtualNodeTags = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appmesh-virtualnode.html#cfn-appmesh-virtualnode-virtualnodename+amvnVirtualNodeName :: Lens' AppMeshVirtualNode (Val Text)+amvnVirtualNodeName = lens _appMeshVirtualNodeVirtualNodeName (\s a -> s { _appMeshVirtualNodeVirtualNodeName = a })
+ library-gen/Stratosphere/Resources/AppMeshVirtualRouter.hs view
@@ -0,0 +1,66 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appmesh-virtualrouter.html++module Stratosphere.Resources.AppMeshVirtualRouter where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.AppMeshVirtualRouterVirtualRouterSpec+import Stratosphere.ResourceProperties.AppMeshVirtualRouterTagRef++-- | Full data type definition for AppMeshVirtualRouter. See+-- 'appMeshVirtualRouter' for a more convenient constructor.+data AppMeshVirtualRouter =+  AppMeshVirtualRouter+  { _appMeshVirtualRouterMeshName :: Val Text+  , _appMeshVirtualRouterSpec :: AppMeshVirtualRouterVirtualRouterSpec+  , _appMeshVirtualRouterTags :: Maybe [AppMeshVirtualRouterTagRef]+  , _appMeshVirtualRouterVirtualRouterName :: Val Text+  } deriving (Show, Eq)++instance ToResourceProperties AppMeshVirtualRouter where+  toResourceProperties AppMeshVirtualRouter{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::AppMesh::VirtualRouter"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ (Just . ("MeshName",) . toJSON) _appMeshVirtualRouterMeshName+        , (Just . ("Spec",) . toJSON) _appMeshVirtualRouterSpec+        , fmap (("Tags",) . toJSON) _appMeshVirtualRouterTags+        , (Just . ("VirtualRouterName",) . toJSON) _appMeshVirtualRouterVirtualRouterName+        ]+    }++-- | Constructor for 'AppMeshVirtualRouter' containing required fields as+-- arguments.+appMeshVirtualRouter+  :: Val Text -- ^ 'amvrMeshName'+  -> AppMeshVirtualRouterVirtualRouterSpec -- ^ 'amvrSpec'+  -> Val Text -- ^ 'amvrVirtualRouterName'+  -> AppMeshVirtualRouter+appMeshVirtualRouter meshNamearg specarg virtualRouterNamearg =+  AppMeshVirtualRouter+  { _appMeshVirtualRouterMeshName = meshNamearg+  , _appMeshVirtualRouterSpec = specarg+  , _appMeshVirtualRouterTags = Nothing+  , _appMeshVirtualRouterVirtualRouterName = virtualRouterNamearg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appmesh-virtualrouter.html#cfn-appmesh-virtualrouter-meshname+amvrMeshName :: Lens' AppMeshVirtualRouter (Val Text)+amvrMeshName = lens _appMeshVirtualRouterMeshName (\s a -> s { _appMeshVirtualRouterMeshName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appmesh-virtualrouter.html#cfn-appmesh-virtualrouter-spec+amvrSpec :: Lens' AppMeshVirtualRouter AppMeshVirtualRouterVirtualRouterSpec+amvrSpec = lens _appMeshVirtualRouterSpec (\s a -> s { _appMeshVirtualRouterSpec = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appmesh-virtualrouter.html#cfn-appmesh-virtualrouter-tags+amvrTags :: Lens' AppMeshVirtualRouter (Maybe [AppMeshVirtualRouterTagRef])+amvrTags = lens _appMeshVirtualRouterTags (\s a -> s { _appMeshVirtualRouterTags = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appmesh-virtualrouter.html#cfn-appmesh-virtualrouter-virtualroutername+amvrVirtualRouterName :: Lens' AppMeshVirtualRouter (Val Text)+amvrVirtualRouterName = lens _appMeshVirtualRouterVirtualRouterName (\s a -> s { _appMeshVirtualRouterVirtualRouterName = a })
+ library-gen/Stratosphere/Resources/AppMeshVirtualService.hs view
@@ -0,0 +1,66 @@+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TupleSections #-}++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appmesh-virtualservice.html++module Stratosphere.Resources.AppMeshVirtualService where++import Stratosphere.ResourceImports+import Stratosphere.ResourceProperties.AppMeshVirtualServiceVirtualServiceSpec+import Stratosphere.ResourceProperties.AppMeshVirtualServiceTagRef++-- | Full data type definition for AppMeshVirtualService. See+-- 'appMeshVirtualService' for a more convenient constructor.+data AppMeshVirtualService =+  AppMeshVirtualService+  { _appMeshVirtualServiceMeshName :: Val Text+  , _appMeshVirtualServiceSpec :: AppMeshVirtualServiceVirtualServiceSpec+  , _appMeshVirtualServiceTags :: Maybe [AppMeshVirtualServiceTagRef]+  , _appMeshVirtualServiceVirtualServiceName :: Val Text+  } deriving (Show, Eq)++instance ToResourceProperties AppMeshVirtualService where+  toResourceProperties AppMeshVirtualService{..} =+    ResourceProperties+    { resourcePropertiesType = "AWS::AppMesh::VirtualService"+    , resourcePropertiesProperties =+        hashMapFromList $ catMaybes+        [ (Just . ("MeshName",) . toJSON) _appMeshVirtualServiceMeshName+        , (Just . ("Spec",) . toJSON) _appMeshVirtualServiceSpec+        , fmap (("Tags",) . toJSON) _appMeshVirtualServiceTags+        , (Just . ("VirtualServiceName",) . toJSON) _appMeshVirtualServiceVirtualServiceName+        ]+    }++-- | Constructor for 'AppMeshVirtualService' containing required fields as+-- arguments.+appMeshVirtualService+  :: Val Text -- ^ 'amvsMeshName'+  -> AppMeshVirtualServiceVirtualServiceSpec -- ^ 'amvsSpec'+  -> Val Text -- ^ 'amvsVirtualServiceName'+  -> AppMeshVirtualService+appMeshVirtualService meshNamearg specarg virtualServiceNamearg =+  AppMeshVirtualService+  { _appMeshVirtualServiceMeshName = meshNamearg+  , _appMeshVirtualServiceSpec = specarg+  , _appMeshVirtualServiceTags = Nothing+  , _appMeshVirtualServiceVirtualServiceName = virtualServiceNamearg+  }++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appmesh-virtualservice.html#cfn-appmesh-virtualservice-meshname+amvsMeshName :: Lens' AppMeshVirtualService (Val Text)+amvsMeshName = lens _appMeshVirtualServiceMeshName (\s a -> s { _appMeshVirtualServiceMeshName = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appmesh-virtualservice.html#cfn-appmesh-virtualservice-spec+amvsSpec :: Lens' AppMeshVirtualService AppMeshVirtualServiceVirtualServiceSpec+amvsSpec = lens _appMeshVirtualServiceSpec (\s a -> s { _appMeshVirtualServiceSpec = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appmesh-virtualservice.html#cfn-appmesh-virtualservice-tags+amvsTags :: Lens' AppMeshVirtualService (Maybe [AppMeshVirtualServiceTagRef])+amvsTags = lens _appMeshVirtualServiceTags (\s a -> s { _appMeshVirtualServiceTags = a })++-- | http://docs.aws.amazon.com/AWSCloudFormation/latest/UserGuide/aws-resource-appmesh-virtualservice.html#cfn-appmesh-virtualservice-virtualservicename+amvsVirtualServiceName :: Lens' AppMeshVirtualService (Val Text)+amvsVirtualServiceName = lens _appMeshVirtualServiceVirtualServiceName (\s a -> s { _appMeshVirtualServiceVirtualServiceName = a })
stratosphere.cabal view
@@ -4,10 +4,10 @@ -- -- see: https://github.com/sol/hpack ----- hash: ea7cd0bc0e3e727dd5d25bdf08ba888d69317a1d5ace706408c2e87601a6583e+-- hash: 112dc6cf41a7ab376e8d4417b3842f7a21e8db0e1cd6f09377ccc096fffe9a8b  name:           stratosphere-version:        0.35.0+version:        0.36.0 synopsis:       EDSL for AWS CloudFormation description:    EDSL for AWS CloudFormation category:       AWS, Cloud@@ -87,6 +87,38 @@       Stratosphere.ResourceProperties.ApplicationAutoScalingScalingPolicyStepAdjustment       Stratosphere.ResourceProperties.ApplicationAutoScalingScalingPolicyStepScalingPolicyConfiguration       Stratosphere.ResourceProperties.ApplicationAutoScalingScalingPolicyTargetTrackingScalingPolicyConfiguration+      Stratosphere.ResourceProperties.AppMeshMeshEgressFilter+      Stratosphere.ResourceProperties.AppMeshMeshMeshSpec+      Stratosphere.ResourceProperties.AppMeshMeshTagRef+      Stratosphere.ResourceProperties.AppMeshRouteHttpRoute+      Stratosphere.ResourceProperties.AppMeshRouteHttpRouteAction+      Stratosphere.ResourceProperties.AppMeshRouteHttpRouteMatch+      Stratosphere.ResourceProperties.AppMeshRouteRouteSpec+      Stratosphere.ResourceProperties.AppMeshRouteTagRef+      Stratosphere.ResourceProperties.AppMeshRouteTcpRoute+      Stratosphere.ResourceProperties.AppMeshRouteTcpRouteAction+      Stratosphere.ResourceProperties.AppMeshRouteWeightedTarget+      Stratosphere.ResourceProperties.AppMeshVirtualNodeAccessLog+      Stratosphere.ResourceProperties.AppMeshVirtualNodeBackend+      Stratosphere.ResourceProperties.AppMeshVirtualNodeDnsServiceDiscovery+      Stratosphere.ResourceProperties.AppMeshVirtualNodeFileAccessLog+      Stratosphere.ResourceProperties.AppMeshVirtualNodeHealthCheck+      Stratosphere.ResourceProperties.AppMeshVirtualNodeListener+      Stratosphere.ResourceProperties.AppMeshVirtualNodeLogging+      Stratosphere.ResourceProperties.AppMeshVirtualNodePortMapping+      Stratosphere.ResourceProperties.AppMeshVirtualNodeServiceDiscovery+      Stratosphere.ResourceProperties.AppMeshVirtualNodeTagRef+      Stratosphere.ResourceProperties.AppMeshVirtualNodeVirtualNodeSpec+      Stratosphere.ResourceProperties.AppMeshVirtualNodeVirtualServiceBackend+      Stratosphere.ResourceProperties.AppMeshVirtualRouterPortMapping+      Stratosphere.ResourceProperties.AppMeshVirtualRouterTagRef+      Stratosphere.ResourceProperties.AppMeshVirtualRouterVirtualRouterListener+      Stratosphere.ResourceProperties.AppMeshVirtualRouterVirtualRouterSpec+      Stratosphere.ResourceProperties.AppMeshVirtualServiceTagRef+      Stratosphere.ResourceProperties.AppMeshVirtualServiceVirtualNodeServiceProvider+      Stratosphere.ResourceProperties.AppMeshVirtualServiceVirtualRouterServiceProvider+      Stratosphere.ResourceProperties.AppMeshVirtualServiceVirtualServiceProvider+      Stratosphere.ResourceProperties.AppMeshVirtualServiceVirtualServiceSpec       Stratosphere.ResourceProperties.AppStreamDirectoryConfigServiceAccountCredentials       Stratosphere.ResourceProperties.AppStreamFleetComputeCapacity       Stratosphere.ResourceProperties.AppStreamFleetDomainJoinInfo@@ -890,6 +922,11 @@       Stratosphere.Resources.ApiGatewayVpcLink       Stratosphere.Resources.ApplicationAutoScalingScalableTarget       Stratosphere.Resources.ApplicationAutoScalingScalingPolicy+      Stratosphere.Resources.AppMeshMesh+      Stratosphere.Resources.AppMeshRoute+      Stratosphere.Resources.AppMeshVirtualNode+      Stratosphere.Resources.AppMeshVirtualRouter+      Stratosphere.Resources.AppMeshVirtualService       Stratosphere.Resources.AppStreamDirectoryConfig       Stratosphere.Resources.AppStreamFleet       Stratosphere.Resources.AppStreamImageBuilder