Regenerating amazonka-opsworks-cm from latest service definition

HouWill · Feb 2, 2017 · cf337db · cf337db
1 parent 4dc5c62
commit cf337db
Show file tree

Hide file tree

Showing 2 changed files with 21 additions and 0 deletions.
diff --git a/amazonka-opsworks-cm/gen/Network/AWS/OpsWorksCM.hs b/amazonka-opsworks-cm/gen/Network/AWS/OpsWorksCM.hs
@@ -62,6 +62,9 @@ module Network.AWS.OpsWorksCM
     -- * Waiters
     -- $waiters
 
+    -- ** NodeAssociated
+    , nodeAssociated
+
     -- * Operations
     -- $operations
 

diff --git a/amazonka-opsworks-cm/gen/Network/AWS/OpsWorksCM/Waiters.hs b/amazonka-opsworks-cm/gen/Network/AWS/OpsWorksCM/Waiters.hs
@@ -16,6 +16,24 @@
 module Network.AWS.OpsWorksCM.Waiters where
 
 import           Network.AWS.Lens
+import           Network.AWS.OpsWorksCM.DescribeNodeAssociationStatus
 import           Network.AWS.OpsWorksCM.Types
 import           Network.AWS.Prelude
 import           Network.AWS.Waiter
+
+-- | Polls 'Network.AWS.OpsWorksCM.DescribeNodeAssociationStatus' every 15 seconds until a successful state is reached. An error is returned after 15 failed checks.
+nodeAssociated :: Wait DescribeNodeAssociationStatus
+nodeAssociated =
+    Wait
+    { _waitName = "NodeAssociated"
+    , _waitAttempts = 15
+    , _waitDelay = 15
+    , _waitAcceptors = [ matchAll
+                             "SUCCESS"
+                             AcceptSuccess
+                             (dnasrsNodeAssociationStatus . to toTextCI)
+                       , matchAll
+                             "FAILED"
+                             AcceptFailure
+                             (dnasrsNodeAssociationStatus . to toTextCI)]
+    }