{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE TypeFamilies #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module Network.AWS.Glacier.Waiters where
import Network.AWS.Glacier.DescribeVault
import Network.AWS.Glacier.DescribeVault
import Network.AWS.Glacier.Types
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Waiter
vaultNotExists :: Wait DescribeVault
vaultNotExists =
Wait
{ _waitName = "VaultNotExists"
, _waitAttempts = 15
, _waitDelay = 3
, _waitAcceptors =
[ matchStatus 200 AcceptRetry
, matchError "ResourceNotFoundException" AcceptSuccess
]
}
vaultExists :: Wait DescribeVault
vaultExists =
Wait
{ _waitName = "VaultExists"
, _waitAttempts = 15
, _waitDelay = 3
, _waitAcceptors =
[ matchStatus 200 AcceptSuccess
, matchError "ResourceNotFoundException" AcceptRetry
]
}