AWS.EC2.Util

Documentation

asList :: Monad m => EC2 m (Source m a) -> EC2 m [a]

head :: Monad m => EC2 m (Source m a) -> EC2 m (Maybe a)

each :: Monad m => EC2 m (Source m a) -> (a -> m b) -> EC2 m ()

wait

Arguments

:: (MonadIO m, Functor m)

=> (a -> Bool)

condition

-> (Text -> EC2 m [a])

DescribeResources

-> Text

Resource Id

-> EC2 m a

Wait for condition.

 import AWS.EC2
 import AWS.EC2.Types
 import AWS.EC2.Util (asList, wait)
 
 waitForAvailable :: (MonadIO m, Functor m)
     => Text -- ^ ImageId
     -> EC2 m a
 waitForAvailable = wait
     (\img -> imageImageState img == ImageAvailable)
     (\imgId -> asList (describeImages [imgId] [] [] []))