{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE TypeFamilies #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module Network.AWS.CloudWatch.Waiters where
import Network.AWS.CloudWatch.DescribeAlarms
import Network.AWS.CloudWatch.Types
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Waiter
alarmExists :: Wait DescribeAlarms
alarmExists =
Wait
{ _waitName = "AlarmExists"
, _waitAttempts = 40
, _waitDelay = 5
, _waitAcceptors =
[matchNonEmpty True AcceptSuccess (folding (concatOf darsMetricAlarms))]
}