------------------------------------------------------------
-- DescribeInstances
------------------------------------------------------------
describeInstances
    :: (MonadResource m, MonadBaseControl IO m)
    => [Text] -- ^ InstanceIds
    -> [Filter] -- ^ Filters
    -> EC2 m (ResumableSource m Reservation)
describeInstances instances filters = do
    ec2QuerySource "DescribeInstances" params path $
        itemConduit reservationConv
  where
    path = itemsPath "reservationSet"
    params =
        [ "InstanceId" |.#= instances
        , filtersParam filters
        ]
describeInstances
    :: (MonadResource m, MonadBaseControl IO m)
    => [Text] -- ^ InstanceIds
    -> [Filter] -- ^ Filters
    -> EC2 m (ResumableSource m Reservation)
describeInstances instances filters = do
    ec2QuerySource "DescribeInstances" params path $
        itemConduit reservationConv
  where
    path = itemsPath "reservationSet"
    params =
        [ "InstanceId" |.#= instances
        , filtersParam filters
        ]
describeInstances instances filters = do
    ec2QuerySource "DescribeInstances" params path $
        itemConduit reservationConv
  where
    path = itemsPath "reservationSet"
    params =
        [ "InstanceId" |.#= instances
        , filtersParam filters
        ]