aws-ec2 0.1 → 0.2

raw patch · 7 files changed

+109/−9 lines, 7 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• aws-ec2.cabal +6/−2
• src/Aws/Elb.hs +12/−2
• src/Aws/Elb/Commands/CreateLBCookieStickinessPolicy.hs +28/−0
• src/Aws/Elb/Commands/DeregisterInstancesFromLoadBalancer.hs +28/−0
• src/Aws/Elb/Commands/RegisterInstancesWithLoadBalancer.hs +1/−5
• src/Aws/Elb/Commands/SetLoadBalancerPoliciesOfListener.hs +28/−0
• src/Aws/Elb/Types.hs +6/−0

@@ -1,5 +1,5 @@ name:                aws-ec2-version:             0.1+version:             0.2 synopsis:            AWS EC2/VPC, ELB and CloudWatch client library for Haskell license-file:        LICENSE license:             BSD3@@ -15,7 +15,7 @@ source-repository this   type: git   location: https://github.com/zalora/aws-ec2.git-  tag: 0.1+  tag: 0.2  source-repository head   type: git@@ -78,6 +78,10 @@     , Aws.Elb.Commands.DescribeLoadBalancers     , Aws.Elb.Commands.ModifyLoadBalancerAttributes     , Aws.Elb.Commands.RegisterInstancesWithLoadBalancer+    , Aws.Elb.Commands.DeregisterInstancesFromLoadBalancer+    , Aws.Elb.Commands.CreateLBCookieStickinessPolicy+    , Aws.Elb.Commands.SetLoadBalancerPoliciesOfListener+   build-depends:       base >=4 && <5     , template-haskell

@@ -6,11 +6,16 @@  , module Aws.Elb.Commands.DescribeLoadBalancers , module Aws.Elb.Commands.CreateLoadBalancer-, module Aws.Elb.Commands.RegisterInstancesWithLoadBalancer , module Aws.Elb.Commands.DescribeLoadBalancerPolicyTypes , module Aws.Elb.Commands.DescribeInstanceHealth , module Aws.Elb.Commands.DescribeLoadBalancerPolicies , module Aws.Elb.Commands.ModifyLoadBalancerAttributes++, module Aws.Elb.Commands.RegisterInstancesWithLoadBalancer+, module Aws.Elb.Commands.DeregisterInstancesFromLoadBalancer++, module Aws.Elb.Commands.CreateLBCookieStickinessPolicy+, module Aws.Elb.Commands.SetLoadBalancerPoliciesOfListener ) where  import Aws.Core (Transaction)@@ -20,8 +25,13 @@  import Aws.Elb.Commands.DescribeLoadBalancers import Aws.Elb.Commands.CreateLoadBalancer-import Aws.Elb.Commands.RegisterInstancesWithLoadBalancer import Aws.Elb.Commands.DescribeLoadBalancerPolicyTypes import Aws.Elb.Commands.DescribeInstanceHealth import Aws.Elb.Commands.DescribeLoadBalancerPolicies import Aws.Elb.Commands.ModifyLoadBalancerAttributes++import Aws.Elb.Commands.RegisterInstancesWithLoadBalancer+import Aws.Elb.Commands.DeregisterInstancesFromLoadBalancer++import Aws.Elb.Commands.CreateLBCookieStickinessPolicy+import Aws.Elb.Commands.SetLoadBalancerPoliciesOfListener

@@ -0,0 +1,28 @@+{-# LANGUAGE TypeFamilies+           , MultiParamTypeClasses+           , FlexibleInstances+           , OverloadedStrings+           , TemplateHaskell+           , RecordWildCards+           #-}++module Aws.Elb.Commands.CreateLBCookieStickinessPolicy where++import Aws.Elb.TH++data CreateLBCookieStickinessPolicy = CreateLBCookieStickinessPolicy+                        { clbcsp_loadBalancerName :: Text+                        , clbcsp_cookieExpirationPeriod :: Maybe Integer+                        , clbcsp_policyName :: Text+                        } deriving (Show)++instance SignQuery CreateLBCookieStickinessPolicy where+    type ServiceConfiguration CreateLBCookieStickinessPolicy = QueryAPIConfiguration+    signQuery CreateLBCookieStickinessPolicy{..} = elbSignQuery $+                                                    [ ("Action", qArg "CreateLBCookieStickinessPolicy")+                                                    , defVersion+                                                    , ("LoadBalancerName", qArg clbcsp_loadBalancerName)+                                                    , ("PolicyName", qArg clbcsp_policyName)+                                                    ] +++ optional "CookieExpirationPeriod" clbcsp_cookieExpirationPeriod qShow++elbValueTransaction ''CreateLBCookieStickinessPolicy "CreateLBCookieStickinessPolicyResult"

@@ -0,0 +1,28 @@+{-# LANGUAGE TypeFamilies+           , MultiParamTypeClasses+           , FlexibleInstances+           , OverloadedStrings+           , TemplateHaskell+           , RecordWildCards+           #-}++module Aws.Elb.Commands.DeregisterInstancesFromLoadBalancer where++import qualified Network.HTTP.Types as HTTP+import Aws.Elb.TH+import Aws.Elb.Types++data DeregisterInstancesFromLoadBalancer = DeregisterInstancesFromLoadBalancer+                        { dilb_name :: Text+                        , dilb_instanceIds :: [Text]+                        } deriving (Show)++instance SignQuery DeregisterInstancesFromLoadBalancer where+    type ServiceConfiguration DeregisterInstancesFromLoadBalancer = QueryAPIConfiguration+    signQuery DeregisterInstancesFromLoadBalancer{..} = elbSignQuery $+                                                    [ ("Action", qArg "DeregisterInstancesFromLoadBalancer")+                                                    , defVersion+                                                    , ("LoadBalancerName", qArg dilb_name)+                                                    ] +++ enumerateInstanceIds dilb_instanceIds++elbValueTransaction ''DeregisterInstancesFromLoadBalancer "DeregisterInstancesFromLoadBalancerResult"

@@ -10,16 +10,12 @@  import qualified Network.HTTP.Types as HTTP import Aws.Elb.TH+import Aws.Elb.Types  data RegisterInstancesWithLoadBalancer = RegisterInstancesWithLoadBalancer                         { rilb_name :: Text                         , rilb_instanceIds :: [Text]                         } deriving (Show)--enumerateInstanceIds :: [Text] -> HTTP.Query-enumerateInstanceIds = enumerateLists "Instances.member." . fmap unroll-  where-    unroll i = [("InstanceId", qArg i)]  instance SignQuery RegisterInstancesWithLoadBalancer where     type ServiceConfiguration RegisterInstancesWithLoadBalancer = QueryAPIConfiguration

@@ -0,0 +1,28 @@+{-# LANGUAGE TypeFamilies+           , MultiParamTypeClasses+           , FlexibleInstances+           , OverloadedStrings+           , TemplateHaskell+           , RecordWildCards+           #-}++module Aws.Elb.Commands.SetLoadBalancerPoliciesOfListener where++import Aws.Elb.TH++data SetLoadBalancerPoliciesOfListener = SetLoadBalancerPoliciesOfListener+                        { spl_loadBalancerName :: Text+                        , spl_loadBalancerPort :: Integer+                        , spl_policyNames :: [Text]+                        } deriving (Show)++instance SignQuery SetLoadBalancerPoliciesOfListener where+    type ServiceConfiguration SetLoadBalancerPoliciesOfListener = QueryAPIConfiguration+    signQuery SetLoadBalancerPoliciesOfListener{..} = elbSignQuery $+                                                    [ ("Action", qArg "SetLoadBalancerPoliciesOfListener")+                                                    , defVersion+                                                    , ("LoadBalancerName", qArg spl_loadBalancerName)+                                                    , ("LoadBalancerPort", qShow spl_loadBalancerPort)+                                                    ] +++ enumerate "PolicyNames.member" spl_policyNames qArg++elbValueTransaction ''SetLoadBalancerPoliciesOfListener "SetLoadBalancerPoliciesOfListenerResult"

@@ -15,3 +15,9 @@  import Aws.Query import Aws.Elb.Core++enumerateInstanceIds :: [Text] -> HTTP.Query+enumerateInstanceIds = enumerateLists "Instances.member." . fmap unroll+  where+    unroll i = [("InstanceId", qArg i)]+