instanceStatusTypeConv :: (MonadThrow m, Applicative m)
    => Text -> XmlElement -> m InstanceStatusType
instanceStatusTypeConv name = element name conv
  where
    detailConv e = InstanceStatusDetail
        <$> e .< "name"
        <*> e .< "status"
        <*> e .< "impairedSince"
    conv e = InstanceStatusType
        <$> e .< "status"
        <*> itemsSet "details" detailConv e

------------------------------------------------------------
-- StartInstances
------------------------------------------------------------
instanceStatusTypeConv :: (MonadThrow m, Applicative m)
    => Text -> XmlElement -> m InstanceStatusType
instanceStatusTypeConv name = element name conv
  where
    detailConv e = InstanceStatusDetail
        <$> e .< "name"
        <*> e .< "status"
        <*> e .< "impairedSince"
    conv e = InstanceStatusType
        <$> e .< "status"
        <*> itemsSet "details" detailConv e

------------------------------------------------------------
-- StartInstances
------------------------------------------------------------
instanceStatusTypeConv name = element name conv
  where
    detailConv e = InstanceStatusDetail
        <$> e .< "name"
        <*> e .< "status"
        <*> e .< "impairedSince"
    conv e = InstanceStatusType
        <$> e .< "status"
        <*> itemsSet "details" detailConv e

------------------------------------------------------------
-- StartInstances
------------------------------------------------------------