{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE TypeFamilies #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module Network.AWS.IAM.Waiters where
import Network.AWS.IAM.GetInstanceProfile
import Network.AWS.IAM.GetUser
import Network.AWS.IAM.Types
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Waiter
instanceProfileExists :: Wait GetInstanceProfile
instanceProfileExists =
Wait
{ _waitName = "InstanceProfileExists"
, _waitAttempts = 40
, _waitDelay = 1
, _waitAcceptors =
[matchStatus 200 AcceptSuccess, matchStatus 404 AcceptRetry]
}
userExists :: Wait GetUser
userExists =
Wait
{ _waitName = "UserExists"
, _waitAttempts = 20
, _waitDelay = 1
, _waitAcceptors =
[matchStatus 200 AcceptSuccess, matchError "NoSuchEntity" AcceptRetry]
}