{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE TypeFamilies #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module Network.AWS.ElasticTranscoder.Waiters where
import Network.AWS.ElasticTranscoder.ReadJob
import Network.AWS.ElasticTranscoder.Types
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Waiter
jobComplete :: Wait ReadJob
jobComplete =
Wait
{ _waitName = "JobComplete"
, _waitAttempts = 120
, _waitDelay = 30
, _waitAcceptors =
[ matchAll
"Complete"
AcceptSuccess
(rjrsJob . jStatus . _Just . to toTextCI)
, matchAll
"Canceled"
AcceptFailure
(rjrsJob . jStatus . _Just . to toTextCI)
, matchAll
"Error"
AcceptFailure
(rjrsJob . jStatus . _Just . to toTextCI)
]
}