{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE TypeFamilies #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module Network.AWS.MachineLearning.Waiters where
import Network.AWS.Lens
import Network.AWS.MachineLearning.DescribeBatchPredictions
import Network.AWS.MachineLearning.DescribeDataSources
import Network.AWS.MachineLearning.DescribeEvaluations
import Network.AWS.MachineLearning.DescribeMLModels
import Network.AWS.MachineLearning.Types
import Network.AWS.Prelude
import Network.AWS.Waiter
mLModelAvailable :: Wait DescribeMLModels
mLModelAvailable =
Wait
{ _waitName = "MLModelAvailable"
, _waitAttempts = 60
, _waitDelay = 30
, _waitAcceptors =
[ matchAll
"COMPLETED"
AcceptSuccess
(folding (concatOf dmlmsrsResults) . mlmStatus . _Just . to toTextCI)
, matchAny
"FAILED"
AcceptFailure
(folding (concatOf dmlmsrsResults) . mlmStatus . _Just . to toTextCI)
]
}
batchPredictionAvailable :: Wait DescribeBatchPredictions
batchPredictionAvailable =
Wait
{ _waitName = "BatchPredictionAvailable"
, _waitAttempts = 60
, _waitDelay = 30
, _waitAcceptors =
[ matchAll
"COMPLETED"
AcceptSuccess
(folding (concatOf dbpsrsResults) . bpStatus . _Just . to toTextCI)
, matchAny
"FAILED"
AcceptFailure
(folding (concatOf dbpsrsResults) . bpStatus . _Just . to toTextCI)
]
}
dataSourceAvailable :: Wait DescribeDataSources
dataSourceAvailable =
Wait
{ _waitName = "DataSourceAvailable"
, _waitAttempts = 60
, _waitDelay = 30
, _waitAcceptors =
[ matchAll
"COMPLETED"
AcceptSuccess
(folding (concatOf ddssrsResults) . dsStatus . _Just . to toTextCI)
, matchAny
"FAILED"
AcceptFailure
(folding (concatOf ddssrsResults) . dsStatus . _Just . to toTextCI)
]
}
evaluationAvailable :: Wait DescribeEvaluations
evaluationAvailable =
Wait
{ _waitName = "EvaluationAvailable"
, _waitAttempts = 60
, _waitDelay = 30
, _waitAcceptors =
[ matchAll
"COMPLETED"
AcceptSuccess
(folding (concatOf desrsResults) . eStatus . _Just . to toTextCI)
, matchAny
"FAILED"
AcceptFailure
(folding (concatOf desrsResults) . eStatus . _Just . to toTextCI)
]
}