aws-sdk 0.9.4.1 → 0.10.0

raw patch · 5 files changed

+72/−7 lines, 5 filesdep ~containersdep ~template-haskell

Dependency ranges changed: containers, template-haskell

Files

• AWS/EC2/Types/Instance.hs +2/−1
• AWS/EC2/Util.hs +2/−2
• AWS/ELB/LoadBalancer.hs +64/−0
• AWS/ELB/Types.hs +1/−1
• aws-sdk.cabal +3/−3

@@ -271,6 +271,7 @@     | InstanceStatusTypeStatusImpaired     | InstanceStatusTypeStatusInsufficientData     | InstanceStatusTypeStatusNotApplicable+    | InstanceStatusTypeStatusInitializing   deriving (Show, Read, Eq)  data ModifyInstanceAttributeRequest@@ -363,4 +364,4 @@     , "instance-retirement"     ] deriveFromText "InstanceStatusTypeStatus"-    ["ok", "impaired", "insufficient-data", "not-applicable"]+    ["ok", "impaired", "insufficient-data", "not-applicable", "initializing"]

@@ -83,14 +83,14 @@ -- -- > import AWS.EC2 -- > import AWS.EC2.Types--- > import AWS.EC2.Util (asList, wait)+-- > import AWS.EC2.Util (list, wait) -- >  -- > waitForAvailable :: (MonadIO m, Functor m) -- >     => Text -- ^ ImageId -- >     -> EC2 m a -- > waitForAvailable = wait -- >     (\img -> imageImageState img == ImageAvailable)--- >     (\imgId -> asList (describeImages [imgId] [] [] []))+-- >     (\imgId -> list (describeImages [imgId] [] [] [])) wait     :: (MonadIO m, Functor m)     => (a -> Bool) -- ^ condition

@@ -20,6 +20,10 @@     , configureHealthCheck     , enableAvailabilityZonesForLoadBalancer     , disableAvailabilityZonesForLoadBalancer+    , createLBCookieStickinessPolicy+    , createAppCookieStickinessPolicy+    , setLoadBalancerPoliciesOfListener+    , setLoadBalancerPoliciesForBackendServer     ) where  import Data.Text (Text)@@ -424,4 +428,64 @@     params =         [ "AvailabilityZones.member" |.#= zones         , "LoadBalancerName" |= lb+        ]++createLBCookieStickinessPolicy+    :: (MonadBaseControl IO m, MonadResource m)+    => Maybe Int -- ^ The time period in seconds after which the cookie should be considered stale. Not specifying this parameter indicates that the sticky session will last for the duration of the browser session. +    -> Text -- ^ The name associated with the LoadBalancer.+    -> Text -- ^ The name of the policy being created.+    -> ELB m ()+createLBCookieStickinessPolicy period lb policy =+    elbQuery "CreateLBCookieStickinessPolicy" params $ getT_ "CreateLBCookieStickinessPolicyResult"+  where+    params =+        [ "CookieExpirationPeriod" |=? toText <$> period+        , "LoadBalancerName" |= lb+        , "PolicyName" |= policy+        ]++createAppCookieStickinessPolicy+    :: (MonadBaseControl IO m, MonadResource m)+    => Text -- ^ Name of the application cookie used for stickiness.+    -> Text -- ^ The name associated with the LoadBalancer.+    -> Text -- ^ The name of the policy being created.+    -> ELB m ()+createAppCookieStickinessPolicy cookieName lb policy =+    elbQuery "CreateAppCookieStickinessPolicy" params $ getT_ "CreateAppCookieStickinessPolicyResult"+  where+    params =+        [ "CookieName" |= cookieName+        , "LoadBalancerName" |= lb+        , "PolicyName" |= policy+        ]++setLoadBalancerPoliciesOfListener+    :: (MonadBaseControl IO m, MonadResource m)+    => Text -- ^  The name associated with the LoadBalancer.+    -> Int -- ^ The external port of the LoadBalancer with which this policy applies to.+    -> [Text] -- ^ List of policies to be associated with the listener.+    -> ELB m ()+setLoadBalancerPoliciesOfListener lb port policies =+    elbQuery "SetLoadBalancerPoliciesOfListener" params $ getT_ "SetLoadBalancerPoliciesOfListenerResult"+  where+    params =+        [ "LoadBalancerName" |= lb+        , "LoadBalancerPort" |= toText port+        , if null policies then "PolicyNames" |= "" else "PolicyNames.member" |.#= policies+        ]++setLoadBalancerPoliciesForBackendServer+    :: (MonadBaseControl IO m, MonadResource m)+    => Int -- ^ The port number associated with the back-end server.+    -> Text -- ^ The mnemonic name associated with the LoadBalancer.+    -> [Text] -- ^ List of policy names to be set.+    -> ELB m ()+setLoadBalancerPoliciesForBackendServer port lb policies =+    elbQuery "SetLoadBalancerPoliciesForBackendServer" params $ getT_ "SetLoadBalancerPoliciesForBackendServerResult"+  where+    params =+        [ "InstancePort" |= toText port+        , "LoadBalancerName" |= lb+        , "PolicyNames.member" |.#= policies         ]

@@ -75,7 +75,7 @@  data LBCookieStickinessPolicy = LBCookieStickinessPolicy     { lbCookieStickinessPolicyPolicyName :: Text-    , lbCookieStickinessPolicyCookieExpirationPeriod :: Integer+    , lbCookieStickinessPolicyCookieExpirationPeriod :: Maybe Integer     }   deriving (Show, Eq) 

@@ -1,5 +1,5 @@ name:                aws-sdk-version:             0.9.4.1+version:             0.10.0 synopsis:            AWS SDK for Haskell description: AWS (Amazon Web Services) sdk for Haskell.              .@@ -103,7 +103,7 @@                      -fno-warn-unused-do-bind   extensions: OverloadedStrings   build-depends:     base >= 4 && < 5-                   , containers < 0.5.0.0+                   , containers                    , SHA                    , base64-bytestring >= 1.0.0.0                    , bytestring@@ -125,7 +125,7 @@                    , lifted-base                    , transformers-base                    , strptime-                   , template-haskell == 2.7.0.0+                   , template-haskell                    , parallel                    , iproute >= 1.2.9