{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE TypeFamilies #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module Network.AWS.CodeDeploy.Waiters where
import Network.AWS.CodeDeploy.GetDeployment
import Network.AWS.CodeDeploy.Types
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Waiter
deploymentSuccessful :: Wait GetDeployment
deploymentSuccessful =
Wait
{ _waitName = "DeploymentSuccessful"
, _waitAttempts = 120
, _waitDelay = 15
, _waitAcceptors =
[ matchAll
"Succeeded"
AcceptSuccess
(gdrsDeploymentInfo . _Just . diStatus . _Just . to toTextCI)
, matchAll
"Failed"
AcceptFailure
(gdrsDeploymentInfo . _Just . diStatus . _Just . to toTextCI)
, matchAll
"Stopped"
AcceptFailure
(gdrsDeploymentInfo . _Just . diStatus . _Just . to toTextCI)
]
}